Forum strony www.multipasko.pl [Regulamin]
| Dodaj wpis w tym temacie
Spis tematów | Strona: 1 Wyślij wiadomość do admina |
| Przewiń wpisy ↓ | Jak to zrobić w Exelu |
2012-05-12 (16:21) Mariusz9Data rejestracji: 2011-12-22 Ilość postów: 137  | wpis nr 523 733 [ CZCIONKA MONOSPACE ] 5 4 2 6 7 11 5 2 3 4 3 11 mając takie dane w kolumnie A, potrzebuje w kolumnie B mieć dane ile losowań wstecz pojawiła się każda liczba, czyli: liczba 11 pojawiła się 6 losowań temu liczba 3 pojawiła się 2 losowania temu liczba 4 pojawiła się 8 losowań temu, itd 20 18 8 21 22 27 13 11 25 33 16 33 2 9 6 17 16 9 3 29 33 7 2 5 7 19 2 4 2 31 35 24 28 22 17 7 11 24 3 2 15 8 32 30 32 5 29 8 30 8 19 21 12 8 17 10 22 29 13 23 8 16 2 25 15 19 12 30 15 35 23 1 18 4 11 21 25 14 5 2 1 2 20 3 24 28 4 5 3 13 23 28 4 24 14 13 18 2 15 2 23 20 26 34 28 35 36 16 27 14 4 19 34 30 9 9 5 20 18 32 11 3 15 15 10 31 19 22 13 4 9 36 30 32 12 33 12 17 17 31 33 15 25 5 35 4 32 20 1 33 25 11 15 20 13 26 3 18 25 36 9 23 13 16 26 26 9 10 36 5 9 1 31 5 14 7 1 35 31 8 33 24 4 4 17 35 21 13 5 18 24 8 4 11 5 21 28 1 14 27 13 27 15 30 31 32 27 30 19 26 13 20 33 28 14 12 1 14 3 24 4 10 18 25 11 11 20 17 21 9 36 10 32 4 3 18 6 35 18 4 21 14 35 29 13 35 2 13 11 16 30 2 28 9 29 32 27 1 15 21 1 15 9 1 1 9 23 5 3 32 20 15 27 7 8 3 7 6 16 7 17 30 29 16 33 30 17 9 28 16 17 35 21 16 18 29 14 20 10 6 9 24 2 31 23 5 15 24 9 4 36 35 23 33 4 9 15 21 25 14 16 22 25 23 28 25 36 11 te dane w kolumnie A mieć a w kolumna B aby pokazywała, że 11 pojawiła się 79 losowań temu liczba 36 pojawiła sie 158 losowań temu... itd do każdej liczby mieć opis ile losowań temu wypadła potrzebuje to zrobić dla danych jokera: podpowie ktoś jak to zrobić?  |
| 2012-05-12 (21:34) Mariusz9 Data rejestracji: 2011-12-22 Ilość postów: 137 | wpis nr 523 813 [ CZCIONKA MONOSPACE ] a znacie jakis program do lotka ktory zrobi cos takiego? bo ja jestem cienki w tych sprawach ;-( |
| 2012-05-12 (23:27) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656  | wpis nr 523 845 [ CZCIONKA MONOSPACE ] Witaj Pobierz sobie tu gotowe > http://speedy.sh/Mj4gK/joker.xls a tu sama procedura Sub Joker() ' ' Makro1 Makro ' Makro zarejestrowane 2012-05-12, autor leo Dim tabkiedy() As Variant maxvalue = Application.WorksheetFunction.Max(Range(Arkusz1.Cells(1, 1), Arkusz1.Cells(65536, 1))) Range(Arkusz1.Cells(1, 4), Arkusz1.Cells(maxvalue, 7)) = "" ReDim tabkiedy(maxvalue - 1, 3) ile_wpisanych = Application.WorksheetFunction.CountA(Range(Arkusz1.Cells(1, 1), Arkusz1.Cells(65536, 1))) For liczba = 1 To maxvalue kiedy = 0 jest = Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(ile_wpisanych, 1)), liczba) If jest = 0 Then GoTo 100 tabkiedy(liczba - 1, 0) = "Liczba nr: " & liczba tabkiedy(liczba - 1, 2) = "Suma wystapień : [" & jest & "]" For pozycja = ile_wpisanych To 1 Step -1 kiedy = kiedy + 1 If Cells(pozycja, 1) = liczba Then tabkiedy(liczba - 1, 1) = "Ostatnio wystapiła: [" & kiedy & "]" If Cells(pozycja, 1) = liczba Then tabkiedy(liczba - 1, 3) = kiedy If Cells(pozycja, 1) = liczba Then Exit For Next pozycja 100 Next liczba Range(Arkusz1.Cells(1, 4), Arkusz1.Cells(maxvalue, 7)) = tabkiedy Range("D1", Cells(Rows.Count, 4).End(xlUp).Offset(0, 4)).Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub |
| 2012-05-13 (11:28) Mariusz9 Data rejestracji: 2011-12-22 Ilość postów: 137 | wpis nr 523 911 [ CZCIONKA MONOSPACE ] 777ch, super o taki raporcik chciałem, jakbyś mógł jeszcze jedną rzecz dołożyć do tego makra, jeśli w komórkach kolumny A mam dane jokera, to aby każda komórka kolumny B podawała ile oczekiwała każda kula z kolumny A na swoje wypadnięcie od ostatniego wypadnięcia (kiedy ostatni raz wystąpiła ile losowań temu), tj niżej: kolumna B to odległość tylko od ostatniego wypadnięcia, jedna ostatnia przerwa, czas oczekiwania danej liczby a1= 20 to b1=0 ---zero bo od początku jeszcze nie wystąpiła kula nr 20 a2= 18 to b2=0 a3= 8 to b3=0 a4= 21 to b4=0 a5= 22 to b5=0 a6= 27 to b6=0 a7= 13 to b7=0 a8= 11 to b8=0 a9= 25 to b9=0 a10=33 to b10=0 a11=16 to b11=0 a12=33 to b12=2---> bo wystąpiła dwa losowania temu a13=2 to b13=0 a14=9 to b14=0 a15=6 to b15=0 a16=17 to b16=0 a17=16 to b17=6---> bo kula 16 wystąpiła 6 losowań temu a18=9 to b18=4---> bo kula 9 wystąpiła 4 losowania temu a19=3 to b19=0 a20=29 to b20=0 a21=33 to b21=9---> bo kula 33 wystąpiła 9 losowań temu a22=7 to b22=0 a23=2 to b23=10--> bo kula 2 wypadła 10 losowań temu a24=5 to b24=0 a25=7 to b25=3---> bo kula 7 wypadła 3 losowania temu a26=19 to b26=0 a27=2 to b27=4---> bo kula 2 wypadła 4 losowania temu a28=4 to b28=0 a29=2 to b29=2----> bo kula 2 wypadła 2 losowania ..... . . .. a235=3 to b235=16----> bo kula 3 wypadła 16 losowań temu z góry dziekuje 777ch |
| 2012-05-13 (18:05) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22656 | wpis nr 524 047 [ CZCIONKA MONOSPACE ] witaj Sorry ale jak pomagam to zazwyczaj raz , oczywiście {specjalne wymagania} też realizuję ,ale bez płacy nie ma pracy. --------------------------------------------------------------------------------------- Masz jednak tu : http://speedy.sh/J8ekY/joker-mapa.xls zrobione ,inaczej jak chciałeś ,bo pomysł szukania w kolumnie [B] odległości z jaką padła liczba jest moim zdaniem chybiony ,dlatego w arkuszu2 , utworzy się równocześnie mapa {wszystkich przerw z jakimi wystąpiły liczby } >>liczby wpisane do arkusza1. kolumna[A]. >>Nie uruchamiaj tego drugiego makra osobno, chyba że podczyszczone zostaną dane wynikowe makra1 czyli [D:G] pozdrawiam |
| 2012-06-03 (20:18) marek33 Data rejestracji: 2011-02-19 Ilość postów: 1659  | wpis nr 530 417 [ CZCIONKA MONOSPACE ] o co ci tu chodzi |
| | Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 Wyślij wiadomość do admina |