GoldenLine
Zaloguj się
Damian Mazur

Damian Mazur Student,
Politechnika
Świętokrzyska w
Kielcach

Temat: Exel macro lub skrypt

Witam wszystkich serdecznie.
Jestem nowicjuszem w exelu, a mam pewien problem z którym nie mogę się uporać.

W arkuszu jest 1 kolumna z 10 wierszami. W każdym z wierszy są wpisane 3 losowe cyfry z przedziału 1-10.
Nie wiem jak napisać macro, które zliczałoby ilość występowania cyfry np. "2" w tej kolumnie (nie w każdym wierszu jest cyfra "2").


Bardzo proszę o pomoc

Pozdrawiam
Link do wypowiedziLink
Bartłomiej Dąbrowski

Bartłomiej Dąbrowski
analiza/przetwarzani
e danych

Temat: Exel macro lub skrypt

na przykład funkcja LICZ.JEŻELI...
Link do wypowiedziLink

konto usunięte

Temat: Exel macro lub skrypt

tabela przestawna,
licz.jeżeli,
bd.ile.rekordów...
Link do wypowiedziLink
Mariusz Jankowski

Mariusz Jankowski Programista
Excel/VBA

Temat: Exel macro lub skrypt

Żeby nie było:
można to też zrobić SQL`em :-))
Link do wypowiedziLink
Damian Mazur

Damian Mazur Student,
Politechnika
Świętokrzyska w
Kielcach

Temat: Exel macro lub skrypt

licz.jezeli jest dobre tylko jezeli jest jedna cyfra w komorce u mnie jest 3 i ta funkcja nie dziala..

tak samo nie dziala mi funckja ile.liczb..
Link do wypowiedziLink
Bartłomiej Dąbrowski

Bartłomiej Dąbrowski
analiza/przetwarzani
e danych

Temat: Exel macro lub skrypt

zastosuj odpowiednie kryterium -> "*2*"
Link do wypowiedziLink
Ryszard G.

Ryszard G. .

Temat: Exel macro lub skrypt

Jeżeli losowe cyfry w komórce mogą się powtarzać, to dla trójek cyfr w zakresie A1:A10 i wybranej cyfry w B1
=SUMA.ILOCZYNÓW(DŁ(A1:A10)-DŁ(PODSTAW(A1:A10;B1;"")))
Link do wypowiedziLink
Damian Mazur

Damian Mazur Student,
Politechnika
Świętokrzyska w
Kielcach

Temat: Exel macro lub skrypt

funkcja licz.jeżeli z kryterium "*2*" jest dobra dla tego przykładu i bardzo dziękuję..

mam kolejny problem z większym przykładem.

1 kolumna 100 komórek(wierszy)
3 losowe cyfry/liczby (nie powtarzające się) z przedziału 1-50

Wszystko ładnie zlicza ale od 10-50.
Natomiast od 1-9 jest jakiś błąd bo wylicza mi 98 obecności "2" a tyle nie ma..

Jak to zmienić?
Link do wypowiedziLink
Bartłomiej Dąbrowski

Bartłomiej Dąbrowski
analiza/przetwarzani
e danych

Temat: Exel macro lub skrypt

nie rozumiem
zamieść przykład
Link do wypowiedziLink
Damian Mazur

Damian Mazur Student,
Politechnika
Świętokrzyska w
Kielcach

Temat: Exel macro lub skrypt

http://www.megaupload.com/?d=8LDU1G9O

tu jest ten przyklad ale na 20 komorkach zeby byl owidac jak zle liczy
Link do wypowiedziLink
Janusz K.

Janusz K. Ekspert rozwoju i
przyszłości firm,
struktur, systemów
or...

Temat: Exel macro lub skrypt

Wiadomość od moderatora

Zwracam uwagę na fakt, ze treść wątku coraz dalej ucieka od tego, co sugeruje tytuł.
Mam sugestię, aby dalszą dyskusję przenieść do już istniejącego wątku (ich lista jest w przyklejonym wątku Zanim napiszesz na forum - przeczytaj to, albo w wątku Excelo pogotowie, albo w wątku dla Początkujących fanów Excela.
Link do wypowiedziLink
Bartłomiej Dąbrowski

Bartłomiej Dąbrowski
analiza/przetwarzani
e danych

Temat: Exel macro lub skrypt

W zasadzie, to teraz problem bardziej pod makro podchodzi :)
W komórkach jest tekst, szukamy kawałka tekstu, więc aby wyodrębnić tylko "2" bez "22" i innych takich trzeba dużo cudować. Bez sensu...

Podziel sobie każdą komórkę na 3 kolumny i wtedy zliczaj wartości (a nie tekst)
Przydatne będzie "Tekst na kolumny" z separatorem -> przecinek
Link do wypowiedziLink
Damian Mazur

Damian Mazur Student,
Politechnika
Świętokrzyska w
Kielcach

Temat: Exel macro lub skrypt

Dlatego w tytule napisalem ze chodzi mi o macro :)
Ja nie mam pojecia jak to zrobic i prosze o pomoc
Link do wypowiedziLink
Piotr Kubacki

Piotr Kubacki It

Temat: Exel macro lub skrypt

Pomijając to, że dużo łatwiej by było gdyby liczby były w osobnych komórkach a nie po przecinku, to to Ci powinno pomóc( poniższy kod należy wkleić do edytora VB (alt+f11) a funkcja pojawi się jako funkcja użytkownika w arkuszu):



Function ZliczLiczby(Zakres As Range, JakaLiczba As Integer) As Integer



Dim tablica() As String

Dim IleLiczb, i As Integer



For Each cell In Zakres

   tablica() = Split(cell.Value, ",")

            For i = 0 To UBound(tablica)

                If Trim(tablica(i)) = JakaLiczba Then

                IleLiczb = IleLiczb + 1

                End If

            Next

Next cell

ZliczLiczby = IleLiczb



End Function
Piotr Kubacki edytował(a) ten post dnia 16.09.10 o godzinie 02:33
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj