Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

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

Przewiń wpisy ↓

Hybryda_2015_ML

2014-08-30 (14:28)

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

721
wpis nr 830 105
[ CZCIONKA MONOSPACE ]

Od razu zaznaczam nie ma takiego arkusza jest to tylko teoretyczne podejście do wykonania analizy w 3D ...... Analiza opiera się na zliczeniu ilości losowań kiedy wyszło 80 liczb, rozdzieleniu od siebie nakładających się wyjść 80 liczb, poddania analizie tendencji liczby czy jest wzrostowa .... wzór analizy do pobrania



http://speedy.sh/acvgb/Hybryda.xls
2014-08-30 (18:35)

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

721
wpis nr 830 156
[ CZCIONKA MONOSPACE ]

Ciekawe może być zastosowanie



Wykresy poszczególnej liczby wskazują czy liczba posiada tendencje wzrostowe czy spadkowe na losowanie



posiadając liczby o jednakowym np. ilości wystąpienia w określonej ilości losowań można określić czy liczba posiada tendencje wzrostowa czy spadkową.



2014-08-30 (19:47)

status electric
Data rejestracji: 2010-10-11
Ilość postów: 102

12695
wpis nr 830 174
[ CZCIONKA MONOSPACE ]

Cześć Sławek mam Xybryde 2012 ale nie mogę jej uruchomić ,jakiś czs temu chodziła a teraz klapa.Czy możesz mi pomóc ?
2014-08-30 (20:38)

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

721
wpis nr 830 193
[ CZCIONKA MONOSPACE ]

electric .... Hybryda opiera się na pobieraniu bazy losowań ze strony Paska .... z uwagi ze została zmieniona pozycja pobierania wyników losowań Kwarendą nie można pobrać bazy losowań po prostu przestał arkusz działać działać tak bywa ..... Kwarenda zapisana jest w arkuszu Arkusz1 lub pod nazwą Kwarenda pozycja A1 ... uruchamiając arkusz bez pobierania danych jest możliwość zobaczenie co wtedy robiłem



2014-08-30 (20:50)

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

721
wpis nr 830 201
[ CZCIONKA MONOSPACE ]

jeżeli chcesz uruchomić arkusz w zakładce obliczenia pobierać 50 ostatnich losowań tylko pamiętaj kwarendą były pobierane wyniki losowań w odbiciu lustrzanym ostatnie losowanie było na górze 50 na dole szare pole na obrazku



2014-08-31 (08:49)

status electric
Data rejestracji: 2010-10-11
Ilość postów: 102

12695
wpis nr 830 257
[ CZCIONKA MONOSPACE ]

Nie mogę tego rozgryzć..
2014-08-31 (10:51)

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

721
wpis nr 830 282
[ CZCIONKA MONOSPACE ]

Hybryda_2012_finał .... jak sądzę masz tą wersje arkusza .... zakładka obliczenia



komórki B2:H101 .... podają wyniki losowań pobrane Kwarendą







możesz spokojnie dla dla komórek B1:H101 dać polecenie wyczyść zawartość



komórki L2:AE51 .... podają fragment tekstu (liczby)







możesz spokojnie dla komórek L2:AE51 dać polecenie wyczyść zawartość



Ta część arkusza była odpowiedzialna za pobieranie wyników losowań Kwarendą



Teraz chcą z własnej bazy losowań podać wyniki losowań do analizy Hybrydy musisz podawać losowania w kolejności od góry do dołu .... numery losowań i wyniki



6417

6416

6415

6414

6413

6412

6411

6410



wyniki losowań są podawane do komórek AF2:AY51 pod nazwa Liczby całkowite



w tych polach musi być zawsze 50 ostatnich losowań i arkusz będzie działał .... tylko pamiętaj ja zawsze podawałem ostatnie losowanie na górze czyli w komórkach AF2:AY2 .... 50 losowanie czyli ostatnie podaje w komórce AF51:AY51









2014-08-31 (12:36)

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

721
wpis nr 830 323
[ CZCIONKA MONOSPACE ]

Zostałem położony na łopatki przerabiam Hybryda_2012_finał na pobieranie wyników losowań przez Makro a nie Kwarendę







Teraz mam pytanie .... Jak będzie wyglądało napisane Makro żeby zawsze 50 ostatnich losowań było zapisane w innych komórkach w odwrotnej kolejności .... wystarczy nawet zapis ostatnich 50 losowań kolejność już zmienię.
2014-08-31 (15:13)

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

721
wpis nr 830 367
[ CZCIONKA MONOSPACE ]

1:0 dla Makra



Przerobiłem Makro dla potrzeb Hybryda_2012_finał wszystkie czynności Makra wykonywane są w zakładce Baza ... wyniki losowań są pobierane wszystko działa tylko .... po połączeniu bazy wyników losowań z pozostałą częścią arkusza z chwilą wykonania aktualizacji wyników losowań połączenie wykonane formułą znika .... jak wykonać żeby to połączenie nie znikało ?



Makro jakim pobieram wyniki losowań



Sub Baza_losowan_MM()



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("Baza")

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

For i = ost_k To 1 Step -1

.Columns(i).Delete

Next i



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

Destination:=Sheets("Baza").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("Baza").Range("BM1").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("Baza").Range("AA1").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("Baza").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

2014-08-31 (18:58)

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

721
wpis nr 830 445
[ CZCIONKA MONOSPACE ]

electric ..... arkusz Hybryda_2012_finał powinien już poprawnie działać



http://speedy.sh/m9e5n/Hybryda-2012-final.xls



jak masz inna wersje arkusza to poprawie

2014-08-31 (19:52)

status merti
Data rejestracji: 2011-12-25
Ilość postów: 4460

13301
wpis nr 830 465
[ CZCIONKA MONOSPACE ]

Program ma błąd. Nie bierze pod uwagę pierwszej liczby z wylosowanych
2014-08-31 (20:04)

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

721
wpis nr 830 470
[ CZCIONKA MONOSPACE ]

Dzięki już błąd poprawiłem ... był tylko w wynikach losowań



http://speedy.sh/javGd/Hybryda-2012-final.xls
2014-08-31 (20:12)

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

721
wpis nr 830 472
[ CZCIONKA MONOSPACE ]

znalazłem jeszcze jeden błąd nie mający nic wspólnego z wykonaniem analizy arkusza, poprawiony



http://speedy.sh/WdFAP/Hybryda-2012.xls

2014-08-31 (20:20)

status merti
Data rejestracji: 2011-12-25
Ilość postów: 4460

13301
wpis nr 830 483
[ CZCIONKA MONOSPACE ]

>Sławek, zapoznałeś się z moimi wypocinami? Pytam bo nie odpisujesz na @...
2014-08-31 (20:33)

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

721
wpis nr 830 486
[ CZCIONKA MONOSPACE ]

nic nie mam na poczcie .... jeszcze raz podaje adres .... slawomir.hofman@interia.pl .... sprawdzałem spamy tam tez pustki
2014-08-31 (20:38)

status merti
Data rejestracji: 2011-12-25
Ilość postów: 4460

13301
wpis nr 830 487
[ CZCIONKA MONOSPACE ]

To jednak coś u ciebie. Ja zrezygnowałem z Interii bo zmienili system i nagle do mnie zaczęło spływać mniej wiadomości, tak jak gdyby ich serwer wogóle z zewnątrz nie przyjmował od nikogo. Napisz do mnie merti@o2.pl, może w odpowiedzi dojdzie do Ciebie Chyba że masz inny adres...

--- wpis edytowano 2014-08-31 20:40 ---

2014-08-31 (20:55)

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

721
wpis nr 830 496
[ CZCIONKA MONOSPACE ]

wysłałem kartkę doszła ?
2014-08-31 (20:57)

status merti
Data rejestracji: 2011-12-25
Ilość postów: 4460

13301
wpis nr 830 497
[ CZCIONKA MONOSPACE ]

Jeżeli masz na myśli jakiś załącznik to nie, sam tekst dotarł... Ja ponownie wysłałem do ciebie z załącznikiem

--- wpis edytowano 2014-08-31 20:59 ---

2014-08-31 (22:23)

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

721
wpis nr 830 521
[ CZCIONKA MONOSPACE ]

tak dla ciekawości Hybryda_2012 jeszcze działa



tylko jak pamiętam a 10 podanych pod napisem Hybryda 2012 nie mogłem ustalić kiedy będą takie wyjścia jak są pokazane





2014-09-01 (10:30)

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

721
wpis nr 830 606
[ CZCIONKA MONOSPACE ]

Liczyłem na jakąś dyskusje na Temat wyjścia ostatniej liczby a tu cisza .... czyżbym obalił teorie ze nie można określić kiedy ostatnia liczba zamyka peleton i ile peletonów bierze udział w wyścigu ?
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 3 4
Wyślij wiadomość do admina