列选择和Worksheet_Change

Question

当用户选择工作表中的整个列时代码试图评估每个单元格的更改时，我遇到了问题。如何编写一个简单的if语句，如果选择整个列或列来退出sub？

我相信我的问题在于这一行For Each cell In target.Cells。

在这一行之后发生了几件事情，所以我想我可以把它嵌入一行如下：

如果selection = .Columns（“A：A”）。EntireColumn.Select Then Exit Sub。

如何将“.Columns（”A：A“）”定义为任何列选择？

Answer 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   If Application.Selection.Rows.Count = Application.Selection.EntireColumn.Rows.Count Then MsgBox ("entire column") 'do something here

End Sub

显然，这不是完整的代码，您需要将其合并到现有的宏中。