белый шрифт по условию

[Spellpir]

Здравствуйте! Уважаемые!
есть док-т, столбцы пронумерованы с 1 по 31.
При в вводе ДАТЫ с 1 по 5 например, нужно чтоб отображалось только этот диапазон дат(столбцы), а всё остальное менялось на белый шрифт или скрывалось. можно вообще такое сделать и каким способом?
Заранее благодарен!

[Скрипт]

Spellpir, а куда вводится дата?

[IgorGO]

условное форматирование: =ИЛИ(R5C<R3C36;R5C>R4C36) назначить белый цвет шрифта.

[staniiislav]

макросом скрытие по столбцам, можно так:

Option Explicit
Dim i&

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    If Target.Address = "$AJ$3" Or Target.Address = "$AJ$4" Then
        Columns.Hidden = False
        For i = 1 To 31
            If i < Cells(3, 36) Then Columns(i + 4).EntireColumn.Hidden = True
            If i > Cells(4, 36) Then Columns(i + 4).EntireColumn.Hidden = True
        Next
    End If
    Application.ScreenUpdating = True
End Sub

или так наверное даже лучше:

Option Explicit
Dim i&

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$AJ$3" Or Target.Address = "$AJ$4" Then
    Application.ScreenUpdating = False
        Columns.Hidden = False
        For i = 1 To 31
            If i < Cells(3, 36) Then Columns(i + 4).EntireColumn.Hidden = True
            If i > Cells(4, 36) Then Columns(i + 4).EntireColumn.Hidden = True
        Next
    Application.ScreenUpdating = True
    End If
End Sub