Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 3 4 5 6 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | ZAPŁACĘ ZA NAPISANIE PROGRAMU |
2014-08-22 (10:46) Ken Data rejestracji: 2012-09-01 Ilość postów: 2921 | 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) Ken Data rejestracji: 2012-09-01 Ilość postów: 2921 | 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) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | 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) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | 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) Ken Data rejestracji: 2012-09-01 Ilość postów: 2921 | 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) Ken Data rejestracji: 2012-09-01 Ilość postów: 2921 | 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) slawek001 Data rejestracji: 2005-02-24 Ilość postów: 6116 | 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) Ken Data rejestracji: 2012-09-01 Ilość postów: 2921 | 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) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | 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) Ken Data rejestracji: 2012-09-01 Ilość postów: 2921 | wpis nr 828 164 [ CZCIONKA SPECJALNA ] Czy jest jakiś problem w poprawienie tej kwerendy ? |
2014-08-22 (14:30) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | 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) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | 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) Ken Data rejestracji: 2012-09-01 Ilość postów: 2921 | 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) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | 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) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | 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) Ken Data rejestracji: 2012-09-01 Ilość postów: 2921 | 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) 777ch Data rejestracji: 2005-11-07 Ilość postów: 21426 | 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) kleszek Data rejestracji: 2006-05-27 Ilość postów: 4850 | 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 lotto | Strona: 1 2 3 4 5 6 Wyślij wiadomość do admina |