VBA加载项 - 计算选定的单元格

Question

我有一个现有的加载项，其他函数可以应用于许多excel文件。我想执行此操作，我选择x个单元格，如果它超过100个计数，那么它将提示用户一条消息。此操作应该适用于我要打开的任何工作簿（并将加载项导入工作簿）。我已经查看了一些关于应用程序事件的链接，但我仍然不明白它应该如何对我有用。如果有人能帮助我，我将不胜感激。

我从

引用了以下代码

1 - https://superuser.com/questions/920578/count-number-of-selected-cells

2 - http://www.excely.com/excel-vba/using-message-box.shtml

代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim totalCells As Long
totalCells = ActiveSheet.Selection.Cells.Count

If totalCells > 100 Then
    MsgBox (totalCells)
End If

End Sub

Answer 1

好的，我复制了Chip Pearson的例子，并将此代码添加到我的插件的ThisWorkbook中，似乎工作正常。看看它是否适合你。

Private WithEvents App As Application

Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Dim totalCells As Long
  totalCells = Target.Cells.Count
  If totalCells > 100 Then MsgBox totalCells
End Sub

Private Sub Workbook_Open()
  Set App = Application
End Sub