Стили ячеек. Цвет фона, шрифт: размер, начертание .. - Microsoft Office Excel

Virtson · 10.03.2007, 10:18

вопрос :
"как это программно считать и установить для конкретной ячейки ???"

я так понимаю, в книге свой массив стилей,
но выглядит его элемент / запись ?

pashulka · 10.03.2007, 12:37

Если Вас действительно интересуют стили рабочей книги (Формат - Стиль) то вот небольшой пример перебора всех стилей в текущей рабочей книге + получение отдельных параметров форматирования стиля "Обычный" (стиль "Обычный" используется по умолчанию), а также применение стиля к указанной ячейке.

Код:

Dim iStyle As Style
For Each iStyle In ThisWorkbook.Styles
    MsgBox iStyle.NameLocal, , iStyle.Name
Next

Код:

With ThisWorkbook.Styles("Normal")
     iFontColor = .Font.ColorIndex
     iFontSize = .Font.Size
     iNumberFormat = .NumberFormat
     'обратное присвоение также возможно
End With

Код:

ThisWorkbook.Worksheets(1).Range("C5").Style = "Normal"

Если же Вас интересуют отдельные параметры форматирования, но без привязки к стилям, то :

Код:

With ThisWorkbook.Worksheets(1).Range("C5")
     iFontName = .Font.Name
     iFontColor = .Font.ColorIndex
     iFontSize = .Font.Size
     iInteriorColor = .Interior.ColorIndex
     iNumberFormat = .NumberFormat
     'обратное присвоение также возможно
End With

Примечание : Изменение параметров форматирования, в т.ч. установка стиля, в защищённом листе вызовет ошибку, которую можно избежать, если при установке защиты листа, в стандартном диалоговом окне установить "флажок" напротив Форматирование ячеек (MS Excel XP и старше)

Virtson · 10.03.2007, 14:12

Большое спасибо,
меня интересовало и то и другое.

pashulka · 10.03.2007, 16:19

Virtson, Обратите внимание на то, что Вы можете создавать свой собственный стиль (используя семейство Styles и метод .Add), но имя нового стиля не должно совпадать с именем уже существующего стиля данной книги. Также допускается удаление существующего стиля (метод .Delete), за исключением стиля по-умолчанию, а именно "Обычный/Normal"
Несоблюдение любого из двух обязательных условий - вызовёт ошибку, которую можно избежать, если перед созданием/удалением стиля добавить небольшую проверку на отсутствие/наличие нужного стиля.

10.03.2007, 10:18	#1
Virtson Владимир М. Участник клуба Регистрация: 30.10.2006 Сообщений: 1,289	Стили ячеек. Цвет фона, шрифт: размер, начертание .. вопрос : "как это программно считать и установить для конкретной ячейки ???" я так понимаю, в книге свой массив стилей, но выглядит его элемент / запись ? Берегите друг друга!

10.03.2007, 12:37	#2
pashulka Форумчанин Регистрация: 03.11.2006 Сообщений: 524	Если Вас действительно интересуют стили рабочей книги (Формат - Стиль) то вот небольшой пример перебора всех стилей в текущей рабочей книге + получение отдельных параметров форматирования стиля "Обычный" (стиль "Обычный" используется по умолчанию), а также применение стиля к указанной ячейке. Код: `Dim iStyle As Style For Each iStyle In ThisWorkbook.Styles MsgBox iStyle.NameLocal, , iStyle.Name Next` Код: `With ThisWorkbook.Styles("Normal") iFontColor = .Font.ColorIndex iFontSize = .Font.Size iNumberFormat = .NumberFormat 'обратное присвоение также возможно End With` Код: `ThisWorkbook.Worksheets(1).Range("C5").Style = "Normal"` Если же Вас интересуют отдельные параметры форматирования, но без привязки к стилям, то : Код: `With ThisWorkbook.Worksheets(1).Range("C5") iFontName = .Font.Name iFontColor = .Font.ColorIndex iFontSize = .Font.Size iInteriorColor = .Interior.ColorIndex iNumberFormat = .NumberFormat 'обратное присвоение также возможно End With` Примечание : Изменение параметров форматирования, в т.ч. установка стиля, в защищённом листе вызовет ошибку, которую можно избежать, если при установке защиты листа, в стандартном диалоговом окне установить "флажок" напротив Форматирование ячеек (MS Excel XP и старше)

10.03.2007, 14:12	#3
Virtson Владимир М. Участник клуба Регистрация: 30.10.2006 Сообщений: 1,289	Большое спасибо, меня интересовало и то и другое. Берегите друг друга!

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
СУММИРОВАНИЕ И ПОДСЧЕТ ЯЧЕЕК ОКРАШЕННЫХ В РАЗНЫЙ ЦВЕТ	Arina	Microsoft Office Excel	11	29.01.2009 14:35
Разный цвет фона в таблице (php)	Lonix	PHP	2	04.10.2008 21:39
SetBkColor не меняет цвет фона	EdNovice	Win Api	3	18.02.2008 23:59
Цвет фона кнопки	romets	Win Api	10	23.01.2008 17:13
Условное форматирование + размер ячеек.	Hellen	Microsoft Office Excel	5	07.01.2007 20:49

10.03.2007, 16:19	#4
pashulka Форумчанин Регистрация: 03.11.2006 Сообщений: 524	Virtson, Обратите внимание на то, что Вы можете создавать свой собственный стиль (используя семейство Styles и метод .Add), но имя нового стиля не должно совпадать с именем уже существующего стиля данной книги. Также допускается удаление существующего стиля (метод .Delete), за исключением стиля по-умолчанию, а именно "Обычный/Normal" Несоблюдение любого из двух обязательных условий - вызовёт ошибку, которую можно избежать, если перед созданием/удалением стиля добавить небольшую проверку на отсутствие/наличие нужного стиля.