Temat: wyszukiwanie i zliczanie cyfry zero

Witam,
Bardzo proszę o pomoc w znalezieniu i napisaniu 5 formuł dla 5 komórek

W kolumnie np. A będę miał losowo wybrane liczby od 0-6.

Może podam przykład:
W kolumnie A znajdują się kolejno liczby np.: 2 1 0 0 3 4 0 1 0 0 0 0 2 4 1 0 0 0 5 5 6 2 3 3 0 0 0 0 1 4 0 0 1 0 5 0

1) Szukam formuły, która sprawdzi max. wartość powtórzeń zera (ile razy wystąpiło po sobie zero). W naszym przypadku 4

2) ten sam przypadek, ale ile razy powtórzyła się min. wartość. W naszym przypadku 1

3) formuła niech przeszuka kolumnę od góry do dołu i zwróci wartość, ile jest powtórzeń zera przy pierwszym napotkanym. W naszym przypadku 2

4) formuła niech sprawdzi po ilu max. liczbach trafia się zero. W naszym przypadku to liczby 5 5 6 2 3 3 czyli odp. 6

5) jeżeli zero lub zera występują na początku kolumny, to ile razy się powtarza. W naszym przypadku nie występuje więc 0, ale trzeba rozważyć, gdyby występowało.

P.S Wiem, że trochę to zawiłe, ale może komuś uda się rozwiązać te przypadki.Ten post został edytowany przez Autora dnia 19.11.14 o godzinie 09:15

Temat: wyszukiwanie i zliczanie cyfry zero

Witam,
jak mi się wydaje formułkami będzie ciężko... Natomiast problem 1 rozwiązuję w miarę prosty kod VBA:

Sub aaa()

Dim a&, i&, j&, licznik&, amax&



a = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To a - 1

  If Cells(i, 1).Value = 0 Then

     licznik = 1

     For j = i + 1 To a

       If Cells(j, 1).Value = 0 Then

          licznik = licznik + 1

       Else

          Exit For

       End If

     Next j

     If licznik > amax Then amax = licznik

  End If

Next i



MsgBox amax

End Sub

Pozdrawiam.

Temat: wyszukiwanie i zliczanie cyfry zero

Wymyśliłem nowy sposób (formułkowy) dla 1, ale z wykorzystaniem pomocniczej funkcji użytkownika (VBA):

Function polacz(x As Range)

Dim kom As Range



For Each kom In x

   w = w & kom.Value

Next kom

polacz = w

End Function

Wtedy wystarczy taka formułka tablicowa (dane mamy w zakresie A1:A11):

=MAX(JEŻELI(CZY.BŁĄD(ZNAJDŹ(POWT(0;WIERSZ(A1:A11));polacz(A1:A11)));0;WIERSZ(A1:A11)))

Pozdrawiam.Ten post został edytowany przez Autora dnia 19.11.14 o godzinie 13:40