如何根据单元格值自动运行宏

xiaochangyou

我尝试自己编写了一个msgbox代码，但是当给定条件后，代码不能自动运行，代码如下截图。请教各位大师，应该如何修改，才能自动运行。感谢！！

心的启点

不知道到底想做什么，没有符件就没有结果

autohotey

哪个表判断，代码就放哪个表

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Not Intersect(Target, Range("D:D")) Is Nothing Then
   
4.         For Each cell In Target.Cells
   
5.             If cell.Value = "A类" Then
   
6.                 MsgBox "你在第 " & cell.Row & " 行，第 " & cell.Column & " 列输入了 A类"
   
7.             End If
   
8.         Next cell
   
9.     End If
   
10. End Sub
    

复制代码

z865593849

xiaochangyou

autohotey 发表于 2024-12-10 17:39
哪个表判断，代码就放哪个表

感谢帮助

autohotey

xiaochangyou 发表于 2024-12-11 12:09
感谢帮助

我这个是判断输入的内容是否为"A类"
如果你想判定D列单元格（已存在内容）是否为A类，那就需要改代码。因为是遍历D列，所以如果“A类”单元格非常多，那么弹窗会弹个不停，这时候建议标注背景颜色实现。

xiaochangyou

autohotey 发表于 2024-12-11 15:16
我这个是判断输入的内容是否为"A类"
如果你想判定D列单元格（已存在内容）是否为A类，那就需要改代码。 ...

是的，我开始编的那个，就是一直弹个不停。最终需要的是你这个代码的效果，简直帮了我的大忙！

liulang0808

楼主的自动运行是指什么，输入内容就自动运行代码的话，建议修改成表格事件，或者工作簿事件