Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 6 7 8 ... 53 54
Wyślij wiadomość do admina

Przewiń wpisy ↓

Excel- potrzebna pomoc

2009-03-09 (16:40)

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

721
wpis nr 186 369
[ CZCIONKA MONOSPACE ]

To jest jak widzę porównanie wartości w komórkach czyli jak wartość jest równa Makro nie wykonuje działania jak różna wykonuje działanie ...tak sądzę



Tylko jak Makro ma określić ostatni wykonany wpis w Arkusz1 przedział \"A3:A6000\" i wykonać kopiowanie liczb z Arkusz2 o 50 wierszy wyżej niż wynosi ostatni wpis liczb w Arkusz1 \"A?\"



wesołego dnia





2009-03-09 (19:16)

status dylong
Data rejestracji: 2006-07-21 00:00:00
Ilość postów: 2814

2572
wpis nr 186 423
[ CZCIONKA MONOSPACE ]

Sławku, to proste operacje są, dodawanie i odejmowanie nic poza tym. Nie wiem z czym masz problem, dośc niejasno piszesz, nawet nie wiadomo czy baza leci z góry na dół czy odwrotnie, i w jakiej kolejności - najnowsze na górze czy na dole. Ale jak by nie było, porównać, i dodać albo odjąć, tylko stosuj odwołania do komórek w postaci cells(wiersz, kolumna)

Pozdrawiam
2009-03-09 (20:10)

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

721
wpis nr 186 442
[ CZCIONKA MONOSPACE ]

wiem że to prosta procedura już ją raz wykonałeś jak bawiłem się Hybrydą 50



żeby było jeszcze prościej na stronie http://sufler.com.pl/slawek/

pozycja nr 2 Hybryda002 jest arkusz nad którym się mecze po otworzeniu się arkusza Odkryj Arkusze przyciskiem i w Info jest dokładnie opisane co do tej pory wykonałem a jak wykonać to nieszczęsne kopiowanie omówimy na forum



wesołego wieczoru
2009-03-09 (20:45)

status dylong
Data rejestracji: 2006-07-21 00:00:00
Ilość postów: 2814

2572
wpis nr 186 448
[ CZCIONKA MONOSPACE ]

Zaglądnę, ale z czasem krucho, może jutro chwilkę znajdę? Odezwę się jak mi się uda temu przyjżeć.

2009-03-09 (21:15)

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

721
wpis nr 186 460
[ CZCIONKA MONOSPACE ]

dziękuje
2009-03-09 (21:39)

status sindbad
Data rejestracji: 2008-10-13 00:00:00
Ilość postów: 20527

3794
wpis nr 186 473
[ CZCIONKA MONOSPACE ]



Hej!

Jak dla mnie to za dużo w tym excelu obiektów jestem zielony z tego jak ta strona, ale znalazłem coś takiego:



Sub tu_dopisz()



Dim komurka As Range



For Each komurka In Range(\"A3:A6000\")

If komurka.Value = \"\" Then Exit For

Next



ostatnia = komurka.Row



MsgBox ostatnia



End Sub



2009-03-09 (21:43)

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

721
wpis nr 186 475
[ CZCIONKA MONOSPACE ]

Jak to dużo obiektów było arkuszy ukrytych nie odkrywać



Dzięki jutro sprawdzę co to Makro robi



wesołego wieczoru
2009-03-10 (14:53)

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

721
wpis nr 186 551
[ CZCIONKA MONOSPACE ]

sindbad ... dziękuje ale to tylko pokazywało jaki nr ma ostatnia pusta komórka wiec wykonałem coś takiego



\'pętla sprawdzająca czy już jest wykonany wpis ostatniego losowania



If Arkusz3.Range(\"AP103\").Value <> Arkusz3.Range(\"AP108\").Value Then



\' kopiowanie do ostatniej wolnej komórki Arkusza Baza Losowań



Sheets(\"Baza losowan Hybryda\").Select

Range(\"AP54:BK103\").Select

Selection.Copy

With Worksheets(\"Baza Losowań\")

ActiveWorkbook.Worksheets(\"Baza Losowań\").Range(\"a65500\") _

.End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

Sheets(\"Baza Losowań\").Select



End With



End If



działa to prawidłowo wykonuje wpis podanego zakresu od ostatniej pustej komórki tylko potrzebuje jeszcze tą ostatnią pustą komórkę przesunąć do góry o wartość jaka jest podana w AP110 jest tam podana wartość ujemna



wesołego dnia

2009-03-10 (19:43)

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

721
wpis nr 186 618
[ CZCIONKA MONOSPACE ]

UFFFFFF ukończyłem działa



wystarczyło dopisać Makro kasujące podwójne wpisy i już po problemie a niech wgrywa się podwójnie 49 losowań i tak będzie na koniec usunięte



= .



ostatnia część Makra jaka została dodana do Arkusza Baza_Losowań_ML_Hybryda i koniec z wpisywaniem wyników losowań do arkusza same się wpiszą



Jak wykończę kosmetykę Arkusza wgram Go jutro do pobrania



wesołego wieczoru

2009-03-11 (20:23)

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

721
wpis nr 186 848
[ CZCIONKA MONOSPACE ]

Baza losowan Hybryda ML .... jakoś tam działa



można jej działanie sprawdzić pobierając ze strony http://sufler.com.pl/slawek/



wesołego wieczoru
2009-03-12 (12:51)

status dylong
Data rejestracji: 2006-07-21 00:00:00
Ilość postów: 2814

2572
wpis nr 186 972
[ CZCIONKA MONOSPACE ]

Sławku, odwaliłeś kawał dobrej roboty, tym niemniej miałem dziś chwilkę i pozwoliłem sobie pomajstrować przy Twoim makrze. Efekt poniżej. Omówię różnice w stosunku do Twojego:

- ilość brakujących losowań nie ma znaczenie, makro pobierze również wszystkie jeśli zachodzi taka potrzeba

- oszczędność arkuszy w stosunku do Twojej Hybrydy, wszystko dzieje się w jednym arkuszu

- nie korzystam z działań na arkuszu aby dokonać konwersji daty czy wyników losowań, do arkusza (zawierającego Bazę Losowań) wczytuję tylko kolejne strony z wynikami, reszta dzieje się \"w locie\"

- nazwa arkusza z bazą jest nieistotna, jest ona pobierana z aktywnego arkusza, ponieważ jest to jednak makro auto, w przypadku istnienia większej ilości arkuszy przy zamknięciu (i zapisie) skoroszytu z aktywnym innym arkuszem niż Baza Losowań uaktywniam Arkusz1. Można uzupełnić kod o funkcję sprawdzającą w którym arkuszu są zawarte wyniki losowań (chociaż tak do końca nigdy to pewne nie będzie) i uaktywnienie tego arkusza, ale to kosmetyka i szkoda na to czasu, tak więc Baza musi znajdować się w Arkusz1 (jako nazwa obiektu a nie arkusza). Gdyby nie było to makro auto, to nalezy tylko zadbać o to aby przycisk je uruchamiający znajdował się w arkuszu z Bazą, a instrukcję Arkusz1.Activate należy usunąć



Wszystkich testów tego makra oczywiście nie przeprowadziłem



Pozdrawiam

PS.

Makro w następnym poście, bo tu już się nie mieści





2009-03-12 (13:26)

status dylong
Data rejestracji: 2006-07-21 00:00:00
Ilość postów: 2814

2572
wpis nr 186 982
[ CZCIONKA MONOSPACE ]

daję obrazek, bo admin przycina teksty do 1999 znaków, kryzys jak widać wszędzie, oszczędności



2009-03-12 (15:30)

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

721
wpis nr 187 018
[ CZCIONKA MONOSPACE ]

super przeczytałem Makro i szczęka mi opadłą podwójna pętla o której dziś myślałem żeby więcej niż 50 losowań pobrać można było



Już nawet Makro umiem czytać pojętny uczeń jestem



I tak doszedłem dziś do wniosku za Baza Losowań Hybryda jak kaszanka mi wyszła .... ale na tym Makro to już się poprawie



wielkie dzięki



wesołego dnia
2009-03-12 (21:48)

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

721
wpis nr 187 130
[ CZCIONKA MONOSPACE ]

coś żle przepisałem to polecenie blokuje mi makro



= .



wesołego wieczoru
2009-03-12 (22:56)

status dylong
Data rejestracji: 2006-07-21 00:00:00
Ilość postów: 2814

2572
wpis nr 187 158
[ CZCIONKA MONOSPACE ]

hmm, nie ma komunikatu to nie bardzo wiadomo o co chodzi, na początek usunął bym znak podziału tej instrukcji na dwa wiersze (podkreślenie), tzn. usunąc podkreślenie i połączyć te dwa wiersze w jeden.... Poza tym - po co przepisujesz, mogę to przecież w kawałkach w postaci tekstu zamieścić

Dobranoc
2009-03-13 (07:51)

status dylong
Data rejestracji: 2006-07-21 00:00:00
Ilość postów: 2814

2572
wpis nr 187 171
[ CZCIONKA MONOSPACE ]

tu jest w pliku tekstowym, jeśli ktoś by potrzebował:

http://www.sendspace.pl/file/Jq21BwBb/



Pozdrawiam
2009-03-13 (15:00)

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

721
wpis nr 187 237
[ CZCIONKA MONOSPACE ]

Działa i to jak Wielkie Dzięki wgrałem Makro na pusty Arkusz i całą bazę mi pobrało



Możesz jeszcze zdradzić tajemnice gdzie pomajstrować w tabelach pobierania Makro żeby Dużego i Express można było pobrać jak na razie można tylko zmienić adres pobierania strony losowań ale coś tablica od Multi blokuje transformacje wyników i się nie pokazują nr losowań i daty da się tylko pobrać do Numerka ten układ Makra nie pasuje to wiem ale 3 bazy samo pobierające się to już i tak było by dużo



Jak sądzę na takie coś nie tylko ja czekałem jeszcze raz Wielkie Dzięki
2009-03-13 (21:11)

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

721
wpis nr 187 322
[ CZCIONKA MONOSPACE ]

wgrałem na stronę surowe Makro i Arkusz z jak mi się wydaje ładną grafika

Makro z Arkusza grafikę jak i zastosowane formatowania na wpisane w Makro wiec wystarczy tylko Makro z niego wpisać na swój Arkusz i uruchomić



= .



http://sufler.com.pl/slawek/



wesołego wieczoru

2009-03-13 (21:15)

status dylong
Data rejestracji: 2006-07-21 00:00:00
Ilość postów: 2814

2572
wpis nr 187 325
[ CZCIONKA MONOSPACE ]

Nie testowałem, ale zapewne (oprócz adresów - tego wstępnego i do danych historycznych) trzeba 22 w:

ReDim tab_ml(brakujacych, 22)

zamienić na 8 dla DL i 7 dla Ex, no i w pętli

For k = 0 To 19

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

Next k

zamienić 19 na 5 dla DL i 4 dla ML

Najlepiej te wszystkie rzeczy jako zmienne określić, i wtedy przy wyborze danej gry z automatu ustawić wszystko, pamiętać też należy o ustawieniu parametrów \"zrzutu\" ściągniętej bazy. Na DL i EX nie patrzyłem, ciekawił mnie Numerek (ze względów \"technicznych\", a nie fascynacji tą grą), ale kwerendą excela nie da rady. Excel trawi tylko tekst w takiej kwerendzie, a u Paski numerek jest w postaci rysunku, wprawdzie nazwy rysunków odpowiadają wylosowanej liczbie, ale jest to widoczne w kodzie strony, a nie w pobranej tabeli.

Pozdrawiam

2009-03-13 (21:24)

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

721
wpis nr 187 329
[ CZCIONKA MONOSPACE ]

Ja na pierwszej wersji Arkusza Testowałem dlatego wyszła Baza Losowań Hybryda 0 ją właśnie na Makro chcę przerobić i przerobie uparty jestem .... z Numerkiem też dużego problemu nie ma z tabeli 6 pobierane są 4 liczby losowań i gdzieś z innej tabeli numerek Numerek



wesołego wieczoru
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 6 7 8 ... 53 54
Wyślij wiadomość do admina