Заливка ячейки по условию

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

Заливка ячейки по условию (Макросы/Sub)

tasdel

Дата: Воскресенье, 15.10.2017, 09:44 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 156

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

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

Excel 2007

Здравствуйте уважаемые программисты!
Раз в год контролирующие органы у нас проводят проверку знаний.
Решил для себя сделать простенькую тестовую программку.
Работа программки простая.При совпадении данных активной ячейки первого листа с ячейкой залитой желтым цветом второго листа,
заливается активная ячейка первого листа зеленным цветом - это правильный ответ, если совпадения нет - ответ неправильный,активная ячейка заливается красным цветом.
Заранее вам спасибо колдуны и шаманы MS Excel !!!

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

Ответить

nilem

Дата: Воскресенье, 15.10.2017, 10:38 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

tasdel, привет
попробуйте вот так
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Then Exit Sub
Cancel = True
With Target
    If Worksheets(2).Range(.Address).Interior.Color = 65535 Then
        .Interior.ColorIndex = 50
    Else
        .Interior.ColorIndex = 3
    End If
End With
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Воскресенье, 15.10.2017, 10:39

Ответить

tasdel

Дата: Воскресенье, 15.10.2017, 10:46 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 156

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

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

Excel 2007

nilem, Низкий Вам поклон! Спасибо!

Ответить

Заливка ячейки по условию (Макросы/Sub)

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