Страницы: 1
RSS
Записать значение из объединенной ячейки в переменную при нажатии на ячейку.
 

Здравствуйте.

Приведенный ниже макрос не работает при нажатии на объединенную ячейку в столбце А. Что не так?

Код
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 - 25.05.2020 22:28:33
 
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
Изменено: Mershik - 25.05.2020 22:40:24
Не бойтесь совершенства. Вам его не достичь.
 
Код
 MsgBox ячейка(1).Value
 
Mershik, vikttur, спасибо! Оба способа работают.
Изменено: rud.666 - 25.05.2020 22:44:34
Страницы: 1
Наверх