Выбор колонки и Worksheet_Change

Question

У меня возникла проблема, когда пользователь выбирает весь столбец на листе, который код пытается оценить изменения в каждой ячейке. Как написать простой оператор if, если весь столбец или столбцы выбраны для выхода из суб?

Я считаю, что моя проблема заключается в этой строке For Each cell In target.Cells.

После этой линии несколько вещей, которые происходят таким образом, я думал, что я мог вставить это в линии, такие как:

Если выбор = .Columns. ("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 

Очевидно, что это не полный код, вам необходимо включить его в существующий макрос.