Excel VBA - Пересечь только конкретный столбец

Question

Я использую этот макрос, чтобы проверить, выбирает ли пользователь диапазон в столбце «M». Однако, если пользователь выбирает диапазон в столбцах «M: N», например, это обходит проверку. Я хотел бы предотвратить это, чтобы пользователи могли выбирать диапазон внутри столбца M (а не любые другие столбцы), прежде чем продолжить.

Set rngMyRange = Selection.SpecialCells(xlCellTypeVisible)
Set srng = x_bf.Range(table[ColumnM])

If Intersect(rngMyRange, srng) Is Nothing Then
errline = "Please select a range in Column M only."
GoTo errhandler
End If

Answer 1

Вот общий указатель.Подсчитайте количество выбранных ячеек и число в пересечении с М.

Sub x()

If Intersect(Selection, Range("M:M")).Count < Selection.Count Then
    MsgBox "outside col M selected"
Else
    MsgBox "only col M selected"
End If

End Sub