Matematické Fórum

↑ massbox:

Funkci =COUNTIF(oblast;kritérium) nelze použít?

↑ massbox:

Nutno si upřesnit, o co jde. Vašemu dotazu rozumím takto:

Ve vymezené oblasti jednoho řádku excelovského listu máte uvedena čísla 0 nebo 1 (žádná jiná čísla ani jiné hodnoty, nevyplněné buňky a pod.).
Chcete zjistit, max. počet za sebou jdoucích nul, tento vložit do určené buňky.

Rozumím dobře tomu, že ve Vámi uvedeném příkladě by se do jedné z určených buněk (A) uložilo číslo 3 jako maximální počet za sebou jdoucích nul?

001100111001010111000111101110

A co ukládat do druhé určené buňky (B) - v dotazu uvádíte, že vlastně totéž.

V jaké verzi Excelu pracujete?

Teď se mi zdá, že COUNTIF na to asi vhodná nebude, ale něco vymyslíme. Případně mi můžete poslat mailem sešit Excelu, kde byste řádek "vzorově" vyplnil.

↑ massbox:

Taky mám Excel 2007. Pouvažuji o tom a podle Vašeho popisu zkusím zpracovat v sešitu Excel, který bych Vám dnes nebo zítra poslal mailem. Myslím, že tak se dá nejrychleji upřesnit, co by Vám mohlo vyhovovat.

Zdravím
Ano, COUNTIF se použít nedá. Bude nutné vytvořit novou uživatelskou funkci pomocí VBA.

Šlo by to zhruba takto:
Přes Alt+F11 najet do vývojové aplikace VBA, tam v menu přes insert vložit nový Modul a do modulu překopírovat následující funkci. Když je funkce deklarována jako Public, lze ji pak používat normálně v Listu, jako kteroukoliv jinou fci. Použití je jednoduché =pocet_opakovani(1;C1:I1) - pocet_opakovani(číslo, které má hledat (0-255);oblast, kde má hledat)
Vyzkoušeno v Excelu 2010, ve funkci se nekontrolují vstupy, neošetřují se chyby (přetečení apod.)

Public Function POCET_OPAKOVANI(znak As Byte, oblast As Range) As Integer
Dim max As Integer
Dim aktpocet As Integer
Dim bunka As Range

max = 0
aktpocet = 0

For Each bunka In oblast
    If bunka.Value = "" Then Exit For
    If CByte(bunka.Value) = znak Then
        aktpocet = aktpocet + 1
    Else
        If aktpocet > max Then max = aktpocet
        aktpocet = 0
    End If
Next bunka
If aktpocet > max Then max = aktpocet
POCET_OPAKOVANI = max
End Function

EDIT: opravil jsem logickou chybu v kódu

↑ Jj:Zdravim,takze vosiel som cez insert do MOdul,vyhodilo mi modul 2 a tam som to skopiroval ten cely code co tam ste napisal,ale neviem ci spravne a kde to uvidim,pod akou funkciou,nie som az tak dobry v tychto veciach.

Nechce mi to nejako najst tu funkciu,kopirujem to do Module alebo Class Module.

↑ rleg:Takze funkciu mi to uz naslo,len stale tam niekde mam chybu. pri hociakom pocte nul,mi v bunke A ukazuje stale nulu,nepocita ich.