Note: The other languages of the website are Google-translated. Back to English
登陆  \/ 
x
or
x
点此注册  \/ 
x

or

单击Excel中的某个单元格时如何弹出消息框？

本文旨在向您展示单击Excel中的某个单元格时弹出消息框的方法。

单击带有VBA代码的特定单元格时弹出消息框

Office选项卡在Office中启用选项卡式编辑和浏览，并使您的工作更加轻松...
Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％
  • 重用任何东西： 将最常用或最复杂的公式，图表等添加到您的收藏夹中，并在将来快速重用它们。
  • 超过20种文字功能： 从文本字符串中提取数字； 提取或删除部分文字； 将数字和货币转换为英文单词。
  • 合并工具：将多个工作簿和工作表合二为一； 合并多个单元格/行/列，而不会丢失数据； 合并重复的行和总和。
  • 分割工具：根据价值将数据分割成多个工作表； 一本工作簿可转换为多个Excel，PDF或CSV文件； 一列到多列。
  • 跳过粘贴 隐藏/过滤的行； 计数与求和 按背景色; 向多个收件人批量发送个性化电子邮件。
  • 超级过滤器： 创建高级过滤方案并应用于任何工作表； 排序 按星期，日期，频率等 滤波器 用粗体，公式，注释...
  • 超过300种强大的功能； 适用于Office 2007-2019和365; 支持所有语言； 在您的企业或组织中轻松部署。

箭头蓝色右气泡 单击带有VBA代码的特定单元格时弹出消息框

单击工作表中的某个单元格时，请执行以下操作以弹出一个消息框。

1.切换以打开带有您需要在单击时显示消息框的特定单元格的工作表。 右键单击工作表标签，然后选择 查看代码 从右键单击菜单中。

2。 在里面 Microsoft Visual Basic应用程序 窗口，将下面的VBA代码复制并粘贴到“代码”窗口中。

VBA代码：单击某个单元格时弹出消息框

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then _
        MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
End Sub

说明:

1）。 在代码中，“ A1：B10”表示单击此范围的任何单元格时将弹出消息框。

2）。 “您已选择单元格”和“请输入数据”是消息框的显示内容。

请根据需要更改它们。

3。 按 其他 + Q 同时关闭按键 Microsoft Visual Basic应用程序 窗口。

从现在开始，单击范围为A1：B10的任何单元格，您将获得一个消息框，如下图所示。

箭头蓝色右气泡相关文章:

最佳办公效率工具

Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％

  • 重用: 快速插入 复杂的公式，图表 以及您以前使用过的任何东西； 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 （轻松编辑多行文本和公式）； 阅读版式 （轻松读取和编辑大量单元格）； 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据； 拆分单元格内容； 合并重复的行/列...防止细胞重复； 比较范围...
  • 选择重复或唯一 行; 选择空白行 （所有单元格都是空的）； 超级查找和模糊查找 在许多工作簿中； 随机选择...
  • 确切的副本 多个单元格，无需更改公式参考； 自动创建参考 到多张纸； 插入项目符号，复选框等...
  • 提取文字，添加文本，按位置删除， 删除空间; 创建和打印分页小计； 在单元格内容和注释之间转换...
  • 超级滤镜 （将过滤方案保存并应用于其他工作表）； 高级排序 按月/周/日，频率及更多； 特殊过滤器 用粗体，斜体...
  • 结合工作簿和工作表; 根据关键列合并表； 将数据分割成多个工作表; 批量转换xls，xlsx和PDF...
  • 超过300种强大功能。 支持Office / Excel 2007-2019和365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能30天免费试用。 60天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面，使您的工作更加轻松

  • 在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50％，并减少数百次鼠标单击！
officetab底部
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    fractalwavesprod@gmail.com · 1 years ago
    How can I enter more ranges? thank you very much
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi,
      Please apply the below code. Hope I can help. thank you for your comment.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim xStrRg As String
      xStrRg = "A1:B10,D1:F10" 'Add multiple ranges here and separate with comma
      If Not Intersect(Target, Range(xStrRg)) Is Nothing Then _
      MsgBox "You have select cell " & Target.Address & vbCrLf & "Please input a number", vbInformation, "Kutools for Excel"
      End Sub
  • To post as a guest, your comment is unpublished.
    jdt · 2 years ago
    typo select vs selected in code. also maybe switch to vbNewLine rather than crlf
  • To post as a guest, your comment is unpublished.
    Alison · 4 years ago
    I have multiple cells I would like a pop up box for. Can you use this code for multiple boxes?