| Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 6 7 8 ... 53 54 Wyślij wiadomość do admina |
| Przewiń wpisy ↓ | Excel- potrzebna pomoc |
2009-03-09 (16:40) slawek001Data rejestracji: 2005-02-24 Ilość postów: 6116 | 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) dylongData rejestracji: 2006-07-21 Ilość postów: 2814 | 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) slawek001Data rejestracji: 2005-02-24 Ilość postów: 6116 | 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) dylongData rejestracji: 2006-07-21 Ilość postów: 2814 | 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) slawek001Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 186 460 [ CZCIONKA MONOSPACE ] dziękuje |
2009-03-09 (21:39) sindbadData rejestracji: 2008-10-13 Ilość postów: 20531 | 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) slawek001Data rejestracji: 2005-02-24 Ilość postów: 6116 | 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) slawek001Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 186 551 [ CZCIONKA MONOSPACE ] sindbad ... dziękuje ale to tylko pokazywało jaki nr ma ostatnia pusta komórka \'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) slawek001Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 186 618 [ CZCIONKA MONOSPACE ] UFFFFFF ukończyłem 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) slawek001Data rejestracji: 2005-02-24 Ilość postów: 6116 | 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) dylongData rejestracji: 2006-07-21 Ilość postów: 2814 | 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) dylongData rejestracji: 2006-07-21 Ilość postów: 2814 | 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) slawek001Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 187 018 [ CZCIONKA MONOSPACE ] super 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) slawek001Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 187 130 [ CZCIONKA MONOSPACE ] coś żle przepisałem to polecenie blokuje mi makro = .wesołego wieczoru |
2009-03-12 (22:56) dylongData rejestracji: 2006-07-21 Ilość postów: 2814 | 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) dylongData rejestracji: 2006-07-21 Ilość postów: 2814 | 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) slawek001Data rejestracji: 2005-02-24 Ilość postów: 6116 | wpis nr 187 237 [ CZCIONKA MONOSPACE ] Działa i to jak Wielkie Dzięki 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) slawek001Data rejestracji: 2005-02-24 Ilość postów: 6116 | 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) dylongData rejestracji: 2006-07-21 Ilość postów: 2814 | 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) slawek001Data rejestracji: 2005-02-24 Ilość postów: 6116 | 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 lotto | Strona: 1 2 ... 6 7 8 ... 53 54 Wyślij wiadomość do admina |