Размер и начертание шрифта

[valerij]

Не пойму, почему макрос не меняет, размер и начертание шрифта, а цвета, так как мне надо, меняет???

[Teslenko_EA]

Здравствуйте valerij.
"Не пойму..." - как человек я выражаю Вам сочувствие. А как участника форума меня интересует - почему не "озвучен" вопрос и обращение к форуму?
Евгений.

[IgorGO]

потому что изменения затрагивают отмеченную часть. отмеченный диапазон может не иметь ничего общего с With [K15:K26].Offset(dat * 44)

[valerij]

Сообщение от IgorGO

потому что изменения затрагивают отмеченную часть. отмеченный диапазон может не иметь ничего общего с With [K15:K26].Offset(dat * 44)

Игорь, а так, все ОК
With [K15:K26].Offset(dat * 44).Select

почему не "озвучен" вопрос и обращение к форуму?

Женя, мой вопрос во вложении(зачем бы я, вложение, создавал), открой его и сразу виден, вопрос

[Teslenko_EA]

лучше заменить так:

        With [K15:K26].Offset(dat * 44)
            With Selection.Font
                .Name = "Arial Cyr"
                .Size = 12
            End With
        End With
            Selection.Font.Bold = True

        With [K15:K26].Offset(dat * 44)
            With .Font
                .Name = "Arial Cyr"
                .Size = 12
                .Bold = True
            End With
        End With

Евгений.

[valerij]

Сообщение от Teslenko_EA

лучше заменить так

With [K15:K26].Offset(dat * 44)
            With .Font
                .Name = "Arial Cyr"
                .Size = 12
                .Bold = True
            End With
        End With

Да, так работает, но еще вопрос, почему ошибка, если делаю так, красным:

Sub zxc()
    Application.EnableEvents = False
    Application.ScreenUpidating = False
    For dat = 0 To 30
        With [K15:K26].Offset(dat * 44)
            With .Font
                .Name = "Arial Cyr"
                .Size = 12
                .Bold = True
            End With
        End With
        For i = 15 To 25 Step 2
            Cells(i, "K").Offset(dat * 44).Font.ColorIndex = 10
            Cells(i + 1, "K").Offset(dat * 44).Font.ColorIndex = 1
        Next
    Next
    Application.EnableEvents = True
    Application.ScreenUpidating = True
End Sub

Да собственно, не важно....
Спасибо.

[valerij]

А как сделать, что бы заработало(красным)?

Sub Цвет()
Dim idat As Byte, i As Byte
    For idat = 0 To 30
        For i = 11 To 15 Step 2
        With Cells(i, "K").Offset(idat * 30)
        Selection.NumberFormat = "General"
            With .Font
                .Name = "Arial Cyr"
                .Size = 12
                .ColorIndex = 10
                .Bold = True
            End With
        End With
        With Cells(i + 1, "K").Offset(idat * 30)
        Selection.NumberFormat = "0.00"
            With .Font
                .Name = "Arial Cyr"
                .Size = 12
                .ColorIndex = 1
                .Bold = True
            End With
        End With
        Next
    Next
End Sub

Работает так, страно, я же так пробовал...

Sub Цвет()
Dim idat As Byte, i As Byte, шаг%
шаг = 44
    For idat = 0 To 30
        With [K15:K26].Offset(idat * шаг)
            With .Font
                .Name = "Arial Cyr"
                .Size = 12
                .Bold = True
            End With
        End With
        For i = 15 To 25 Step 2
            With Cells(i, "K").Offset(idat * шаг)
        .NumberFormat = "General"
            With .Font
                .ColorIndex = 10
            End With
        End With
        With Cells(i + 1, "K").Offset(idat * шаг)
        .NumberFormat = "0.00"
            With .Font
                .ColorIndex = 1
            End With
        End With
        Next
    Next
End Sub