如何根据指定单元格区域的值自动弹出自定义Excel数据录入UserForm

1. 先准备好UserForm #

打开Excel按Alt+F11进入VBA编辑器，右键点击项目窗口里的对象，选择「插入」>「用户窗体」，可以根据需求给窗体加标签、按钮等控件，保存好窗体（默认名称是UserForm1，可自行修改）。

2. 编写工作表事件代码 #

把下面的代码放到目标工作表的代码模块里（不是标准模块）：右键点击要监控的工作表标签，选择「查看代码」，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义要监控的单元格区域，替换成你需要的范围
    Dim monitorRange As Range
    Set monitorRange = Me.Range("A1:C10")
    
    ' 检查修改的单元格是否在监控范围内
    If Not Intersect(Target, monitorRange) Is Nothing Then
        ' 遍历所有被修改的单元格（处理批量粘贴的情况）
        Dim cell As Range
        For Each cell In Intersect(Target, monitorRange)
            ' 不区分大小写判断值是否为yes，要区分的话去掉UCase()
            If UCase(cell.Value) = "YES" Then
                ' 弹出你的UserForm，替换成实际窗体名称
                UserForm1.Show
                Exit Sub ' 避免多个符合条件的单元格重复弹出窗体
            End If
        Next cell
    End If
End Sub

关键修改点 #

• 把A1:C10改成你实际要监控的单元格区域
• 把UserForm1换成你创建的UserForm的名称
• 如果需要严格区分大小写，将判断条件改成cell.Value = "yes"
• 要是希望每出现一个'yes'都弹出窗体（哪怕之前弹过），删掉Exit Sub这一行

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