ВБА ћелијски фонт
У ВБА можете променити својства фонтова помоћу ВБА својства фонта објекта Ранге. Унесите следећи код у ВБА Едитор и видећете листу свих доступних опција:
1 | Опсег ("А1). Фонт. |
У наставку ћемо размотрити неколико најчешћих својстава.
Промените боју фонта
Постоји неколико начина за подешавање боја фонта.
вбЦолор
Најлакши начин за подешавање боја је помоћу вбЦолорс:
1 | Опсег ("а1"). Фонт.Цолор = вбРед |
Међутим, врло сте ограничени у погледу доступних боја. Ово су једине доступне опције:
Боја - РГБ
Такође можете поставити боје на основу РГБ (црвено зелена плава). Овде уносите вредности боје између 0-255 за црвену, зелену и плаву. Помоћу те три боје можете направити било коју боју:
1 | Опсег ("а1"). Фонт.Цолор = РГБ (255,255,0) |
ЦолорИндек
ВБА / Екцел такође има својство ЦолорИндек. Ово вам чини доступне унапред изграђене боје. Међутим, они се чувају као индексни бројеви, па је тешко знати која је боја која:
1 | Опсег ("а1"). Фонт.ЦолорИндек =… |
Написали смо чланак о ВБА кодовима боја, укључујући листу кодова ВБА ЦолорИндек. Тамо можете сазнати више о бојама.
Величина фонта
Ово ће поставити величину фонта на 12:
1 | Опсег ("а1"). Фонт.Сизе = 12 |
или до 16:
1 | Опсег ("а1"). Фонт.Сизе = 16 |
Масним словима
Лако је поставити фонт ћелије на подебљано:
1 | Опсег ("А1"). Фонт.Болд = Тачно |
или да обришете подебљано обликовање:
1 | Опсег ("А1"). Фонт.Болд = Нетачно |
Назив фонта
Да бисте променили назив фонта, користите Име својство:
1 | Опсег ("А1"). Фонт.Наме = "Цалибри" |
1 | Опсег ("А1"). Фонт.Наме = "Ариал" |
1 | Опсег ("А1"). Фонт.Наме = "Тимес Нев Роман" |
Целл Стиле
Екцел нуди могућност стварања „стилова“ ћелије. Стилови се могу пронаћи у Почетна трака> Стилови:
Стилови вам омогућавају да сачувате жељено обликовање ћелија. Затим доделите тај стил новој ћелији и цело обликовање ћелије се одмах примењује. Укључујући величину фонта, боју ћелије, статус заштите ћелија и све остало што је доступно из менија за обликовање ћелије:
Лично, за многе моделе на којима радим обично стварам стил ћелије „Унос“:
1 | Ранге ("а1"). Стиле = "Инпут" |
Коришћењем стилова такође можете лако идентификовати типове ћелија на свом радном листу. Пример испод ће проћи кроз све ћелије на радном листу и променити било коју ћелију са Стиле = „Инпут“ у „ИнпутЛоцкед“:
1234567 | Дим Целл ас РангеЗа сваку ћелију у АцтивеСхеет.ЦеллсАко је Целл.Стиле = "Унос" ондаЦелл.Стиле = "Улаз закључан"Крај АкоСледећа ћелија |