Myślałem, że Pan odkładanie z powrotem swój kod [syntax=vb] Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'Step 1: Declare Variables Dim strRange As String 'Step2: Build the range string strRange = Target.Cells.Address & "," & _ Target.Cells.EntireColumn.Address & "," & _ Target.Cells.EntireRow.Address...
Korzystam z podobnego rozwiązania ale potrzebne jest też formatowanie warunkowe (aby zaznaczać tylko zakres wiersza). Zaznaczanie aktywnego wiersza za pomocą formatowania warunkowego i VBA 1. Zaznaczanie aktywnego wiersza Definiujemy nazwę: AktywnyWiersz=0 Wpisujemy formułę w VBA w sekcji Worksheet - SelectionChange Private Sub Worksheet_SelectionChange(ByVal...
Teoretycznie można coś podobnego zrobić - choć w praktyce jest to bardzo złe rozwiązanie, a już zwłaszcza na plikach w pracy, gdzie istotne jest bezpieczeństwo i pewność danych... Może najpierw wykład, potem kod ;) Garść faktów: Excel nie nadaje się do pracy wielozadaniowej (czy równoległej, zwał jak zwał). Teoretycznie można w pliku włączyć jakiś tam...
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.
1. Umieść makro w module standardowym (jeśli jest w kodzie arkusza). 2. Odszukaj i podmień wszystkie odwołania do arkusza Np Worksheets("Arkusz1") na ActiveSheet . Można dla ułatwienia przypisać skrót klawiszowy i teraz wystarczy uruchomić makro w dowolnym, aktywnym arkuszu.
Najpierw musisz przygotować dane które chcesz wysłać, czyli jakiś raport. Możesz to zapisać do pliku, albo umieścić w roboczym arkuszu (to bym zalecał, bo szybsze). Następnie możesz wysłać plik lub aktywny (zawsze możesz go uaktywnić) arkusz.
Bez makra: - zaznaczasz arkusze w których mają być wprowadzone zmiany (CTRL+LPM na kolejnych nazwach arkusza "zakładkach" lub mając aktywny pierwszy arkusz w którym mają być przeprowadzone zmiany, trzymając SHIFT klikasz na nazwę ostatniego arkusza do zmian i zaznacza Ci się "zakres" arkuszy) - mając zaznaczone arkusze, w aktywnym arkuszu dokonujesz...
Nagraj makro sortowania i umieść je w kodzie arkusza przy zdarzeniu Worksheet_Change. Możesz ograniczyć aktywny zakres do jednej kolumny.
Witam, Potrzebuję makro, które po wpisaniu wartości w kolumnie A, wstawi wartości w tym samym wierszu w kolumnach B, C, D, E w oparciu o bazę w innym pliku, nazwijmy go "głównym". Ma to działać analogicznie do wyszukaj pionowo, ale odwoływać się do tablicy w innym pliku (makro otwiera plik główny, zaciąga dane i zamyka plik główny). Nie ma działać w...
Witam Potrzebowałbym bym pomocy do tego co chciałbym zrobić, niestety nie posiadam jeszcze wystarczających umiejętności by zrobić to samemu. Zapewne potrzebuję funkcję połączoną z makrem, które zapętli ją, tak by wszystkie dane w całej kolumnie były przeszukane i wypełnione. Niestety zwykły VLOOKUP tutaj mi nie pomoże, a nie jestem w stanie sam dojść,...
Dzięki za zainteresowanie i odpowiedź, ale nie do końca mi o to chodziło. Może nie dość jasno się wypowiedziałem. W komórkach A5 - A10 zwarte są nazwy makr - (dajmy na to, że w A8 będzie to "przelicz", w A9 "decyzje", w A10 "kontrole" itp.). Uruchamiamy makro o nazwie dajmy na to "start". Makro to sprawdza który wiersz jest aktywny, jeśli jest to np....
Witam, mam problem. Na jednej ze stron znalazłem makro które działa w jednym arkuszu. Chciałbym je zastosować do kilku jednakowych arkuszy, nie mam doświadczenia z makrami i dlatego proszę o poradę jak to zrobić. Z góry dziękuje. Option Explicit Dim Zakres As Range Private Sub Workbook_Open() Call Ustal_zakres End Sub Private Sub Workbook_SheetChange(ByVal...
Witam, mam spory arkusz z wartościami liczbowymi(w większości), niektóre z nich zakończone są symbolem * co zmienia formatowanie komórki na ogólne. Potrzebuje usunąć te nieszczęsne gwiazdki. Korzystam z polecenia zmień, ale formatowanie komórki pozostaje dalej ogólne, a chciałbym nie musieć przy każdym błędzie jaki wyrzuca mi po tej operacji excel klikać...
Witam, mam makro sprawdzające wiersze w arkuszu Excel. Działa dobrze, jednak chciałbym aby jednym przyciskiem, który mam na Arkuszu1 program sprawdził wiersze w arkuszach w zakresie "Arkusz4:Arkusz36". Teraz muszę wklejać przycisk w każdym arkuszu, żeby zadziałało. Oto moje Makro: Sub przelicz() Const max As Integer = 36 Dim i As Integer i = 26 Rows("26:36").Select...
Witam. Potrzebuję makra które pomoże mi w odświeżaniu plików. Mam następujące pliki: SUMA Tabela 1, Tabela 2, Tabela 3, i tak do Tabela 100 Zmienne 1, Zmienne 2, Zmienne 3, i tak do Zmienne 100 Potrzebuję makra które otworzy na stałe plik SUMA (w nim są dane wyjściowe i zbiera wyniki po obliczeniu w plikach Tabele i Zmienne) i następnie zestawy plików:...
Witam, Poniższe makro filtruje dane z zakresu dynamicznego "Operacje" i unikalne wartości umieszcza w zakresie dynamicznym "OperacjeSorted". Problem w tym, że w tej postaci, makro "odpala", lecz filtrowanie nie działa. Natomiast to samo makro, zapisane jako "Macro1()", uruchomione z ręki - działa OK. -- Private Sub Worksheet_Change(ByVal Target As Range)...
Cześć, potrzebuje makra które będzie sumować zakres. w linku zobrazowane o co mi chodzi. Czy mógłby mi ktoś w tym pomóc? https://obrazki.elektroda.pl/6553279700_...
Cześć. Czy ktoś by mógł mi pomóc w edycji makra. Mam w folderze ponad 30 plików Excela. Dane w kolumnach A do D we wszystkich plikach są takie same, zależy mi na aktualizacji danych w kolumnie E. Pliki w folderze mogą być zamknięte i otwarte. Dane w plikach w kolumnach A do D w każdym pliku są zawsze w tej samej lokalizacji, należy tylko zaktualizować...
Witam Szukam pomocy w stworzeniu makra , które potrafi drukować formularz z drugiego arkusza uzupełniaąc w nim dane z pierwszego. Myślałem o przyciskach w pierwszym arkuszu, które drukują wypełnione formularze w 2 egzpl.
Hej, mam "maly" problem w Excelu, może ktoś będzie w stanie mi pomoc..?:-) Potrzebuje zainstalować makro, które w komorkach pliku A2:B100 będzie pokazywalo znak "!", po dwukrotnym kliknieciu w komorke, a w komorkach K2:L100 będzie pokazywalo znak "X", po dwukrotnym kliknieciu w dana komorke. Dodatkowo, chciałabym żeby to makro dzialalo w każdym arkuszu...
Witam szanownych forumowiczów. Proszę o pomoc w utworzeniu makro w Excelu. Chcę zautomatyzować sobie troszkę pracę a właściwie tworzenie raportów. Chodzi o to że mam bazę klientów i ją uzupełniam co tydzień - aktualizują. Na koniec muszę po posortowaniu od najmniejszej do największej w prawej kolumnie przed każdą grupą wygenerować jak gdyby nagłówek....
Cześć, potrzebuję szybkiej porady jak stworzyć makro w VBA, rozzrysowałam sobie schemat 2 torowy z pętli, ale nie mam pojęcia jak przkesształcić go na ten język.... Dodano po 5 mam tabelę gdzie dane są wielkości 7x100 w przedziale i20:o119 i tam będę wpisywać różne rzeczy, chciałabym, żeby puste komórki, które pominę, same się uzupełniły wpisując np....
Witam, Czy istnieje możliwość napisania w MS Excel makra, które będzie działało zgodnie z poniższym schematem: 1. W skoroszycie istnieje arkusz Jacek oraz Placek 2. W arkuszu Placek w zakresie A1:K500 występują wartości całkowite, które mogą się powtarzać 3. W arkuszu Jacek w kolumnie "W" istnieją wartości całkowite unikatowe - nie powtarzające się...
Witam, Chciałbym zautomatyzować sprawdzanie poprawności danych w excelu, oto przykład: W kolumnach znajdują się zdefiniowane przedziały grubości, szerokości, długości, symbol rodziny danych, itp. określony wiersz zbudowany z w/w parametrów daje ostatecznie prosty symbol "dane OK". Chciałbym żeby makro sprawdziło czy zdefiniowane w pierwszej tabeli "zakresy"...
Witam. Mam pytanie, czy dysponuje ktoś makrem lub byłby w stanie napisać * lub doradzić jak napisać makro , które pozwoliłoby kopiować zakres danych do skoroszytu głównego. Oczywiście wszystkie inne skoroszyty są "kopią" tego głównego. Interesuje mnie taka sytuacja. Ktoś pracuje na pliku 1.xlsx w skład którego wchodzą powiedzmy 2 arkusze ( arkusz1 oraz...
Witam, uruchomiłem w arkuszu makro, które po wpisaniu wartości w kolumnach 5,6,7,8 wpisuje automatycznie Datę w kolumnie "B" i Godzinę w kolumnie "C": Private Sub WorkSheet_Change(ByVal Target As Range) Dim i As Integer i = Target.Row If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Or Target.Column = 8 Then If Target.Cells <> a...
Witam wszystkich forumowiczów, mam pytanie związane z Excelem 2013, a mianowicie czy mogę uaktywnić przycisk wykonujący makro z listy drop box. Bardziej dokładnie opisując: mam kolumnę z komórkami wyboru listy drop box i jeśli wszystkie są wypełnione to ostatnia komórka jest zdefiniowana jako drop box tak lub nie. Jeśli jest wybrane Nie to nic się nie...
Próbowałem wykorzystać twój kod, niestety ciągle wyskauje błąd przy próbie uruchomienia makra [syntax=vb] Sub Kopiuj() Dim WksDo As Workbook Dim wksZ As Workbook, wierszZ As Long On Error GoTo koniec 'zadeklaruj arkusze Set WksDo = Workbooks("A.xls").Sheets("1") Set wksZ = Workbooks("B.xls").Sheets("1") 'ustal raz aktywny wiersz wksZ.Activate wierszZ...
Powiem tak: Nie spotkałem się z takim problemem ze "zwykłymi" plikami excela. Jednak wystarczy jeden plik z nieodpowiednio napisanym makrem który "rozwala" wszystko. Ktoś pisząc makro np. nie przewidział, że może być aktywny inny arkusz niż zamierzony w kodzie makra lub nie przewidział wyłączenia uruchomionej jakiejś procedury która może czeka na jakąś...
Dziękuję bardzo w końcu po wielu próbach zadziałało :-). W ramach nauki VBA chciałbym trochę udoskonalić powyższe makra. Obecnie w pliku 1 mam dwa przyciski cmdSave i CommandButton1, które działają w następujący sposób: cmdSave -tworzy mi plik o nazwie komórki B3 pliku 1 i zapisuje na dysku we wskazanej lokalizacji (jest aktywny przy otwarciu pliku...
If k <= Date Then Cells(k.Row, k.Column) = "" A jeżeli zakres nie jest w aktywnym arkuszu?
[syntax=vbscript] On Error GoTo SubStop For Each Sheet In Worksheets Sheet.Test Next Sheet SubStop: On Error GoTo 0[/syntax]
Spróbuj wyłączyć odświeżanie: Application.ScreenUpdating=False za linią z Windows(rap).Activate. Włącz na końcu =True Jeśli nie zadziała można przerobić kod tak, żeby nie było potrzeby "biegania" po arkuszach (bez activate, select, etc)... Np fragment z sortowaniem (nie odwołuj się do okna instancji, tylko do konkretów). W przykładzie przypisanie i...
Zaorano komputer.
No to już tylko makro. Np takie Sub Wpisz_Jest() Columns("A:A").Sel... On Error Resume Next wiersz = Selection.Find(What:=Range(&... After:=ActiveCell, LookAt:=xlWhole).Row Cells(wiersz, 3) = "Jest" Cells(1, 2).Select End Sub Możesz je umieścić w kodzie arkusza...
W tym przypadku to przejdzie, ale nie zawsze Jak nie będzie takiego przypadku szczególnego :D to proponuję Ci makro "wyszukajdaty", które uruchamiane skrótem ctrl+w wypisze w aktywnym arkuszu w jednej kolumnie pierwsze daty, a w drugiej - drugie daty :spoko: - tak jak na zrzucie i w załączonym pliku. 1054371 1054372
Hej, szukam pomocy, ponieważ poszukuję makra, aby excel aktywną komórkę wpisał w polu wyszukiwania w outlooku. Jedynie co znalazłem to niestety pobieranie wszystkich maili, bądź otwarcie ostatniego maila, a mi zależy jedynie na powyższym. Wiem, że to wydaję się proste, ale chyba tak proste to nie jest :( Błagam o pomoc. Z góry dziękuję za pomoc.
Metoda PrintOut z klasy workshet nie powiodła się Uruchamiasz makro z aktywnego arkusza "formularz" :!: a drukujesz inny arkusz "oswiadczenie" :idea: Twój wcześniejszy kod jest jednoznaczny :D tj. ActiveWindow. Selected Sheets
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
Skoro koniecznie chcesz makro to proszę bardzo: -psiak- - zaznaczasz obszar w kolumnie D w którym ma być wpisana formuła - w aktywnym wierszu wpisujesz formułę odejmowania - zatwierdzasz CTRL+ENTER
Najpierw musisz utworzyć marko które będzie się uruchamiała po zmianie tekstu w komórce. Przykład Cells.Find . Na końcu wyrażenia dajesz .Activate i komórki w których znaleziono daną wartość robią się aktywne. Na końcu używasz czegoś [url=http://java2s.com/Code/VBA-Excel-Ac... żeby przejść do właściwej komórki.
Witam, Jaki parametr należy wpisać do Find i Replace by makro wyszukiwało /zamieniało/ dane w zależności od potrzeb w całym skoroszycie lub tylko w aktywnym arkuszu.
Witaj, makro powinno działać z przycisku, lub wybierając komorku w kolumnie D?
Prawdopodobnie uruchamiasz makro z aktywnym arkuszem innym niż "z". Każdy pojedynczy zakres w tym przypadku musi być precyzyjny, nawet jako argument. Path.Range(Path.Cells(), Path.Cells()) Masz do wyboru (zwróć uwagi na kropki przed Cells): [syntax=vb]with mainwkb.Worksheets("z") .Range(.Cells(i, 1), .Cells(i, 3)).copy 'itd End with 'co jest tym samym...
Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...
Skoro ma być w VBA... Przykład z tablicą i... InputBox'em ;) [syntax=vb]Sub aver() tekst = InputBox("Wpisz liczby oddzielając średnikiem", "Obliczanie średniej") tekst = Replace(tekst, " ", "") 'wyrzucamy spacje tekst = Replace(tekst, ":", ";") 'mogło się komuś omsknąć tekst = Replace(tekst, ".", ",") 'to sie często zdarza tablica = Split(tekst, ";")...
same zwykłe litery, czy jest możliwość aby makro brało aktywną komórkę z formularza wzór a nie z formularza set?
Jeśli makro zdarzeniowe ma działać w konkretnym arkuszu, to powinno być zdefiniowane w module kodu tego arkusza. Jeśli takie samo makro ma działać w kilku arkuszach, to można alternatywnie zdefiniować makro skoroszytu w module Ten_skoroszyt (ThisWorkbook). Te makra mają trochę inne nazwy, trzeba wybrać odpowiednie makro z listy.
Dzień dobry, Aby uniknąć migotania ekranu przy zmianie aktywnego arkusza należy na początku makra dopisać linijkę: [syntax=text]Application.ScreenUpdating = False[/syntax] a na końcu linijkę: [syntax=text]Application.ScreenUpdating = True[/syntax] Czy jest możlwe jeszcze jakieś usprawnienie, to trudno powiedzieć bez wglądu w strukturę danych. Jeżeli...
Super. Dzięki makro śmiga
"Jaki sens ma deklarowanie zmiennej obiektowej typu Workbook w obrębie jednego skoroszytu (jak wynika z Twojego kodu)?" Moja odpowiedź dla naszego początkującego kolegi ma mieć walory edukacyjne, dlatego zastosowałem taką konstrukcję. Może się wydawać trochę bez sensu w tak prostym przypadku, ale przy złożonych aplikacjach mających setki może tysiące...
Szablon PZ musiałbyś najpierw utworzyć w dodatkowym arkuszu. Umieszczenie w nim danych i wydruk, to już tylko "chwila" Odn. zegara Wklej do modułu [syntax=vbscript]Option Private Module Sub Zegar() If Time > "23:49:00" And Time < "23:59:00" Then Druknij End If NextTick = Now + TimeValue("00:10:00") Application.OnTime NextTick, "UpdateClock" End...
Bez makra tak się nie da. Najprościej to rozdzielić na 3 pliki. Jeden do obliczeń i dwa na dane. W tym pliku do obliczeń daj ścieżkę do innego pliku z danymi. Oba pliki z danymi muszą mieć tą samą nazwę umieszczone roboczo w dwóch różnych folderach. Po wprowadzeniu danych i zapisaniu kopiujesz plik z danymi tam gdzie podałeś ścieżkę w pliku do obliczeń....
... powiedzmy, że chodzi o aktywną komórkę ale zawsze jest to inna komórka
Działa :) Dziękuje serdecznie przyjacielu ! Jeszcze jedno : A jakbym chciał zaznaczyć zakres dwóch wierszy tzn. aktywnego i jednego wyżej :) pozdrawiam
Dobry wieczór, Nie wiem, ile jest tych wzorów i czy będą w nich w danej chwili identyczne ścieżki czy różne. Ale można spróbować tak. W edytorze Visual Basica wpisać sobie proste makro wstawiające do aktywnej komórki albo do komórki o określonym adresie formułę z funkcją WYSZUKAJ.PIONOWO. [syntax=vb]Sub WstawWzor() ActiveCell.FormulaLocal = _ "=WYSZUKAJ.PIONOWO(J6;'C:\Users\user\Des...
Witam. Jak makrem usunąć wszystkie formatowania warunkowe, wszystkie znaczy ze wszystkich arkuszy pliku? Mam taki kod jak poniżej ale on usuwa tylko formatowania z aktywnego arkusza: [syntax=vbnet]Cells.FormatConditions.Del...
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.
Wciskasz F9 i ci przelicza ale jak chcesz koniecznie makrem to wystarczy Calculate lub ActiveSheet.Calculate Czyli Sub Przelicz() Calculate Sub End a sam arkusz Sub Przelicz_Ark() ActiveSheet.Calculate Sub End Jeszcze przypomnienie ze skrótów klawiszowych excela: F9 oblicza wszystkie arkusze we wszystkich otwartych skoroszytach. Kombinacja...
Ja w "międzyczasie" napisałem coś takiego: [syntax=vbscript]Sub GoalSeekinRange() Dim i As Long, RngForm As Range, wks As Worksheet Dim RngGoal As Range, Rngx As Range Set wks = Worksheets("Brudnopis") Set RngGoal = wks.Range("L5:L9") Set Rngx = wks.Range("J5:J9") Set RngForm = wks.Range("K5:K9") For i = 1 To RngGoal.Count If IsNumeric(RngGoal(i)) And...
Chodzi o wyłączenie przeliczania. Ale jeśli zrobisz to ręcznie, zgubisz datę. W Excelu jest skrót Ctrl+: Możesz sobie dorobić coś podobnego: Wstaw moduł (Narzędzia>Makra>Zarządzaj) i wklej http://obrazki.elektroda.pl/7824836700_1... Po tym wszystkim Ctrl+spacja wstawia aktualną datę w aktywnej komórce.
Z czasem przy większej ilości danych makro spowalnia. Może jest jakiś lepszy sposób. Tak. Uzyć bazy danych, którą Excel nigdy nie był, nie jest i nie będzie
Czyli chcesz się pobawić programowaniem, to ja polecę coś czym się znowu narażę JackowiCz: Excel i makro VBA (choć Basic to nie moja bajka, ale jak się nie ma co się lubi...). Tu nie przyjmę tłumaczenia, że nie do tego jest, bo jeżeli tak to do czego? Masz środowisko programistyczne (ok, ułomne trochę) zupełnie darmowe jeżeli masz Excela, które ma spore...
Uruchom poniższy kod w aktywnym Arkuszu3 [syntax=vb]Sub z() Dim iLstRw% Dim iLstNmRw% Dim rRng As Range j = 3 With Sheets("Arkusz1") iLstNmRw = .Cells(Rows.Count, 6).End(xlUp).Row Set rRng = Range(.Cells(6, 6), .Cells(iLstNmRw, 6)) End With iLstRw = Cells(Rows.Count, 1).End(xlUp).Row For i = 7 To iLstRw rRng.Copy Destination:=Cells(j, 9) Range(Cells(j,...
Nie piszesz, której wersji Excela używasz, mam nadzieję, że co najmniej 2010. Bo od tej wersji dostępna jest właściwość DisplayFormat, która rozwiąże Twój problem. Tylko przykład dobrałeś niefortunnie, bo Twój kod działał w obu arkuszach: w jednym były dwa formatowania zwykłe, a w drugim dwa warunkowe, a Twój kod porównuje formatowania zwykłe, które...
Bardzo dziękuję! :) Jeszcze mam ostatnie pytanie: czy jest możliwość aby makro sprawdzało te komórki w arkuszu 1 ale komunikat wyświetlało w arkuszu 2? (albo tym, który będzie w danej chwili aktywny). Bo z kolei to C11 i C10 zależą od wartości w innym arkuszu.
Przepraszam, ale musiałam zmienić nicka, nie mogłam na starym zrobić odpowiedzi. Zrobiłam wzór. W arkuszu Etykieta maja być uzupełnione dane z arkusza BAZA, powiązanie danych przypisałam kolorami. Arkusz aktywny niech będzie Etykieta.
excel makro aktywny arkusz makro aktywny komórka aktywny arkusz makro
oporność głośnik sygnalizator satel mrugać pompa ciepła powiatr
kamera samochodowa zmywarka whirlpool
TP.SIS231.P83 32" Combo TV Mainboard: Panel Voltage, Firmware, Common Faults, and Repair Tips Nie otwierają się szyby w Toyocie Avensis Verso
