当鼠标放入文本框或组合框时，使单位可见-Makeunitsvisiblewhenmousingintotextboxorcombobox

2  

Using 3 Enter() events worked for me:

使用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

Example of clicking in ComboBoxes (In top Userform ComboBox1 is active, in second Userform ComboBox3 is active, etc.)

单击ComboBoxes的示例(在顶部Userform ComboBox1处于活动状态,在第二个Userform ComboBox3处于活动状态,等等)

2  

First, I would use Enter event instead of Mouse up event, so same thing will happen when you Tab into the control. For each control's Enter event simply call this ShowUnit function and feed it the controls name.

首先,我会使用Enter事件而不是Mouse up事件,因此当Tab键进入控件时会发生同样的事情。对于每个控件的Enter事件,只需调用此ShowUnit函数并为其提供控件名称。

Private Sub CE2_Enter()
    Call ShowUnit(CE2)
End Sub

Private Sub OD1_Enter()
    Call ShowUnit(OD1)
End Sub

Private Sub ShowUnit(ByRef oControl As Control)
    If InStr(1, oControl.Name, "OD") > 0 Then
        UserForm1.inUnit.Visible = True
        UserForm1.mmUnit.Visible = False
        UserForm1.eaUnit.Visible = False

    ElseIf InStr(1, oControl.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

edit: Changed names of controls to illustrate how to use the code and returned "OD" and "CE" in the instr() functions from my test values.

编辑:更改控件名称以说明如何使用代码并从我的测试值返回instr()函数中的“OD”和“CE”。

For additional clarification see the image below to see what's going on. The Blue is how you can use the GUI to ensure you are referencing the Controls Event. Red is indicating that we pass the full Control to the ShowUnit Function. The Purple is showing that we take are reading the Controls Name property to search for "OD" or "CE" note that these are case sensitive without using instr(1, UCASE(oControl.Name), "OD") > 0, so if your controls name is odSomeName it won't make the inUnit label visible.

有关其他说明,请参阅下图,了解正在发生的情况。 Blue是如何使用GUI来确保您引用控件事件的。红色表示我们将完整的Control传递给ShowUnit函数。紫色显示我们正在读取Controls Name属性来搜索“OD”或“CE”注意这些是区分大小写而不使用instr(1,UCASE(oControl.Name),“OD”)> 0,所以如果您的控件名称是odSomeName,则不会使inUnit标签可见。