Kaip naudoti VBA makrokomandą ir sužinoti, kiek eilučių ir stulpelių naudojama „Excel“ lentelėje
Priklausomai nuo „Excel“ versijos, lentelėje siūlomas skirtingas eilučių ir stulpelių skaičius. Kaip makrokomandoje pasakyti, kada norite kartoti visas lentelės eilutes ar stulpelius?
Nors „Excel“ iki 2003 m. Imtinai imtinai buvo tik 256 stulpeliai ir 65 536 eilutės, nuo „Excel 2007“ yra 16 384 stulpeliai ir 1 048 576 eilutės.
„Excel“ taip pat yra skirtingi dviejų skirtingų skaičiuoklių saugojimo formatai: XLS ir XLSX. Tačiau nėra taip, kad XLSX faile automatiškai turi būti didesnio dydžio darbalapiai. Net naudojant „Excel 2007“ ir „Excel 2010“, kai failas atidaromas suderinamumo režimu, galimi tik ankstesni lentelės matmenys.
Todėl, jei norite makrokomandoje nustatyti, kiek eilučių ir stulpelių yra darbalapyje, turėtumėte užklausti šį skaičių tiesiogiai. Toliau pateikta makrokomanda parodo, kaip tai padaryti
Sub RowUndColumnNumber ()
„MsgBox ActiveSheet.Cells.Rows.Count“ ir „Eilutės“ & _
ActiveSheet.Cells.Columns.Count & "Stulpeliai".
Pabaiga Sub
Jei iškviečiate makrokomandą naudodami XLS darbalapį, „Excel“ rodo atitinkamą eilučių ir stulpelių skaičių, kaip parodyta šiame paveikslėlyje:
Jei paleidžiate makrokomandą iš „Excel 2007“ arba „Excel 2010“ be suderinamumo režimo, dialogo lange rodomi didesni lentelės matmenys:
Todėl VBA kilpose, kurios turi būti vykdomos per visus lentelės langelius, galite naudoti dvi ypatybes ROWS.COUNT ir COLUMNS.COUNT, kaip aprašyta, kad nustatytumėte darbalapio matmenis.
Gali praeiti daug laiko (ypač naudojant „Excel 2007“ ir „Excel 2010“), kad būtų galima paleisti visas teoriškai prieinamas langelius naudojant makrokomandą. Jei norite apriboti ciklus tik naudojamoje srityje, rekomenduojame naudoti USEDRANGE ypatybę.
Norėdami įvesti makrokomandą, „Excel“ paspauskite klavišų kombinaciją ALT F11. Tai paleidžia VBA redaktorių visose „Excel“ versijose. Ten pasirinkite komandą INSERT - MODULE ir įveskite makrokomandą. Norėdami pradėti makrokomandą, „Excel“ suaktyvinkite klavišų kombinaciją ALT F8.
