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

Вход

Регистрация

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

 

= Мир MS Excel/Двойной клик по ячейке строка закрашивается - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Двойной клик по ячейке строка закрашивается (Макросы/Sub)
Двойной клик по ячейке строка закрашивается
ant6729 Дата: Понедельник, 26.09.2016, 10:29 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 40% ±

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

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


Сообщение отредактировал ant6729 - Понедельник, 26.09.2016, 10:30
 
Ответить
СообщениеНужно, чтобы при двойном клике по ячейке в 5 колонке происходило закрашивание строки, в которой эта ячейка, в желтый цвет.
А если по ячейке в 6 колонке, то в оранжевый
А если по ячейке в 8 колонке, что в светло зеленый, например.

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

Автор - ant6729
Дата добавления - 26.09.2016 в 10:29
_Boroda_ Дата: Понедельник, 26.09.2016, 10:38 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9795
Репутация: 4138 ±
Замечаний: 0% ±

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(17Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[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]

Автор - _Boroda_
Дата добавления - 26.09.2016 в 10:38
ant6729 Дата: Понедельник, 26.09.2016, 10:45 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 40% ±

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

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

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

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

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

Автор - ant6729
Дата добавления - 26.09.2016 в 10:45
buchlotnik Дата: Понедельник, 26.09.2016, 10:54 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2191
Репутация: 646 ±
Замечаний: 0% ±

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]
К сообщению приложен файл: 6172435.xlsx(10Kb)


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru
 
Ответить
Сообщениетак нужно? [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]

Автор - buchlotnik
Дата добавления - 26.09.2016 в 10:54
_Boroda_ Дата: Понедельник, 26.09.2016, 16:12 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 9795
Репутация: 4138 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вы случайно, ПАК ФА Т-50 не программировали?

Нет. :D Но в МАИ учился


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Вы случайно, ПАК ФА Т-50 не программировали?

Нет. :D Но в МАИ учился

Автор - _Boroda_
Дата добавления - 26.09.2016 в 16:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Двойной клик по ячейке строка закрашивается (Макросы/Sub)
Страница 1 из 11
Поиск:

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