Šī apmācība parādīs, kā pielāgot šūnu robežas iestatījumus VBA.
Apmaļu formatēšana
Augšējā robeža - dubultā līnija
Vispirms apskatīsim piemēru, kā iestatīt lapas 1 zilu, biezu, divkāršotu augšējo apmali:
123456789 | Sub ExampleSetBorder ()Ar darblapām ("Sheet1"). Diapazons ("B3"). Robežas (xlEdgeTop).LineStyle = xlDouble.Svars = xlBiezs.ColorIndex = 5Beigt arBeigu apakš |
Ievērojiet, ka mēs izmantojam paziņojumu ar paziņojumu, lai vienkāršotu mūsu kodēšanu.
Mēs piekļūstam augšējai robežai ar .Borders (xlEdgeTop).
Citas šūnu robežas
Tā vietā varat piekļūt citām robežām, tostarp diagonālēm:
123456 | Darblapas ("Sheet1"). Diapazons ("B2"). Apmales (xlEdgeTop). Krāsa = RGB (128, 0, 0)Darblapas ("Sheet1"). Diapazons ("B2"). Robežas (xlEdgeRight). Krāsa = RGB (0, 255, 0)Darblapas ("Sheet1"). Diapazons ("B2"). Apmales (xlEdgeBottom). Krāsa = RGB (0, 0, 128)Darblapas ("Sheet1"). Diapazons ("B2"). Robežas (xlEdgeLeft). Krāsa = RGB (255, 0, 0)Darblapas ("Sheet1"). Diapazons ("B2"). Apmales (xlDiagonalDown). Krāsa = RGB (0, 0, 0)Darblapas ("Sheet1"). Diapazons ("B2"). Apmales (xlDiagonalUp). Krāsa = RGB (0, 0, 0) |
Iekšējās robežas
Varat arī pielāgot horizontālās (xlInsideHorizontal) un vertikālās (xlInsideVertical) robežas visām šūnām diapazonā:
12345 | Ar darblapām ("Sheet1"). Diapazons ("B2: C6"). Robežas (xlInsideHorizontal).LineStyle = xlDashDotDot.Svars = xlVidējs.ColorIndex = 3Beigt ar |
LineStyle
LineStyle rekvizītu var mainīt uz xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot un xlLineStyleNone.
Īpašums Svars var būt xlHariline, xlThin, xlMedium un xlThick. Jūs iegūsit šādu rezultātu, izmantojot tālāk norādīto kodu.
12345678 | Darblapas ("Sheet1"). Diapazons ("C3"). Robežas (xlEdgeTop) .Svars = xlHairlineDarblapas ("Sheet1"). Diapazons ("C3"). Apmales (xlEdgeBottom) .Svars = xlHairlineDarblapas ("Sheet1"). Diapazons ("D3"). Robežas (xlEdgeTop) .Svars = xlThinDarblapas ("Sheet1"). Diapazons ("D3"). Robežas (xlEdgeBottom) .Svars = xlThinDarblapas ("Sheet1"). Diapazons ("E3"). Apmales (xlEdgeTop) .Svars = xlVidējsDarblapas ("Sheet1"). Diapazons ("E3"). Apmales (xlEdgeBottom) .Svars = xlVidējsDarblapas ("Sheet1"). Diapazons ("F3"). Robežas (xlEdgeTop) .Svars = xlThickDarblapas ("Sheet1"). Diapazons ("F3"). Robežas (xlEdgeBottom) .Svars = xlBiezums |
Apmales krāsas var iestatīt kā ColorIndex vai Color (RGB, sērijas numurs vai vbColor). Plašāku informāciju par krāsu iestatījumiem skatiet šeit.
Jūs varat pievienot robežas diapazonam, izmantojot arī vienas rindas komandu:
1 | Diapazons ("B5: C7"). BorderAround LineStyle: = xlContinuous, Weight: = xlBiezs, Krāsa: = vbSarkans |