背景:Worksheet_SelectionChange不执行所需的任务
我似乎不知道我有SelectionChange做的和想一些帮助,以确保我正确地使用它。
我右键单击当前工作簿,在VBA窗口,选择查看代码。我在那个领域有我的代码。在即时窗口(CTRL + G),我输入:
Application.EnableEvents=True
代码:
我使用测试的代码应该在显示目标行/列一个细胞(1,1):
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r, c As Integer
If Selection.Count = 1 Then
c = Target.Column
r = Target.Row
Cells(1, 1).Value = "Cells(" & r & ", " & c & ")"
End If
End Sub
问题:
我是否缺少启用选择更改事件的内容?
在ThisWorkbook中,正确的名称是'Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object,ByVal Target As Range)'。您可以从VBE顶部的下拉列表中找到所有名称。如果您希望将其应用于单张纸,请将其添加到工作表模块。 – SJR
@SJR在纠正名称和一些玩弄后,这似乎是类似于调整变化事件,其中活动单元(选择)的改变不是触发器,但是进入单元格以编辑字符串是触发器。你用正确的名字回答了我发布的问题。将期待单独发布我的关于功能的其他问题。谢谢! – Cyril
它应该由被选中的单元触发,而不必编辑它。它与正常的图纸级选择更改事件应该没有区别,唯一的区别是您可以指定应用的工作表。 – SJR