Создание отчетов о Сервисной интернационализации [дубликат]

У меня Office 2003 Professional, но это все равно должно применяться, так как это, вероятно, зависит от событий и местоположения.

Я предполагаю, что вы не запускаете код для события Workbook_Open объекта ThisWorkbook, а вместо этого где-то на листе.

Поэтому вы должны поместить свой код в событие Workbook_Open и попробовать это.

    'This is code on the ThisWorkbook Object
    '-------------------------------------------
    Option Explicit

    Private Sub Workbook_Open()

        Sheet1.Columns("D:D").Select
        Selection.FormatConditions.Delete
        Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
            Formula1:="0"
        Selection.FormatConditions(1).Interior.ColorIndex = 44
        Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
            Formula1:="1"
        Selection.FormatConditions(2).Interior.ColorIndex = 35
    End Sub