1

我有以下情况：每当用户选择某个单元格时，我都会将表格从隐藏工作表复制到活动工作表。然后，当用户更改他的选择时，我需要清除复制表的内容并从隐藏表中复制另一个表。

要从我正在使用的隐藏表中复制表格：

source.Cells(leftRow, leftCol).CurrentRegion.Copy target.Range("A1")

问题是这个动作似乎会导致 selectionChanged 再次被触发，这会触发我的 ClearContents 命令。

有没有办法在不触发 selectionChanged 的​​情况下使用此命令？

谢谢，李

4

1 回答 1

2

使用Application.EnableEvents = False.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Whoa

    Application.EnableEvents = False

    '
    '~~> YOUR CODE
    '

Letscontinue:
    Application.EnableEvents = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume Letscontinue
End Sub
于 2013-10-29T15:59:40.450 回答