excel如何设置显示框

1.Excel如何添加提示框

在WorkSheet的SelectionChange事件下面贴上如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

i = Target.Row()

j = Target.Column()

If Cells(i, j).HasFormula Then

x = MsgBox（"不能在有公式的地方编辑"， vbInformation + vbOKOnly， "温馨提示"）

Cells(1, 1).Select

End If

End Sub

上面的代码作用是，没办法让你选中有公式的单元格.测试能达到你要的效果.不需要调用，只要你选中有公式的单元格就会提示，并自动跳到A1单元格.所以A1单元格不能有公式，但是禁用宏，代码失效.

按代码行解释：

1.定义事件的开始

2.得到选中单元格的行号

3.得到选中单元格的列号

4.判断该行该列单元格是否存在公式，如果存在

5.提示信息

6.选中第一行列单元格

7.结束事件

8.结束过程