Kā pārbaudīt šūnas ar makro
Vai vēlaties novērtēt šūnas un noteikt, cik šūnas ir aizpildītas diapazonā un cik nē? Nākamajā attēlā parādīts piemērs:
A1: B7 marķieris satur dažas tukšas šūnas un dažas aizpildītas šūnas. Ja vēlaties to novērtēt makro, varat izmantot šādu programmas kodu:
ApakšskaitiFilledCells ()
Dim numurs tikpat garš
Dim numurs2 tikpat garš
Dim apgabals kā diapazons
Aptumšot kā virkni
Iestatīt apgabalu = Atlase
Skaitlis = lietojumprogramma. SkaitsA (apgabals)
Skaits2 = apgabals. Šūnas. Skaits - skaitlis
a = MsgBox ("Pašreizējā atlasē ir" _
& Skaitlis & "šūnas ir aizpildītas un & numurs 2 _
& "Šūnas tukšas.", VbOKTikai "novērtēt šūnas")
Beigt apakš
Makro nosaka funkciju CountA lai saskaitītu tukšu šūnu skaitu diapazonā. Rezultāts saglabā mainīgo numurs. Lai noteiktu aizpildīto šūnu skaitu, šī vērtība tiek atņemta no kopējo pārbaudīto šūnu skaita. Makro saglabā šo vērtību Skaitlis2.
Pēc sākuma programmas kods nosaka aizpildīto un tukšo šūnu skaitu aktīvajā marķējumā un parāda rezultātu logā:
Ja vēlaties apstrādāt jūsu izvēlēto diapazonu, nevis pašreizējo izvēli, pielāgojiet vērtību piešķiršanu mainīgajam apgabalā plkst. Tas tiek izmantots makro kopā ar īpašumu Atlase savienots. Ja vēlaties diapazonu definēt pats, nomainiet komplekts-Piesaistīšana mainīgajam apgabalā ar šādas formas izteiksmi:
Iestatīt diapazonu = Diapazons ("A1: B5")
Diapazona specifikācija vienmēr attiecas uz aktīvo darblapu. Ja vēlaties pievērsties citai darblapai, ievietojiet tās priekšā DiapazonsKomandējiet atsauces uz metodēm Darba burtnīcas un Loksnes fiksēts.
