VBA 选项按钮“其他”跳转到文本框

Question

我有一个 UserForm1，其中包含应用折扣的选项。一个选项是“其他”。 我想“跳”到与选项按钮

OptionO

关联的文本框，反之亦然：如果用户单击并写入文本，则

OptionO

自动设置为 true。

我需要编写什么代码？

Answer 1

SetFocus

用于选项按钮单击，

Change

用于文本框即可实现此目的：

Private Sub OptionO_Click()
    Me.TextO.SetFocus
End Sub

Private Sub TextO_Change()
    Me.OptionO.Value = True
End Sub