На листе находится таблица - в пределах столбцов CS:EQ Она закрашена разными цветами.
Как макросом сделать так, чтобы при двойном щелчке по ячейке столбца EB - вся строка щелкнутой ячейки (кроме самой ячейки) - закрасилась бы белым цветом заливки ячеек ? Событие рабочего листа - двойной клик по ячейке. Прилагаю файл-пример
Здравствуйте. Помогите мне решить вопрос.
На листе находится таблица - в пределах столбцов CS:EQ Она закрашена разными цветами.
Как макросом сделать так, чтобы при двойном щелчке по ячейке столбца EB - вся строка щелкнутой ячейки (кроме самой ячейки) - закрасилась бы белым цветом заливки ячеек ? Событие рабочего листа - двойной клик по ячейке. Прилагаю файл-примерdmitrijaltman8
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) u = Target.Address a = Left(u, 4) If a = "$EB$" Then Range("CS" & Replace(Mid(u, 5, 15), "EB", "EQ")).Interior.ColorIndex = xlAutomatic Cancel = True End If End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) u = Target.Address a = Left(u, 4) If a = "$EB$" Then Range("CS" & Replace(Mid(u, 5, 15), "EB", "EQ")).Interior.ColorIndex = xlAutomatic Cancel = True End If End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim dat As Long Dim pat As Long dat = Cells(Rows.Count, 132).End(xlUp).Row If Not Intersect(Target, Range("EB7:EB" & dat)) Is Nothing Then Cancel = True pat = Target.Row Range(Cells(pat, 97), Cells(pat + 2, 147)).Interior.ThemeColor = xlThemeColorDark1 End If End Sub
[/vba]
в модуль листа [vba]
Код
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim dat As Long Dim pat As Long dat = Cells(Rows.Count, 132).End(xlUp).Row If Not Intersect(Target, Range("EB7:EB" & dat)) Is Nothing Then Cancel = True pat = Target.Row Range(Cells(pat, 97), Cells(pat + 2, 147)).Interior.ThemeColor = xlThemeColorDark1 End If End Sub
dmitrijaltman8, белый и "нет заливки" - разное, хотя выглядят одинаково. Старайтесь в дальнейшем ориентироваться на значения, а не на цвет, иначе с таким подходом есть возможность получить лишнюю головную боль за свой счет
dmitrijaltman8, белый и "нет заливки" - разное, хотя выглядят одинаково. Старайтесь в дальнейшем ориентироваться на значения, а не на цвет, иначе с таким подходом есть возможность получить лишнюю головную боль за свой счет _Igor_61
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
