excel - 当鼠标移入文本框或组合框时使单位可见

Question

我有一个用户表单，需要在各种文本框和组合框中输入内容。输入用于测量并具有与其关联的单位。我希望用户窗体显示当您单击每个特定文本/组合框时预计使用哪些单位。

目前，我的代码适用于文本框，但无法识别组合框。这是我的代码。

Private Sub TextboxActions_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If InStr(1, TextboxActions.Name, "OD") > 0 Then
    UserForm1.inUnit.Visible = True
    UserForm1.mmUnit.Visible = False
    UserForm1.eaUnit.Visible = False

ElseIf InStr(1, TextboxActions.Name, "CE") > 0 Then
    UserForm1.inUnit.Visible = False
    UserForm1.mmUnit.Visible = True
    UserForm1.eaUnit.Visible = False

Else
    UserForm1.inUnit.Visible = False
    UserForm1.mmUnit.Visible = False
    UserForm1.eaUnit.Visible = True
End If
End Sub

使用此功能，当用户单击文本框时，它将显示单位:mm 或 ea。我希望组合框也出现这种情况，但目前单击组合框时没有任何反应。

Answer 1

使用 3 个 Enter() 事件对我有用:

Private Sub ComboBox1_Enter()

UserForm1.Label1.Visible = True
UserForm1.Label2.Visible = False
UserForm1.Label3.Visible = False

End Sub
Private Sub ComboBox2_Enter()

UserForm1.Label1.Visible = False
UserForm1.Label2.Visible = True
UserForm1.Label3.Visible = False

End Sub
Private Sub ComboBox3_Enter()

UserForm1.Label1.Visible = False
UserForm1.Label2.Visible = False
UserForm1.Label3.Visible = True

End Sub

单击组合框的示例(在顶部用户窗体 ComboBox1 处于事件状态，在第二个用户窗体 ComboBox3 处于事件状态，等等)