EXCEL能否设置弹窗提示

通过vba可以实现，在对应表（如sheet1）的SelectionChange事件中输入以下代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If (Sheet1Cells(SelectionRow, SelectionColumn) > 5000) Then

        MsgBox ("十分优秀")

    ElseIf (Sheet1Cells(SelectionRow, SelectionColumn) > 2000) Then

        MsgBox ("优秀")

    Else: MsgBox ("一般")

    End If

End Sub

您给的条件中可能有问题，原话

《数字大于2000，自动弹窗提示“一般”，2000-5000之间提示“优秀”》

我的理解应该是

 《数字小于2000，自动弹窗提示“一般”，2000-5000之间提示“优秀”》

所以上述代码使用小于等于2000给提示“一般”。

找到“忽略使用动态数据交换dde的其他应用程序”这一项，取消复选框后打开即可，详细步骤：

1、找到要打开的excel文件。

2、双击打开空白表格。

3、进入excel的系统设置，点击左上角软件小图标，可以看到了界面右小角有“excel选项”功能按键。

4、点击进入“excel选项”页面，找到“高级”选项卡。

5、进入“高级”设置项目，右侧页面下拉找到”忽略使用动态数据交换dde的其他应用程序“这一项，取消复选框，点击右下角“确定”功能按钮。

6、现在回到excel文件夹页面，双击文件，好了，excel文件可以正常打开excel文件可以正常打开了。

1、首先点击选中需要设置单元格中显示提示框的单元格。

2、然后点击鼠标右键，选择打开选项中的“插入批注”选项。

3、然后在单元格位置即可出现一个批注框，在其中可以输入需要显示的文字。

4、点击空白单元格位置即可退出批注的编辑，此时单元格的右上角会显示红色的三角形。

5、当鼠标的光标移动到红色三角形位置即可弹出提示框。

我在网上找到这个方法，你可以试一下，希望能帮到你，

因为工作簿中有隐含的40宏表函数，隐含在隐藏的名称中。有两种方法，第一种比较简单。一、手动选中所有工作表，按下CTRL键单击全部工作表(不能用系统的‘选中所有工作表’选项，会把病毒工作表macro1也选中，造成如下操作无效)。

2、复制至新的工作表中，保存。

3、删除老的EXCEL工作簿。

4、完成。

二、让其现身的方法：

1在Excel界面点Alt+F11，进入VBE窗口，在左边“工程”窗口中点选出问题的那个工作簿，然后插入一个模块：

2将如下代码复制到模块中：

Sub

DisplayNames()

Dim

Na

As

Name

For

Each

Na

In

ThisWorkbookNames

NaVisible

=

True

Next

End

Sub

然后点“运行”按钮运行宏代码，如下图：

3回到EXCEL界面，调出名称管理器，就会看到那个包含宏表函数的名称了：

4点选这个名称，然后选择删除，以后就再也不会有那个提示了。

你的代码很好。

实现方法如下：

1右击sheet1工作表，选择“查看代码”。

2在自动弹出的代码窗口中粘贴上述代码。

3回到excel的sheet1工作表试试，即可看到效果。

代码解释：

第一行定义一个过程，这个过程的含义是选择单元格区域时发生的

第二行开始的ifelseendif多行语句，其实是一条完整的语句，

如果你单击单元格中不是“请按我”三个字时，提示你“您乱按”，但当你单击“请按我”三个字时，这三个字又跑到其它地方去了，同时提示你“("哈哈按不到")”。

其中的语句：Cells(Int(Rnd() 10) + 1, Int(Rnd() 10) + 1) = "请按我"

就是“你按我”三个字跑到其它单元格中去的意思，cells的用法：cells(行号,列号)，即单元格地址。