Tento tutoriál vám ukáže, ako upraviť nastavenia ohraničenia bunky vo VBA.
Formátovanie okrajov
Horná hranica - dvojitá čiara
Najprv sa pozrime na príklad, ako nastaviť modré, hrubé, zdvojené horné ohraničenie bunky B3 na hárku 1:
123456789 | Sub PríkladSetBorder ()S pracovnými listami („List1“). Rozsah („B3“). Okraje (xlEdgeTop).LineStyle = xlDouble.Váha = xlHrubá.ColorIndex = 5Ukončiť sKoniec pod |
Všimnite si toho, že na zjednodušenie kódovania používame príkaz With.
K hornej hranici sa dostaneme pomocou .Borders (xlEdgeTop).
Ostatné hranice buniek
Namiesto toho máte prístup k ďalším okrajom vrátane uhlopriečok:
123456 | Pracovné listy („List1“). Rozsah („B2“). Okraje (xlEdgeTop). Farba = RGB (128, 0, 0)Pracovné listy („List1“). Rozsah („B2“). Okraje (xlEdgeRight). Farba = RGB (0, 255, 0)Pracovné listy („List1“). Rozsah („B2“). Okraje (xlEdgeBottom). Farba = RGB (0, 0, 128)Pracovné listy („List1“). Rozsah („B2“). Okraje (xlEdgeLeft). Farba = RGB (255, 0, 0)Pracovné listy („List1“). Rozsah („B2“). Okraje (xlDiagonalDown). Farba = RGB (0, 0, 0)Pracovné listy („List1“). Rozsah („B2“). Okraje (xlDiagonalUp). Farba = RGB (0, 0, 0) |
Vnútorné hranice
Môžete tiež upraviť horizontálne (xlInsideHorizontal) a vertikálne (xlInsideVertical) ohraničenie pre všetky bunky v rozsahu:
12345 | S pracovnými listami („List1“). Rozsah („B2: C6“). Okraje (xlInsideHorizontal).LineStyle = xlDashDotDot.Hmotnosť = xlMedium.ColorIndex = 3Ukončiť s |
LineStyle
Vlastnosť LineStyle je možné zmeniť na xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot a xlLineStyleNone.
Vlastnosť Weight môže byť buď xlHariline, xlThin, xlMedium a xlThick. Tento výsledok získate s nižšie uvedeným kódom:
12345678 | Pracovné listy („List1“). Rozsah („C3“). Okraje (xlEdgeTop). Hmotnosť = xlVlasyPracovné listy („List1“). Rozsah („C3“). Okraje (xlEdgeBottom). Hmotnosť = xlVlasyPracovné listy („List1“). Rozsah („D3“). Okraje (xlEdgeTop). Hmotnosť = xlThinPracovné listy („List1“). Rozsah („D3“). Okraje (xlEdgeBottom). Hmotnosť = xlThinPracovné listy („List1“). Rozsah („E3“). Okraje (xlEdgeTop). Hmotnosť = xlMediumPracovné listy („List1“). Rozsah („E3“). Okraje (xlEdgeBottom). Hmotnosť = xlMediumPracovné listy („List1“). Rozsah („F3“). Okraje (xlEdgeTop). Hmotnosť = xlThickPracovné listy („List1“). Rozsah („F3“). Okraje (xlEdgeBottom). Hmotnosť = xlThick |
Farby orámovania je možné nastaviť ako ColorIndex alebo Color (RGB, sériové číslo alebo vbColor). Tu nájdete ďalšie informácie o nastaveniach farieb.
Okraje okolo rozsahu môžete pridať aj pomocou jednoriadkového príkazu:
1 | Rozsah ("B5: C7"). Okrajový štýl okolo čiary: = xlSpojitý, hmotnosť: = xl hrubý, farba: = vbČervená |