Zobacz teraz. Wyłączyłem obsługę zdarzeń przy kasowaniu makrem.
Ok. Zrozumiałem. napisałem małe makro dla zakresu i pętlą sprawdzanie. plik w zalączeniu. kod: Option Explicit Sub ZakresPetla1() Dim wiersz As Long For wiersz = 19 To 30 Step 1 Do While Cells(wiersz, 2).Value = Range("E16").Value Range("F16").Copy Cells(wiersz, 3).PasteSpecial wiersz = wiersz + 1 Loop Next End Sub
W tabeli 1 kolumna D może być ukryta
Dobry wieczór, Nie znam się na SolidWorks, ale w kodzie VBA widzę przynajmniej dwa błędy: pierwszy w połączeniu Range("Q5...BJ5").Selection.Copy Powinno być rozbite na dwie instrukcje Range("Q5...BJ5").Select Selection.Copy Można też pominąć selekcję i pozostawić tylko: Range("Q5...BJ5").Copy Drugi błąd: Active.Worksheet.Paste Po pierwsze ta instrukcja...
Ach :) sorry, nie doczytałem... Wszystko jest OK, makro wklej do Thisworkbook (nie w kod arkusza). Myślałem, że chcesz by Excel "zapamiętał" zmianę położenia...
Możesz zobaczyć to z inputboxem: [syntax=vb]Sub Przycisk2_Kliknięcie() Dim plik As Variant Dim openFile As Workbook Dim Nazwa_Pliku As String Nazwa_Pliku = ActiveWorkbook.Name MsgBox Nazwa_Pliku plik = Application.GetOpenFilename( _ FileFilter:=",*.xl*", _ Title:=" Wczytaj plik z danymi") If plik = False Then Exit Sub Set openFile = Workbooks.Open(Filename:=plik)...
Po pierwsze - ustaw breakpoint'y i zobacz, w którym miejscu Cie "wyrzuca". Po drugie - po osiągnięciu sumy >20 przechodzisz do nowego arkusza, coś tam wklejasz po czym nie wracasz do pierwotnego arkusza - a Twój kod pracuje na arkuszu w tym momencie aktywnym.
Jeśli koniecznie chcesz mieć jakiś fragment kodu w odpowiednim miejscu innej funkcji i mieć pewność, że tam się znajdzie, to musisz przyglądnąć się makrom. Inline to sugestia dla kompilatora nie obowiązek, natomiast makro wklei ciało funkcji w to miejsce gdzie rozwiniesz makro. Brzydkie ale skuteczne.
Dlaczego nie załączyłeś pliku? Przecież na obrazku niczego nie można sprawdzić. Podejrzewam, że linie obramowania, które Ci się nie kopiują są przypisane do sąsiednich komórek. Ramka rozdziela komórki, ale nie musi być przypisana do obu, może być przypisana tylko do jednej z nich. Wtedy przy kopiowaniu trzeba zadbać o to by obramowania były przypisane...
dodanie takiego makra jak poniżej, nie wyświetla mi napisu "hello" Popełniasz błędy: - wprowadzając "prywatne makro arkuszowe" do modułu uniwersalnego :cry: , jeśli to samo makro wkleisz do modułu arkusza "zamówienia" i dokonasz zmiany treści komórki - zamiast ujętej tam formuły wprowadzisz tam 1 - to uzyskasz Twój pożądany efekt - "hello" :D ; - nie...
Rozumiem, że chcesz tylko skopiować i zamienić na wartości? Bo kopiujesz i wklejasz w ten sam obszar. Jeżeli tak to można [syntax=vbscript]With Sheets("MATERIAŁ ROBOCZY").Range("Tabela6[[Kolumna1]:[kol... .Value = .Value End With[/syntax]
Jak załączysz plik wtedy można zerknąć i poprawić makro. Przynajmniej wklej kod makra które ma za zadanie wkleić (przenieść) dane. Do zamiany tekstu w cyfrę w kodzie VBA należy wartość z okienka zamknąć w poleceniu-konwerterze VAL() np Cells.(5,i).Value = Val(Forms1.Textbox1.Value) Ale proponuje to na ślepo bo nie mam pojęcia jaki jest kod makra.
Istnieje na to jakaś funkcja, Mozna funkcja przy zalozeniu ze numery pozycji z CP-P, CP, TPP itd. i rok nie powtaraja sie tzn. ze np. 201207527 w kosztach jest tylko dla 2012 TWP w 'arkusz...2012 w B7 =INDEKS('[koszty pozyskania.xlsx]WYKONANIE 2011 2015'!B:B;PODAJ.POZYCJĘ($A7;'[koszty pozyskania.xlsx]WYKONANIE 2011 2015'!$A:$A;0)) przeciagnij wprawo...
Zależy, jak chcesz żeby się makro wykonywało. Albo zarejestruj makro i kod wklej tam, albo wstaw przycisk i w zdarzeniu przycisku.
Wkleiłem ten kod w visual BASIC i po uruchomieniu nic się nie dzieje. Nie bardzo wiem co mogę odpowiedzieć, ja wklejam i działa. Może prześlij plik do którego to wkleiłeś?
aaa.. Formuła nie może działać w tej samej komórce Można podzielić 1 kolumne na inne dwie - przed 'w' i po 'w' zmienić jednu kolumnu tylko makrem [syntax=vb]Sub kokos() Dim c As Range Set c = Cells(1, 1) While c <> "" p = Application.WorksheetFunction.Search("w"... c) c.Offset(, 1) = Mid(c, p) c = Left(c, p - 1) Set c = c.Offset(1) Wend End Sub...
A jaka to wersja Excela (to jest Excel)? I może wrzuć jakieś przykładowe jedno makro (im krótsze tym lepiej), które nie chce działać. Zobaczymy co tam może być nie tak. Może utwórz moduł (nie w Personalu), wklej makro i zobacz czy zadziała.
Po dodaniu tak jak napisałeś powstaje błąd linijkę niżej-na załączonym obrazku Tak samo w tym pliku testowym od Ciebie jak i w moim roboczym zapisuje wszystkie pliki ale brak danych,puste wpisy-drugi zrzut ekranu Podczas prób robiło to samo jeżeli zarejestrowane makro wkleiłem na początek kodu
Spróbuj tak: 1. Wejdź w Narzędzia -> Makro -> Zarejestruj nowe makro 2. Nazwij makro, opcjonalnie wybierz klawisz skrótu, a z listy Przechowuj makro w: wybierz Skoroszyt makr osobistych 3. Nagraj makro lub po prostu zakończ rejestrację. 4. Zamknij plik. Kiedy zapyta o zapis zmian w arkuszu makr osobistych, zatwierdź zmiany. 5. Otwórz dowolny plik, wejdź...
Podejrzewam, że wystarczy wyrzucić wszystkie Select'y i będzie OK. Możesz pokazać to makro (wkleić w znacznikach "syntax")?
Menu>Recenzja>Chroń skoroszyt? Zarejestruj makro zakładania oraz zdejmowania ochrony i wklej tam gdzie trzeba...
Cytat z microsoftu dot. skrótów klawiszowych: [syntax=vb]Bieżąca data Zaznacz komórkę i naciśnij klawisze CTRL+; Bieżąca godzina Zaznacz komórkę i naciśnij klawisze CTRL+SHIFT+; Bieżąca data i godzina Zaznacz komórkę i naciśnij klawisze CTRL+; oraz naciśnij klawisz SPACE, a następnie klawisze CTRL+SHIFT+;[/syntax] Albo robisz to więc w sposób nr 3,...
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
Dodałem bibliotekę Microsoft ActiveX Data Objects 6.1 Library W makro wkleiłem całe paramtry połączenia i dalej zatrzymuje się na tej samej linijce.
Nie w modulu, tylko w arkuszu(2-klik na Arkusz1 po lewej) i wklej kod z post #4
makro które z wybranego folderu pobiera jpg i wkleja w odpowiednią komórką Dlaczego to samo makro nie wkleja to zdjęcie do dwóch innych arkuszy? Zalacz to pierwsze makro. Dodano po 8 Od razu po wklejani Selection.Name = "To_co_Chcesz"
Dzięki, mam jeszcze jedno pytanie natury kompletnego laika: jak mam uruchomić takie makro? Wkleiłem kod w VBAProject, zapisałem plik wraz z obsługą makr i co dalej? Przepraszam za tak głupie pytanie ale kompletnie się na tym nie znam.
1. Wciśnij zarejestruj makro. 2. Wejdź w edycje komórki. 3. Wklej tą formułę i naciśnij <ENTER> 4. Zakończ rejestracje 5. Wejdź do edycji makra.
Wklej do modułu pliku z linka i uruchom. Makro w tej postaci "wydłubało" 1341 wierszy. Po wszystkim wyeksportuj, lub skopiuj arkusz "Wynik" do swojego pliku. Reszta w komentarzach.[syntax=vb]Sub Yoasia() ileArk = 2 'są dwa z danymi w pliku z linku. Zmień jeśli jest inaczej. 'tu sprawdzimy czy jest arkusz wynikowy, wstawimy jeśli nie 'nie zmieniaj kolejności...
1. makro nie uruchamia się. 2. numer kolumny zmieniony na rzeczywisty. 3. wariant B to tylko przykład, w treści makra wpisałem właściwą treść wariantu. 4. używam listy ze sprawdzania poprawności. 5. makro wklejone do docelowego arkusza. 6. poziom zabezpieczeń - trudno mi to precyzyjnie określić, pracuję na służbowym kompie więc pewnie nie jest niski.
Pisać programu nie da się metodą kopiuj/wklej. Edytor VB zgłosił błąd i napisał w czym problem.
Myślę, że tam było lst od "lista", nie 1st . Poza tym obrazek za dużo nie mówi, wklej kod jak już.
ok zrobiłem ci szablon z makrem wklej swoje dane i naciśnij zapisz stworzy ci plik .csv który wg opisu wczytasz do Outlooka
lesławek - tak się nie da. Sam spróbuj - ale skopiuj liczbę a nie komórkę. W załączeniu proste makro. Uruchomisz skrótem klawiszowym ctrl+m (można to zmienić) Makro odejmuje od komórki z lewej coś co jest w schowku i wprowadza to formułą w zaznaczonej komórce. [syntax=vb]Sub odejmij_schowek() Dim mem As DataObject On Error Resume Next Set mem = New...
aby wszystko działo się automatycznie :cry: To musisz jednak zastosować VBA :D Np taki efekt jak na zrzucie 945616 tzn. po wklejeniu nowych danych po wciśnięciu ctrl+r - makro "rozrzuci" Ci te dane na grupy na podstawie ID :spoko: Całość w załączonym pliku 945618
tak dobrze? Tak dobrze. :arrow: alexw200 Wytnij makro, wklej do nowego pliku, ew. dopisz wł/wył odświeżania - będzie ciut szybciej W innych wersjach językowych nie są wyświetlane nazwy kodowe arkuszy (cyrylica w oryginale, krzaczki m.in. w polskim). Stąd problemy.
Dlaczego myslisz, ze wklejenie makra w jego opisie odniesie jakis skutek? Opis zostaw pusty, dodaj makro, nastepnie wybierz wyswietl makra -> edycja i dopiero tam wklejasz kod.
Wydaje mi się że nie potrzebujesz kopiowania, wystarczą formuły (w załączniku) Jedynie na co potrzebujesz makro to na wklejenie aktualnej daty np w A2, po zmianie tekstu w B2
Najprawdopodobniej wchodzą dwa slash'e. Najlepiej dopisywać warunkowo. Przy okazji: przypisujesz tę samą wartość do dwóch zmiennych (nieszkodliwa nadmiarowość)[syntax=vb] ImgFldr = InputBox(AnsDirPrompt, "Powitanie", "C:\") 'ImgFldr = AnsDir CurrentFile = Dir(ImgFldr & IIf(Right(ImgFldr, 1) = "\", "", "\"))[/syntax]
Wklej zdjęcie makro okolic rezystora.
Sprawdź załączony plik.
Skoro 'jesteś słaby', to zapodam Ci trochę siły.;) 1. Włącz rejestrację makra, zaznacz tabelkę i skopiuj. 2. Ustaw kursor na komórce, gdzie ta tabelka ma być wklejona i wklej. Następnie zmodyfikuj to makro o pętlę. Jak zarejestrujesz makro i poczytasz o pętli 'For" w VBA, to na pewno sobie poradzisz.
wpisanie, na koniec makra, linijek z przypisaniem pustego tekstu Wstaw przed (bf.SetText "") w celu nieco opóźnić makro, aby mieć czas dla ^V (wklej) tt=Timer While timer - tt < 0.5: Doevents: Wend Dodano po 14 bf As MSForms.DataObject' właściwe podejście powinno być tak. Z innej strony DataObject jest tylko w włączonej referencji do Microsoft Forms...
"'to powstawiać do Arkusz3 wiersz=licznik" nic tu nie jest zaznaczone na zielono więc nie wiem co powstawiać? Zresztą bardzo proszę, a bardziej szczegółowe wyjaśnienie, bo makro to wkleję do modułu, a nie do Arkusza?
Wklej zdjęcie makro tego obszaru.
Polecam ten:[url=http://www.elektroda.pl/rtvforu... Jak czegoś nie rozumiesz to z przyjemnością odpowiem. Lub jeśli nie chcesz tak to szukaj programów z makrodefinicjami, płatnych jest duży wybór.
Makroinstrukcja jest 'wklejana' a podprocedura wykonywana poprzez skok. Makro jest szybsze (mnie instrukcji, nie trzeba nic zapisywać na stosie) ale kod wynikowy jest dłuższy (bo za każdym razem jest umieszczany).
W pierwszej kolejności upewnij się, że radiator na CPU jest prawidłowo zamontowany i nie ma na nim kurzu. W drugiej kolejności możesz zdjąć radiator, dokładnie go wyczyścić ze starej pasty (CPU także), nałożyć kapkę nowej pasty i idealnie wyczyszczony radiator (oraz wentylator) ponownie zamontować upewniając się, że wszystkie zaczepy chłodzenia są prawidłowo...
Może więc takie rozwiązanie jak w załączniku? Menu kontekstowe PPM jest zablokowane, ale jeśli nawet ktoś je wywoła, to nie może wykorzystać wklejania: http://obrazki.elektroda.pl/7679986700_1... Na wstążce zablokowane są funkcje przycisków: http://obrazki.elektroda.pl/8622171000_1... Cały czas jednak mam wrażenie, że takie całkowite...
Witam, Mając wykonany printscreen obrazku, z pozycji komórki, w której ma być wklejony, uruchamiam makro, które: - blokuje współczynnik proporcji - wstawia mi obrazek automatycznie pomniejszony do wysokości 2,5 cm - zmienia właściwości obrazu na "przenoś i zmniejszaj rozmiar wraz z komórkami". Już parę dni męczę temat i nie potrafię dopisać warunku,...
Jeśli adresy w podglądzie są prawidłowe, to podstaw kopiowanie. [syntax=vbscript]Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Arkusz2") wdst = 3 With ws For w = 2 To 812 Step 6 For k = 11 To 24 Step 3 'podgl = Range(Cells(w, k), Cells(w, k + 2)).Address(0, 0) & " kopiuj do " & Cells(wdst, 8).Address(0, 0) .Range(.Cells(w, k), .Cells(w, k +...
Witam Wkleiłeś to makro w jakieś większe? Bo działać działa
To powinno zadziałać. Nie potrzeba do tego lekcji, wystarczy skopiować cały kod, który dałem w ramce, otworzyć edytor makr, wybrać Arkusz1 (bo to dla niego makro) i całość wkleić. W załączniku.
PRL, dzięki za próbę pomocy, ale zdecydowanie to nie jest to na czym mi zależy Bardziej myślałam o tym, żeby uzależnić ilość kopiowanych komórek z pierwszego wiersza od ilości komórek w drugim wierszu, które mają te same wartości (dlatego, że ich ilość może się różnie zmieniać). W zasadzie to makro, które wkleiłam pierwsze prawie działa, dlatego raczej...
Opisz dokładnie co i jak ma się odbywać. Nie jest jasne jaki arkusz z otwieranego pliku ma być źródłem. Nie wiadomo, co z danymi źródłowymi robić. Te dodawane arkusze, to w źródłowym, czy docelowym? I tak dalej. Makro które wkleiłem obrabia dane. Arkusze są podane w makrze. Mógłbym oczywiście wejść do każdego z plików i zapuścić makro po kolei jednak...
Witam serdecznie, Problem z którym borykam się drugi dzień, Muszę stworzyć makro, które w każdej zakładce będzie pozwalało na skopiowanie danych z zakładek 1, 2, 3 i wklei je do zakładki zbiorczej "lista". Przycisk makro w każdej zakładce (1, 2, 3) będzie robił to samo. Z góry dziękuję za pomoc, (m)
Makro umieść w kodzie arkusza, prawy pm i wybierz "Wyświetl kod" lub wklej przez edytor. Równie dobrze można wrzucić do modułu, wtedy makro (jeśli nie sprecyzujesz) będzie działać w aktywnym arkuszu.
ale jeśli koleyno wklej do A1, A2 ... to następujące dane zastępują poprzednie dane i B1 zmieni wynik, ponieważ formuła nie jest wyjściem w tej sytuacji może po prostu zrobić makro oczywiście pozwolić makro
Czyli to poprzednie makro powinno to robić, niedoróbka ... Edycja: Sprawdź 880784
Prot, bez wątpienia to krok w dobrym kierunku :idea: Ale chyba coś źle robię :/ bo jak kopiuję opis z Excela, wklejam go jako tekst do Worda, a następnie chcę zastosować Twoje makro to się źle formatuje :/ Nie wiem gdzie popełniam błąd. Podsyłam plik Excela z przykładowym raportem oraz Worda, w którym wklejony jest raport. Trzeba do pliku wkleić Twoje...
Najpierw wyznacz pierwszą wolną komórkę [syntax=vbscript] lastRow = Range("BZ" & Rows.Count).End(xlUp).Row + 1 If lastRow < 3 Then lastRow = 3 End If [/syntax] nastęnie wkopiuj: [syntax=vbscript] Sheets("Dane").Range("BZ" & lastRow) [/syntax]
Czy takie makro w kodzie arkusza spełni zadanie? [syntax=vba]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.CutCopyMode = False Application.CellDragAndDrop = False End Sub[/syntax]Pozostaje możliwość kopiowania przez schowek systemu Office i makrem.
A makra w Excelu masz włączone?? Wstaw sobie [syntax=vb]MsgBox "Test"[/syntax] w różne miejsca w kodzie i zobacz, czy się wiadomość wyświetli... Rozumiem, że wkleiłaś makro do arkusza Opis??
Nie rozumiem, przecież mam go wklejonego w kodzie arkusza
Mam jednak pytanie jak to się dzieje że wkleja to w odpowiednie miejsce? Cały mechanizm makra polega na przechodzeniu krokowym (założyłem wstępnie od wiersza 1 do 10 - ale to można odpowiednio dostosować do potrzeb) wzdłuż kolumn arkusza 1 i porównywaniu wartości z odpowiednimi komórkami arkusza 2 :D Jeśli makro napotka w którymś wierszu inne wartości...
Witam potrzebuję pomocy z vba otóż chciałbym żeby stworzyć makro które kopiuje i wkleja wartości(bez formatów jest taka opcja w excelu wklej wartości) ale żeby to makro przeszukało mi pewien zakres np g2 do h30 i jeżeli w np w g15 = "" lub w innej komórce albo w h 23 = "" itd. Wtedy kopiowało mi cały ten wiersz np a5 do h5 i wklejało np od l1 do s1...
Co masz na myśli pisząc "karta"? Dla arkuszy skoroszytu można zagnieździć kod w kolejnej pętli For ark = 1 to thisworkbook.sheets.count ' lub liczbowo indeksy Np 2 To 4 sheets(ark).select 'kod Next
Otwórz plik B i nagraj makro dla 4-5 plików a następnie wklej tutaj - zobaczymy jak to wygląda i razem to poprawimy.
Bądź tak miły i wklej zdjęcia makro tych obszarów na swojej płycie. Gniazdo wymieniłeś czy partyzantkę na przewodach chcesz zrobić?
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Szczerze mówiąc makro które zostało wklejone zrobił automatyczny generator makr, dlatego może być tutaj dużo "śmieci". Jak najbardziej zamiast całej komórki może być kopiowana sama wartość. Formuły w arkuszu generatora cen są tak skonstruowane że jedyną zmienną jest wartość w komórce B3 na podstawie której mogę wyciągnąć ceny czyli B26. Załączone makro...
Dzięki koledze adamas_nt i jego sugestii co do "automatycznego" pobrania numeru kolumny (i wiersza w domyśle) poprawiłem nieznacznie moje makro. Wystarczy teraz wkleić w arkusz "dane" gdziekolwiek twoją tabelę z danymi (jak by ona nie wyglądała). Nacisnąć wstaw kody i kody wewnętrzne zostaną wstawione bez względu na to gdzie znajduje się tabela z danymi...
witam, od razu zaznaczam ze laik ze mnie jeśli chodzi o vba. chciałbym sobie usprawnić excel przez kilka drobnych makr. ZADANIE: makro ma zaznaczyć i skopiować zakres C5:Q5 i wkleić go w te same kolumny tylko odrobine niżej (C7:Q7) zapisać i wyjść z excela. TYLKO PRZY KOLEJNYM URUCHOMIENIU MAKRA CHCIAŁBYM ABY WPISYWAŁO ZAKRES C5:Q5 O PIETRO NIŻEJ (C8:C8)...
Nie za bardzo widzę załączone pliki. Możesz wkleić link?
Otwórz dokument w MS Word. Naciśnij Alt + F11, aby otworzyć edytor VBA. W edytorze kliknij Wstaw → Moduł. Skopiuj poniższy kod makra do edytora. Jak działa makro: Przeszukuje cały dokument znak po znaku. Kiedy napotka znak kończący zdanie (. ! ? lub -), sprawdza, czy za nim występuje spacja i mała litera. Jeśli tak, zamienia małą literę na wielką. Po...
Witam Panowie, podbijam temat. Na bloga o tematyce muzycznej tworze sobie arkusz, który za pomocą kwerend ma zbierać dane ze stron z listami przebojów. To w połączeniu z formułami mocno ułatwia sprawę, ale potrzebuję jeszcze jednej rzeczy, z którą nie mogę sobie poradzić... Mianowicie chodzi o to, by stworzyć makro, które z arkusza z kwerendą (w tym...
[syntax=vbscript]Sub DodajBudynek() ' ' DodajBudynek Makro ' ' Columns("D:E").Select Range("D5").Activate Selection.Copy Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).Select ActiveSheet.Paste End Sub [/syntax]
To wrzuć plik albo wklej cały kod, popatrzymy...
Przepraszam ,że zawracam głowę ale nie mogę sobie poradzić z prawidłowym wyznaczeniem ściezki pliku ,który ma zostać skopiowany. Powinna ona być następująca - I:\Wycena Efos\NabyciaUmorzenia + dane z Wyciagu powinny wklejać się do arkusza o nazwie PODST - Wkleić
Witam, Posiadam w pracy pewien program zakładowy do którego muszę wklepywać numery zamówień. Jest to trochę męczące zajęcie, ponieważ na dzień mam 150 pozycji do wpisania a właściwie przepisania z arkusza w excelu. Każdy numer muszę przepisac lub wkleić osobno. Każdy numer zamówienia mam w osobnym wierszu, dlatego po kolei kopiuje sobie komórkę i wklejam...
Niestety nie mogę zobaczyć tego co załączyłeś, mam zablokowane pobieranie plików. Powalcz z tym uruchamiając po kroku (klawisz F8), zobaczysz jak to działa i dlaczego nie działa. Ewentualnie wklej to makro w odpowiedzi to spróbuje popatrzeć.
Mówią, że deklarowanie zmiennych, to dobra cecha programisty. Są języki, gdzie bez deklaracji się nie da. W VBA nie jest _wymagane_ deklarowanie, ale jak chcesz, to używaj 'Dim'.;) P.S. Wykorzystałeś makro 'Kopiuj2'?
Witam, Wyjaśniam co robię z taką ilością danych - po skopiowaniu do już istniejącego arkusza są obrabiane przez formuły excela mające na celu powiązanie ich z innymi danymi (praca na słownikach w kilku innych arkuszach+2,3 duże tabele przestawne zawierające pozostałe dane). Zawsze robiłem wklejanie ręczne ale przy kilkunastu tysiącach wierszy jest to...
Czy zrobiłeś próbkowanie danych?, czy wywołałeś je do trenu?, po co ci dynamiczne odczyty?, czy dane w trendzie będą jedno czy kilku kanałowe? pokazałem gdzie je się sakaluje. Wojciech. wklej makro i zobacz co będzie A gdzie kolega zapisuje te dane co 100ms, a druga sprawa jaki ma czas odpowiedzi TCP/IP Modbus? Jaki jest czas pętli programu?
Nie. Po prostu słyszałem że makro to zwykłe kopiuj/wklej. No więc wkleiłem zawartość „wywołania makra” do makra, wyszło że pojawiło się mnożenie pomiędzy plusami i takie tam, więc policzyłem zgodnie z kolejnością działań i wyszło. A co do totolotka: skąd wiesz że już nie gram? :D
dopiero zaczynam przygodę z VBA To zacznij od nagrywania makr (włącz rejestrator makr zaznacz interesujące cie dane kopiuj - wklej specjalnie + transpozycja i masz makro)
Jeśli chcesz zmieniać np: A1 i A2 to dopisz 2 komórki (np B1 i B2) z formułami: np B1"=A1+1" B2"=A2-1" następnie stwórz makro : kopiuj B1 i wklej specjalnie samą wartość do C1, następnie skopiuj C1 i wklej do A1. To samo dla A2 wykorzystując B2 i C2. Na koniec przypisz makro do przycisku.
Spróbuj procedury zdarzeniowej. Np [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("K5:K13")) Is Nothing And Target.Count = 1 Then For Each kom In Range("B3:F7") If kom.Value = Target.Value Then kom.Font.Bold = True Else kom.Font.Bold = False End If Next End If End Sub[/syntax]Wklej w kod arkusza,...
FileDialog ma wiele właściwości. Np: . InitialFileName = Environ("HOMEPATH") & "\Desktop\" Dzięki za pomoc Czy ktoś może mi jeszcze pomóc jaką należy podać procedurę w powyższym makrze , aby po skopiowaniu kolumn plik z którego zostały skopiowane kolumny został zamknięty, a pozostał otwarty plik do którego zostały wklejone kolumny?
This user is not allowed to use direct links. Please email support(at)box.net for support Zamieść to po prostu tutaj. A rada jeszcze taka - stwórz od nowa skoroszyt i wklej makro.
Wklej swoje zdjęcie makro złącza nie jakiś bohomaz z neta. Co jest nie jasne w tym co napisałem.
jak utworzyć makro powielające: skopiować dane z kolumny b1:b6,wkleić te dane do następnej kolumny czyli c1:c6, jednocześnie wymazać dane b1:b6 by móc wprowadzić w te miejsce nowe i następnie powielać procedurę o jedną kolumnę. Dane z b1:b6 i c1:c6 przesunąć o jedną kolumnę adekwatnie c1:c6 i d1:d6 itd dziękuje
No to na zgodę: Wklej w kod arkusza "1" lub arkusza z pierwszym indeksem. Makro uruchamia się poprzez podwójne kliknięcie w komórkę z datą. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If IsDate(Target) Then cel = Target.Address For i = 2 To Sheets.Count Sheets(i).Range(cel)...
Makro jest bardzo dobre. Jeżeli zmienisz na:[syntax=vb] Set kom = Selection [/syntax] to obrazek wklei się w całej, scalonej komórce.
A wbudowany filtr oraz kopiuj-wklej nie wystarczy?
Są zdefiniowane. Procedura polega na kopiowaniu z jednego pliku danych zawartych w kilku kolumnach i doklejeniu do innego pliku. Po wklejeniu makro ma sformatować datę w pierwszej kolumnie.... Makro jest bardzo rozbudowane i ciężko mi będzie wszystko pokazać. Dodano po 3 Rodzaj błędu to: Run-time Error '6': Overflow
Wiesz co, Wklej tutaj cały kod, bo widzę, że masz trudności z 1 linijką. P.S. Wklej go w znacznikach VBScript.
Zacznijmy od początku. Jakie są dane w arkuszu, Jaki efekt chcesz uzyskać (jakie działanie ma wykonać makro), z wklejonego kodu wynika na początku jakieś czyste formatowanie wyglądu .. Później jakieś obliczenia przy pomocy formuł excela... Następnie jest zapis pliku .. bez sprawdzenia czy plik istnieje i jaka jest jego nazwa. Dodano po 15 Makro chce...
To jeszcze wymaga doprecyzowania. Co jeżeli w kolumnie F jest pusto a w E coś jest, albo odwrotnie? Może chodzi ci o usuwanie całych wierszy? Niezależnie od odpowiedzi użyj metody Delete. W pierwszym przypadku z obiektu Range z odpowiednią do potrzeb wartością Shift, w drugim Rows. Obiekt powinien wskazywać właściwy element do usunięcia. Zalecane jest...
Sprawa jest bardziej skomplikowana niż się na pierwszy rzut oka wydaje, bo Target.Value w zdarzeniu Change będzie też przyjmowało puste wartości (przy czyszczeniu/usuwaniu komórki), a także może być zakresem Range() np. przy kopiuj - wklej do kilku komórek (podobnie przy czyszczeniu zakresu komórek), przez co makro będzie się wywalać. Trzeba ew. je...
makro wklej stronie wklej specjalne makro makro wklej wiersz
klakson motocykl evohome honeywell kondensator zasilaczu anteny
schematy elektryczne autobusów schematy elektryczne autobusów
Siemens EQ.6 S500 - Wolne Podgrzewanie Wody Stukanie zaworów i dymienie w Peugeot Partner - przyczyny i diagnostyka