Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 178 179 180 ... 554 555 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | moje ... oprogramowanie |
2018-01-14 (13:46)![]() Data rejestracji: 2007-04-03 Ilość postów: 41774 ![]() | wpis nr 1 138 974 [ CZCIONKA MONOSPACE ] 2018-01-14 (13:14) status fair_play Data rejestracji: 2016-05-12 Ilość postów: 1435 14865 wpis nr 1 138 957 777ch> Tak, o coś takiego jak procedurę dla warunków z wpisu nr 1 138 946 mi chodzi. Wczoraj napisałeś, że publikowałeś to lata temu, a ja jestem na forum pól roku ........................... fair_play>> nie bądź taki skromny z tym swoim stażem na forum: status fair_play Data rejestracji: 2016-05-12 a to jest "trochę" dłużej niż pół roku ![]() |
2018-01-14 (13:51)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 138 976 [ CZCIONKA MONOSPACE ] fair_play>> sprawdź kolumna [cd] warunek minimum kolumna [cf] warunek maximum przykład opisu ------------------------------------- Sub nazwij_system() ' ' nazwij_system Makro ' Makro zarejestrowane 2016-05-10, autor 777ch ' Dim n As String ileliczb = Application.WorksheetFunction.max(Arkusz2.Range("A:AP")) ilestref = Application.WorksheetFunction.CountA(Arkusz2.Range("A:A")) Arkusz2.Cells(3, 94) = " Abbreviated zone wheel, numbers[" & ileliczb & "], Zone[" & ilestref & "]" Arkusz2.Cells(4, 94) = "System strefowy liczb[" & ileliczb & "], stref[" & ilestref & "]" Range(Arkusz2.Cells(6, 94), Arkusz2.Cells(65536, 94)) = "" For strlicz = 1 To ilestref n = "" For kolejna = 1 To Application.WorksheetFunction.CountA(Range(Arkusz2.Cells(strlicz, 1), Arkusz2.Cells(strlicz, 40))) ' nie wpisuję więcej >40 liczb ,ale można tu zwiekszyć n = n & Arkusz2.Cells(strlicz, kolejna) & "#" Next kolejna Arkusz2.Cells(5 + strlicz, 94) = "Zone " & strlicz & ": #" & n & "... Min= " & Arkusz2.Cells(strlicz, 82).Value & " | Max= " & Arkusz2.Cells(strlicz, 84).Value Next strlicz End Sub --------------------------- System strefowy liczb[12], stref[8] Zone 1: #1#2#3#... Min= 0 | Max= 1 Zone 2: #4#5#6#... Min= 0 | Max= 1 Zone 3: #7#8#9#... Min= 0 | Max= 1 Zone 4: #10#11#12#... Min= 0 | Max= 1 Zone 5: #1#4#7#10#... Min= 0 | Max= 2 Zone 6: #2#5#8#11#... Min= 0 | Max= 2 Zone 7: #3#6#9#12#... Min= 0 | Max= 2 Zone 8: #1#5#... Min= 2 | Max= 2 czas obliczen 495 kombinacji z zakresu 1 ~ 12 = 00:00:00,02 sec. pozostało 7 kombinacji wynik z pliku 1 5 7 11 1 5 7 12 1 5 8 10 1 5 8 12 1 5 9 10 1 5 9 11 1 5 9 12 --- wpis edytowano 2018-01-14 13:52 --- |
2018-01-14 (14:13)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 138 983 [ CZCIONKA MONOSPACE ] 777ch, skoro już jesteśmy przy systemach strefowych, to z taką niesmiałością przypomnę swój post : cyt."777ch, pytanie Vidmo o rozkład wypłat w systemie 5-strefowym : System strefowy liczb[15], stref[5],po [3]-liczby w strefie system = 243 kombinacji 1.2.3......1~1 4.5.6......1~1 7.8.9......1~1 10.11.12......1~1 13.14.15......1~1 podsunęło mi pomysł na powstanie "sprawdzarki" rozkładu wypłat za trafienie w systemach strefowych. Modyfikacja makra "all_moglich...X" polegała by (chyba) na tym, aby makro sprawdzało rozkład wypłat, nie we wszystkich możliwych kombinacjach dla danej ilości liczb w kombinacji, a z pliku np. leo5.txt utworzonym makrem ELIMIN5, a więc plikiem zawierającym 243 kombinacje. Nie wiem czy dobrze rozumuję, ale da się coś takiego zrobić ? Co o tym sądzisz ? " Na co Ty odpowiedziałeś : cyt. "przy trafieniu wszystkich warunków stref...... faktycznie nie ma wiedzy ,ile dokładnie w pln wyjdzie wiadomo to co gwarantowane ,ale nie wiadomo ile dokładnie ..... pomyślę " Męczy mnie ten pomysł. Oczywiście kwoty wypłat z systemu, mogę zobaczyć uruchamiając makro "moglich...X", ale procentowy rozkład wypłat będzie zupełnie inny z racii mniejszej ilości wszystkich możliwych kombinacji dla stref, od systemu pełnego dla zestawu "X z Y". Po prostu chciałbym sprawdzić, czy dla systemów strefowych, też można mieć np. 300% zysku przy trafieniu liczb np. w 5 strefach, przy 10 strefach ogółem. Jeżeli to wg. Ciebie za dużo roboty, albo po prostu nie masz czasu lub Ci się nie chce, to zostaw to. Wszak przysłowie mówi, że ciekawość, to pierwszy stopień do piekła ![]() |
2018-01-14 (14:18)![]() Data rejestracji: 2016-05-12 Ilość postów: 8706 ![]() | wpis nr 1 138 986 [ CZCIONKA MONOSPACE ] edi8> Jak już pisałem wcześniej, wczoraj się osłabiałem i dziś jeszcze mi się paluchy na klawiaturze plączą ![]() Po prostu przy tym "pół" spadło mi gdzieś "tora" ![]() |
2018-01-14 (14:27)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 138 992 [ CZCIONKA MONOSPACE ] Po prostu chciałbym sprawdzić, czy dla systemów strefowych, też można mieć np. 300% zysku przy trafieniu liczb np. w 5 strefach, przy 10 strefach ogółem. Jeżeli to wg. Ciebie za dużo roboty, albo po prostu nie masz czasu lub Ci się nie chce, to zostaw to. ---------------------------------------------------------------------------------- Kleszek> jak tylko przyjdzie "melodia" to siądę i to zrobię to jest tylko : sprawdzanie coveru do pliku , albo tablicy >wszystkich możliwych kombinacji wynikających z założeń warunków stref bardzo proste ,to tak jakbyś zamiast losowań wczytał wszystkie możliwe kombinacje wynikaje z założeń warunków stref |
2018-01-14 (14:33)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 138 995 [ CZCIONKA MONOSPACE ] cyt. "to tak jakbyś zamiast losowań wczytał wszystkie możliwe kombinacje wynikaje z założeń warunków stref" Dokładnie. Sprawdzenie rozpisu w relacji do pliku np. Leo5.txt, który mogę sobie wygenerować makrem Elimin5 |
2018-01-14 (15:03)![]() Data rejestracji: 2016-05-12 Ilość postów: 8706 ![]() | wpis nr 1 139 010 [ CZCIONKA MONOSPACE ] 777ch> No wypisuje prawidłowo, ale co dalej ? Bo jak pytałem w swoim pierwszym w tej kwestii wpisie: "Masz jakiś pomysł na procedurę tworzącą listę wszystkich kombinacji dla rozpisu strefowego, przy różnej ilości liczb w strefach (dla max=1), z parametrami ilość stref i ilość liczb w poszczególnych strefach ? " Uzupełniając powyższe także dla różnych (min/max) Chodzi mi właśnie o procedurę tworzącą te wszystkie możliwe kombinacje. Ale chyba o to samo pyta kleszek, więc raczej jeszcze jej nie masz ![]() --- wpis edytowano 2018-01-14 15:06 --- |
2018-01-14 (15:04)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 139 012 [ CZCIONKA MONOSPACE ] Dokładnie tylko warto by zrobić to tak najpierw wczytanie ,a właściwie wybranie pliku przez okno dialogowe a potem dalsze procedury które juz odwołaja sie do tablicy do której wpadły dane z pliku czyli sprawdzanie ,albo może lepiej jakiś retusz poprzez próbę podmiany każdej kombinacji lub inne rozwiązania np podmianę 1 liczby |
2018-01-14 (15:13)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 139 014 [ CZCIONKA MONOSPACE ] Chodzi mi właśnie o procedurę tworzącą te wszystkie możliwe kombinacje. ------------------------------------- te wszystkie możliwe , to te jakie są do pliku zapisane. |
2018-01-14 (15:33)![]() Data rejestracji: 2016-05-12 Ilość postów: 8706 ![]() | wpis nr 1 139 022 [ CZCIONKA MONOSPACE ] 777ch> Nie wiem czy nie wyrażam się precyzyjnie ? Albo Ty stosujesz zbyt duże skróty myślowe ![]() Pytam o procedurę która TWORZY tablicę ze wszystkimi możliwymi dla zadanych warunków kombinacjami. Co ona później z nimi robi, zapisuje do pliku, czy wyrzuca na ekran to już nieistotne. W swoim wpisie 1 138 843 zamieściłeś wydruk w którym: "system = 987 kombinacji [4]-skreśleń" Właśnie chodzi mi o procedurę tworzącą tablicę z tymi 987 kombinacjami. |
2018-01-14 (16:09)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 139 039 [ CZCIONKA MONOSPACE ] wystarczy opcja dla Modułu jak poniżej Option Explicit Dim tabalmog() As Variant 'no i trzeba dołożyć inne zmienne ...... dim a,b,c,d,e,f,g,h 'itd czyli to czego brak..... 'a do procedury eliminator dodasz zapis do tablicy np: 'w miejscu gdzie trafia nadpis do pliku....... tabalmog(k-1, l1) = 1 tabalmog(k-1, l2) = 1 tabalmog(k-1, l3) = 1 tabalmog(k-1, l4) = 1 tabalmog(k-1, l5) = 1 albo tabalmog(k-1, 0) = l1 tabalmog(k-1, 1) = l2 tabalmog(k-1, 2) = l3 itd ..... i już masz w tablicy dane........ oczywiście w elimin4 albo elimin5 trzeba dodać redim tabalmog(komb-1, skresleń-1)........ czyli dla zapisu l1,l2,l3 itd albo redim tabalmog(komb-1, liczb-1)........ czyli rozmiar dl tablicy liczb dla odnotowania liczby pod L1 ,L2,L3 ITD ...jako 0,1 --- wpis edytowano 2018-01-14 16:22 --- |
2018-01-14 (16:35)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 139 042 [ CZCIONKA MONOSPACE ] Option Explicit Dim j As Integer Dim vsyst, V, BR2, spr, NN, f, gwr, q As Long Dim trf3, trf, norma As Byte Dim bestmam As Variant Dim hit As Variant Dim tabwyn() As Variant Dim tabsyst() As Long Dim TABSYSTEM2() As Long Dim tabkomb() As Long Sub ELIMIN4() ' ' TABLICA_ELIMINATOR Makro Dim vlos As Long Dim tabgps() As Long Dim tabwyn() As Variant Dim Liczba_STARTOWA As Byte, Liczba_KOnCOWA, LICZBA As Byte Dim komb, oczekiwanie, idea As Long Dim l1 As Byte, l2 As Byte, l3 As Byte, l4 As Byte, l5, l6 As Byte Dim fs, a, ab Dim spr As Long, TR As Byte Dim tabwar() As Variant Dim tabwar2() As Variant Dim stoper As Date, czas As String Dim k, LOS As Long Dim big1, big2, big3, big4, big5, big6 As Byte ReDim tabsyst(500000, 0) ReDim tabkomb(500000, 4) Arkusz2.Cells(1, 86) = "" 'DANE LOSOWAn GPS Liczba_STARTOWA = Application.WorksheetFunction.Min(Range("A1:CB65536")) Liczba_KOnCOWA = Application.WorksheetFunction.Max(Range("A1:CB65536")) vlos = Application.WorksheetFunction.CountA(Range("A1:A65536")) If vlos = 0 Then GoTo 100 tabwyn = Range(Arkusz2.Cells(1, 1), Arkusz2.Cells(vlos, 80)).Value tabwar = Range(Arkusz2.Cells(1, 82), Arkusz2.Cells(vlos + 1, 82)).Value tabwar2 = Range(Arkusz2.Cells(1, 84), Arkusz2.Cells(vlos + 1, 84)).Value stoper = Timer ReDim tabgps(vlos, 80) For LOS = 1 To vlos For LICZBA = 1 To 80 tabgps(LOS, tabwyn(LOS, LICZBA)) = tabwyn(LOS, LICZBA) If tabgps(LOS, tabwyn(LOS, LICZBA)) >= 1 Then tabgps(LOS, tabwyn(LOS, LICZBA)) = 1 Next LICZBA Next LOS 'WPISANO DANE do tablicy losowan GPS ReDim tabsyst(500000, 49) big1 = 1 big2 = 2 big3 = 3 big4 = 4 Range("cg:cg") = "" Arkusz2.Cells(1, 86) = " Tablica = " & vlos & " warunków" & _ " Obliczanie kombinacji mieszczących sie w normach w TOKU !!! " Arkusz2.Cells(1, 86).Font.ColorIndex = 2 komb = 0 k = 0 For l1 = Liczba_STARTOWA To Liczba_KOnCOWA - 3 For l2 = l1 + 1 To Liczba_KOnCOWA - 2 For l3 = l2 + 1 To Liczba_KOnCOWA - 1 For l4 = l3 + 1 To Liczba_KOnCOWA komb = komb + 1 idea = 0 For spr = 1 To vlos TR = 0 TR = tabgps(spr, l1) + tabgps(spr, l2) + tabgps(spr, l3) + tabgps(spr, l4) If TR < tabwar(spr, 1) Then GoTo 100 If TR > tabwar2(spr, 1) Then GoTo 100 Next spr k = k + 1 vsyst = k tabsyst(k, l1) = 1 tabsyst(k, l2) = 1 tabsyst(k, l3) = 1 tabsyst(k, l4) = 1 tabkomb(k, 1) = l1 tabkomb(k, 2) = l2 tabkomb(k, 3) = l3 tabkomb(k, 4) = l4 If big1 < l1 Then big1 = l1 If big2 < l2 Then big2 = l2 If big3 < l3 Then big3 = l3 If big4 < l4 Then big4 = l4 'arkusz2.Cells(1, 86).Font.ColorIndex = l4 Arkusz2.Cells(1, 86) = " Tablica = " & vlos & " warunków" & _ " Obliczanie zawierających się w normach kombinacji w TOKU !!! " & " " & komb & " / " & k 100 Next l4 Next l3 Next l2 Next l1 czas = Format(Timer - stoper, " 00:00:00.00") & " sec." Arkusz2.Cells(1, 86) = " czas obliczen " & komb & " kombinacji z zakresu " & Liczba_STARTOWA & " ~ " & Liczba_KOnCOWA & " = " & czas & " pozostalo " & k & " kombinacji" Arkusz2.Cells(5, 94) = "system = " & k & " kombinacji [4]-skreśleń" Arkusz2.Cells(5, 95) = k Arkusz2.Cells(1, 85) = big1 Arkusz2.Cells(2, 85) = big2 Arkusz2.Cells(3, 85) = big3 Arkusz2.Cells(4, 85) = big4 Arkusz1.Select 'czyli zmieniamy zakładkę w której uruchomimy np sprawdzanie,albo budowanie coveru End Sub no i masz w tablicy ![]() jak nie wystarczy ReDim tabsyst(500000, 0) ReDim tabkomb(500000, 4) czyli 500000 to zwiększ ........ |
2018-01-14 (18:10)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 139 052 [ CZCIONKA MONOSPACE ] najprościej zerknąć na gotowca więc proszę --------------------------- Nazwa pliku: test fairplay.xls Rozmiar pliku: 971 KB Adres do pliku: http://uploadfile.pl/pokaz/1328984---pc1k.html ponieważ miałem to już w tablicach robione,więc wyciąłem co trzeba parę zmiennych nieużywanych w tym gotowcu zostało |
2018-01-14 (18:33)![]() Data rejestracji: 2016-05-12 Ilość postów: 8706 ![]() | wpis nr 1 139 063 [ CZCIONKA MONOSPACE ] 777ch> Czyli było tak jak myślałem ![]() Rozmawialiście z kleszkiem o czymś czego nie miałem (żadnego eliminatora). Właśnie wróciłem ze spotkania z WOŚP i teraz widzę, że mam w co zajrzeć ![]() Dziękuję |
2018-01-14 (18:36)![]() Data rejestracji: 2006-05-27 Ilość postów: 4979 ![]() | wpis nr 1 139 064 [ CZCIONKA MONOSPACE ] fair_play, niezupełnie o tym rozmawialiśmy, choć przedmiotem mojej prośby do 777ch, było (jest) coś, co pośrednio jest związane z eliminatorem ![]() |
2018-01-14 (18:52)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 139 075 [ CZCIONKA MONOSPACE ] "....i wespół w zespół by żądz moc móc wzmóc.." to z kabaretu starszych panów..... ja i kleszek, powoli wpadamy w ten > trend... |
2018-01-14 (19:00)![]() Data rejestracji: 2016-05-12 Ilość postów: 8706 ![]() | wpis nr 1 139 076 [ CZCIONKA MONOSPACE ] Nie będę się z Wami licytował bo i tak bym wygrał, a to nie byłoby fair ![]() P.S. Kiedyś spotkałem się in person z Panem Jeremim i Panią Ireną (tą co to żadnej pracy się nie bała). ![]() |
2018-01-14 (19:01)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 139 077 [ CZCIONKA MONOSPACE ] wypis z tablic tylko dla sprawdzenia chodzi o to aby teraz przejść dalej czyli "pracując na tablicach" wykonać inne obliczenia jakie chcecie,ale ja już po kilku drinkach,więc raczej nie dziś choć umysł mam trzeźwy..... jak zawsze ![]() fair_play> no to Ci nie zazdroszczę, jesli chodzi o wiek..... bo jak wiadomo gdzieś jest ten....koniec balu. --- wpis edytowano 2018-01-14 19:03 --- |
2018-01-14 (19:22)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 139 083 [ CZCIONKA MONOSPACE ] Tablica = 5 warunków Obliczanie kombinacji mieszczących sie w normach w TOKU !!! czas obliczen 1581580 kombinacji z zakresu 1 ~ 80 = 00:00:03,38 sec. pozostalo 1546298 kombinacji system = 1546298 kombinacji [4]-skreśleń 1546298 kombinacj więc podniosłem dla tablic rozmiar ReDim tabsyst(2000000, 80) ReDim tabkomb(2000000, 4) tak poprawiłem wystarczy dla [80] liczb dla czwórek no ale ..... niestety tablice dla 5,6,7,8 to już albo po kawałku albo wcale bo na raz nie da rady.... --- wpis edytowano 2018-01-14 19:24 --- |
2018-01-14 (19:45)![]() Data rejestracji: 2005-11-07 Ilość postów: 22656 ![]() | wpis nr 1 139 089 [ CZCIONKA MONOSPACE ] zastosowanie w praktyce System strefowy liczb[80], stref[115] Zone 1: #1#2#3#4#5#6#... Min= 0 | Max= 1 Zone 2: #2#3#4#5#6#7#... Min= 0 | Max= 1 Zone 3: #3#4#5#6#7#8#... Min= 0 | Max= 1 Zone 4: #4#5#6#7#8#9#... Min= 0 | Max= 1 Zone 5: #5#6#7#8#9#10#... Min= 0 | Max= 1 Zone 6: #6#7#8#9#10#11#... Min= 0 | Max= 1 Zone 7: #7#8#9#10#11#12#... Min= 0 | Max= 1 Zone 8: #8#9#10#11#12#13#... Min= 0 | Max= 1 Zone 9: #9#10#11#12#13#14#... Min= 0 | Max= 1 Zone 10: #10#11#12#13#14#15#... Min= 0 | Max= 1 Zone 11: #11#12#13#14#15#16#... Min= 0 | Max= 1 Zone 12: #12#13#14#15#16#17#... Min= 0 | Max= 1 Zone 13: #13#14#15#16#17#18#... Min= 0 | Max= 1 Zone 14: #14#15#16#17#18#19#... Min= 0 | Max= 1 Zone 15: #15#16#17#18#19#20#... Min= 0 | Max= 1 Zone 16: #16#17#18#19#20#21#... Min= 0 | Max= 1 Zone 17: #17#18#19#20#21#22#... Min= 0 | Max= 1 Zone 18: #18#19#20#21#22#23#... Min= 0 | Max= 1 Zone 19: #19#20#21#22#23#24#... Min= 0 | Max= 1 Zone 20: #20#21#22#23#24#25#... Min= 0 | Max= 1 Zone 21: #21#22#23#24#25#26#... Min= 0 | Max= 1 Zone 22: #22#23#24#25#26#27#... Min= 0 | Max= 1 Zone 23: #23#24#25#26#27#28#... Min= 0 | Max= 1 Zone 24: #24#25#26#27#28#29#... Min= 0 | Max= 1 Zone 25: #25#26#27#28#29#30#... Min= 0 | Max= 1 Zone 26: #26#27#28#29#30#31#... Min= 0 | Max= 1 Zone 27: #27#28#29#30#31#32#... Min= 0 | Max= 1 Zone 28: #28#29#30#31#32#33#... Min= 0 | Max= 1 Zone 29: #29#30#31#32#33#34#... Min= 0 | Max= 1 Zone 30: #30#31#32#33#34#35#... Min= 0 | Max= 1 Zone 31: #31#32#33#34#35#36#... Min= 0 | Max= 1 Zone 32: #32#33#34#35#36#37#... Min= 0 | Max= 1 Zone 33: #33#34#35#36#37#38#... Min= 0 | Max= 1 Zone 34: #34#35#36#37#38#39#... Min= 0 | Max= 1 Zone 35: #35#36#37#38#39#40#... Min= 0 | Max= 1 Zone 36: #36#37#38#39#40#41#... Min= 0 | Max= 1 Zone 37: #37#38#39#40#41#42#... Min= 0 | Max= 1 Zone 38: #38#39#40#41#42#43#... Min= 0 | Max= 1 Zone 39: #39#40#41#42#43#44#... Min= 0 | Max= 1 Zone 40: #40#41#42#43#44#45#... Min= 0 | Max= 1 Zone 41: #41#42#43#44#45#46#... Min= 0 | Max= 1 Zone 42: #42#43#44#45#46#47#... Min= 0 | Max= 1 Zone 43: #43#44#45#46#47#48#... Min= 0 | Max= 1 Zone 44: #44#45#46#47#48#49#... Min= 0 | Max= 1 Zone 45: #45#46#47#48#49#50#... Min= 0 | Max= 1 Zone 46: #46#47#48#49#50#51#... Min= 0 | Max= 1 Zone 47: #47#48#49#50#51#52#... Min= 0 | Max= 1 Zone 48: #48#49#50#51#52#53#... Min= 0 | Max= 1 Zone 49: #49#50#51#52#53#54#... Min= 0 | Max= 1 Zone 50: #50#51#52#53#54#55#... Min= 0 | Max= 1 Zone 51: #51#52#53#54#55#56#... Min= 0 | Max= 1 Zone 52: #52#53#54#55#56#57#... Min= 0 | Max= 1 Zone 53: #53#54#55#56#57#58#... Min= 0 | Max= 1 Zone 54: #54#55#56#57#58#59#... Min= 0 | Max= 1 Zone 55: #55#56#57#58#59#60#... Min= 0 | Max= 1 Zone 56: #56#57#58#59#60#61#... Min= 0 | Max= 1 Zone 57: #57#58#59#60#61#62#... Min= 0 | Max= 1 Zone 58: #58#59#60#61#62#63#... Min= 0 | Max= 1 Zone 59: #59#60#61#62#63#64#... Min= 0 | Max= 1 Zone 60: #60#61#62#63#64#65#... Min= 0 | Max= 1 Zone 61: #61#62#63#64#65#66#... Min= 0 | Max= 1 Zone 62: #62#63#64#65#66#67#... Min= 0 | Max= 1 Zone 63: #63#64#65#66#67#68#... Min= 0 | Max= 1 Zone 64: #64#65#66#67#68#69#... Min= 0 | Max= 1 Zone 65: #65#66#67#68#69#70#... Min= 0 | Max= 1 Zone 66: #66#67#68#69#70#71#... Min= 0 | Max= 1 Zone 67: #67#68#69#70#71#72#... Min= 0 | Max= 1 Zone 68: #68#69#70#71#72#73#... Min= 0 | Max= 1 Zone 69: #69#70#71#72#73#74#... Min= 0 | Max= 1 Zone 70: #70#71#72#73#74#75#... Min= 0 | Max= 1 Zone 71: #71#72#73#74#75#76#... Min= 0 | Max= 1 Zone 72: #72#73#74#75#76#77#... Min= 0 | Max= 1 Zone 73: #73#74#75#76#77#78#... Min= 0 | Max= 1 Zone 74: #74#75#76#77#78#79#... Min= 0 | Max= 1 Zone 75: #75#76#77#78#79#80#... Min= 0 | Max= 1 Zone 76: #1#11#21#31#41#51#61#71#... Min= 0 | Max= 1 Zone 77: #2#12#22#32#42#52#62#72#... Min= 0 | Max= 1 Zone 78: #3#13#23#33#43#53#63#73#... Min= 0 | Max= 1 Zone 79: #4#14#24#34#44#54#64#74#... Min= 0 | Max= 1 Zone 80: #5#15#25#35#45#55#65#75#... Min= 0 | Max= 1 Zone 81: #6#16#26#36#46#56#66#76#... Min= 0 | Max= 1 Zone 82: #7#17#27#37#47#57#67#77#... Min= 0 | Max= 1 Zone 83: #8#18#28#38#48#58#68#78#... Min= 0 | Max= 1 Zone 84: #9#19#29#39#49#59#69#79#... Min= 0 | Max= 1 Zone 85: #10#20#30#40#50#60#70#80#... Min= 0 | Max= 1 Zone 86: #11#15#16#22#34#35#38#43#45#46#52#53#54#58#63#64#65#66#73#80#... Min= 0 | Max= 1 Zone 87: #5#14#18#28#29#30#33#38#39#41#42#48#50#55#58#60#63#69#78#79#... Min= 0 | Max= 1 Zone 88: #2#12#17#22#23#35#38#40#48#56#57#58#61#66#70#72#73#74#77#80#... Min= 0 | Max= 1 Zone 89: #1#10#21#25#27#33#36#37#41#42#48#53#54#57#63#70#71#76#78#79#... Min= 0 | Max= 1 Zone 90: #4#9#10#18#31#33#37#41#43#47#48#49#50#53#57#60#61#62#74#80#... Min= 0 | Max= 1 Zone 91: #4#10#15#25#26#31#32#40#41#47#50#54#56#57#58#60#68#69#71#78#... Min= 0 | Max= 1 Zone 92: #2#4#9#13#14#18#23#26#32#33#37#46#47#53#57#63#65#72#74#80#... Min= 0 | Max= 1 Zone 93: #3#7#11#14#15#17#20#23#26#32#33#38#40#41#42#43#67#68#75#77#... Min= 0 | Max= 1 Zone 94: #4#5#6#8#12#13#28#29#31#43#49#51#53#58#60#63#69#76#78#80#... Min= 0 | Max= 1 Zone 95: #1#12#19#20#22#25#26#29#38#41#42#44#45#47#48#51#55#58#59#73#... Min= 0 | Max= 1 Zone 96: #16#17#18#20#23#30#31#33#34#35#36#45#59#62#63#71#72#73#78#79#... Min= 0 | Max= 1 Zone 97: #4#8#12#13#14#25#27#29#30#39#40#45#46#56#64#65#70#77#79#80#... Min= 0 | Max= 1 Zone 98: #1#2#7#9#22#23#36#46#48#50#51#52#59#61#64#65#67#69#72#73#... Min= 0 | Max= 1 Zone 99: #6#13#19#26#27#30#31#32#42#46#52#54#55#56#58#60#62#67#77#79#... Min= 0 | Max= 1 Zone 100: #3#5#10#12#31#32#33#35#43#44#45#48#58#61#62#63#67#71#74#79#... Min= 0 | Max= 1 Zone 101: #1#3#4#9#12#15#17#20#21#23#32#34#38#43#53#57#67#72#76#79#... Min= 0 | Max= 1 Zone 102: #4#7#10#14#15#16#25#31#33#36#40#47#50#52#54#58#59#61#74#77#... Min= 0 | Max= 1 Zone 103: #2#4#8#21#23#24#30#32#33#39#44#50#51#53#55#56#57#58#67#76#... Min= 0 | Max= 1 Zone 104: #4#9#14#20#21#23#25#26#27#30#32#34#44#46#47#49#55#63#74#75#... Min= 0 | Max= 1 Zone 105: #5#19#23#24#26#27#31#41#42#43#44#50#52#57#58#69#73#75#78#79#... Min= 0 | Max= 1 Zone 106: #1#5#6#16#17#26#28#32#34#40#44#48#56#60#61#62#64#66#67#78#... Min= 0 | Max= 1 Zone 107: #3#10#18#19#20#22#23#26#29#35#36#38#50#51#55#61#65#68#71#77#... Min= 0 | Max= 1 Zone 108: #15#27#30#31#34#35#36#42#48#49#51#55#59#63#64#73#75#76#77#78#... Min= 0 | Max= 1 Zone 109: #4#8#19#20#22#25#27#30#34#36#47#48#49#56#58#64#67#68#69#75#... Min= 0 | Max= 1 Zone 110: #2#12#15#17#21#22#24#34#39#43#46#53#55#61#63#65#68#74#76#78#... Min= 0 | Max= 1 Zone 111: #1#2#7#19#20#25#29#36#37#38#39#43#49#54#61#67#74#76#78#79#... Min= 0 | Max= 1 Zone 112: #3#10#17#19#23#25#27#30#31#43#48#52#53#59#60#64#74#77#79#80#... Min= 0 | Max= 1 Zone 113: #3#5#7#13#16#17#28#32#43#45#46#50#52#58#62#65#66#71#76#80#... Min= 0 | Max= 1 Zone 114: #7#15#16#17#23#27#31#36#38#40#47#51#56#59#61#65#66#68#74#76#... Min= 0 | Max= 1 Zone 115: #4#8#14#16#19#22#35#36#38#40#43#44#48#53#57#59#60#61#73#77#... Min= 0 | Max= 1 zone od 86 do 115 to ostatnie 30-losowań Multi ![]() i dostaniemy 34-kombinacje 1 13 24 35 2 10 28 75 3 24 47 70 3 24 49 70 5 11 37 59 5 11 47 70 5 11 59 70 6 18 24 70 6 24 35 47 6 24 37 45 6 24 37 59 6 24 47 70 6 24 59 70 6 37 45 68 7 18 24 70 7 18 44 70 9 16 24 70 10 39 66 75 11 18 24 70 11 18 44 70 11 19 28 70 11 19 28 72 11 24 37 59 11 24 47 70 11 24 49 70 11 24 49 72 11 24 59 70 11 24 60 72 11 24 62 70 11 28 37 59 11 28 47 70 11 28 59 70 12 18 54 75 16 24 49 70 zapisze i sprawdzę ![]() ======================= k musi być =k a nie k-1 trzeba poprawić w arkuszu na: Sub wypisz_tabkomb() Arkusz2.Cells.ClearContents If k < 1 Then Exit Sub Range(Arkusz2.Cells(1, 1), Arkusz2.Cells(k, skreśleń)) = tabkomb End Sub Sub wypisz_tabsyst() Arkusz2.Cells.ClearContents If k < 1 Then Exit Sub Range(Arkusz2.Cells(1, 1), Arkusz2.Cells(k, Liczba_KOnCOWA)) = tabsyst End Sub |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 178 179 180 ... 554 555 Wyślij wiadomość do admina |