Как мне установить переменную по умолчанию для кнопки option? - PullRequest
Новая
       36

Как мне установить переменную по умолчанию для кнопки option?

0 голосов
/ 03 августа 2020

У меня в форме есть простая секция с двумя кнопками выбора. Если пользователь выбирает Optionbutton1, TextBox2 скрывается. Когда они выбирают Optionbutton2, тогда TextBox2 становится видимым, и пользователь может вводить текст.

Текст, введенный в TextBox2, должен быть назначен переменной с именем «other».

Я пытаюсь достичь если выбран Optionbutton1, значение по умолчанию для переменной «other» будет ' none '. Очевидно, что если пользователь выбирает Optionbutton2, тогда переменная «other» должна быть тем, что введено пользователем в TextBox2.

Текст, введенный для переменной « other », будет введен в закладку "другое".

Вот мой код. Я новичок в VBA и искал ответ в Google, но мне не повезло. Надеюсь, это имеет смысл?

Изменить - я попытался объявить переменную «other» как «none», но она не содержит этого значения, если выбран Optionbutton1. Я добавил две строки, которые показывают, что, по моему мнению, сработает.

Спасибо! 

Dim Other As None
Other = "None"


Private Sub OptionButton1_Click()
For Each objCtrl In Me.Controls
If OptionButton1.Value Then TextBox2.Visible = False
Next
OptionButton1.Visible = True
OptionButton2.Visible = True

End Sub

Private Sub OptionButton2_Click()
For Each objCtrl In Me.Controls
If OptionButton2.Value Then TextBox2.Visible = True
Next
End Sub
'
'
'
'
Dim Other As Range
   Set Other = ActiveDocument.Bookmarks("Other").Range
   Other.Text = Me.TextBox2.Value
...