事件点击单元格

Question

我刚刚创建了一个新文件并放入了数据（A1 到 A10 行），我想知道每次单击单元格 A 时如何从单元格中获取数据，如果它不为空（例如：当我单击 A 列的第三行，以便获得它的值）。 我看到了“Worksheet_SelectionChange”方法，但它不适用于我的示例，因为我们必须打开文件代码并将函数放入其中，我想在创建文件时直接执行此操作。 这是我的例子

sub test(name as string)
  sheet.add

  ActiveSheet.name=name
  i=2

  while i < 10 
    cells(i,1)=i
    i=i+i
  Wend
end sub

Answer 1

Worksheet_SelectionChange 事件不一定必须驻留在特定于工作表的模块中。例如，它还可以驻留在 class module 中，并且对于本例来说很重要的是 ThisWorkbook 模块（尽管它被命名为 Workbook_SheetSelectionChangeevent）。

如果您总是想触发 Workbook_SheetSelectionChange 事件，无论 在选择更改的工作表中，尝试以下操作

'place in the ThisWorkbook module
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

'Do stuff

MsgBox "Changes were made in worksheet: " & Sh.Name, vbInformation

End Sub

如果您只想在最新制作的 WS 上触发事件

1)您可以确保最新制作的 WS 始终是 WB 中的最后一个

'In a regular module
Sub addnwsheet()
Dim shtname As String

With ThisWorkbook

shtname = "temp" & .Sheets.Count
'add a sheet at the end
.Sheets.Add(after:=.Sheets(.Sheets.Count)).Name = shtname

End With

End Sub

'place in the ThisWorkbook module
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Sh.Index = ThisWorkbook.Sheets.Count Then
    'Do stuff

    MsgBox "Selection changed in worksheet: " & Sh.Name, vbInformation
End If

End Sub

2) 更安全的方法是将新制作的工作表声明为Global 变量。这些是持久的和公开的。

'In a regular module
Global nwsht As Sheet

Sub addnwsheet()
Dim shtname As String

With ThisWorkbook

    shtname = "temp" & .Sheets.Count
    'add a sheet at the end
    .Sheets.Add(after:=.Sheets(.Sheets.Count)).Name = shtname
    Set nwsht = .Sheets(shtname)

End With

End Sub

'place in the ThisWorkbook module
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Sh = nwsht Then
    'Do stuff

    MsgBox "Selection changed in worksheet: " & Sh.Name, vbInformation
End If

End Sub

编辑

如果你想指定事件应该触发的范围

'place in the ThisWorkbook module
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim r as Range
    Set r = Workbooks(REF).Sheets(REF).Range("D2:D100") 'event will only get triggered by this range

    If Not Intersect(Target, r) Is Nothing Then
        'Do stuff

        MsgBox "Selection changed in worksheet: " & Sh.Name, vbInformation
    End If

    End Sub