Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Цвет ячейки в зависимости от цвета другой ячейки
 
#1
04.06.2021 18:49:29
Здравствуйте, подскажите пожалуйста, как автоматически залить столбец цветом, таким же как и соседний столбец?
трудно поставить вопрос, прикрепляю файл.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("$A:$A").Interior.Color = Me.Range("$B:$B").Interior.Color
End Sub
Такой способ не помог, у меня 1-й столбец полностью становиться чёрным...
Изменено: vikttur - 04.06.2021 22:17:41
 
 
 
#2
04.06.2021 18:54:07
Fischer, Здравствуйте
1. Уберите Me
2. Ссылайтесь на цвет одной ячейки
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#3
04.06.2021 19:03:37
Jack Famous, "Me" убрал, а со 2-м пунктом я не пойму, тупенький я :(

Видимо не судьба... придётся вручную красить...
Изменено: Fischer - 04.06.2021 20:47:55
 
 
 
#4
04.06.2021 21:08:44
Fischer, а зачем Вы код оформили цитатой? Ведь есть для кода специальная кнопка с нужным тегом. Поменяйте.

По теме: соседний столбец - это какой? Справа или слева? Активировали ячейку столбца В - куда код должен глянуть?
Изменено: Юрий М - 04.06.2021 21:15:07
 
 
 
#5
04.06.2021 21:32:05
Цитата
Юрий М написал:
соседний столбец - это какой?
справа. (столбец B), нужно чтобы такая же окраска была в столбце А.
 
 
 
#6
04.06.2021 22:08:51
Fischer, а так?
Columns(1).Interior.Color = cells(1,2).Interior.Color
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#7
04.06.2021 22:13:10
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastRow As Long
    If Target.Cells.Count > 1 Then Exit Sub
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    If Not Intersect(Target, Range("B1:B" & LastRow)) Is Nothing Then
        Range("A1:A" & LastRow).Interior.Color = Target.Interior.Color
    End If
End Sub
 
 
 
#8
04.06.2021 23:05:44
Юрий М, не сработало, вообще ничего не происходит.
 
 
 
#9
04.06.2021 23:08:37
Jack Famous, а так только одним цветом красит весь столбец.
 
 
 
#10
04.06.2021 23:12:53
Цитата
Fischer написал:
не сработало, вообще ничего не происходит.
Странно. А почему у меня всё работает? См. файл: активируйте любую ячейку в диапазоне данных столбца В.
 
 
 
#11
04.06.2021 23:13:04
Fischer, Вы тролль? По-русски не объяснить было, что в соседнем разные цвета??? Гуглите "excel вставить только форматирование"
Если это не то и нужен только цвет, то красоте в цикле
Удачи!
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#12
05.06.2021 07:37:49
Цитата
Юрий М написал:
Странно. А почему у меня всё работает? См. файл: активируйте любую ячейку в диапазоне данных столбца В.
Ну немного не то, при изменении цвета ячейки в столбце В, закрашивается весь столбец А таким же цветом.
     

В первом скриншоте как на данный момент, на втором скриншоте как должно быть.
Скрытый текст
 
 
 
#13
05.06.2021 09:11:27
Цитата
Fischer написал:
подскажите пожалуйста, как автоматически залить столбец цветом, таким же как и соседний столбец
Код
Sub test()
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 1).Interior.Color = Cells(i, 2).Interior.Color
    Next
End Sub
 
 
 
#14
05.06.2021 09:24:04
Андрей_26, Во, спасибо Вам большое!  :)
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 1).Interior.Color = Cells(i, 2).Interior.Color
    Next
End Sub
а так же всем остальным большое спасибо, кто старался помочь!  :oops:  
 
 
 
#15
05.06.2021 10:55:38
Цитата
Fischer написал:
немного не то
Как понял из Ваших объяснений - так и сделал.
Цитата
Fischer написал:
вообще ничего не происходит.
А с этим как?  Стало происходить?
 
 
 
#16
05.06.2021 12:10:52
Цитата
Юрий М написал:
А с этим как?  Стало происходить?
видимо excel заглючел, вообще ни один макрос не запускал.  
 
 
 
Страницы: 1
Наверх