Двойной клик по ячейке строка закрашивается

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

Двойной клик по ячейке строка закрашивается (Макросы/Sub)

ant6729

Дата: Понедельник, 26.09.2016, 10:29 | Сообщение № 1

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

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

Сообщений: 533

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

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

Excel 2010

Нужно, чтобы при двойном клике по ячейке в 5 колонке происходило закрашивание строки, в которой эта ячейка, в желтый цвет.
А если по ячейке в 6 колонке, то в оранжевый
А если по ячейке в 8 колонке, что в светло зеленый, например.

Всем спасибо.

К сообщению приложен файл: 0424910.xlsx (9.6 Kb)

Сообщение отредактировал ant6729 - Понедельник, 26.09.2016, 10:30

Ответить

_Boroda_

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

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    r_ = Target.Row
    Select Case Target.Column
        Case 5
            Cells(r_, 1).Resize(, 11).Interior.Color = 65535
            Cancel = True
        Case 6
            Cells(r_, 1).Resize(, 11).Interior.Color = 49407
            Cancel = True
        Case 8
            Cells(r_, 1).Resize(, 11).Interior.Color = 10213317
            Cancel = True
    End Select
End Sub

[/vba]

К сообщению приложен файл: 0424910_1.xlsm (16.8 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

ant6729

Дата: Понедельник, 26.09.2016, 10:45 | Сообщение № 3

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

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

Сообщений: 533

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

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

Excel 2010

Всем спасибо за оперативность...

Вы случайно, ПАК ФА Т-50 не программировали?)

Всем ещё раз спасибо.

Ответить

buchlotnik

Дата: Понедельник, 26.09.2016, 10:54 | Сообщение № 4

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

так нужно? [vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Select Case Target.Column
        Case 5: Rows(Target.Row).Interior.Color = 65535
        Case 6: Rows(Target.Row).Interior.Color = 49407
        Case 8: Rows(Target.Row).Interior.Color = 5296274
    End Select
End Sub

[/vba]