Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заливка белым цветом диапазона - по щелку в ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка белым цветом диапазона - по щелку в ячейке (Макросы/Sub)
Заливка белым цветом диапазона - по щелку в ячейке
dmitrijaltman8 Дата: Понедельник, 06.12.2021, 13:43 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 20% ±

2016
Здравствуйте.
Помогите мне решить вопрос.

На листе находится таблица - в пределах столбцов CS:EQ
Она закрашена разными цветами.

Как макросом сделать так, чтобы при двойном щелчке по ячейке столбца EB - вся строка щелкнутой ячейки (кроме самой ячейки) - закрасилась бы белым цветом заливки ячеек ?
Событие рабочего листа - двойной клик по ячейке.
Прилагаю файл-пример
К сообщению приложен файл: 657567.xls(30.5 Kb)
 
Ответить
СообщениеЗдравствуйте.
Помогите мне решить вопрос.

На листе находится таблица - в пределах столбцов CS:EQ
Она закрашена разными цветами.

Как макросом сделать так, чтобы при двойном щелчке по ячейке столбца EB - вся строка щелкнутой ячейки (кроме самой ячейки) - закрасилась бы белым цветом заливки ячеек ?
Событие рабочего листа - двойной клик по ячейке.
Прилагаю файл-пример

Автор - dmitrijaltman8
Дата добавления - 06.12.2021 в 13:43
Nic70y Дата: Понедельник, 06.12.2021, 14:14 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7302
Репутация: 1686 ±
Замечаний: 0% ±

Excel 2010
Цитата dmitrijaltman8, 06.12.2021 в 13:43, в сообщении № 1 ()
белым цветом
зачем белым?
[vba]
Код
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
[/vba]
К сообщению приложен файл: 3357631.xls(37.5 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата dmitrijaltman8, 06.12.2021 в 13:43, в сообщении № 1 ()
белым цветом
зачем белым?
[vba]
Код
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
[/vba]

Автор - Nic70y
Дата добавления - 06.12.2021 в 14:14
китин Дата: Понедельник, 06.12.2021, 14:28 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 6688
Репутация: 1020 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
в модуль листа
[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
[/vba]
К сообщению приложен файл: 2968418.xls(44.0 Kb)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениев модуль листа
[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
[/vba]

Автор - китин
Дата добавления - 06.12.2021 в 14:28
dmitrijaltman8 Дата: Понедельник, 06.12.2021, 14:40 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 20% ±

2016
китин, Спасибо
 
Ответить
Сообщениекитин, Спасибо

Автор - dmitrijaltman8
Дата добавления - 06.12.2021 в 14:40
_Igor_61 Дата: Понедельник, 06.12.2021, 18:44 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 454
Репутация: 85 ±
Замечаний: 0% ±

Excel 2007
dmitrijaltman8, белый и "нет заливки" - разное, хотя выглядят одинаково. Старайтесь в дальнейшем ориентироваться на значения, а не на цвет, иначе с таким подходом есть возможность получить лишнюю головную боль за свой счет :)
 
Ответить
Сообщениеdmitrijaltman8, белый и "нет заливки" - разное, хотя выглядят одинаково. Старайтесь в дальнейшем ориентироваться на значения, а не на цвет, иначе с таким подходом есть возможность получить лишнюю головную боль за свой счет :)

Автор - _Igor_61
Дата добавления - 06.12.2021 в 18:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка белым цветом диапазона - по щелку в ячейке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!