背景: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