Заливка белым цветом диапазона - по щелку в ячейке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка белым цветом диапазона - по щелку в ячейке (Макросы/Sub)

dmitrijaltman8

Дата: Понедельник, 06.12.2021, 13:43 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 61

Репутация: 0 ±

Замечаний: 20% ±

2016

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

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

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

К сообщению приложен файл: 657567.xls (30.5 Kb)

Ответить

Nic70y

Дата: Понедельник, 06.12.2021, 14:14 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2272 ±

Замечаний: 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

Ответить

китин

Дата: Понедельник, 06.12.2021, 14:28 | Сообщение № 3

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

в модуль листа
[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

Ответить

dmitrijaltman8

Дата: Понедельник, 06.12.2021, 14:40 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 61

Репутация: 0 ±

Замечаний: 20% ±

2016

китин, Спасибо

Ответить

_Igor_61

Дата: Понедельник, 06.12.2021, 18:44 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 504

Репутация: 90 ±

Замечаний: 0% ±

Excel 2007

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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка белым цветом диапазона - по щелку в ячейке (Макросы/Sub)

Страница 1 из 1
1