Excel用户窗体VBA需求：输入数值≥25时显示指定标签

一、修正代码中的错误 #

你写的代码有三个问题导致失效：

• 文本框Num1的内容是字符串类型，直接和数值25比较会出问题，得用Val()把它转成数值
• 标签可见性属性拼错了，是Visible不是Visable
• 代码最后多了个多余的.

修正后的基础代码片段：

If Val(UF1.Num1.Value) >= 25 Then
    UF1.Lab1.Visible = True
End If

如果要实现“数值小于25时自动隐藏标签”的完整逻辑，加上Else分支更合理：

If Val(UF1.Num1.Value) >= 25 Then
    UF1.Lab1.Visible = True
Else
    UF1.Lab1.Visible = False
End If

二、设置实时触发的方法 #

要在输入数值时实时触发代码，得给Num1文本框绑定Change事件，步骤如下：

1. 按Alt+F11打开VBA编辑器
2. 找到你的用户窗体UF1，双击打开设计界面
3. 双击Num1文本框，自动跳转到Num1_Change事件的代码窗口
4. 把修正后的代码粘贴进去，建议写成以下形式（用Me指代当前窗体，后续修改窗体名称时代码不用跟着改）：

Private Sub Num1_Change()
    Dim inputNum As Double
    inputNum = Val(Me.Num1.Value)
    
    If inputNum >= 25 Then
        Me.Lab1.Visible = True
    Else
        Me.Lab1.Visible = False
    End If
End Sub

这样用户每输入一个字符，代码都会实时判断并调整标签的可见性。

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