Excel - počet, ak je makro založené na viacerých kritériách

Problém

Mohol by mi niekto pomôcť s makrom založeným na viacerých kritériách. Pripojil som vzorový súbor: tu

Potrebujem počet slov "False" v rôznych rozsahoch začína od stĺpca c1 pokračuje. Makro by mi malo dať počet rôznych rozsahov v stĺpcoch C: C a zastaviť, kým v nasledujúcej bunke nie je žiadny.

Rozsahy údajov sa môžu meniť zo dňa na deň. tak chcem, aby sa makro počítalo na rozsahoch, ktoré sú prázdnymi bunkami v stĺpci C a zastavte, ak v inej bunke nie je nič.

Riešenie

Vyskúšajte toto makro:

 Subtest ()

Dim r ako rozsah, j ako celé číslo, k ako celé číslo, m ako celé číslo

Listy ( "Hárok2"). Activate

j = Bunky (Rows.Count, "C") Koniec (xlUp) .Offset (1, 0) .Row

k = j

robiť

Ak k = 1 Potom Exit Do

Ak bunky (k, "C") Offset (-2, 0) = "" Potom

Nastaviť r = bunky (k, "c") Offset (-1, 0)

inak

Nastavte r = Range (Cells (k, "C"). Offset (-1, 0), Cells (k, "c"). Offset (-1, 0) .End (xlUp))

Koniec Ak

msgbox r.Address

m = WorksheetFunction.CountIf (r, "false")

msgbox m

Bunky (k, "c") = m

Ak bunky (k, "c"). Koniec (xlUp) .Address = "$ C $ 1", potom Koniec Sub

k = Bunky (k - 1, "c") Koniec (xlUp) .Offset (-1, 0) .Row

k

slučka

End Sub

Sub undo ()

Dim r ako rozsah, c ako rozsah

Listy ( "Hárok2"). Activate

Set r = Range (Range ("C1"), Cells (Rows.Count, "C"). Koniec (xlUp))

Pre každé c In r

Ak WorksheetFunction.IsNumber (c) Potom c.Clear

Ďalej c

End Sub

Vďaka venkat1926 za tento tip na fóre.

Predchádzajúci Článok Nasledujúci Článok

Najlepšie Tipy