[VBA] Как закрасить столбец в Excel программно?

[Alex1983]

Всем привет.
Не подскажите как закрасить столбец программно?
Например если введённая дата является воскресением, то этот столбец закрасить в синий цвет.
Дата вводится 01-31. Месяц указывается в отдельной строке. Ну а год текущий.

 

[regist]

Как в Excel изменять цвет строки в зависимости от значения в ячейке - office-guru.ru

 

[Dragokas]

@regist, это будет работать только в MS Office v2007+ (если ТС принципиально).
@Alex1983, приложи пример файла вместе с ручной закраской.

 

[Alex1983]

Только я не много ошибся, число вводится 1,2,3 -9,10,11 и тд.

 

[Dragokas]

Последнюю строку каким критерием определять? Фиксированное число / последняя заполненная ячейка столбца 1?

 

[Alex1983]

Последнюю строку каким критерием определять?

последняя заполненная ячейка столбца "Фамилия"

 

[Dragokas]

Держи:

Option Explicit

Const iTableRowStart As Long = 3
Const iTableColumnStart As Long = 2
Const iColor = vbBlue

Public Sub main()
    Dim iTableRowEnd As Long
    Dim MonthNum As Long
    Dim MonthName As String
    Dim dDate As Date
    
    iTableRowEnd = Cells(Rows.Count, 1).End(xlUp).Row
    
    MonthName = [N1]
    MonthNum = Month(DateValue("01 " & MonthName & " 2018"))
    
    Dim i As Long
    For i = iTableColumnStart To iTableColumnStart + 30
        If IsNumeric(Cells(iTableRowStart, i)) Then
            dDate = DateSerial(Year(Now), MonthNum, Cells(iTableRowStart, i))
            If Weekday(dDate, vbMonday) = vbSunday Then
                Range(Cells(iTableRowStart, i), Cells(iTableRowEnd, i)).Interior.Color = iColor
            End If
        End If
    Next
End Sub

 

[Alex1983]

А это куда вставлять?

 

[Dragokas]

https://safezone.cc/threads/kak-sozdat-makros-dlja-ms-word-ms-excel.27527/

 

[Alex1983]

Что то ни чего не происходит. Ни чего не красится.
Dragokas а вы не могли бы мне прислать рабочий вариант. Файл я выше давал.

 

[regist]

@Alex1983, а какая у тебя версия Excel ?

 

[Dragokas]

@Alex1983, а ты как макрос запускаешь?

 

[Alex1983]

@Alex1983, а какая у тебя версия Excel ?

2007

@Alex1983, а ты как макрос запускаешь?

Ни как. Я думал файл открыл и всё.

А как его запустить этот макрос.

 

[Dragokas]

Макрос - это же не программа. Чтобы он сработал, его нужно либо вручную запустить или повесить на какое-нибудь событие, например, на запуск каждый раз как только происходит изменение в какой-либо ячейке. Можно вывести кнопку на панель, и нею запускать, можно вывести кнопку на лист и т.п. Дело за тобой.

Запустить вручную - ALT+F8, и дальше разберёшься.
Вот тебе вариант событием на изменение ячейки. Но он плох тем, что будет забирать у тебя процессорное время каждый раз как только ты меняешь любую ячейку, а тебе это незачем. Поэтому нужно думать, как тебе это оптимально провернуть. Можно например, сделать, чтобы макрос запускался 1 раз при каждом открытии книги. Вот тебе в Var.2 такой способ:

 

[Alex1983]

Спасибо. Разобрался. Работает хорошо.

Post automatically merged: 30 Май 2018

Dragokas есть ошибка.
Не верно определяет воскресение. Вместо воскресения окрашивает понедельник.

Post automatically merged: 30 Май 2018

Переправил на это

If Weekday(dDate, vbSunday) = vbSunday Then

И стало вроде нормально определяться.