Witam B) Jak zrobić aby w Excelu np. po wpisaniu do komórki A1 tekstu "babcia" w innej komórce np B1 zostało wyswietlone ile razy występuje litera "A". Czy jest jakas taka funkcja? Proszę o odpowiedź, jutro mam konkurs :( Pozdrowienia ;)
Makro napisałem przed chwilą i pozwalam Ci je wykorzystać. Uruchom Exel i utwórz Makro z podanym niżej kodem. Działanie: W komórkę A1 wpisujesz wyraz, w komórkę B1 wpisujesz literę, której częstość wystapienia w wyrazie z komórki A1 pokaże się w komórce C1 po uruchomieniu Makra. Kod w Visual Basic for Applications Sub Oblicz()
Litera = Range("B1").Value
Wyraz = Range("A1").Value
Ilośćliter = Len(Wyraz)
For i = 1 To Ilośćliter
If Mid(Wyraz, i, 1) = Litera Then
Range("C1").Value = Range("C1").Value + 1
Else
End If
Next i
End Sub
Jeżeli chcemy korzystać z tego jak z funkcji Exela to należy zrobić tak: Exel->Narzędzia->Makro->Edytor Visual Basic->Insert->Module Z prawej strony wpisujemy kod: Function ILERAZY(Wyraz,Litera)
IlośćLiter=Len(Wyraz)
For i = 1 to IlośćLiter
If Mid(Wyraz,i,1)=Litera Then
ILERAZY=ILERAZY+1
Else
End If
Next i
End Function Zamknąć edytor i można korzystać jak z każdej innej funkcji. Wstaw->Funkcja - wybieramy Wszystkie->znajdujemy ILERAZY i podajemy argumenty (adresy komórek "Wyrazu" i "Litery". Użytkownik Krzysztof1967 edytował ten post 27 październik 2005, 11:09
Funkcja ta się nazywa LICZ.JEŻELI Naprzykład: =LICZ.JEŻELI(zakres;tekst szukany)
Funkcja ta się nazywa LICZ.JEŻELI Naprzykład: =LICZ.JEŻELI(zakres;tekst szukany)
Byś mnie poprawił a nie tylko napiszesz "Mylisz się i to bardzo."
=LICZ.JEŻELI(zakres;tekst szukany) w tym to nie tyle co "tekst szukany" tylko co wpisać tekst do zliczania tak wyglada ta funkcja w Excelu(oczywiscie obrazowo tekst i zakres jest przykładowy): =LICZ.JEŻELI(A10:A58;babcia)
---EDYCJA--- Wszystko dementuje co napisałem powyżej. Przez moje nieczytanie popełniłem bład. Z Krzyskiem już wszystko sprawe mojego blefu rozpatrzylismy na privie:D Pozdro Użytkownik Doniu1 edytował ten post 26 październik 2005, 23:23
zanotowane.pldoc.pisz.plpdf.pisz.plmilosnikstop.keep.pl
|