Calendar_Advanced如果在列M 中選擇了任何單元格，我將使用以下代碼運行宏。
問題：如果我同時選擇了 Range M:M 的任何單元格，事件也會觸發，就像我選擇所有行一樣。
Private Sub worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim LastRow As Long: LastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
If Not Intersect(Target, Range("M3:M" & LastRow)) Is Nothing Then
Call Calendar_Advanced
End If
End Sub
我試圖添加到 if 條件And Selection.Cells.Count = 1
有效，但防止多選 ( Calendar_Advanced) 在列 M 上運行。
一如既往，任何幫助將不勝感激
uj5u.com熱心網友回復：
計算列數以確保它只是 M。
Private Sub worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim LastRow As Long: LastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
If Not Intersect(Target, Range("M3:M" & LastRow)) Is Nothing Then
If Target.Columns.Count = 1 Then
Calendar_Advanced
End If
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/390957.html