Помогите решить такую проблему. как применить счетчик к TextBox [vba]
Код
Dim n_, m_ For m_ = 50 To 80 For n_ = 1 To 30 TextBox "Счетчик m_" .Visible =(Range("A" & n_).Value <> 0) Next n_
[/vba] [moder]Вы почему файл не прикладываете? Вот смотрите: допустим, у меня есть предположение по решению Вашего вопроса. Я бы его написал, но нужно проверить. А чтобы проверить, нужен файл. Сам рисовать я его не буду - Вам лень приложить пример, а мне лень его делать. Да и Правила нарушены.
Помогите решить такую проблему. как применить счетчик к TextBox [vba]
Код
Dim n_, m_ For m_ = 50 To 80 For n_ = 1 To 30 TextBox "Счетчик m_" .Visible =(Range("A" & n_).Value <> 0) Next n_
[/vba] [moder]Вы почему файл не прикладываете? Вот смотрите: допустим, у меня есть предположение по решению Вашего вопроса. Я бы его написал, но нужно проверить. А чтобы проверить, нужен файл. Сам рисовать я его не буду - Вам лень приложить пример, а мне лень его делать. Да и Правила нарушены.Ckaym
Ckaym
Сообщение отредактировал _Boroda_ - Четверг, 09.04.2015, 07:44
Это невозможно - имена элементов управления в коде требуется указывать в явном виде. В VB есть возможность создавать массивы элементов управления, поэтому там была бы возможность написать такой код: [vba]
Код
Dim i As Integer For i = 0 To 9 TextBox(i).Visible = True Next i
[/vba] Но в VBA такое, увы, не прокатит, поэтому все придется делать ручками.
Это невозможно - имена элементов управления в коде требуется указывать в явном виде. В VB есть возможность создавать массивы элементов управления, поэтому там была бы возможность написать такой код: [vba]
Код
Dim i As Integer For i = 0 To 9 TextBox(i).Visible = True Next i
[/vba] Но в VBA такое, увы, не прокатит, поэтому все придется делать ручками.Samaretz
Private Sub UserForm_Activate() Dim x, i&, j&, k& x = Range("G1:I3").Value For i = 1 To UBound(x) For j = 1 To UBound(x, 2) k = k + 1 Me("Textbox" & k).Visible = x(i, j) > 0 Next j Next i End Sub
[/vba]
Ckaym, привет например вот так [vba]
Код
Private Sub UserForm_Activate() Dim x, i&, j&, k& x = Range("G1:I3").Value For i = 1 To UBound(x) For j = 1 To UBound(x, 2) k = k + 1 Me("Textbox" & k).Visible = x(i, j) > 0 Next j Next i End Sub