Excel- potrzebna pomoc

Przewiń wpisy ↓	Excel- potrzebna pomoc
2025-01-24 (16:15) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8703	wpis nr 1 549 205 [ CZCIONKA MONOSPACE ] No to w 50 wierszu masz jakiś błąd. A liczba jaka się wyświetla? --- wpis edytowano 2025-01-24 16:16 ---
2025-01-24 (16:19) casshern Data rejestracji: 2015-01-11 Ilość postów: 237	wpis nr 1 549 207 [ CZCIONKA MONOSPACE ] Sprawdziłem 50 wiersz i niczym nie wyróznia sie od pozostałych mix 43 liczb od 1 do 49 bez 6 brakujących tak, że nie wiem gdzie może być problem.
2025-01-24 (16:20) casshern Data rejestracji: 2015-01-11 Ilość postów: 237	wpis nr 1 549 208 [ CZCIONKA MONOSPACE ] najeżdźając kursorem na liczba w tym nawiasie (y, liczba) wyświetla sie liczba = 50 --- wpis edytowano 2025-01-24 16:21 ---
2025-01-24 (16:21) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8703	wpis nr 1 549 210 [ CZCIONKA MONOSPACE ] no to musisz mieć w tym wierszu "50". Założyłem, że problem dotyczy DL a więc liczb z przedziału 1-49. --- wpis edytowano 2025-01-24 16:23 ---
2025-01-24 (16:28) casshern Data rejestracji: 2015-01-11 Ilość postów: 237	wpis nr 1 549 212 [ CZCIONKA MONOSPACE ] Omg usunałem ten wiersz i wszystko działa. Ale na 100 % nie było tam liczby 50 na spokojnie sprawdziłem kazdą po kolei. Potestuje to makro. Dziękuję serdecznie za pomoc. Pozdrawiam fair_play p.s jeżeli będę miał problem napiszę
2025-01-24 (16:29) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8703	wpis nr 1 549 213 [ CZCIONKA MONOSPACE ] musiałeś mieć liczbę "50". Procedura ma lepsze oko od Twojego To dodaj jeszcze raz ten wiersz i jak pojawi się ten błąd to najedź na "x" w linii "For x=1 to 49" X wskaże Ci wtedy w której kolumnie jest ta "50" --- wpis edytowano 2025-01-24 16:32 ---
2025-01-24 (16:38) casshern Data rejestracji: 2015-01-11 Ilość postów: 237	wpis nr 1 549 215 [ CZCIONKA MONOSPACE ] Zrobiłem wszystko od początku i nie wyskoczył już ten błąd, co to był nie wiem. Najważniejesze że już działa. Wszystkiego dobrego fair_play Pozdrawiam.
2025-06-08 (12:57) Ciocia__Micowhyaja Data rejestracji: 2016-12-17 Ilość postów: 453	wpis nr 1 568 270 [ CZCIONKA MONOSPACE ] Witam, Ma ktoś program lub makro do zamiany losowań Eurojackpot na numer kombinacji tzw csn ? Poprosze o podesłanie na maila Arek7007@interia.pl Pozdrowienia
2025-06-09 (08:39) Ciocia__Micowhyaja Data rejestracji: 2016-12-17 Ilość postów: 453	wpis nr 1 568 380 [ CZCIONKA MONOSPACE ] nikt nie umiał, sam se musiałem ogarnąć gdyby ktoś potrzebował: =ZAOKR.DO.CAŁK(KOMBINACJE(50;5)-(JEŻELI(E2123=46;0;KOMBINACJE(50-E2123;5))+JEŻELI(F2123=47;0;KOMBINACJE(50-F2123;4))+JEŻELI(G2123=48;0;KOMBINACJE(50-G2123;3))+JEŻELI(H2123=49;0;KOMBINACJE(50-H2123;2))+JEŻELI(I2123=50;0;KOMBINACJE(50-I2123;1)))) a w drugą stronę ktoś umie zrobić z numeru kombinacji tzw csn na liczyby żywe? pozdrowienia
2025-06-09 (08:57) heme24 Data rejestracji: 2015-12-08 Ilość postów: 296	wpis nr 1 568 381 [ CZCIONKA MONOSPACE ] Witam. Ciocia niech ci chat napisze skrypt w pythonie i po problemie.
2025-06-09 (19:39) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8703	wpis nr 1 568 444 [ CZCIONKA MONOSPACE ] Ciocia> Proszę bardzo Sub csn_5() ' 5 liczb masz w komórkach A1-E1 ' Kod csn otrzymujesz w komórce J1 l1 = Cells(1, 1) l2 = Cells(1, 2) l3 = Cells(1, 3) l4 = Cells(1, 4) l5 = Cells(1, 5) csn = kombinuj(50, 5) If 50 - l1 > 4 Then csn = csn - kombinuj(50 - l1, 5) If 50 - l2 > 3 Then csn = csn - kombinuj(50 - l2, 4) If 50 - l3 > 2 Then csn = csn - kombinuj(50 - l3, 3) If 50 - l4 > 1 Then csn = csn - kombinuj(50 - l4, 2) csn = csn - (50 - l5) Cells(1, 10) = csn End Sub --------------------------------------------------------------------- Sub liczby_5() ' kod csn podajesz w J1 ' liczby otrzymujesz w K1-O1 csn = Cells(1, 10) adres = 0 For l1 = 1 To 50 - gwar adres_tmp = adres adres = adres + kombinuj(50 - l1, 4) If adres >= csn Then adres = adres_tmp Exit For End If Next l1 Cells(1, 11) = l1 For l2 = l1 + 1 To 50 - 4 adres_tmp = adres adres = adres + kombinuj(50 - l2, 3) If adres >= csn Then adres = adres_tmp Exit For End If Next l2 Cells(1, 12) = l2 For l3 = l2 + 1 To 50 - 3 adres_tmp = adres adres = adres + kombinuj(50 - l3, 2) If adres >= csn Then adres = adres_tmp Exit For End If Next l3 Cells(1, 13) = l3 For l4 = l3 + 1 To 50 - 2 adres_tmp = adres adres = adres + kombinuj(50 - l4, 1) If adres >= csn Then adres = adres_tmp Exit For End If Next l4 Cells(1, 14) = l4 l5 = l4 + (csn - adres) Cells(1, 15) = l5 End Sub ------------------------------------------------------------------ Function kombinuj(n, k) licznik = 1 mianownik = 1 For i = 1 To k licznik = licznik * (n + 1 - i) mianownik = mianownik * i Next kombinuj = licznik / mianownik End Function ------------------------------------------- Pozdrawiam
2025-06-09 (20:17) Ciocia__Micowhyaja Data rejestracji: 2016-12-17 Ilość postów: 453	wpis nr 1 568 445 [ CZCIONKA MONOSPACE ] fair_play Dziękuje za odpowiedź w postaci gotowca Oszczędziłeś mi czasu i trudu , coś mi samemu to nie wychodzło Pozdrawiam --- wpis edytowano 2025-06-09 20:19 ---
2025-06-09 (20:24) fair_play Data rejestracji: 2016-05-12 Ilość postów: 8703	wpis nr 1 568 447 [ CZCIONKA MONOSPACE ] Ciocia> Przerabiałem uniwersalną procedurę i wkradły się pewne nieścisłości. To poprawiona procedura: Sub liczby_5() ' kod csn podajesz w J1 ' liczby otrzymujesz w K1-O1 csn = Cells(1, 10) adres = 0 For l1 = 1 To 45 adres_tmp = adres adres = adres + kombinuj(50 - l1, 4) If adres >= csn Then adres = adres_tmp Exit For End If Next l1 Cells(1, 11) = l1 For l2 = l1 + 1 To 46 adres_tmp = adres adres = adres + kombinuj(50 - l2, 3) If adres >= csn Then adres = adres_tmp Exit For End If Next l2 Cells(1, 12) = l2 For l3 = l2 + 1 To 47 adres_tmp = adres adres = adres + kombinuj(50 - l3, 2) If adres >= csn Then adres = adres_tmp Exit For End If Next l3 Cells(1, 13) = l3 For l4 = l3 + 1 To 48 adres_tmp = adres adres = adres + kombinuj(50 - l4, 1) If adres >= csn Then adres = adres_tmp Exit For End If Next l4 Cells(1, 14) = l4 l5 = l4 + (csn - adres) Cells(1, 15) = l5 End Sub


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

Forum strony www.multipasko.pl [Regulamin]