Приведенный ниже макрос не работает при нажатии на объединенную ячейку в столбце А. Что не так?
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ячейка As Variant
If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
Set ячейка = Selection
MsgBox ячейка.Value
End If
End Sub
rud.666, у меня работает а для объеденной нет) вот так еще
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ячейка As Variant
If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
For Each cell In Selection
If cell <> "" Then
Set ячейка = cell
MsgBox ячейка.Value
Exit Sub
End If
Next cell
End If
End Sub