Kaip ištirti ląsteles naudojant makrokomandą
Ar norėtumėte įvertinti langelius ir nustatyti, kiek ląstelių užpildyta diapazone, o kiek ne? Toliau pateiktame paveikslėlyje parodytas pavyzdys:
A1: B7 žymeklyje yra keletas tuščių ir užpildytų langelių. Jei norite tai įvertinti makrokomandoje, galite naudoti šį programos kodą:
Sub CountsFilledCells ()
Tamsus skaičius kaip ilgas
Šviesus skaičius2 kaip ilgai
Apšviesta sritis kaip diapazonas
Dim a As String
Nustatyti sritį = pasirinkimas
Skaičius = programa. Skaičius A (plotas)
Skaičius2 = plotas. Ląstelės. Skaičius - skaičius
a = MsgBox ("Dabartiniame pasirinkime yra" _
& Skaičius & "užpildyti langeliai ir" & number2 _
& „Ląstelės tuščios.“, „VbOKOnly“, „įvertinti ląsteles“)
Pabaiga Sub
Makrokomanda nustato funkciją CountA suskaičiuoti tuščių langelių skaičių diapazone. Rezultatas išsaugo kintamąjį skaičius. Norint nustatyti užpildytų ląstelių skaičių, ši vertė atimama iš viso ištirtų ląstelių skaičiaus. Makrokomanda išsaugo šią vertę Skaičius2.
Po pradžios programos kodas nustato užpildytų ir tuščių langelių skaičių aktyviame žymėjime ir parodo rezultatą lange:
Jei norite apdoroti pasirinktą diapazoną, o ne dabartinį pasirinkimą, pritaikykite vertės priskyrimą kintamajam srityje adresu. Jis naudojamas makrokomandoje su ypatybe Pasirinkimas prijungtas. Jei norite patys apibrėžti diapazoną, pakeiskite nustatyti-Priskyrimas kintamajam srityje išraiška tokia forma:
Nustatyti diapazoną = Diapazonas („A1: B5“)
Diapazono specifikacija visada nurodo aktyvų darbalapį. Jei norite kreiptis į kitą darbalapį, padėkite jį prieš diapazonasNurodykite nuorodas į metodus Darbo knygos ir Lakštai fiksuotas.