For iCount = 1 To 10
Controls("OptionButton" & iCount).Visible = True
'Me.Controls("OptionButton" & iCount).Visible = True
'UserForm1.Controls("OptionButton" & iCount).Visible = True
Next
Как в цикле обратиться к OptionButton(i)??
К примеру: есть десять OptionButton. Все невидимые. Нужно в цикле сделать их все видимыми. Что-то наподобие этого:
For i=1 to 10 do
OptionButton i.Visible = True
next i.
Надеюсь, что вы меня поняли. Пожалуйста!! Помогите!! Срочно надо!!
For i=1 to 10 do
OptionButton i.Visible = True
next i.
Надеюсь, что вы меня поняли. Пожалуйста!! Помогите!! Срочно надо!!
Если имена Ваших переключателей OptionButton1, OptionButton2 и т.д., то в VBA это можно сделать так :
В противном случае, Вы можете использовать что-то вроде :
Код:
В противном случае, Вы можете использовать что-то вроде :
Код:
For Each iControl In Me.Controls
If TypeOf iControl Is MSForms.OptionButton Then
iControl.Visible = True
End If
Next
If TypeOf iControl Is MSForms.OptionButton Then
iControl.Visible = True
End If
Next
Код:
For Each iControl In Me.Controls
If TypeName(iControl) = "OptionButton" Then
iControl.Visible = True
End If
Next
If TypeName(iControl) = "OptionButton" Then
iControl.Visible = True
End If
Next
Код:
For iCount = 0 To Controls.Count - 1
If TypeOf Controls(iCount) Is MSForms.OptionButton Then
Controls(iCount).Visible = True
End If
Next
If TypeOf Controls(iCount) Is MSForms.OptionButton Then
Controls(iCount).Visible = True
End If
Next
Цитата:
Originally posted by iq13
К примеру: есть десять OptionButton. Все невидимые. Нужно в цикле сделать их все видимыми. Что-то наподобие этого:
For i=1 to 10 do
OptionButton i.Visible = True
next i.
Надеюсь, что вы меня поняли. Пожалуйста!! Помогите!! Срочно надо!!
К примеру: есть десять OptionButton. Все невидимые. Нужно в цикле сделать их все видимыми. Что-то наподобие этого:
For i=1 to 10 do
OptionButton i.Visible = True
next i.
Надеюсь, что вы меня поняли. Пожалуйста!! Помогите!! Срочно надо!!
Так все вроде бы правильно.
Я только напишу по-своему
For i = 0 to 9
OptionButton(i).Visible = True
Next
Цитата:
Так все вроде бы правильно © Tever 2006
Это если рассматривать данный вопрос с точки зрения чистого "VB", однако VBA подобный синтаксис не воспринимает. К сожалению автор вопроса не уточнил о каком именно языке идёт речь, но прошлый вопрос касался именно Visual Basic for Application