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: tuPotrebujem 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.