Mēs jau esam apskatījuši mainīgos un konstantes mūsu VBA datu tipu - mainīgo un konstantu apmācībā. Tagad mēs apskatīsim diapazona objektu VBA un to, kā deklarēt mainīgo kā diapazona objektu. Diapazona objekts tiek izmantots, lai apzīmētu šūnas vai vairākas šūnas VBA. Tātad, to ir ļoti noderīgi izmantot savā kodā.
Noklikšķiniet šeit, lai iegūtu papildinformāciju par VBA diapazoniem un šūnām.
VBA diapazona objekts
Diapazona objektu var izmantot, lai atsauktos uz vienu šūnu. Piemēram, ja vēlaties savā VBA kodā atsaukties uz šūnu A1, varat izmantot VBA diapazona objektu, kā parādīts zemāk esošajā kodā:
1234 | SubreferingToASingleCellUsingTheRangeObject ()Diapazons ("A1"). Vērtība = 89Diapazons ("A1"). Fonts. Bold = patiesaBeigu apakš |
Nospiežot tastatūras palaist vai F5, lai palaistu kodu, faktiskajā darblapā tiek parādīts šāds rezultāts:
Diapazona objektu var izmantot, lai atsauktos uz vairākām šūnām vai diapazoniem. Piemēram, ja vēlaties savā VBA kodā atsaukties uz šūnu diapazonu (A1: C1), varat izmantot VBA diapazona objektu, kā parādīts zemāk esošajā kodā:
123456 | Apakšatsaucoties uz vairākām šūnām, izmantojot TheRangeObject ()Diapazons ("A1: C1"). Vērtība = "ABC"Diapazons ("A1: C1"). Robežas (xlEdgeBottom) .LineStyle = xlDoubleBeigu apakš |
Nospiežot tastatūras palaist vai F5, lai palaistu kodu, faktiskajā darblapā tiek parādīts šāds rezultāts:
Mainīgā deklarēšana kā diapazons
Deklarējot mainīgo kā diapazonu, jums būs jāizmanto atslēgvārdi Dim un Set. Zemāk esošais kods parāda, kā deklarēt mainīgo kā diapazonu.
123456789101112 | ApakšdeklarēšanaAndSettingARange ()Dim rng As RangeIestatīt rng = Diapazons ("A10: B10")rng.Value = "AutomateExcel"rng.Font.Bold = Patiessrng. Izvēlietiesrng.Slejas.AutoFitBeigu apakš |
Rezultāts ir šāds:
Konkrētu rindu izvēle diapazona objektā
Diapazona objektā varat atlasīt konkrētas rindas. Zemāk redzamais kods parāda, kā to izdarīt:
12345678 | ApakšatlasīšanaSpecificRowsInTheRangeObject ()Dim rng As RangeIestatīt rng = Diapazons ("A1: C3")rng. Rindas (3). AtlasietBeigu apakš |
Rezultāts ir šāds:
Konkrētu kolonnu izvēle diapazona objektā
Diapazona objektā varat atlasīt konkrētas kolonnas. Zemāk redzamais kods parāda, kā to izdarīt:
12345678 | ApakšatlasīšanaSpecificColumnsInTheRangeObject ()Dim rng As RangeIestatīt rng = Diapazons ("A1: C3")rng. Kolonnas (3). AtlasietBeigu apakš |