Ta vadnica bo pokazala, kako prilagoditi nastavitve obrobe celic v VBA.
Oblikovanje obrobe
Zgornja meja - dvojna črta
Najprej si oglejmo primer, kako nastaviti celico B3 na listu 1 modro, debelo, podvojeno zgornjo obrobo:
| 123456789 | PodprimerSetBorder ()Z delovnimi listi ("List1"). Obseg ("B3"). Meje (xlEdgeTop).LineStyle = xlDvojno.Teža = xlDebela.Indeks barve = 5Končaj sEnd Sub |
Upoštevajte, da uporabljamo Statement With za poenostavitev kodiranja.
Dostopimo do zgornje meje z .Mere (xlEdgeTop).
Druge meje celic
Namesto tega lahko dostopate do drugih meja, vključno z diagonalami:
| 123456 | Delovni listi ("List1"). Obseg ("B2"). Meje (xlEdgeTop). Barva = RGB (128, 0, 0)Delovni listi ("List1"). Obseg ("B2"). Meje (xlEdgeRight). Barva = RGB (0, 255, 0)Delovni listi ("List1"). Obseg ("B2"). Meje (xlEdgeBottom). Barva = RGB (0, 0, 128)Delovni listi ("List1"). Obseg ("B2"). Meje (xlEdgeLeft). Barva = RGB (255, 0, 0)Delovni listi ("List1"). Razpon ("B2"). Meje (xlDiagonalDown). Barva = RGB (0, 0, 0)Delovni listi ("List1"). Razpon ("B2"). Meje (xlDiagonalUp). Barva = RGB (0, 0, 0) |
Znotraj meja
Prilagodite lahko tudi vodoravne (xlInsideHorizontalne) in navpične (xlInsideVertical) obrobe za vse celice v obsegu:
| 12345 | Z delovnimi listi ("List1"). Obseg ("B2: C6"). Meje (xlInsideHorizontal).LineStyle = xlDashDotDot.Teža = xlMedium.Indeks barve = 3Končaj s |
LineStyle
Lastnost LineStyle lahko spremenite v xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot in xlLineStyleNone.
Lastnost Weight je lahko xlHariline, xlThin, xlMedium in xlThick. Ta rezultat boste dobili s spodnjo kodo:
| 12345678 | Delovni listi ("List1"). Razpon ("C3"). Meje (xlEdgeTop). Teža = xlLajnicaDelovni listi ("List1"). Razpon ("C3"). Meje (xlEdgeBottom). Teža = xlLajnicaDelovni listi ("List1"). Razpon ("D3"). Meje (xlEdgeTop). Teža = xlThinaDelovni listi ("List1"). Obseg ("D3"). Meje (xlEdgeBottom). Teža = xlThinaDelovni listi ("List1"). Razpon ("E3"). Meje (xlEdgeTop). Teža = xlMediumDelovni listi ("List1"). Razpon ("E3"). Meje (xlEdgeBottom). Teža = xlMediumDelovni listi ("List1"). Obseg ("F3"). Meje (xlEdgeTop). Teža = xlThickDelovni listi ("List1"). Obseg ("F3"). Meje (xlEdgeBottom). Teža = xlTebelo |
Barve obrobe lahko nastavite kot ColorIndex ali Color (RGB, serijska številka ali vbColor). Več informacij o barvnih nastavitvah si oglejte tukaj.
Meje okoli območja lahko dodate tudi z ukazom v eni vrstici:
| 1 | Obseg ("B5: C7"). Meja Okoli vrstice Stil: = xlNeprekinjeno, Teža: = xlDebelo, Barva: = vbRdeča |
