Šī apmācība parādīs, kā formatēt šūnas, izmantojot VBA.
Šūnu formatēšana
Šādām šūnām (diapazonam) var iestatīt daudz rekvizītu:
| 1234567891011 | Sub SetCellFormat ()Ar darblapām ("Sheet1"). Diapazons ("B5: C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = True.Font.FontStyle = "Slīpraksts".NumberFormat = "Vispārīgi".Interjers.Krāsa = RGB (128, 100, 250)Beigt arBeigu apakš |
Apskatīsim tos alfabētiskā secībā:
AddIndent
Iestatot šī rekvizīta vērtību uz True, teksts tiks automātiski ievilkts, kad teksta izlīdzināšana šūnā ir iestatīta horizontāli vai vertikāli līdz vienādam sadalījumam (sk. HorizontalAlignment un VerticalAlignment).
| 12345 | Ar darblapām ("Sheet1"). Diapazons ("A1").Orientācija = xlVertical.VerticalAlignment = xlVAlignDistributed.AddIndent = TrueBeigt ar |
Robežas
Jūs varat iestatīt šūnas apmales formātu. Plašāku informāciju par robežām skatiet šeit.
Kā piemēru varat iestatīt sarkanu punktētu līniju ap B2 lapu 1. lapā:
| 1 | Darblapas ("Sheet1"). Diapazons ("B2"). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Fonts
Šūnas fonta formātu var pielāgot, iestatot fonta nosaukumu, stilu, lielumu, krāsu, pievienojot pasvītrojumus un / vai efektus (pārsvītrojums, apakš- vai virsraksts). Plašāku informāciju par šūnu fontiem skatiet šeit.
Šeit ir daži piemēri:
| 12345 | Ar diapazonu ("A1: C5"). Fonts.Name = "Gadsimts".FontStyle = "Bold".Pārsvītrojums = TaisnībaBeigt ar |
FormulaSlēpta
Šis rekvizīts atgriež vai iestata varianta vērtību, kas norāda, vai formula tiks paslēpta, kad darblapa ir aizsargāta. Piemēram:
| 1 | Darblapas ("Sheet1"). Diapazons ("A1: B1"). FormulaHidden = True |
Horizontāla izlīdzināšana
Šis rekvizītu šūnu formāta rekvizīts atgriež vai iestata varianta vērtību, kas attēlo norādītā objekta horizontālo līdzinājumu. Atgrieztās vai iestatītās konstantes var būt: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Piemēram:
| 1 | Darblapas ("Sheet1"). Diapazons ("D3"). HorizontalAlignment = xlRight |
IndentLevel
Tas atgriež vai iestata veselu skaitli no 0 līdz 15, kas norāda šūnas vai diapazona atkāpes līmeni.
| 1 | Darblapas ("Sheet1"). Diapazons ("A1"). IndentLevel = 7 |
Interjers
Varat iestatīt vai saņemt atpakaļ informāciju par šūnas interjeru: tās krāsu, ColorIndex, Pattern, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, piemēram:
| 123 | Ja nav diapazons ("A1"). Interior.ThemeColor = ThemeColorLight2 TadDiapazons ("A1"). Interjers.Pattern = xlPatternUpBeigas Ja |
Slēgts
Šis rekvizīts atgriež True, ja šūna vai diapazons ir bloķēts, False, ja objektu var mainīt, kad lapa ir aizsargāta, vai Null, ja norādītais diapazons satur gan bloķētas, gan atbloķētas šūnas. To var izmantot arī šūnu bloķēšanai vai atbloķēšanai.
Šis piemērs atbloķē šūnas A1: B2 uz 1. lapas, lai tās varētu mainīt, kad lapa ir aizsargāta.
| 12 | Darblapas ("Sheet1"). Diapazons ("A1: B2"). Bloķēts = FalseDarblapas ("Sheet1"). Aizsargāt |
Apvienot šūnas
Iestatiet šo rekvizītu uz Patiess, ja nepieciešams apvienot diapazonu. Tā vērtība kļūst patiesa, ja noteiktā diapazonā ir apvienotas šūnas. Piemēram, ja jums ir jāapvieno diapazons C5: D7, varat izmantot šo kodu:
| 1 | Darblapas ("Sheet1"). Diapazons ("C5: D7"). MergeCells = True |
NumberFormat
Jūs varat iestatīt skaitļa formātu šūnā (-ās) uz Vispārīgi, Skaitlis, Valūta, Grāmatvedība, Datums, Laiks, Procenti, Daļa, Zinātnisks, Teksts, Īpašs un Pielāgots.
Šeit ir zinātnisko un procentuālo skaitļu formātu piemēri:
| 12 | Diapazons ("A1"). NumberFormat = "0.00E+00"Diapazons ("B1"). NumberFormat = "0.00%" |
NumberFormatLocal
Šis rekvizīts atgriež vai iestata varianta vērtību, kas attēlo objekta formāta kodu kā virkni lietotāja valodā.
Orientācija
Ar šo rekvizītu varat iestatīt (vai saņemt atpakaļ) teksta orientāciju šūnā (-ās). Tās vērtība var būt viena no šīm konstantēm: xlDownward, xlHorizontal, xlUpward, xlVertical vai vesels skaitlis no -90 līdz 90 grādiem.
| 1 | Darblapas ("Sheet1"). Diapazons ("A1"). Orientācija = -60 |
Vecāks
Šis ir tikai lasāms rekvizīts, kas atgriež norādītā objekta vecākobjektu.
ShrinkToFit
Šis rekvizīts atgriež vai iestata varianta vērtību, kas norāda, vai teksts automātiski samazinās, lai ietilptu pieejamajā kolonnas platumā.
| 1 | Darblapas ("Sheet1"). Diapazons ("A1"). ShrinkToFit = True |
VerticalAlignment
Šis rekvizītu šūnu formāta rekvizīts atgriež vai iestata varianta vērtību, kas attēlo norādītā objekta vertikālo līdzinājumu. Atgrieztās vai iestatītās konstantes var būt: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Piemēram:
| 1 | Darblapas ("Sheet1"). Diapazons ("A1"). VerticalAlignment = xlTop |
WrapText
Šis rekvizīts atgriež vērtību Patiess, ja teksts ir ietīts visās norādītā diapazona šūnās, Nepareizs, ja teksts nav ietīts visās norādītā diapazona šūnās, vai Null, ja norādītajā diapazonā ir dažas šūnas, kas ietin tekstu, un citas šūnas, kas to nedara.
Piemēram, ja jums ir šāds šūnu diapazons:
šis zemāk esošais kods tūlītējā logā atgriezīs nulli:
| 1 | ? Darblapas ("Sheet1"). Diapazons ("A1: B1"). WrapText |
