Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 733 734 735 ... 1228 1229

Wyślij wiadomość do admina
🎱 MultiPairs 2027 – nowa wersja w przeglądarce, otwórz BETA

Przewiń wpisy ↓

Programiki - Wspomagacze.....G-16

2011-11-18 (07:48)

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

721
wpis nr 473 337
[ CZCIONKA MONOSPACE ]

2011-11-18 (09:42)

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

721
wpis nr 473 361
[ CZCIONKA MONOSPACE ]

Jednak nadal wyskakuje mi błąd w Makro a chciał bym choć w pliku tekstowym za pomocą makra ostatnie 50 wyników losowań do arkusza wpisać



Option Explicit

Option Base 1

Sub Wyniki_losowan_ML()

Dim adres_url As String, sort_url As String, nazwa As String

Dim ostatnie As Integer, max_w_bazie As Integer, brakujacych As Integer

Dim tab_pasko As Variant, tab_ml As Variant, pom_data As Variant, pom_wynik As Variant

Dim i As Integer, j As Integer, k As Integer, l As Integer, krokow As Integer, url_start As Integer

Dim wb As Workbook

Application.ScreenUpdating = False

Arkusz1.Activate

Set wb = ActiveWorkbook

nazwa = wb.ActiveSheet.Name

Sheets(nazwa).Activate

max_w_bazie = Application.WorksheetFunction.Max(Range("A:A"))

Sheets(nazwa).Range("CW:CY").ClearContents

adres_url = "URL;http://www.multipasko.pl/wyniki-lotto/multi-lotek/"

Application.ScreenUpdating = False

With ActiveSheet.QueryTables.Add(Connection:= _

adres_url, Destination:=Range("CW1"))

.Name = "multi-lotek"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlSpecifiedTables

.WebFormatting = xlWebFormattingNone

.WebTables = "6"

.WebPreFormattedTextToColumns = True

.WebConsecutiveDelimitersAsOne = True

.WebSingleBlockTextImport = False

.WebDisableDateRecognition = False

.Refresh BackgroundQuery:=False

End With



Range("CW1:CY50").Select

Selection.Sort Key1:=Range("CW1"), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

ostatnie = Application.WorksheetFunction.Max(Range("CW:CW"))

brakujacych = ostatnie - max_w_bazie



Select Case brakujacych

Case 0

Exit Sub

Case Is <= 50

tab_pasko = Sheets(nazwa).Range(Cells(51 - brakujacych, 101), Cells(50, 103))

ReDim tab_ml(brakujacych, 22)

For i = 1 To brakujacych

tab_ml(i, 1) = tab_pasko(i, 1)

pom_data = Split(tab_pasko(i, 2), ".")

tab_ml(i, 2) = DateSerial(Val(pom_data(2)), Val(pom_data(1)), Val(pom_data(0)))

pom_wynik = Split(tab_pasko(i, 3), ",")

For k = 0 To 19

tab_ml(i, 3 + k) = Val(pom_wynik(k))

Next k

Next i

Sheets(nazwa).Range(Cells(max_w_bazie + 3, 1), Cells((max_w_bazie + 2) + brakujacych, 22)).Value = tab_ml



Case Is > 50

If brakujacych Mod 50 = 0 Then

krokow = brakujacych / 50

url_start = ostatnie - (krokow * 50) + 50

ElseIf ostatnie Mod 50 <> 0 Then

krokow = Int(brakujacych / 50) + 1

If brakujacych = ostatnie Then

url_start = brakujacych Mod 50

Else

url_start = ostatnie - (krokow * 50) + 50

End If

End If

sort_url = "URL;http://www.multipasko.pl/wyniki-lotto/multi-lotek/sortowane/"

For l = 1 To krokow

adres_url = sort_url & url_start & "/"

Sheets(nazwa).Range(Cells(1, 101), Cells(51, 103)).ClearContents

With ActiveSheet.QueryTables.Add(Connection:=adres_url, Destination:=Range("CW1"))

.Name = "multi-lotek"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlSpecifiedTables

.WebFormatting = xlWebFormattingNone

.WebTables = "6"

.WebPreFormattedTextToColumns = True

.WebConsecutiveDelimitersAsOne = True

.WebSingleBlockTextImport = False

.WebDisableDateRecognition = False

.Refresh BackgroundQuery:=False

End With

Range("CW1:CY50").Select

Selection.Sort Key1:=Range("CW1"), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

ostatnie = Application.WorksheetFunction.Max(Range("CW:CW"))

max_w_bazie = Application.WorksheetFunction.Max(Range("A:A"))

brakujacych = ostatnie - max_w_bazie

url_start = url_start + 50

If ostatnie >= 50 Then

tab_pasko = Sheets(nazwa).Range(Cells(51 - brakujacych, 101), Cells(50, 103))

Else

tab_pasko = Sheets(nazwa).Range(Cells(1, 101), Cells(ostatnie, 103))

End If

ReDim tab_ml(brakujacych, 22)

For i = 1 To brakujacych

tab_ml(i, 1) = tab_pasko(i, 1)

pom_data = Split(tab_pasko(i, 2), ".")

tab_ml(i, 2) = DateSerial(Val(pom_data(2)), Val(pom_data(1)), Val(pom_data(0)))

pom_wynik = Split(tab_pasko(i, 3), ",")

For k = 0 To 19

tab_ml(i, 3 + k) = Val(pom_wynik(k))

Next k

Next i

Sheets(nazwa).Range(Cells(max_w_bazie + 3, 1), Cells((max_w_bazie + 2) + brakujacych, 22)).Value = tab_ml

Next l

End Select

Application.ScreenUpdating = True

Sheets(nazwa).Range("CW:CY").ClearContents

Sheets(nazwa).Cells(ostatnie + 3, 1).Select

ActiveWorkbook.Save

End Sub



wesołego dnia
2011-11-18 (11:24)

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

721
wpis nr 473 394
[ CZCIONKA MONOSPACE ]

Janusz dzięki za arkusz bardzo kolorowy a kolory podobają mi się bardzo .... jak widzę z automatycznym wpisaniem wyników losowań mamy ten sam problem jak do tej pory tylko Dylong umiał go rozwiązać ..... ja w makro od razu zapisałem by z pamięci zapisywał ostatnie 50 wyników losowań w ustalonym miejscu które podswietle i dam na kopiuj jako tekst dlatego tak mam bo analizie poddaje stale pętle zamkniętą ostatnich 50 losowań
2011-11-18 (13:50)

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

721
wpis nr 473 430
[ CZCIONKA MONOSPACE ]

2011-11-18 (14:09)

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

721
wpis nr 473 436
[ CZCIONKA MONOSPACE ]

eksperyment nie udał się wiec nadal X-3 trzymam się
2011-11-18 (16:08)

status janus
Data rejestracji: 2005-06-06
Ilość postów: 14775

982
wpis nr 473 481
[ CZCIONKA MONOSPACE ]

Witam,

Mnie Sławek wystarczy półautomatyczne wpisywanie



o 14 słabo

na 22 .

Janusz
2011-11-18 (18:46)

status oliwiam
Data rejestracji: 2008-02-13
Ilość postów: 7323

3193
wpis nr 473 531
[ CZCIONKA MONOSPACE ]

Wynik z 14



= .
2011-11-18 (18:55)

status oliwiam
Data rejestracji: 2008-02-13
Ilość postów: 7323

3193
wpis nr 473 533
[ CZCIONKA MONOSPACE ]

Na 22



= .
2011-11-18 (22:24)

status janus
Data rejestracji: 2005-06-06
Ilość postów: 14775

982
wpis nr 473 587
[ CZCIONKA MONOSPACE ]

o 22 było słabo

Dobranoc

2011-11-19 (00:07)

status Pieres
Data rejestracji: 2011-05-29
Ilość postów: 1255

13048
wpis nr 473 619
[ CZCIONKA MONOSPACE ]

Widzę , że te 'Programiki - Wspomagacze' niewiele dają !



Mimo to , życzę wytrwałości w poszukiwaniu sposobu ...



Pozdrawiam
2011-11-19 (08:22)

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

721
wpis nr 473 640
[ CZCIONKA MONOSPACE ]

Pieres na taki wpis Ja mówię krótko sprawdzam



Przez 14 dni podajemy po 16 jednakowych liczb na 2 losowania mamy wtedy mamy możliwoś na trzy wyniki .... wygrana, przegrana i remis ..... sprawdzimy kto więcej poprawnych będzie podawał ja swoje juz podaje







wesołego dnia
2011-11-19 (08:35)

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

721
wpis nr 473 645
[ CZCIONKA MONOSPACE ]

witam



Jak widać trochę nudne staje się podawanie X-3 jak widać przy dużym szczęści można z niego osiągnąć 7/10 wyjścia 4/10 i 5/10 to tylko gra dla gry by dużo nie tracić ..... dlatego przechodzę na X-4 ciekawe jak tu będzie

Takich X mam do 12 ..... do 7 idą w górę pod względem typowania poprawnych liczb pózniej pozniej poprawność spada







wesołego dnia
2011-11-19 (08:37)

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

721
wpis nr 473 646
[ CZCIONKA MONOSPACE ]

2011-11-19 (12:23)

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

721
wpis nr 473 685
[ CZCIONKA MONOSPACE ]

Janusz pomimo uzupełnienia bazy danych losowań ostatnie losowanie mam zapisane jako numer 6197 nie daje rady tego zmienić w obliczeniach jak to teraz się robi



2011-11-19 (14:15)

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

721
wpis nr 473 729
[ CZCIONKA MONOSPACE ]





z podanego zestawu wyszło 9 liczb na 26 w zestawie



wesołego dnia
2011-11-19 (15:04)

status oliwiam
Data rejestracji: 2008-02-13
Ilość postów: 7323

3193
wpis nr 473 749
[ CZCIONKA MONOSPACE ]

Wynik z 22



= .
2011-11-19 (15:10)

status oliwiam
Data rejestracji: 2008-02-13
Ilość postów: 7323

3193
wpis nr 473 758
[ CZCIONKA MONOSPACE ]

Wynik z 14



= .
2011-11-19 (15:18)

status oliwiam
Data rejestracji: 2008-02-13
Ilość postów: 7323

3193
wpis nr 473 761
[ CZCIONKA MONOSPACE ]

Na 22



= .
2011-11-19 (16:47)

status janus
Data rejestracji: 2005-06-06
Ilość postów: 14775

982
wpis nr 473 776
[ CZCIONKA MONOSPACE ]

Witam,

Kolumna AI:AI to liczby plusa wpisujesz ręcznie

komórka X1 zółta ma komentarz,

zaznaczasz w sposób jak na obrazku , kopiujesz i wklejasz do X1 całość, potem dopisz i baza losowań będzie uzupełniona o to losowania



o 14 .



2011-11-19 (16:51)

status janus
Data rejestracji: 2005-06-06
Ilość postów: 14775

982
wpis nr 473 778
[ CZCIONKA MONOSPACE ]

W tym co pokazujesz nic się nie robi lecz uruchamia automat aktualizacja, wszystkie arkusze zostaną przeliczone, i pojawi się losowanie oczekiwane w A3 i to tyle
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 733 734 735 ... 1228 1229

Wyślij wiadomość do admina
🎱 MultiPairs 2027 – nowa wersja w przeglądarce, otwórz BETA