嘿，我来帮你一步步搞定这个需求！你已经有了基础的事件触发和窗体调用代码，现在只需要完成用户窗体的可视化配置，再微调下现有代码就行，具体操作如下：

1. 配置用户窗体WarningBox的控件属性 #

你已经在代码里引用了名为LOL的标签控件，现在需要给它设置对应的样式：

• 打开VBA编辑器（按Alt+F11），找到你创建的WarningBox用户窗体
• 选中窗体里的LOL标签，在右侧属性面板里做以下设置：
  • 字体加粗：找到Font属性，展开后把Bold设为True
  • 红色边框：把BorderStyle改成fmBorderStyleSingle，然后把BorderColor设置为红色（可以直接选颜色，或者输入RGB(255, 0, 0)）
  • （可选）调整Label的Width和Height，让“INCORRECT!”完整显示；同时调整窗体的大小，让它刚好包裹住标签，看起来更整洁
  • （可选）给窗体添加关闭逻辑：双击窗体空白处，在UserForm_Click事件里写Unload Me，这样用户点击窗体就能关闭提示

2. 微调Worksheet_Change事件代码（避免循环触发） #

原代码在触发事件时可能会因为单元格内容变化再次触发自己，建议加上事件开关：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myCell As Range
    Application.EnableEvents = False ' 临时关闭事件触发，防止循环
    For Each myCell In Range("G4:G160")
        ' 去掉重复的myCell.Value <> ""，IsEmpty已经覆盖了空单元格判断
        If (Not IsEmpty(myCell)) And myCell.Value <> 17521 Then
            DisplayUserForm
            Exit Sub
        End If
    Next myCell
    Application.EnableEvents = True ' 恢复事件触发
End Sub

3. 测试效果 #

回到Excel界面，在G4到G160的单元格里输入任意不是17521的内容，就能看到弹出的用户窗体，里面显示着加粗且带红色边框的“INCORRECT!”提示啦！

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