Cum să examinați celulele cu o macro
Doriți să evaluați celulele și să determinați câte celule sunt umplute într-un interval și câte nu? Următoarea figură prezintă un exemplu:
Markerul A1: B7 conține câteva celule goale și unele celule umplute. Dacă doriți să evaluați acest lucru într-o macro, puteți utiliza următorul cod de program:
Sub CountsFilledCells ()
Număr scăzut atât de lung
Dim Număr2 Ca lung
Afișează zona ca interval
Dim a As String
Set area = Selection
Număr = Application.CountA (zonă)
Count2 = area.Cells.Count - număr
a = MsgBox ("În selecția curentă sunt" _
& Număr & "celule umplute și" & număr2 _
& „Celulele goale”, VbOKOnly, „evaluați celulele”)
Sfârșitul Sub
Macro setează funcția CountA pentru a număra numărul de celule necompletate dintr-un interval. Rezultatul salvează variabila număr. Pentru a determina numărul de celule umplute, această valoare este scăzută din numărul de celule totale examinate. Macrocomanda salvează această valoare în Numarul 2.
După pornire, codul programului determină numărul de celule umplute și goale din marcajul activ și afișează rezultatul într-o fereastră:
Dacă doriți să procesați o gamă la alegere, mai degrabă decât selecția curentă, adaptați atribuirea valorii la variabilă zonă la. Este folosit în macro cu proprietatea Selecţie conectat. Dacă în schimb doriți să definiți o gamă, înlocuiți a stabilit-Atribuirea variabilei zonă printr-o expresie de următoarea formă:
Set range = Range („A1: B5”)
Specificația intervalului se referă întotdeauna la foaia de lucru activă. Dacă doriți să abordați o altă foaie de lucru, puneți în fața GamăComandați referințele la metode Cărți de lucru și Foi fix.
