Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 3 4 5 6
Wyślij wiadomość do admina

Przewiń wpisy ↓

ZAPŁACĘ ZA NAPISANIE PROGRAMU

2014-08-22 (10:46)

status Ken
Data rejestracji: 2012-09-01
Ilość postów: 2921

13557
wpis nr 828 109
[ CZCIONKA SPECJALNA ]

777,

Mnie też wychodziło z parkami podobnie, zastanawiałem się czy to jest dowód na to skuteczność takiej strategii która zakłada zmianę niewychodzącej parki po pierwszych losowaniach.
2014-08-22 (11:22)

status Ken
Data rejestracji: 2012-09-01
Ilość postów: 2921

13557
wpis nr 828 121
[ CZCIONKA SPECJALNA ]

chyba że ten efekt jest skutkiem grupowania parek i może trzeba dla każdej osobny wykres.
2014-08-22 (11:36)

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

1386
wpis nr 828 123
[ CZCIONKA SPECJALNA ]

Ken, zapomniałem dodać źe wyniki dla par o jakich nadmieniłem, to na posortowanych sprawdzałem,a wiec

każda następna to zawsze zazwyczaj liczby z pierwszej dziesiątki ,no chyba że w losowaniu nie padło nic z zakresu 1~10.Ale jestem zdania że jak grać to o wyższe wygrane,

.....tyle że jeśli ktoś zawiera więcej kuponów to powinien powielić kilka liczb

w nich ..... jak trafi te powielone,to czasem zwrot jest konkretniejszy .....



Sławek> zainstaluj .....w końcu Microsoft Office 2003 PL.
2014-08-22 (12:02)

status slawek001
Data rejestracji: 2005-02-24
Ilość postów: 6116

721
wpis nr 828 125
[ CZCIONKA SPECJALNA ]

Leszek musiałem przejść na Office 2007 .... moje ulubione 2000 buntowało się .... Dlatego zaczynam wszystko od nowa czuje się jak przedszkolak otworzył arkusz i wywalił oczy co to jest
2014-08-22 (12:08)

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

1386
wpis nr 828 126
[ CZCIONKA SPECJALNA ]

2007 to muł........zainstaluj to co wskazałem



i jeszcze jedno.....zostaw formuły ,szukaj zamienników



masz malutki przykład na start otwórz edytor alt+f11 ,insert modul,wpisz kod,podepnij

przycisk i odpal ....nie zapomnij wstawić danych do arkusza2



Sub blablabla()

Dim AAA, baa, caa, daa, eaa, faa, gaa

AAA = Application.WorksheetFunction.CountA(Arkusz2.Range("A:A")) 'poda ile wierszy zawiera wpis

baa = Application.WorksheetFunction.min(Arkusz2.Range("c:v")) 'poda minimalną wartość

caa = Application.WorksheetFunction.max(Arkusz2.Range("c:v")) 'poda maksymalną wartość

daa = Application.WorksheetFunction.Median(Arkusz2.Range("c:v")) 'poda średnią wartość

gaa = Application.WorksheetFunction.CountIf(Arkusz2.Range("c:v"), 77)

faa = Application.WorksheetFunction.CountA(Arkusz2.Range("c1:v1")) 'poda ile wierszy zawiera wpis

eaa = Application.WorksheetFunction.max(Arkusz2.Range("c:v")) 'poda maks liczbę



MsgBox " === bla bla bla na temat kolumny aaa i nie tylko === " & Chr(13) & _

"ile wierszy kolumny [A] zawiera losowań = [" & AAA & "]" & Chr(13) & _

"minimalną wartość dla kolumny [c~v] =[" & baa & "]" & Chr(13) & _

"maksymalną wartość dla kolumny [c~v] =[" & caa & "]" & Chr(13) & _

"mediana dla kolumny [c~v] =[" & daa & "]" & Chr(13) & _

"max liczba w bazie = [" & eaa & "]" & Chr(13) & _

"przykład obliczenia ilości wyst.liczby 77 w bazie = [" & gaa & "]"

End Sub
2014-08-22 (12:17)

status slawek001
Data rejestracji: 2005-02-24
Ilość postów: 6116

721
wpis nr 828 130
[ CZCIONKA SPECJALNA ]

Ok poszukam 2003 tez powinienem mieć ... właśnie próbowałem zainstalować Twoje makro które pare leat temu podawałeś do ściągania wyników losowań nie udało się .. teraz kolejna próba z tym i tam mam talent by mi nie wyszło
2014-08-22 (12:42)

status Ken
Data rejestracji: 2012-09-01
Ilość postów: 2921

13557
wpis nr 828 137
[ CZCIONKA SPECJALNA ]

Slawek,

Patrząc na twoją hybrydę myślę że może to chcesz zrobić można osiągnąć o wiele szybciej i dokładniej bez Excela.

Jeżeli chcemy coś robić sensownego z wynikami lotto w Excelu to raczej nie obędzie się bez znajomości programowania w VBA.



2014-08-22 (12:56)

status Ken
Data rejestracji: 2012-09-01
Ilość postów: 2921

13557
wpis nr 828 141
[ CZCIONKA SPECJALNA ]

Ściąganie wyników losowań:

Ja zrobiłem to tak:

1)Programik w delphi który ściąga bieżące wyniki losowania ze strony lotto i zapisuje do pliku

2) otwarcie excela automatycznie wczytuje wyniki losowań z pliku tekstowego

chociaż można pewnie pobierać wyniki bieżące z strony lotto od razu do Excela.
2014-08-22 (13:13)

status slawek001
Data rejestracji: 2005-02-24
Ilość postów: 6116

721
wpis nr 828 144
[ CZCIONKA SPECJALNA ]

Ja to samo robię Kwarendą ściągałem ze strony ze strony Paska 50 ostatnich losowań i miałem zapis w kolumnach teraz potrzebne mi jest 100 ostatnich losowań nie mogę sciągnać drugiej 50 bo po każdym losowaniu zmienia się jej numer zapisu .... dlatego szukam zapisu przy najmniej 100 ostatnich losowań skąd będę mógł ściągać losowania .... nie otwieram arkusza codziennie wiec aktualną bazę losowań muszę mieć z chwilą kiedy arkusz otworze.
2014-08-22 (13:49)

status Ken
Data rejestracji: 2012-09-01
Ilość postów: 2921

13557
wpis nr 828 149
[ CZCIONKA SPECJALNA ]

Trzeba lepiej napisać kwerendę aby można było ściągnąć automatycznie ile ostatnich losowań ile chcesz gdy otwierasz swój arkusz

2014-08-22 (14:15)

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

1386
wpis nr 828 162
[ CZCIONKA SPECJALNA ]

slawek001> ja sobie aktualizuję pobierajac 10-ostatnich wyników

z linku :

http://www.lotto.pl/multi-multi/wyniki-i-wygrane/ostatnie-wyniki



mnie to wystarcza , bazy różnych gier zapisuje i pobieram z plików textowych



jak już będziesz miał zainstalowany 2003 to Ci podeślę arkusz który kiedyś

tu na forum udostępniłem ,o ile go gdzieś zapisałem ,może kleszek ma jeszcze surowy arkusz [bazy losowań] to poproś go ,na pewno Ci podeśle .
2014-08-22 (14:20)

status Ken
Data rejestracji: 2012-09-01
Ilość postów: 2921

13557
wpis nr 828 164
[ CZCIONKA SPECJALNA ]

Czy jest jakiś problem w poprawienie tej kwerendy ?
2014-08-22 (14:30)

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

1386
wpis nr 828 168
[ CZCIONKA SPECJALNA ]

Ken> kiedyś odwołanie było do numeru ,teraz trzeba odwołać się do daty ,jeśli chodzi o pobieranie z lotto ,albo pobrać kwerendą sieci web do arkusza bezpośrednio ,to co jest w tabelce na stronie lotto,czyli 10 ostatnich,

Sławek sobie sam nie poradzi prawdopodobnie z kwerendą + obróbką danych, przychodzą dane + wygrane ,lepiej mu udostępnić gotowca .Ja u Pasko zamieściłem kilka razy te kwerendy,również gotowe arkusze,nie będę tego ponownie robił.
2014-08-22 (14:37)

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

1386
wpis nr 828 171
[ CZCIONKA SPECJALNA ]

http://forum.multipasko.pl/n_viewtopic.php?id=1752&page=27



tu kiedyś był ten arkusz ,ale linki chyba juź nie działają ,ale parę osób pobrało,ja zmieniłem sprzęt i nie mam tych danych,wszystkiego co zrobię nie zapisuję .
2014-08-22 (14:45)

status Ken
Data rejestracji: 2012-09-01
Ilość postów: 2921

13557
wpis nr 828 175
[ CZCIONKA SPECJALNA ]

777

Sławkowi może być trudno, ale i też pobieranie 10 ostatnich wyników nie jest najlepszym rozwiązaniem gdy od czasu do czasu chcemy spojrzeć w wyniki i mieć aktualne 50 czy 100 ostatnich losowań, tu strona Pasko lepiej się nadaje.

Nie widziałem tego makro czy też kwerendy ale chyba niekoniecznie trzeba odwoływać się do daty lub numeru ani poświęcić zbyt dużo czasu żeby to zrobić



2014-08-22 (15:39)

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

1386
wpis nr 828 181
[ CZCIONKA SPECJALNA ]

Ken > 10 wyników się aktualizuje,a dopisują się tylko brakujące wyniki ...tak co do kwerendy.



, obróbka czy też pobranie dowolnego zakresu losowań to kwestia jednego odwołania do obszaru danych w pliku txt czy też bazy wczytanej z pliku .

Oczywiście zaczynać można zawsze od nowa ......

jak się ma ochotę i czas .



Można też pobierać dane nie z pliku ,tylko z innego arkusza ,który też można albo uzupełniać kwerendą,albo np ściągać w całości ,bo przecież Pasko udostępnia wyniki w formacie csv otwieranego za pomocą Microsoft Office Excel
2014-08-22 (15:42)

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

1386
wpis nr 828 182
[ CZCIONKA SPECJALNA ]

Dane można równieź pobierać procedurą z poziomu aplikacji EXE np w delphi,a zapisanie ich np.z stringgrida do pliku excel to też nie problem......ale uważam

ze skoro coś już jest i to funkcjonuje ...... to po co tworzyć nowe .....cuda .
2014-08-22 (15:48)

status Ken
Data rejestracji: 2012-09-01
Ilość postów: 2921

13557
wpis nr 828 183
[ CZCIONKA SPECJALNA ]

i jeszcze dodać jedną instrukcję w VBA która wyświetli ostatnie 50,100 lub inną ilość wyników
2014-08-22 (16:03)

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

1386
wpis nr 828 184
[ CZCIONKA SPECJALNA ]

tu przykład jak pobrać do excela z pliku csv ,oczywiście bez obróbki danych ....

sama procedura pobierania do excela z poziomu np. przycisku w jakimś własnym arkuszu excela.



Sub Danezplikucsv()

Arkusz1.Cells.ClearContents

Arkusz3.Cells.ClearContents

Arkusz2.Cells.ClearContents



Dim strPlik, pozNr As String



Dim i, finalrow As Long



Set wswyn = ThisWorkbook.Worksheets("dane") 'bieżący arkusz

strPlik = Application.GetOpenFilename("Pliki Excela (*.csv),*.xls", 2)

'strPlik = Application.GetOpenFilename("Pliki Excela (*.xls),*.xls", 2)

'jesli z excela do excela

Workbooks.Open strPlik

Set Dane = ActiveWorkbook



Set wsSrc = Dane.Worksheets(1) 'ustaw arkusz źródłowy

Application.ScreenUpdating = False



finalrow = wsSrc.Range("A65536").End(xlUp).Row



For i = 1 To finalrow



Range(wswyn.Cells(i, 1), wswyn.Cells(i, 256)) = Range(wsSrc.Cells(i + 1, 1), wsSrc.Cells(i + 1, 256)).Value

If i = finalrow Then Exit For

Next i



'zamykanie pliku źródłowego

Dane.Close SaveChanges:=False

Set Dane = Nothing

'koniec pobierania z innego arkusza





'-----------W TYM MOMENCIE DANE ZOSTAŁY POBRANE

'Możemy je obrabiać zapisujac według własnego życzenia





Application.ScreenUpdating = True

Cells(1, 1).Select



End Sub

2014-08-22 (16:12)

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

2047
wpis nr 828 187
[ CZCIONKA SPECJALNA ]

Ken, tu masz makro, które pobiera wyniki multi ze strony Pasko. Nie wiem kto jest autorem tego makra ale działa tak jak trzeba. Skopiowanie ostatnich 50 czy 100 losowań do nowego arkusza chyba nie będzie większym problemem

Option Explicit

Sub aktualizuj()

Dim ost_k As Long, i As Long, ost_w As Long, ile As Long, X As Long

Dim wsk As Byte, pom As Byte

Dim Tabela As Variant



Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual



With Sheets("Arkusz1")

ost_k = .Cells(1, .Columns.Count).End(xlToLeft).Column

For i = ost_k To 1 Step -1

.Columns(i).Delete

Next i



With Sheets("Arkusz1").QueryTables.Add(Connection:="URL;http://www.multipasko.pl/wyniki-csv.php?f=multimulti", _

Destination:=Sheets("Arkusz1").Range("a1"))



.Name = "ml_1"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

'.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlAllTables

.WebFormatting = xlWebFormattingNone

.WebPreFormattedTextToColumns = True

.WebConsecutiveDelimitersAsOne = True

.WebSingleBlockTextImport = False

.WebDisableDateRecognition = False

.WebDisableRedirections = False

.Refresh BackgroundQuery:=False

.SaveData = True

End With



.Rows(1).Delete

ile = .Cells(Rows.Count, "A").End(xlUp).Row



Tabela = .Range("A1:A" & ile).Value

On Error GoTo koniec:

For i = 1 To ile

Tabela(i, 1) = Replace(Tabela(i, 1), ";", ". ", 1, 1)

Tabela(i, 1) = Replace(Tabela(i, 1), ";", ".", 1, 2)

Next i

On Error GoTo 0

.Range("A1:A" & ile).Value = Tabela



.Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _

Semicolon:=True, Comma:=True, Space:=True, Other:=False, OtherChar:= _

".", FieldInfo:=Array(Array(1, 1), Array(2, 4), Array(3, 1), Array(4, 1), Array(5, 1), _

Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1) _

, Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array( _

19, 1), Array(20, 1), Array(21, 1), Array(22, 1)), TrailingMinusNumbers:=True

.Columns("A:A").Replace What:=".", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

.Cells.EntireColumn.AutoFit



Erase Tabela

Tabela = .Range("C1:V" & ile).Value

ost_w = .Cells(.Rows.Count, 1).End(xlUp).Row

ost_k = .Cells(1, .Columns.Count).End(xlToLeft).Column



Range(.Cells(4424, 3), .Cells(ost_w, ost_k)).Copy

Sheets("Arkusz2").Range("AP1").PasteSpecial Paste:=xlPasteValues



For i = 1 To ile

Do

wsk = 0

For X = 1 To 20 - 1

If Tabela(i, X + 1) < Tabela(i, X) Then

wsk = 1

pom = Tabela(i, X)

Tabela(i, X) = Tabela(i, X + 1)

Tabela(i, X + 1) = pom

End If

Next X

Loop Until wsk = 0

Next i



.Range("C1:V" & ile).Value = Tabela





Range(.Cells(4424, 3), .Cells(ost_w, ost_k)).Copy

Sheets("Arkusz2").Range("D1").PasteSpecial Paste:=xlPasteValues

.Cells.QueryTable.Delete

End With



Erase Tabela



With Application

.ScreenUpdating = True

.Calculation = xlCalculationAutomatic

.CutCopyMode = False

End With



MsgBox "Aktualizacja zakończona."

Exit Sub



koniec:



With Application

.ScreenUpdating = True

.Calculation = xlCalculationAutomatic

.CutCopyMode = False

End With

Worksheets("Arkusz1").Cells.QueryTable.Delete

MsgBox "Aktualizacja obecnie niemożliwa", vbExclamation

ActiveSheet.Shapes("Button 1").Select

Selection.OnAction = "aktualizuj"

Range("AO11").Select

ActiveWorkbook.RunAutoMacros Which:=xlAutoClose

End Sub



| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 3 4 5 6
Wyślij wiadomość do admina