moje ... oprogramowanie

Przewiń wpisy ↓	moje ... oprogramowanie
2019-07-27 (22:41) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22679	wpis nr 1 241 536 [ CZCIONKA MONOSPACE ] to prawda , dotyczył tylko unikatów gdzieś kiedyś zrobiłem taki projekt usuwania linii z obliczaniem unikatów ..... i to mi utkwiło ale wiele rzeczy skasowałem...... na AMEN pozdrawiam
2019-07-28 (18:02) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8769	wpis nr 1 241 630 [ CZCIONKA MONOSPACE ] 777ch> Podpowiesz jak napisać w VBA uniwersalną procedurę generującą wszystkie kombinacje dla parametrów v i k ?
2019-07-28 (21:49) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22679	wpis nr 1 241 649 [ CZCIONKA MONOSPACE ] Hej⚡ Nie mam nic takiego 🤔
2019-07-28 (21:55) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 241 651 [ CZCIONKA MONOSPACE ] https://www.ozgrid.com/forum/forum/help-forums/excel-general/18812-permutation-combinations?t=28321 Na tej stronie jest makro generujące kombinacje i permutacje z zadanego zbioru. Kiedyś tego używałem. Może się przyda.
2019-07-29 (11:47) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8769	wpis nr 1 241 711 [ CZCIONKA MONOSPACE ] kleszek> Dziękuję - przeanalizuję to, ale na pierwszy rzut oka wygląda to mało przejrzyście. Skoro używałeś tego kiedyś, to może podpowiesz co i gdzie (w które komórki) trzeba wpisać, aby otrzymać wszystkie kombinacje (v po k). Ale wracając do copre. Tego Veryficatore ściągnąłem dopiero jak rozpoczęła się dyskusja, więc kilka dni temu i nie znam wszystkich jego możliwości. Ale wydaje mi się, że jak naciśniesz "Analizza Copertura" i wyświetlą Ci się "copre" dla poszczególnych linii rozpisu, to nie ma możliwości wyświetlenia tych kombinacji, które kryje unikalnie dana linia. Chyba się nie mylę ? Jeśli tak to te "copre" dl poszczególnych linii są liczone w sposób jaki podałem: copre dla danej linii=colone non coperte bez danej linii - colone non coperte dla całego rozpisu. Pozdrawiam
2019-07-29 (12:40) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 241 717 [ CZCIONKA MONOSPACE ] Znalazłem instrukcje obsługi makra na stronie http://makravba.pl/?go=forum&go2=zobacz&id_watek=1659 cyt. makro to generuje zarówno kombinacje jak i permutacje; kod możesz wkleić to zwykłego modułu; w komórce A1 wpisujesz "C" albo "P" w zależności od tego czy mają to być kobinacje czy też permutacje; w A2 wpisujesz np. liczbę 6 w przypadku kiedy chcesz uzyskać kombincje 6-elementowe od A3 do A51 wpisuejsz w tym przypadku ciąg liczbowy od 1 do 49 U mnie to nie działa. Nie wiem dlaczego, być może jest to spowodowane tym, że używam excela 2016. Kiedyś jednak na na starszych wersjach programu działało bez zarzutu. Wracając do copre Verificatore nie ma możliwości podglądu tych kombinacji, które kryje unikalnie dana linia. Nie ma tej funkcji także program Wheeling System Checker, który jest następcą Verificatore. WSC posiada jednak kilka innych przydatnich funkcji. Można np podejrzeć ile razy dany blok jest pokryty w rozpisie i które linie rozpisu go pokrywają. Warto zapoznać się z tym programem, choć szczerze mówiąc nie wiem czy wersja FREE ma odblokowaną tą opcję ( ja mam wersję 3.8.2) --- wpis edytowano 2019-07-29 12:42 ---
2019-07-29 (13:57) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8769	wpis nr 1 241 725 [ CZCIONKA MONOSPACE ] "U mnie to nie działa. Nie wiem dlaczego, być może jest to spowodowane tym, że używam excela 2016. " Nieśmiało zapytam czy używasz tej procedury w Sheet1 czy Arkusz1 ? --- wpis edytowano 2019-07-29 14:10 ---
2019-07-29 (14:54) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 241 736 [ CZCIONKA MONOSPACE ] Oczywiście w Arkusz1, makro pobrałem ze strony makravba.pl a nie z ozgrid. com, a tam w procedurze jest Arkusz1. Makro zawsze wywala się na linii If n > Cells.Count Then z komentarzem Cells.Count = overflow dla dowolnych parametrów w arkuszu. W sumie taki generator kombinacji nie jest mi do niczego potrzebny, więc to nie problem. --- wpis edytowano 2019-07-29 14:54 ---
2019-07-29 (15:21) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8769	wpis nr 1 241 739 [ CZCIONKA MONOSPACE ] Możesz przesłać mi to makro, bo w makravba.pl trudno znaleźć.
2019-07-29 (15:28) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 241 741 [ CZCIONKA MONOSPACE ] fair_play, przecież link podałem wyżej http://makravba.pl/?go=forum&go2=zobacz&id_watek=1659 post napisał: markos97 postów: 114 umieszczony: 20 października 2008 11:30 ostatnie makro w znaczniku 'code' zaczynające się od Option Explicit Dim vAllItems As Variant Dim Buffer() As String Dim BufferPtr As Long Dim Results As Worksheet ' ' Myrna Larson, July 25, 2000, Microsoft.Public.Excel.Misc to jest to samo makro co na ozgrid tylko z zamienionym Sheet1 na Arkusz1
2019-07-29 (16:11) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8769	wpis nr 1 241 745 [ CZCIONKA MONOSPACE ] Jeśli zaremujesz tę linię to zadziała
2019-07-29 (16:24) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4979	wpis nr 1 241 746 [ CZCIONKA MONOSPACE ] Faktycznie działa Jak widać najprostsze rozwiązania są najlepsze To może jeszcze podpowiesz co zmienić w makrze aby wygenerowane liczby pojawiały się w oddzielnych komórkach ?
2019-07-29 (17:44) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8769	wpis nr 1 241 758 [ CZCIONKA MONOSPACE ] Z treści komunikatu błędu przypisanego zaremowanej linii wynika, że powinna ona sprawdzać czy w arkuszu jest wystarczająca ilość wierszy do "wydrukowania" wszystkich kombinacji. Z próby wynika, że nie można zadać stworzenie kombinacji 6 z 49 bo zawiera ona 13 983 816 pozycji, podczas gdy w arkuszu Excel2007 maksymalna ilość wierszy to "tylko" 1 048 576 (2^20). Aby ta linia spełniała zamierzone przez autora zadanie powinna wyglądać tak: If n > Rows.Count Then GoTo DataError Co do Twojego pytania o osobne komórki przyjrzę się temu, bo też tego potrzebuję --- wpis edytowano 2019-07-29 17:49 ---
2019-07-30 (00:32) 777ch Data rejestracji: 2005-11-07 Ilość postów: 22679	wpis nr 1 241 819 [ CZCIONKA MONOSPACE ] Niestety ..... ......cirka do 10 września ,nie mam możliwości nic pomóc, po prostu do komputera siadam tylko na chwilę po 23-ej albo później zależy kiedy wrócę......, 4~5 minut i ...... idę spać . pozdrawiam
2019-07-30 (10:52) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 241 853 [ CZCIONKA MONOSPACE ] Po najlepszym wyniku uzyskanym przez TarulliG'a 25,7,4,7=40 szansa >> 99,4636988 zrobiłem test dla 25,7,4,7=30 i mam 97,40670% 6 7 8 9 18 21 22 6 7 11 14 15 19 24 2 6 10 16 18 19 20 2 3 12 19 22 24 25 3 5 6 10 13 14 24 1 2 5 6 8 11 17 1 3 7 8 14 16 24 4 5 6 12 15 16 23 2 3 7 13 15 17 20 1 9 10 11 12 13 19 11 13 15 16 18 21 25 1 3 4 7 19 21 23 2 4 8 13 18 23 24 3 4 6 9 17 21 25 5 7 9 12 13 14 20 4 8 11 12 14 20 22 3 4 7 10 11 18 22 1 2 4 9 14 15 25 2 5 9 16 21 22 24 1 6 13 20 22 23 25 5 8 10 15 19 20 21 9 10 15 17 22 23 24 1 3 5 12 15 18 22 7 8 10 12 16 17 25 3 8 9 11 16 20 23 5 14 17 18 19 23 25 4 13 14 16 17 19 22 2 10 11 12 14 21 23 4 5 7 11 20 24 25 1 12 17 18 20 21 24 .......... a tu z copre z Verificatora 04 08 11 12 14 20 22 copre 2 488 04 05 07 11 20 24 25 copre 2 842 05 07 09 12 13 14 20 copre 2 929 03 04 07 10 11 18 22 copre 2 941 01 03 07 08 14 16 24 copre 3 162 01 03 05 12 15 18 22 copre 3 210 03 05 06 10 13 14 24 copre 3 624 06 07 11 14 15 19 24 copre 3 735 02 05 09 16 21 22 24 copre 3 742 01 03 04 07 19 21 23 copre 3 874 02 03 12 19 22 24 25 copre 3 917 03 04 06 09 17 21 25 copre 4 068 04 13 14 16 17 19 22 copre 4 112 02 10 11 12 14 21 23 copre 4 156 06 07 08 09 18 21 22 copre 4 242 04 05 06 12 15 16 23 copre 4 254 03 08 09 11 16 20 23 copre 4 276 02 03 07 13 15 17 20 copre 4 327 01 12 17 18 20 21 24 copre 4 369 01 09 10 11 12 13 19 copre 4 544 05 14 17 18 19 23 25 copre 4 615 09 10 15 17 22 23 24 copre 4 652 07 08 10 12 16 17 25 copre 4 689 05 08 10 15 19 20 21 copre 4 740 01 02 04 09 14 15 25 copre 4 834 02 06 10 16 18 19 20 copre 4 951 01 02 05 06 08 11 17 copre 4 953 01 06 13 20 22 23 25 copre 5 004 02 04 08 13 18 23 24 copre 5 016 11 13 15 16 18 21 25 copre 5 287 ..........................................
2019-07-31 (11:27) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 241 974 [ CZCIONKA MONOSPACE ] 25,07,04,07 = 30 >> szansa 97,6005% 01 02 04 08 13 18 25 01 02 05 06 19 20 24 01 03 04 07 14 17 20 01 03 08 15 19 21 24 01 05 07 10 13 15 23 01 06 11 16 18 20 22 01 09 12 14 21 22 23 01 10 11 12 16 17 25 02 03 06 07 15 22 25 02 03 10 14 16 17 19 02 03 10 14 18 20 21 02 04 09 11 12 15 19 02 05 11 13 17 21 22 02 07 09 16 18 23 24 02 08 12 17 20 23 25 03 04 05 06 09 10 12 03 05 08 09 11 17 18 03 11 12 13 20 23 24 03 13 16 19 22 23 25 04 05 08 14 16 22 24 04 06 17 18 19 21 23 04 07 10 11 21 24 25 04 13 14 15 16 18 20 05 07 12 14 18 19 25 05 09 15 16 20 21 25 06 07 08 12 13 16 21 06 08 10 11 14 15 23 06 09 13 14 17 24 25 07 08 09 10 19 20 22 10 12 15 17 18 22 24 autor: Evandro De Simone
2019-07-31 (12:31) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 241 980 [ CZCIONKA MONOSPACE ] Abbreviated zone wheel on 15 numbers in 5 zones with 3 numbers; warranty: 2 if 3 x 1from3 (system on 3 numbers in line) Zone #1numbers: 01,02,03 ... Min= 0 \| Max= 1 Zone #2numbers: 04,05,06 ... Min= 0 \| Max= 1 Zone #3numbers: 07,08,09 ... Min= 0 \| Max= 1 Zone #4numbers: 10,11,12 ... Min= 0 \| Max= 1 Zone #5numbers: 13,14,15 ... Min= 0 \| Max= 1 System on 14 lines: 1 4 11 1 5 14 1 6 9 2 4 9 2 5 11 2 6 14 3 4 14 3 5 9 3 6 11 7 10 15 7 12 13 8 10 13 8 12 15 9 11 14 author: Alessandro Jurcovich ................ .................... 777ch, na 35. stronie tego wątku jest Twego autorstwa system o tych parametrach, ale na 16 zakładów: https://forum.multipasko.pl/n_viewtopic.php?id=4811&page=35&sort=&dir= --- wpis edytowano 2019-07-31 12:37 ---
2019-07-31 (12:39) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 241 981 [ CZCIONKA MONOSPACE ] Abbreviated zone wheel on 15 numbers in 5 zones with 3 numbers; warranty: 2 if 2x 1from3 (system on 3 numbers in line) Zone #1numbers: 01,02,03 ... Min= 0 \| Max= 1 Zone #2numbers: 04,05,06 ... Min= 0 \| Max= 1 Zone #3numbers: 07,08,09 ... Min= 0 \| Max= 1 Zone #4numbers: 10,11,12 ... Min= 0 \| Max= 1 Zone #5numbers: 13,14,15 ... Min= 0 \| Max= 1 System on 30 lines: (Questo sistema è perfetto) 1 4 7 1 5 8 1 6 10 1 9 14 1 11 15 1 12 13 2 4 12 2 5 7 2 6 14 2 8 11 2 9 13 2 10 15 3 4 14 3 5 13 3 6 11 3 7 15 3 8 10 3 9 12 4 8 15 4 9 10 4 11 13 5 9 11 5 10 14 5 12 15 6 7 12 6 8 13 6 9 15 7 10 13 7 11 14 8 12 14 author: Alessandro Jurcovich
2019-07-31 (20:11) pir2 Data rejestracji: 2018-06-11 Ilość postów: 63	wpis nr 1 242 033 [ CZCIONKA MONOSPACE ] System idealny o takich parametrach jak wyżej umieściłem we wpisie nr 1 216 365 strona 257 tego wątku.
2019-07-31 (21:14) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774	wpis nr 1 242 041 [ CZCIONKA MONOSPACE ] pir2, zanim Alessandro Jurcovich zamieścił dziś swój wpis z tym systemem, konsultował ze mną to, czy takiego systemu już nie mamy - na co ja mu odpisałem (po sprawdzeniu zawartości wątku "Systemy strefowe by 777ch") że nie, gdyż nie ma w nim tego Twojego rozpisu z lutego'19 i został widocznie przeoczony przez moderatora w/w wątku i dlatego nie został przeniesiony do jego wątku z systemami strefowymi. Powiem więcej: następnie za pomocą lokalnej wyszukiwarki dodatkowo jeszcze przeszukałem zawartość forum multipasko i też nie znalazłem tego systemu, ale to już możesz jedynie sobie zawdzięczać, bowiem nie zachowałeś staranności w opisie tego systemu i nie podałeś jego metryczki w sposób w jaki to się robi, czyli w określonym porządku, zarówno przy pisaniu w j. polskim czy też angielskim. Ale Twoje pierwszeństwo w publikacji tego systemu łatwo dowieść, gdyż ja zaraz po przeczytaniu go na multipasko, zamieściłem ten rozpis na włoskim forum w dniu 20/02/2019 w dziale o systemach strefowych, oczywiście z podaniem tam Ciebie jako autora: https://wheels.forumcommunity.net/?t=60786523&st=90#entry437503877


\| Dodaj wpis w tym temacie \| Spis tematów \| Wyniki lotto	Strona: 1 2 ... 279 280 281 ... 554 555 Wyślij wiadomość do admina Czcionka o stałej szerokości

Forum strony www.multipasko.pl [Regulamin]