Формат Надписей

[valerij]

Че не так в коде? Не принимают Надписи, заданный формат.

[f19].Offset(iCount& * 28) = "Собрано": [h19].Offset(iCount& * 28) = "В С Е Г О"
        Selection.NumberFormat = "@"
    With Selection.Font
        .Name = "Arial Cyr"
        .FontStyle = "полужирный"
        .Size = 14
'        .Strikethrough = False
'        .Superscript = False
'        .Subscript = False
'        .OutlineFont = False
'        .Shadow = False
'        .Underline = xlUnderlineStyleNone
'        .ColorIndex = 2
'        .TintAndShade = 0
'        .ThemeFont = xlThemeFontNone
    End With

Может потому, что:
F19 это F-G, H19 это H -I, объединенные ячейки?
Проверил отдельно, без объединения, такая же фигня, писал, м-рекодером.

[Hugo121]

Прекрасно присваивается фонт и размер SELECTION
Подозреваю, что Вы хотели это присваивать ячейкам в цикле. Но вот каким - "Собрано" или "В С Е Г О" - это из кода понять невозможно...

[doober]

Валера,ты будешь смеяться,но у меня все правильно работает

[valerij]

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

Подозреваю, что Вы хотели это присваивать ячейкам в цикле. Но вот каким - "Собрано" или "В С Е Г О" - это из кода понять невозможно...

Да, присваивать ячейкам в цикле "Собрано" и "В С Е Г О"

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

Валера,ты будешь смеяться,но у меня все правильно работает

В цикле?

[Hugo121]

Sub zxc()
For iCount& = 0 To 13
[f19].Offset(iCount& * 28) = "Собрано": [h19].Offset(iCount& * 28) = "В С Е Г О"
Set myR = Union([f19].Offset(iCount& * 28), [h19].Offset(iCount& * 28))
        myR.NumberFormat = "@"
    With myR.Font
        .Name = "Arial Cyr"
        .FontStyle = "полужирный"
        .Size = 14
'        .Strikethrough = False
'        .Superscript = False
'        .Subscript = False
'        .OutlineFont = False
'        .Shadow = False
'        .Underline = xlUnderlineStyleNone
'        .ColorIndex = 2
'        .TintAndShade = 0
'        .ThemeFont = xlThemeFontNone
    End With
Next
End Sub

[valerij]

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

Sub zxc()

Все ОК!!
Спасибо.