Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 3 4 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | Hybryda_2015_ML |
2014-08-30 (14:28) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 105 [ CZCIONKA SPECJALNA ] 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 156 [ CZCIONKA SPECJALNA ] 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) electric Data rejestracji: 2010-10-11 Ilość postów: 100 | wpis nr 830 174 [ CZCIONKA SPECJALNA ] 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 193 [ CZCIONKA SPECJALNA ] 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 201 [ CZCIONKA SPECJALNA ] 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) electric Data rejestracji: 2010-10-11 Ilość postów: 100 | wpis nr 830 257 [ CZCIONKA SPECJALNA ] Nie mogę tego rozgryzć.. |
2014-08-31 (10:51) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 282 [ CZCIONKA SPECJALNA ] 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 323 [ CZCIONKA SPECJALNA ] 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 367 [ CZCIONKA SPECJALNA ] 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 445 [ CZCIONKA SPECJALNA ] 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) merti Data rejestracji: 2011-12-25 Ilość postów: 4460 | wpis nr 830 465 [ CZCIONKA SPECJALNA ] Program ma błąd. Nie bierze pod uwagę pierwszej liczby z wylosowanych |
2014-08-31 (20:04) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 470 [ CZCIONKA SPECJALNA ] 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 472 [ CZCIONKA SPECJALNA ] 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) merti Data rejestracji: 2011-12-25 Ilość postów: 4460 | wpis nr 830 483 [ CZCIONKA SPECJALNA ] >Sławek, zapoznałeś się z moimi wypocinami? Pytam bo nie odpisujesz na @... |
2014-08-31 (20:33) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 486 [ CZCIONKA SPECJALNA ] nic nie mam na poczcie .... jeszcze raz podaje adres .... slawomir.hofman@interia.pl .... sprawdzałem spamy tam tez pustki |
2014-08-31 (20:38) merti Data rejestracji: 2011-12-25 Ilość postów: 4460 | wpis nr 830 487 [ CZCIONKA SPECJALNA ] 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 496 [ CZCIONKA SPECJALNA ] wysłałem kartkę doszła ? |
2014-08-31 (20:57) merti Data rejestracji: 2011-12-25 Ilość postów: 4460 | wpis nr 830 497 [ CZCIONKA SPECJALNA ] 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 521 [ CZCIONKA SPECJALNA ] 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 830 606 [ CZCIONKA SPECJALNA ] 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 lotto | Strona: 1 2 3 4 Wyślij wiadomość do admina |