Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 280 281 282 ... 324 325 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | POWAŻNE PYTANIE DO PASKO |
2019-11-13 (10:07) riviera10 Data rejestracji: 2019-10-31 Ilość postów: 645 | wpis nr 1 255 789 [ CZCIONKA SPECJALNA ] Proszę o usunięcie mojego profilu z ......... tego portalu. |
2019-11-13 (11:09) riviera10 Data rejestracji: 2019-10-31 Ilość postów: 645 | wpis nr 1 255 812 [ CZCIONKA SPECJALNA ] Zapomniałabym. Powód? Tutaj agonia na rzecz niejakiego jacka, dżeka czy jak mu tam było |
2019-11-13 (13:11) login_2009 Data rejestracji: 2008-10-09 Ilość postów: 464 | wpis nr 1 255 844 [ CZCIONKA SPECJALNA ] pewniak112 napisał/a: "Zero nie zniknie jeśli postawimy kropkę 0.25 lub jeśli użyjemy litery małej o25 lub dużej O25" oczywiście tak też można, ale nie jest to zbyt fortunne rozwiązanie gdyż, używając kropki zwiększamy całkiem niepotrzebnie rozmiar pliku, a te kropki będą nam się później niepotrzebnie pałętać po arkuszu; z kolei stosując litery, wprowadzamy po prostu zamęt; a wystarczy przecież, o czym niby Pasko dobrze wie zamienić formatowanie w kolumnie A:A na tekstowe (to jest tylko operacja jednorazowa!); teraz możemy zacząć wprowadzać liczby, a zero nam nie zniknie; jeśli komuś przeszkadza w komórkach z liczbami taki zielony trójkącik, to je usuwamy zaledwie jedną linijką, np tak: Sub kill_trojkociki() Application.ErrorCheckingOptions.NumberAsText = False 'jeśli chcesz trójkąciki to False zmień na: True End Sub ja uważam jednak, że najporęczniejsze jest prezentowanie każdej liczby z osobna, tak jak robi to Totalizator: każdą z liczb będziemy przecież traktować osobno, a jeśli chcemy rozpatrywać to razem w celach statystycznych, to będziemy sobie tworzyli osobne kolekcje 6-cio liczbowe, 5-cio liczbowe i tak dalej --- wpis edytowano 2019-11-13 13:13 --- |
2019-11-13 (17:48) riviera10 Data rejestracji: 2019-10-31 Ilość postów: 645 | wpis nr 1 255 912 [ CZCIONKA SPECJALNA ] Pasko nie chce mi się przypominać ani tym bardziej spamować |
2019-11-13 (17:49) riviera10 Data rejestracji: 2019-10-31 Ilość postów: 645 | wpis nr 1 255 913 [ CZCIONKA SPECJALNA ] masz, no godzinę |
2019-11-14 (00:02) zosiasamosia Data rejestracji: 2012-02-06 Ilość postów: 682 | wpis nr 1 255 966 [ CZCIONKA SPECJALNA ] A potem co? |
2019-11-14 (00:20) Zeolit Data rejestracji: 2015-02-23 Ilość postów: 1622 | wpis nr 1 255 969 [ CZCIONKA SPECJALNA ] riviera10 Droga Koleżanko. Z uprzejmości napiszę tyle: z Tego Forum ciężko zniknąć. Prośby? Można farmazony pisać, a i tak się jest. Jeżeli innym za skórę nie zajdziesz, to zostaniesz. Na Amen. Trudno opuścić tę "Zieloną Łąkę". Taka dziwna rzeczywistość. Próbuj. Trzymam kciuki. Pozdrawiam |
2019-11-14 (09:52) login_2009 Data rejestracji: 2008-10-09 Ilość postów: 464 | wpis nr 1 255 995 [ CZCIONKA SPECJALNA ] Pasko napisał: https://www.multipasko.pl/news149.html "Numer Super Szansy może być w przedziale od 0 000 000 do 9 999 999" jak napisałem kilka postów wyżej: "niektóre wyniki [superszansy, dopisek, login_2009] są tu okrojone...: 2 krotnie o 3 liczby 28 krotnie o 2 liczby 221 razy o 1 liczbę" wyniki te okrajane są o te zera z lewej, a co się stanie jeśli np. w najbliższym losowaniu wypadną same zera, czyli: 0 000 000? odpowiedź Pasko już znacie z kilku postów powyżej: Pasko: "nawet się nie da takiej liczby zapisać w ten sposób w Excelu bez specjalnego formatowania." wg Pasko "się nie da" |
2019-11-14 (10:16) Marriusz2 Data rejestracji: 2009-06-02 Ilość postów: 2244 | wpis nr 1 256 002 [ CZCIONKA SPECJALNA ] Login Słabo znasz Excela . Nic nie znika i nie ma żadnych problemów zapisania w Excelu . Wystarczy nie kopiować z pliku ale z ekranu wstawić do Excela i zrobić transpozycję . Winą za to ,że nie można zrobić z pliku csv są nagłówki w pliku . Gdyby ich nie było mozna by zrobić to z pliku . A tak trzeba z ekranu . Pozdrawiam --- wpis edytowano 2019-11-14 10:17 --- |
2019-11-14 (11:51) Leon_Amator Data rejestracji: 2019-11-14 Ilość postów: 289 | wpis nr 1 256 022 [ CZCIONKA SPECJALNA ] Racja . To powyżej |
2019-11-14 (12:06) edi8 Data rejestracji: 2007-04-03 Ilość postów: 41774 | wpis nr 1 256 025 [ CZCIONKA SPECJALNA ] Ale trzeba być debilem przez własnego konia w ten pusty łeb kopniętym tak, że toczek mu spadł - by rejestrować kolejny nick dla dokonania wpisu niby to chwalącego tego, który program sprzedaje za 37k zł+VAT czyli w tym przypadku samego siebie... --- wpis edytowano 2019-11-14 12:11 --- |
2019-11-14 (12:55) riviera10 Data rejestracji: 2019-10-31 Ilość postów: 645 | wpis nr 1 256 036 [ CZCIONKA SPECJALNA ] Słusznie, popieram. Naciągaczy trza gonić |
2019-11-14 (14:56) login_2009 Data rejestracji: 2008-10-09 Ilość postów: 464 | wpis nr 1 256 071 [ CZCIONKA SPECJALNA ] Marriusz2 napisał/a: "Wystarczy nie kopiować z pliku ale z ekranu wstawić do Excela i zrobić transpozycję . Winą za to ,że nie można zrobić z pliku csv są nagłówki w pliku . Gdyby ich nie było mozna by zrobić to z pliku ." po prostu się ośmieszasz, ale proszę bardzo wyjaśnij nam o co ci chodziło pisząc powyższe, tylko dokładnie opisz, co kopiować w jakim celu chcesz robić transpozycję (tak na marginesie: czy ty wiesz w ogóle do czego służy transpozycja? - jest to obrót danych z pionu w poziom lub odwrotnie - jak to się ma do opisywanego tu problemu?) rozwiń tę myśl o nagłówkach to co mówisz, poprzyj dowodem w postaci screena i nam tu ładnie załącz, chętnie zobaczę jaki jestś guru z excela |
2019-11-14 (16:53) Pasko Data rejestracji: 2003-08-03 Ilość postów: 4319 ADMIN | wpis nr 1 256 101 [ CZCIONKA SPECJALNA ] Dodałem te zera, tak że nie kłócić się tylko, pobierać nowe wyniki: https://www.multipasko.pl/wyniki-lotto/super-szansa/ |
2019-11-14 (20:10) geniu7 Data rejestracji: 2011-08-16 Ilość postów: 795 | wpis nr 1 256 134 [ CZCIONKA SPECJALNA ] Janusz, ściągając wyniki Ekstra Premii, ściągają się wyniki Ekstra Pensji. Proszę popraw to. Dzięki |
2019-11-14 (21:00) riviera10 Data rejestracji: 2019-10-31 Ilość postów: 645 | wpis nr 1 256 146 [ CZCIONKA SPECJALNA ] Witam - jak wstawić awatar na forum ? |
2019-11-14 (21:09) golanonim Data rejestracji: 2019-03-26 Ilość postów: 6107 | wpis nr 1 256 149 [ CZCIONKA SPECJALNA ] Riviera10 Kliknij > Dodaj wpis w tym temacie A następne z prawej strony link forum.multipasko.pl/avatary.php |
2019-11-15 (17:45) login_2009 Data rejestracji: 2008-10-09 Ilość postów: 464 | wpis nr 1 256 345 [ CZCIONKA SPECJALNA ] stokrotne dzięki dla Pasko za ulepszenie wyników poprzednio wyniki były jednak w kolumnie E:E w jednym zwartym bloku danych (teraz nie wiedzieć dlaczego są w kolumnie F:F), a kolumna E:E jest pusta - całkiem niepotrzebnie i to jest do poprawienia wytłumaczę teraz co poniektórym marriuszom jak Pasko to zrobił... odbywa się to mniej więcej tak: Sub dodaj_ostatni_nr_super_szansy() 'przed uruchomieniem obydwu kodów, zejdź do ostatniego wyniku SuperSzansy... 'aby widzieć efekty 'tutaj jest to kolumna F:F 'mniej więcej z takiego kodu korzysta Pasko 'dla was jest on nieprzydatny Dim d As Long d = Cells(Rows.Count, "F").End(xlUp).Row If Cells(d, "F").Value = 0 Then 'jeżeli pierwsza liczba aktualnego... 'losowania to liczba zero, to... Cells(d, "F").Value = 0 & vbTab 'wstaw znak tabulatora do ostatniej... 'niepustej komórki w kolumnie F:F 'teraz, dzięki powyższemu zera nie będą znikały End If 'ok. mamy pierwszą liczbę z 7dmiu liczb SuperSzansy 'trawa aktualne losowanie superszansy... End Sub Sub dodaj_kolejne_liczby() '...i dodawane są kolejne liczby, np. liczba 9 Dim d As Long d = Cells(Rows.Count, "F").End(xlUp).Row 'dodajemy liczbę 9 'Pasko robi to automatycznie za pomocą api (patrz screen niżej) 'kiedy to odbywa się losowanie 'to jest tylko pojedynczy przykład 'ale możesz sobie kliknąć 6-krotnie 'uzyskując łącznie 7 liczb Cells(d, "F").Value = Cells(d, "F").Value & 9 End Sub Pasko wybrał takie rozwiązanie, ponieważ załącza tu plik csv, i musiał dać w komórkach z wynikami specjalny znak sterujący tabulatora (w powyższym kodzie odpowiada za to vbtab; minusem takiego rozwiąznia jest to, że mamy w kolumnie z wynikami właśnie ten znak jako nadmiarowy (czyli jest 8 znaków); po zgraniu sobie tego do siebie na kompa ja proponuję wam jednak zrobić to tak jak już wcześniej pisałem, czyli zamienić formatowanie w kolumnie z wynikami na tekstowe: Sub usun_tabulatory() Dim c As Range Dim ostw As Long 'zmiana formatu w kolumnie F:F na tekstowy Columns("F:F").NumberFormat = "@" 'poniższa linijka też może się przydać jeśli pojawią ci 'się w arkuszu "zielone trójkąciki" 'Application.ErrorCheckingOptions.NumberAsText = False 'jeśli chcesz trójkąciki to False zmień na: True With ActiveSheet 'teraz usuwamy tabulatory ostw = .Cells(.Rows.Count, "F").End(xlUp).Row For Each c In Range("F2:F" & ostw) c = Replace(c, vbTab, "") Next c End With End Sub a najlepiej docelowo podzielić sobie kolumnę na 7em liczb: Sub Makro3() 'operując w pliku csv 'wcześniej jednak trzeba uruchomić wcześniejszy kod 'usun_tabulatory, a plik csv trzeba ostatecznie zaminić nalepiej na ten z makrami Columns("F:F").TextToColumns Destination:=Range("F1"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array _ (5, 1), Array(6, 1)), TrailingMinusNumbers:=True End Sub |
2019-11-16 (09:04) Lottonauta Data rejestracji: 2012-09-03 Ilość postów: 2101 | wpis nr 1 256 469 [ CZCIONKA SPECJALNA ] @Pasko Dzięki za dodanie pobierania wyników Ekstra Premii. Pozdrawiam A co z tym błędem w 96 los. Euro Jackpot (zamiast 15 powinno 17)? już to zgłaszałem tutaj dwa razy. |
2019-11-16 (11:26) login_2009 Data rejestracji: 2008-10-09 Ilość postów: 464 | wpis nr 1 256 501 [ CZCIONKA SPECJALNA ] nie mogę edytować już posta, zamieszczonego powyżej, więc jeszcze raz "to samo" z małymi zmianami - Pasko w swoim załączniku daje ten tabulator w każdej komórce naniosłem więc drobną zmianę, i dodałem też kilka komentarzy - zapoznajcie się jeszcze raz od początku [code] Sub dodaj_ostatni_nr_super_szansy() 'mniej więcej z takiego kodu korzysta Pasko... 'wprowadzając na żywo wyniki superszansy 'dla was jest on nieprzydatny 'ale zachęcam do zapoznania się z jego działaniem '################################################# 'JAK URUCHOMIĆ KOD: 'przed uruchomieniem obydwu kodów, zejdź do 'ostatniego wyniku SuperSzansy 'wprowadź jakąś liczbę z zakresu od 0 do 9 'do kolumny z wynikami - w tym przypadku 'jest to kolumna F:F - poniżej ostatniego wyniku 'opuść komórkę i uruchom ten kod '################################################# Dim d As Long d = Cells(Rows.Count, "F").End(xlUp).Row 'jeżeli pierwsza liczba aktualnego 'losowania to liczba różna od puste, 'w tym przypadku któraś z zakresu od 0 do 9, to... If Cells(d, "F").Value <> "" Then '...wstaw znak tabulatora do ostatniej 'niepustej komórki w kolumnie F:F Cells(d, "F").Value = Cells(d, "F").Value & vbTab End If 'teraz, dzięki powyższemu zera nie będą znikały z 'pliku csv 'ok. mamy pierwszą liczbę z 7dmiu liczb 'trawa aktualne losowanie superszansy... End Sub [/code] [code] Sub dodaj_kolejne_liczby() '...i dodawane są kolejne liczby, np. liczba 9 'Pasko robi to automatycznie za pomocą api 'wprowadzając oczywiście to co "słyszy" detektor 'rozpoznawania mowy podczas losowania 'ta 9tka to oczywiście tylko sztuczny przykład 'w rzeczywistości dźwięki przetwarzane są przez 'detektor dźwięku, i konwertowane na tekst 'tutaj liczby - zobacz też screen powyżej Dim d As Long d = Cells(Rows.Count, "F").End(xlUp).Row 'dodajemy liczbę 9 Cells(d, "F").Value = Cells(d, "F").Value & 9 'ale możesz uruchomić ten kod 6-krotnie 'uzyskując łącznie 7 liczb 'zapoznając się tym samym od kuchni z tym jak 'wygląda wprowadzanie wyników na żywo podczas 'losowania do pliku csv, a później na stronę: 'https://www.multipasko.pl/wyniki-lotto/super-szansa End Sub [/code] ps. Pasko mam jeszcze taką prośbę, abyś wprowadził na stronę znaczniki [code] [/code] tak, aby nasze kody wyglądały przejrzyście najlepiej tak jak na screenach, z kodami, które zamieszczam w tym poście |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 280 281 282 ... 324 325 Wyślij wiadomość do admina |