доброго времени суток. Задача: как сделать чтобы при нажатии к примеру на А1 красным цветом закрасилась В1 а при нажатии на С1 - В1 стала желтой?
доброго времени суток. Задача: как сделать чтобы при нажатии к примеру на А1 красным цветом закрасилась В1 а при нажатии на С1 - В1 стала желтой?grafok28
Сообщение отредактировал grafok28 - Пятница, 13.05.2022, 14:56
grafok28, - Прочитайте Правила форума - Исправьте название темы согласно п.2 Правил форума, конкретнее обозначьте проблему - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума
grafok28, - Прочитайте Правила форума - Исправьте название темы согласно п.2 Правил форума, конкретнее обозначьте проблему - Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форумакитин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Ну тогда вот так, на коленке. В модуль листа [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1", "C1")) Is Nothing Then If Selection.Count > 1 Then Exit Sub tt_ = Selection.Address If tt_ = "$A$1" Then Range("B1").Interior.Color = 255 End If If tt_ = "$C$1" Then Range("B1").Interior.Color = 65535 End If End If End Sub
[/vba]
Ну тогда вот так, на коленке. В модуль листа [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1", "C1")) Is Nothing Then If Selection.Count > 1 Then Exit Sub tt_ = Selection.Address If tt_ = "$A$1" Then Range("B1").Interior.Color = 255 End If If tt_ = "$C$1" Then Range("B1").Interior.Color = 65535 End If End If End Sub
китин, спасибо, получилось Как адаптировать этот код (на будущее) если таких значений будет 10 к примеру: А и С перекрашивают В, D и F перекрашивают Е и так далее?
китин, спасибо, получилось Как адаптировать этот код (на будущее) если таких значений будет 10 к примеру: А и С перекрашивают В, D и F перекрашивают Е и так далее?grafok28
И еще, конфликтует этот макрос с уже существующим в книге:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim dat& dat = Cells(Rows.Count, 1).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B1:B" & dat)) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Now End If End Sub
[/vba]
Как починить или обьеденить их?
И еще, конфликтует этот макрос с уже существующим в книге:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim dat& dat = Cells(Rows.Count, 1).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B1:B" & dat)) Is Nothing Then
If Target <> "" Then Target.Offset(0, 1) = Now End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
