VBA加载项开发需求：选中单元格超100时弹窗提示

嘿，我来帮你搞定这个全局提示的问题！你现在的代码是工作表级的SelectionChange事件，只能在单个工作表里生效，要让所有导入这个加载项的打开工作簿都触发检查，得用应用级事件——这才是加载项里实现全局功能的正确方式。

具体实现步骤： #

1. 创建类模块捕获全局应用事件
   首先在你的加载项工程里插入一个类模块（右键工程 → 插入 → 类模块），把这个类模块命名为clsAppEvents（名字可自定义，清晰好记就行）。然后在类模块里写入以下代码：

   Public WithEvents xlApp As Application
   
   Private Sub xlApp_SelectionChange(ByVal Target As Range)
       Dim totalCells As Long
       ' 用CountLarge替代Count，避免选中超大量单元格时溢出报错
       totalCells = Target.CountLarge
       If totalCells > 100 Then
           MsgBox "你选中了" & totalCells & "个单元格，超过了100个的限制哦！", vbExclamation, "选中数量提示"
       End If
   End Sub
   

   这里的WithEvents关键字是核心，它能让我们绑定Excel的Application对象，捕获全局范围内的选中变化事件。

2. 在加载项的ThisWorkbook模块初始化事件绑定
   打开加载项的ThisWorkbook模块，写入以下代码，确保加载项打开时自动绑定全局事件，关闭时释放资源：

   Private appEvents As clsAppEvents
   
   Private Sub Workbook_Open()
       ' 初始化类实例并绑定Application对象
       Set appEvents = New clsAppEvents
       Set appEvents.xlApp = Application
   End Sub
   
   Private Sub Workbook_BeforeClose(Cancel As Boolean)
       ' 关闭时释放对象，避免内存泄漏
       Set appEvents.xlApp = Nothing
       Set appEvents = Nothing
   End Sub
   

关键说明： #

• 为什么替换你原来的代码？你写的Worksheet_SelectionChange是工作表专属事件，只有在那个特定工作表操作才会触发；而应用级事件是全局的，任何打开的工作簿、任何工作表的选中变化都会触发检查，完全匹配加载项的需求。
• 用Target.CountLarge而非ActiveSheet.Selection.Cells.Count：Count在选中单元格超过2^31-1（约20亿）时会溢出报错，CountLarge支持更大数值，稳定性更强。
• 加载项要保存为.xlam格式，确保其他工作簿加载后自动生效，记得启用宏（VBA加载项需要宏权限）。

内容的提问来源于stack exchange，提问作者Eddie