<em>Excel</em>要怎么做到点击某个单元格即执行宏？

1. 编辑栏左侧有个名称框，在此输入区域，按回车，则前2万行选中，在编辑栏输入公式，按Ctrl+回车，则全有公式；zhidao

2. 如果公式列与数据表格是版挨着的，即表格与公式列中间没有空列（如果表格不止一列，表格中间可以有空单元，但不能有整个空行），输入第一个公式后，鼠标移至右下角填充柄权处（黑色小方块）双击，则有数据区域对应的行会填充公式，超过表格的行中不会填充公式。
   

楼主应该发现这些zd类模块中的事件前面的声明：Private Sub

既然是 Private 的，那又如何能够允许你跳出某个类模块而去执行另外一个类模块中的 Private 的子程序呢？更何专况你去执行工作簿的 Open 事件，而且这个工作簿已经被打开了，又何来再次发生 Open 事件呢属？
Private Sub CommandButton1_Click()
Dim rag As Range
For Each rag In Intersect(UsedRange,Range("A:A"))
If InStr("张三百|李四度", rag) > 0 Then rag.Font.ColorIndex = 3
If InStr("王二|大专麻子", rag) > 0 Then rag.Font.ColorIndex = 4
Next
End Sub
指定属A列............

你变通一下呀，不用公式了，用了vba了就在vba中解决掉公式的功能，然后将结果写入相关的单元格呀。