VBA用户窗体OptionButton与TextBox联动跳转及自动选中需求

功能1：点击OptionO时自动跳转至关联TextBox #

在UserForm1的代码模块中添加以下代码：

Private Sub OptionO_Click()
    ' 把下面的"txtOther"换成你实际关联的TextBox控件名称
    txtOther.SetFocus
End Sub

这段代码的作用是：当点击名为OptionO的“其他”选项按钮时，光标会自动定位到指定的TextBox，方便直接输入内容。

功能2：点击/输入TextBox时自动选中OptionO #

同样在UserForm1的代码模块中添加以下两段代码（注意替换TextBox名称）：

Private Sub txtOther_Enter()
    OptionO.Value = True
End Sub

Private Sub txtOther_Change()
    OptionO.Value = True
End Sub

• txtOther_Enter：用户点击TextBox进入输入状态时，自动选中OptionO选项按钮。
• txtOther_Change：用户在TextBox中输入或修改内容时，确保OptionO保持选中状态，避免误选其他选项后仍在该TextBox输入的情况。

注意事项 #

• 请将代码中的txtOther替换为你窗体中实际的关联TextBox控件名称。
• 所有代码都需要写入UserForm1的代码模块（右键用户窗体→选择“查看代码”即可打开该模块）。

内容的提问来源于stack exchange，提问作者Chris Peh