如只單獨需要"B2"與"C2"和併成"B2"這格儲存格發聲 >> 如下,請測試看看,謝謝
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column = 2 And .Row = 2 Then
Beep
End If
End With
End Sub
又如"B4:"B65535"與"C4:C65535"和併成"B4:B65535"時>> 整列
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column = 2 Then
Beep
End If
End With
End Sub