Excel VBA-仅与特定列相交

我使用这个宏来检查用户是否在“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

---

这是一个通用指针。计算选定单元格的数量以及与M相交的单元格数量

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

subx（）
如果相交（选择，范围（“M:M”））。计数<选择。然后计数
MsgBox“已选择外部列M”
其他的
MsgBox“仅选择M列”
如果结束
端接头