Norint pažymėti arba suskaičiuoti visas lentelėje naudojamas makrokomandas, reikia makrokomandos „UsedRange“. Naudodami du pavyzdžius, parodysime, kaip tai teisingai naudoti.
Jei norite apdoroti lentelių langelius naudodami makrokomandas, apsiribokite ląstelėmis, kuriose iš tikrųjų yra turinio. Tai lengviau ir daug greičiau nei ieškoti visuose stulpelių ir eilučių langeliuose. „Excel“ siūlo jums nuosavybę šiam tikslui „UsedRange“ adresu. Tai reiškia visas naudojamas lentelės langelius ir pateikia a diapazonas-Objektas.
Naudokite „UsedRange“, kad pažymėtumėte naudojamas „Excel“ langelius
Ši makrokomanda rodo, kaip praktiškai naudoti nuosavybę:
Sub MarkAllUsedCells ()
ActiveSheet.UsedRange.Select
Pabaiga Sub
Toliau pateiktame paveikslėlyje parodyta, kaip ji gali atrodyti, kai makrokomanda naudojama lentelėje. Visos naudojamos ląstelės pažymėtos:
Makrokomanda visada pažymi aktyvios lentelės langelius. Jei norite naudoti kitą lentelę, pakeiskite objektą „ActiveSheet“ remdamiesi atitinkama lentele.
Kaip suskaičiuoti panaudotus ląstelių diapazonus „Excel“
Norėdami suskaičiuoti lentelės langelių, kuriuose yra formulė, skaičių, naudokite šią makrokomandą:
Pagalbinės formulės Skaičiavimas ()
Apšviesti langelį kaip diapazoną Skaičiuoti kaip dvigubą skaičių = 0 kiekvienai langai ActiveSheet.UsedRange. Ląstelės Jei ląstelė. HasFormula Tada skaitiklis = Skaitliukas + 1 Kitas langelis MsgBox („Aktyvioje lentelėje yra„ & Str $ (skaitiklis) & “langeliai su formulėmis.“)
Pabaiga Sub
Makrokomanda nustato nuosavybę UsedRange.Cells tai leidžia nurodyti visas lentelėje naudojamas ląsteles. Jei langelyje yra formulė, kintamasis „Skaitliukas“ padidinamas 1. Rezultatas pasirodys pranešimų lange:
