Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
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)

status riviera10
Data rejestracji: 2019-10-31
Ilość postów: 645

16047
wpis nr 1 255 789
[ CZCIONKA SPECJALNA ]

Proszę o usunięcie mojego profilu z ......... tego portalu.
2019-11-13 (11:09)

status riviera10
Data rejestracji: 2019-10-31
Ilość postów: 645

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

status login_2009
Data rejestracji: 2008-10-09
Ilość postów: 464

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

status riviera10
Data rejestracji: 2019-10-31
Ilość postów: 645

16047
wpis nr 1 255 912
[ CZCIONKA SPECJALNA ]

Pasko nie chce mi się przypominać ani tym bardziej spamować
2019-11-13 (17:49)

status riviera10
Data rejestracji: 2019-10-31
Ilość postów: 645

16047
wpis nr 1 255 913
[ CZCIONKA SPECJALNA ]

masz, no godzinę
2019-11-14 (00:02)

status zosiasamosia
Data rejestracji: 2012-02-06
Ilość postów: 682

13346
wpis nr 1 255 966
[ CZCIONKA SPECJALNA ]

A potem co?
2019-11-14 (00:20)

status Zeolit
Data rejestracji: 2015-02-23
Ilość postów: 1622

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

status login_2009
Data rejestracji: 2008-10-09
Ilość postów: 464

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

status Marriusz2
Data rejestracji: 2009-06-02
Ilość postów: 2244

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

status Leon_Amator
Data rejestracji: 2019-11-14
Ilość postów: 289

16053
wpis nr 1 256 022
[ CZCIONKA SPECJALNA ]

Racja .
To powyżej
2019-11-14 (12:06)

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

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

status riviera10
Data rejestracji: 2019-10-31
Ilość postów: 645

16047
wpis nr 1 256 036
[ CZCIONKA SPECJALNA ]

Słusznie, popieram. Naciągaczy trza gonić
2019-11-14 (14:56)

status login_2009
Data rejestracji: 2008-10-09
Ilość postów: 464

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

status Pasko
Data rejestracji: 2003-08-03
Ilość postów: 4319
ADMIN
1
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)

status geniu7
Data rejestracji: 2011-08-16
Ilość postów: 795

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

status riviera10
Data rejestracji: 2019-10-31
Ilość postów: 645

16047
wpis nr 1 256 146
[ CZCIONKA SPECJALNA ]

Witam - jak wstawić awatar na forum ?
2019-11-14 (21:09)

status golanonim
Data rejestracji: 2019-03-26
Ilość postów: 6107

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

status login_2009
Data rejestracji: 2008-10-09
Ilość postów: 464

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

status Lottonauta
Data rejestracji: 2012-09-03
Ilość postów: 2101

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

status login_2009
Data rejestracji: 2008-10-09
Ilość postów: 464

3787
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 lottoStrona: 1 2 ... 280 281 282 ... 324 325
Wyślij wiadomość do admina