A VBA makró használatával megtudhatja, hány sort és oszlopot használ egy Excel -táblázat
Az Excel verziójától függően különböző számú sor és oszlop található a táblázatban. Hogyan lehet megmondani egy makróban, hogy meg akarja ismételni a táblázat összes sorát vagy oszlopát?
Míg az Excelben a 2003 -as verzióig bezárólag csak 256 oszlop és 65 536 sor volt, az Excel 2007 óta 16 384 oszlop és 1 048 576 sor áll rendelkezésre.
Az Excelben különböző tárolási formátumok is rendelkezésre állnak a két különböző táblázathoz: XLS és XLSX. Azonban nem az a helyzet, hogy egy XLSX fájlnak automatikusan rendelkeznie kell a nagyobb méretű munkalapokkal. Még az Excel 2007 -ben és az Excel 2010 -ben is, amikor egy fájlt kompatibilitási módban nyitnak meg, csak a korábbi táblázatméretek állnak rendelkezésre.
Ezért ha egy makróban meg szeretné határozni, hogy egy munkalapnak hány sora és oszlopa van, akkor közvetlenül le kell kérdeznie ezt a számot. Az alábbi makró bemutatja, hogyan kell ezt megtenni
Sub RowUndColumnNumber ()
MsgBox ActiveSheet.Cells.Rows.Count & "Sorok" & _
ActiveSheet.Cells.Columns.Count és "Oszlopok".
End Sub
Ha a makrót XLS -munkalappal hívja meg, az Excel megjeleníti a megfelelő számú sort és oszlopot, amint az az alábbi ábrán látható:
Ha a makrót az Excel 2007 vagy az Excel 2010 programból indítja el kompatibilitási mód nélkül, akkor egy párbeszédpanel mutatja a táblázat nagyobb méreteit:
A tábla összes cellájában futó VBA -körökben ezért a két tulajdonság - ROWS.COUNT és COLUMNS.COUNT - a leírtak szerint határozhatja meg a munkalap méreteit.
Hosszú időbe telhet (különösen az Excel 2007 -ben és az Excel 2010 -ben) az összes elméletileg elérhető cella átfutása makró használatával. Ha csak a használt területre szeretné korlátozni a ciklusokat, javasoljuk a USEDRANGE tulajdonság használatát.
A makró megadásához nyomja meg az ALT F11 billentyűkombinációt az Excelben. Ezzel elindul a VBA szerkesztő minden Excel verzióban. Válassza ki az INSERT - MODULE parancsot, és adja meg a makrót. A makró elindításához aktiválja az ALT F8 billentyűkombinációt az Excelben.