Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 178 179 180 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2018-01-14 (13:46)

status edi8
Data rejestracji: 2007-04-03
Ilość postów: 41774

2623
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4979

2047
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4979

2047
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
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)

status kleszek
Data rejestracji: 2006-05-27
Ilość postów: 4979

2047
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8706

14865
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
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 lottoStrona: 1 2 ... 178 179 180 ... 554 555
Wyślij wiadomość do admina