Овај водич ће показати како да прилагодите поставке граница ћелија у ВБА.
Обликовање ивица
Горња граница - двострука линија
Прво погледајмо пример како поставити плаву, дебелу, удвостручену горњу границу ћелије Б3 на листу 1:
123456789 | Под ПримерСетБордер ()Са радним листовима ("Схеет1"). Распон ("Б3"). Границе (клЕдгеТоп).ЛинеСтиле = клДоубле.Тежина = клДебела.Индекс боја = 5ЗавршитиЕнд Суб |
Обратите пажњу да користимо Статемент Витх да поједноставимо наше кодирање.
Горњој граници приступамо са .Границе (клЕдгеТоп).
Друге ћелијске границе
Уместо тога, можете приступити другим границама, укључујући дијагонале:
123456 | Радни листови ("Лист1"). Распон ("Б2"). Границе (клЕдгеТоп). Боја = РГБ (128, 0, 0)Радни листови ("Лист1"). Распон ("Б2"). Границе (клЕдгеРигхт). Боја = РГБ (0, 255, 0)Радни листови ("Лист1"). Распон ("Б2"). Границе (клЕдгеБоттом). Боја = РГБ (0, 0, 128)Радни листови ("Лист1"). Распон ("Б2"). Границе (клЕдгеЛефт). Боја = РГБ (255, 0, 0)Радни листови ("Лист1"). Распон ("Б2"). Границе (клДиагоналДовн). Боја = РГБ (0, 0, 0)Радни листови ("Лист1"). Распон ("Б2"). Границе (клДиагоналУп). Боја = РГБ (0, 0, 0) |
Унутрашње границе
Такође можете подесити хоризонталне (клИнсидеХоризонтал) и вертикалне (клИнсидеВертицал) ивице за све ћелије у опсегу:
12345 | Са радним листовима ("Лист1"). Распон ("Б2: Ц6"). Ивице (клИнсидеХоризонтал).ЛинеСтиле = клДасхДотДот.Тежина = клМедиум.Индекс боје = 3Завршити |
ЛинеСтиле
Својство ЛинеСтиле може се променити у клЦонтинуоус, клДот, клДасх, клДасхДот, клДасхДотДот, клДоубле, клСлантДасхДот и клЛинеСтилеНоне.
Својство Веигхт може бити клХарилине, клТхин, клМедиум и клТхицк. Овај код ћете имати са доњим кодом:
12345678 | Радни листови ("Схеет1"). Распон ("Ц3"). Границе (клЕдгеТоп). Тежина = клВоденицаРадни листови ("Схеет1"). Распон ("Ц3"). Границе (клЕдгеБоттом). Тежина = клВоденицаРадни листови ("Лист1"). Распон ("Д3"). Границе (клЕдгеТоп). Тежина = клТхинаРадни листови ("Схеет1"). Распон ("Д3"). Границе (клЕдгеБоттом). Тежина = клТхинаРадни листови ("Схеет1"). Распон ("Е3"). Границе (клЕдгеТоп). Тежина = клМедиумРадни листови ("Схеет1"). Распон ("Е3"). Границе (клЕдгеБоттом). Тежина = клМедиумРадни листови ("Лист1"). Распон ("Ф3"). Границе (клЕдгеТоп). Тежина = клДебелаРадни листови ("Лист1"). Распон ("Ф3"). Границе (клЕдгеБоттом). Тежина = клДебела |
Боје обруба могу се поставити као ЦолорИндек или Цолор (РГБ, серијски број или вбЦолор). Више информација о поставкама боја погледајте овде.
Можете додати границе око опсега и командом у једном реду:
1 | Опсег ("Б5: Ц7"). БордерАроунд ЛинеСтиле: = клЦонтинуоус, Веигхт: = клТхицк, Цолор: = вбРед |