如何在整个工作簿范围内进行Worksheet_SelectionChange？
新人来了
我想使用VBA来获取活动单元格的值。通过在线搜索，我发现了以下代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("sheet1").Range("Selection").Value = Cells(ActiveCell.Row, ActiveCell.Column).Value
End Sub
但是，我必须将这些代码放在工作表“ sheet1”下。如果我有三张纸，sheet1, sheet2, and sheet3我需要复制上面的代码，并稍作修改将它们分别粘贴在这三张纸下面。
有什么方法我不需要将代码放在单独的工作表中（也许就在ThisWorkbook下），而无论激活哪一个工作表，我仍然可以获取activecell的值。
谢谢
马修·金登（Mathieu Guindon）
您想要的是@ScottCraner在评论中所说的：使用SheetSelectionChange中的Workbook类型的事件ThisWorkbook。
VBE在代码窗格编辑器中提供了专门用于此目的的下拉菜单。您不能只是将事件处理程序从一个Worksheet对象复制/粘贴到一个Workbook对象中，并期望事情能够“正常工作”-使用下拉菜单并让VBE为您生成处理程序存根！
SheetSelectionChange从下拉列表中进行选择将生成以下处理程序：
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
End Sub
如您所见，签名是不同的：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
事件处理程序必须遵循其所针对事件的签名（而不仅仅是名称），否则您将得到以下错误：
@ScottCraner如果我使用Workbook_SheetSelectionChange并将其放在ThisWorkbook下，则会出现编译错误：过程声明与具有相同名称的事件或过程的描述不匹配。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
如何在不同的工作簿范围内应用 vlookup？
- 2
遍历范围内的每个工作簿
- 3
如何在整个系统范围内进行内联加密？
- 4
Worksheet_SelectionChange不当被解雇
- 5
合并多个Worksheet_SelectionChange
- 6
Excel 命名范围范围为工作簿从工作表范围内的命名范围打印
- 7
如何在awk的多个范围内对行进行计数？
- 8
如何在AngularJS隔离范围内进行双向绑定？
- 9
如何在列范围内对观察结果进行分组？
- 10
如何在小时范围内对记录进行计数
- 11
如何在ERB范围内进行迭代？
- 12
如何在AngularJS隔离范围内进行双向绑定？
- 13
Firebase，如何在日期范围内对键进行排序
- 14
VBA Worksheet_SelectionChange不起作用
- 15
使用Worksheet_SelectionChange覆盖条件格式
- 16
使用Worksheet_SelectionChange的vba条件格式
- 17
如何在整个站点范围内重新使用该角度控制器？
- 18
如何在整个应用程序范围内使用Android的AppCompat主题？
- 19
如何在整个项目范围内使用Kotlin ExperimentUnsignedTypes（AndroidStudio）
- 20
如何在VBA中的整个范围内均匀分配已知数字
- 21
如何在整个系统范围内本地构建Python软件包？
- 22
在Visio中，如何在整个时间范围内创建带有坐标的图表
- 23
如何在整个系统范围内将CTRL + A，CTRL + E映射为Home，End？
- 24
如何在整个列或变化范围内使用数组公式？
- 25
如何在整个工作簿中使用Excel的格式刷
- 26
如何在整个工作簿中搜索文本？
- 27
$（this）如何在全球范围内可用
- 28
如何在范围内添加日期
- 29
使用单元格引用循环（范围内）打开和打印 Excel 工作簿
我来说两句