Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 22 23 24 ... 53 54
Wyślij wiadomość do admina

Przewiń wpisy ↓

Excel- potrzebna pomoc

2012-10-22 (12:14)

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

721
wpis nr 566 714
[ CZCIONKA MONOSPACE ]

czy końcowy efekt ma tak wyglądać ?



2012-10-22 (13:42)

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

13301
wpis nr 566 731
[ CZCIONKA MONOSPACE ]

Dokładnie, taki ma być efekt końcowy Sprostuję, wyniki pojawiają się pionowo w tabeli czyli w jednej z 20 kolumn
2012-10-22 (22:59)

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

721
wpis nr 566 898
[ CZCIONKA MONOSPACE ]

czyli tak i jeszcze usunąć powtarzające się liczby ?



2012-10-22 (23:31)

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

13301
wpis nr 566 901
[ CZCIONKA MONOSPACE ]

Drugi sposób jest OK, bo jak pisałem wcześniej wyniki są w kolumnach. Jest jedno wielkie ALE... To są posortowane liczby, a tego nie chcę, traci się cały sens arkusza....

A tak poza nawiasem to teraz nawet Ci nie powiem jak ta tabelka wygląda (nie mam jak się odnieś, musiał bym wrzucić z nowymi wynikami) , bo po wysłaniu z roboty tego arkusza teraz w domu dziwnym trafem nie mogę go otworzyć, tak jak wiele innych "paczek" pobranych z sieci...
2012-10-22 (23:59)

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

13301
wpis nr 566 910
[ CZCIONKA MONOSPACE ]

Tak to ma wyglądać jak na obrazku poniżej...

/



Pobrałem to moje archiwum Już wiem gdzie tkwił problem. Serwer Wrzucaj zamienia końcówkę nieskompresowanego pliku na .rar
2012-10-22 (23:59)

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

13301
wpis nr 566 911
[ CZCIONKA MONOSPACE ]

2012-10-23 (00:00)

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

13301
wpis nr 566 912
[ CZCIONKA MONOSPACE ]

2012-10-23 (08:07)

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

721
wpis nr 566 933
[ CZCIONKA MONOSPACE ]

z podwójnym wpisem liczb zawsze mam kłopoty w tym nie pomogę







przykładowy arkusz do pobrania



http://www.wrzucaj.org/429458



2012-10-23 (18:04)

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

13301
wpis nr 567 083
[ CZCIONKA MONOSPACE ]

KULFA JESTEŚ WIELKI Oto chodziło, nie do wiary, takie prost, ale dla kogoś kto to kuma. Jestem sto lat za murzynami z formułkami w stosunku do ciebie
2012-10-23 (18:16)

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

13301
wpis nr 567 090
[ CZCIONKA MONOSPACE ]

OK, ale czemu niektórych wartości nie odczytuje?
2012-10-23 (18:26)

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

13301
wpis nr 567 093
[ CZCIONKA MONOSPACE ]

Dobra, znalazłem błąd w kolumnie "licznika". Wszystko gra. Raz jeszcze wielkie dzięki
2012-10-24 (08:40)

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

721
wpis nr 567 227
[ CZCIONKA MONOSPACE ]

merti .... skoro tylko 100 lat za "murzynami" to i tak do przodu jesteś Ja jak pisałem 100 lat za Jaskiniowcami jestem .... sam widzisz używam zawsze prostych Formuł ... więcej nie umiem
2012-10-24 (20:09)

status geniu7
Data rejestracji: 2011-08-16 00:00:00
Ilość postów: 795

13148
wpis nr 567 412
[ CZCIONKA MONOSPACE ]

Witam wszystkich multimaniaków. Słuchajcie, poniższe makro jest do aktualizacji wyników multi z "naszej strony". Aktualizuje do arkusza "Dane" i później przenosi do arkusza "Baza" począwszy od losowania "4424". Dlaczego to chyba nie muszę pisać. W tejrze "Bazie" mam wyniki posegregowane i nie posegregowane. W kolumnie "A" numer losowania, "B" data, "D-W' wyniki posegregowane. Teraz przechodzimy do wyników nieposegregowanych. Kolumna "AM" numer losowania, "AN" data, "AP-BI" wyniki nieposegregowane. Chodzi mi o to, aby dopisać coś w kodzie aby aktualizacja była w wynikach posegregowanych (jak jest do tej pory) i w nieposegregowanych. Te drugie cały czas wklepuje ręcznie bo nie umiem przerobić tego makra. Bardzo proszę o pomoc, może ktoś się pochyli nad tym makrem i dopisze coś, aby aktualizowało obydwie bazy wyników.



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



With Sheets("dane")

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

For i = ost_k To 1 Step -1

.Columns(i).Delete

Next i



'http://www.multipasko.pl/wyniki-csv.php?f=multimulti



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

Destination:=Sheets("dane").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



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





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

'.Columns(1).Copy Sheets("multi lotek").Columns(1)

'.Columns(2).Copy Sheets("multi lotek").Columns(2)

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

'For i = 3 To ost_k

'.Columns(i).Copy Sheets("multi lotek").Columns(i + 1)

'Next i



Range(.Cells(4424, 2), .Cells(ost_w, 2)).Copy

Sheets("Baza").Range("B1").PasteSpecial Paste:=xlPasteValues



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

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







End With



Erase Tabela

Application.ScreenUpdating = True

MsgBox "Aktualizacja zakończona."

Exit Sub



koniec:

Application.ScreenUpdating = True

MsgBox "Aktualizacja obecnie niemożliwa", vbExclamation



End Sub
2012-11-06 (00:01)

status <matti>
Data rejestracji: 2011-03-18 00:00:00
Ilość postów: 1466

12961
wpis nr 571 213
[ CZCIONKA MONOSPACE ]

mam prosbe do Fachowcow w tym temacie, a mianowicie jest tak>

Posiadam u siebie baze wynikow do Lotto niemieckiego od 2007 do teraz w Excelu , ale z wpisywanymi wynikami od gory w tabeli czyli np:

data wyniki

3-11-2012 1,2,3,4,5,6

31-10-2012 1,2,3,4,5,6

....................................

...................................

......................................

3-01-2007 1,2,3,4,5,6



mysle ze jest to zrozumiale , i chodzi mi o to jak obrocic te dane zeby zachowac date i przy niej odpowiednie wyniki zeby mozna bylo wprowadzac kolejne losowania na dole czyli

3-01-2007 1,2,3,4,5,6

.......................................

.......................................

.......................................

31-10-2012 1,2,3,4,5,6

3-11-2012 1,2,3,4,5,6

7-11-2012 ?,?,?,?,?,?



nie wiem jak to zrobic, probowalem ale zawsze cos mi sie knoci, a sadzac po tym ze jest tu kilku uczynnych Fachowcow to mysle ze pomoga

moge nawet podeslac plik z tymi wynikami komus chetnemu co by to wykonal u siebie i mi potem odeslal gotowe
2012-11-06 (07:51)

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

721
wpis nr 571 228
[ CZCIONKA MONOSPACE ]

<matti> .... Też nie wiem jak to zrobić ale wiem ... można To wykonać przez Makro .... kiedyś takie coś Dylong mi wykonał
2012-11-06 (07:56)

status Adalbert
Data rejestracji: 2009-03-19 00:00:00
Ilość postów: 675

4335
wpis nr 571 229
[ CZCIONKA MONOSPACE ]

@matti



Załóżmy, że wyniki wpisane są w kolumnie B. W kolumnie A wpisz numery losowania:

1

2

3

4

5

itd



Posortuj cały obszar w kolejności od największych liczb w kolumnie A do najmniejszych liczb.



Jeżeli nie potrafisz tego zrobić podeślij plik Excela na adres:

lottopedia@gmail.com



Pozdrawiam

Adalbert
2012-11-06 (08:54)

status <matti>
Data rejestracji: 2011-03-18 00:00:00
Ilość postów: 1466

12961
wpis nr 571 236
[ CZCIONKA MONOSPACE ]

dzieki chlopaki za pomoc

Adalbert zadzialalo tak jak napisales SUPER



@Slawek

takie pytanko czy bylbys w stanie jak bym podeslal tobie te wyniki i na podstawie tych dancyh, zrobic cosik na wzor Hybrydy Minilotto jesli dalo by rade
2012-11-06 (10:30)

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

721
wpis nr 571 253
[ CZCIONKA MONOSPACE ]

<matti> .... jezeli tam są 42 liczby i losuje się tylko 5 to .............. zmień bazę losowań w Hybrydzie wpisz ostatnie 450 losowań wykonaj Aktualizacje i Gotowe ..... Makra same już wszystko wykonają ..... Tablice pod Nową Grę Otrzymasz



2012-11-06 (10:48)

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

721
wpis nr 571 261
[ CZCIONKA MONOSPACE ]

widzę tam losuje się 6 liczb ..... musiał bym cały arkusz wykonać od Nowa a na razie Wenny Twórczej mi brak .... już od dawna przymierzam się do wykonania takiego Arkusza dla DL tam właśnie losuje się 6 liczb ...... sądzę że kiedy już szał Świąteczny minie w przyszłym roku wykonam coś takiego dla 6 liczb
2012-11-06 (17:20)

status <matti>
Data rejestracji: 2011-03-18 00:00:00
Ilość postów: 1466

12961
wpis nr 571 391
[ CZCIONKA MONOSPACE ]

@Slawek

dokladnie tak jak u nas i w innych grach na swiecie gdzie losuja 6z49, fajnie byloby jakbys taie cosik stworzyl dla tej gry a jak juz zauwazyles to mozna byloby wykorzystac nie tylko do naszego rodzimego Lotto ale takze do zagranicznych Lotto 6/49

No to poczekam jak cie wena najdzie
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 22 23 24 ... 53 54
Wyślij wiadomość do admina