excel表格弹窗提醒宏

这是一个简单的Excel表格弹窗提醒宏，当用户输入有误时会弹出提示框提醒用户重新输入。

Sub CheckInput() '定义变量 Dim Value As String '获取输入值 Value = Range("A1").Value '检查输入值是否符合要求 If Value <> "正确的值" Then '弹出提示框提醒用户重新输入 MsgBox "请输入正确的值！", vbInformation, "输入错误" '清空输入框 Range("A1").ClearContents End If End Sub

使用方法：

1. 在Excel中按下Alt + F11进入VBA编辑器。
2. 在左侧“项目资源管理器”中选择要添加宏的工作簿。
3. 点击“插入”菜单，选择“模块”。
4. 在右侧编辑器中复制以上代码。
5. 关闭VBA编辑器，在Excel中输入测试数据，在A1单元格中输入错误的值，然后按Enter键。
6. 会弹出提示框提醒用户重新输入。如果输入正确的值，则不会弹出提示框。

注意事项：

1. 代码中的“正确的值”应根据实际情况修改。
2. 如果要应用于多个单元格，可以将代码中的“Range("A1")”替换为要检查的单元格范围。