Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.06.2011, 19:46   #1
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию Формат Надписей

Че не так в коде? Не принимают Надписи, заданный формат.
Код:
[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, объединенные ячейки?
Проверил отдельно, без объединения, такая же фигня, писал, м-рекодером.
Вложения
Тип файла: rar Z.rar (7.8 Кб, 12 просмотров)
valerij вне форума Ответить с цитированием
Старый 24.06.2011, 20:09   #2
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,170
По умолчанию

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

Последний раз редактировалось Hugo121; 24.06.2011 в 20:11.
Hugo121 вне форума Ответить с цитированием
Старый 24.06.2011, 20:10   #3
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Валера,ты будешь смеяться,но у меня все правильно работает
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 24.06.2011, 20:28   #4
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Подозреваю, что Вы хотели это присваивать ячейкам в цикле. Но вот каким - "Собрано" или "В С Е Г О" - это из кода понять невозможно...
Да, присваивать ячейкам в цикле "Собрано" и "В С Е Г О"
Цитата:
Сообщение от doober Посмотреть сообщение
Валера,ты будешь смеяться,но у меня все правильно работает
В цикле?
valerij вне форума Ответить с цитированием
Старый 24.06.2011, 20:36   #5
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,170
По умолчанию

Код:
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
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 24.06.2011, 20:40   #6
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Sub zxc()
Все ОК!!
Спасибо.
valerij вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
КАК ПЕРЕДЕЛАТЬ ФОРМАТ mp4 В ФОРМАТ 3gp,MPEG4 kamalruslan Софт 4 20.08.2015 16:16
формат примечания 0mega Microsoft Office Excel 2 01.08.2010 00:22
BIK формат. Alex Cones Свободное общение 8 30.06.2010 14:37
Отображение надписей _-Re@l-_ Общие вопросы Delphi 3 20.05.2010 15:32