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 [syntax=vbscript]Sub zamianki() Dim kom As Excel.Range Application.ScreenUpdating = False With Sheets("L-ki") For Each kom In .Range("c3:c70") If kom.Value <> "" Then Sheets("R-ki").Cells(kom.Row, "E") = Range("C" & kom.Row).Value End If Next kom End With Application.ScreenUpdating = True End Sub[/syntax]
INFO" kto i ile danego dni zrobił Wystarczy funkcja LICZ.WARUNKI bez sortowania Problem że różne formaty daty
Spróbuj takiego makra: [syntax=vbscript]Sub Powielanie() Dim ile As Long, w As Long w = 1 Do With Cells(w, 2) ile = .Value .ClearContents .Offset(1, -1).Resize(ile - 1, 2).Insert xlShiftDown .Offset(0, -1).Resize(ile, 2).FillDown w = w + ile End With Loop Until Cells(w, 2) = vbNullString End Sub[/syntax] Makro działa w arkuszu aktywnym zgodnie z przedstawionymi...
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Target.Offset(0, -2) = Date Target.Offset(0, -1) = Year(Date) & "/" & Target.Row - 1 End If End Sub
...gdy wstawie przycisk w tym samym arkuszu co dane to wszystko działa, natomiast gdy wstawie przycisk do drugiego arkusza to wywala mi błąd... Wydaje mi się, że to wyłącznie wina adresowania. W makrze brak pełnego adresu zakresu komórek do którego się odwołujesz. Poczytaj o obiekcie "Range" Excela. Choćby tu: [url=https://msdn.microsoft.com/en-us/li...
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
Wstawiam plik z rozwiązaniem problemu, tak jak ja go zrozumiałem. W kodzie makra nie wstawiałem objaśnień, bo zmienne nazwałem aż naddto opisowo. Jeśli czegoś nie rozumiesz z procedury, korzystaj z F1 ustawiając kursor na nieznanym Ci "słowie". Aha, nie zapomnij włączyć makr w Excelu, najlepiej na stale. Dostęp do edytora VBA to chyba wiesz: Alt + F11...
Wstawiasz przycisk, klikasz go 2x i wpisujesz kod: ActiveCell.Value = Now Masz też skróty klawiszowe: CTRL+; wstawia datę, CTRL+SHIFT+; - czas. Data i czas to kombinacja powyższych. Możesz też stworzyć moduł Public Sub WstawCzas() ActiveCell.Value = Now End Sub i przypisać do niego klawisz skrótu (makra->opcje)
Prawdopodobnie wstawiasz makro reprezentacji graficznej aparatu. Przy wstawianiu makra w oknie na dole zwykle jest rozwijalna lista z wyborem wariantu makra do wstawienia. Często jest tak, że wariant np. A to reprezentacja graficzna, a np. wariant B to reprezentacja schematowa i jeśli wstawisz właśnie tę reprezentację schematową to bez problemu można...
kolega mariuszlorenc ma 100% racji ja dodam tylko, że jeśli w pliku dołączanym chciałbyć użyć zdefiniowane przez siebie MAKRa to wtedy .INCLUDE "PLIK.INC" wstawiasz nie na końcu, a na początku programu tak żeby były widoczne dla preprocesora przed wystąpieniem makra w kodzie pozdr
Ja po prostu nie wiem o co Ci chodzi.:)
Wstawiam arkusz z rozwiązaniem za pomocą makra VBA. Kod napisałem tak, byś go zrozumiał i mógł zmodyfikować niezależnie od ilości pytań i osób badanych. Również ilość odpowiedzi, dla których można liczyć "wspak" jest dowolna.
Cel jest prosty, chcę aby w każdej komórce w kolumne, wstawiało mi makro formułe do momentu kiedy np w kolumnie A będzie cokolwiek wpisane. W programowaniu nie ma 'na przykład. Dlatego pokaż arkusz wejściowy i arkusz po wykonaniu makra.:)
W zależności od tego który przycisk wybierzesz: - z formularzy: zmieniasz nazwę makro i/lub przenosisz je do oddzielnego modułu wstawiasz przycisk z menu kontekstowego wybierasz opcję "Przypisz makro..." wskazujesz makro, które chcesz przypisać przyciskowi finisz - z przybornika formantów: wstawiasz przycisk z menu kontekstowego wybierasz "Wyświetl...
Zdaje się, że wystarczy[syntax=vb]Sub Makro1() ' ' Makro1 Makro Dim wks As Worksheet, shp As Shape, adres As String Set wks = Sheets("Arkusz1") Select Case Range("A4") Case 1: adres = "K6" Case 2: adres = "K7" Case 3: adres = "K8" 'itd End Select For Each shp In wks.Shapes If shp.TopLeftCell.Address(False, False) = adres Then shp.Copy Exit For End If...
Witam, Podaję makro: Sub Logoeps() ' Logoeps Makro ' Option Explicit Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range Dim fd As Object Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ActiveWorkbook.path & "\" & Range("M68") .AllowMultiSelect = False .Filters.Clear .Filters.Add "Picture Files", "*.png;...
Zazwyczaj funkcja powinna zwrócić wartośc Spójrz w pomocy VBA przykład funkcji(Help - Writing a Function Procedure) Twoja funkcja nie zwraca żadnej wartości.
a co masz na myśli mówiąc "...podstawiać formuły w osobnej pętli"? Wstaw kolumny, wpisz ręcznie formuły sumowania i przepisz argumenty do makra. Po zakończeniu pętli wstawiającej kolumny i nagłówki (usuń linię z wstawianiem sum), dopisz następną wpisującą tylko formuły.
Makro w oddzielnom skoroszycie [syntax=vb]Sub wypelnienie() Dim rd&, rs&, bd As Worksheet, bsh As Worksheet rs = InputBox("Wprowadz numer wiersza danych", "Wiersz #?", 1) path_A = "d:\AAA\" path_B = "d:\AAB\" Set bsh = Workbooks.Open(path_B & "BAZA").Sheets(1) Set bs = Range(Cells(rs, 1), Cells(rs, 7)) plik = Dir(path_A & "*.xlsx") While...
w kolumnach AC a AR jest normalne ? nie tak samo makra wstawia linka do użytkownika. Czy da się ustawić tak by makra objęła jedynie komórki od AP11. Dodano po 1 pierwsze makra (kopiujące przy otwarciu pliku użytkownik z pliku źródłowego) tez tak kopiuje, że wstawia link do formuły.
próbowałem najpierw wkleić kod Gdzie próbowałeś wkleić kod? Zobacz w projekcie makra, że kod jest "bezpośrednio" w arkuszu a nie w module. U mnie działa: Nowy arkusz, wstawiam wykres, kopiuje kod makra do arkusza (nie do modułu) i zmieniam wartość w tabeli ... tatam. Na marginesie jeżeli już masz "coś" w tym arkuszu w którym chcesz ten kod wykorzystać:...
Jeżeli w komórce ma się "pojawić" napis "Nie dotyczy" a w innym przypadku masz wprowadzać datę to tak jak sam napisałeś w pierwszym poście: tylko proste makro to załatwi. Niestety funkcja jeżeli w tym przypadku to za mało. Kłopot polega że nie masz pojęcia o makrach (jak sam mówisz), a makro trzeba ustawić w "modułach zdarzeniowych" arkusza. Np. takie:...
Ok, mam makra do S7-1200. https://www.automation.siemens.com/bildd... Teraz jak otwieram makro od CPU 1212C AC/DC/RLY to wyświetlają mi się tylko same przyłącza od zasilania. Brakuje przyłączy dla DI oraz DO. Makro CPU 1212C AC/DC/RLY Bezpośredni link: https://www.automation.siemens.com/bildd... Dlaczego tak się...
Zależy jakie pole. Zacznij od nagrania makra wstawiania obiektu i coś już będzie wiadomo.
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
Moja propozycja: jedna para przycisków +/- i przypisane do nich makr: [syntax=vb]Sub wstaw() Rows(ActiveCell.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(ActiveCell.Offset(1, 0).Row, "H").FormulaR1C1 = "=R[-1]C" End Sub[/syntax] i [syntax=vb]Sub usuń() Rows(ActiveCell.Row).Delete shift:=xlUp End Sub[/syntax] Przed przyciśnięciem...
Witaj [syntax=vb] Sub InsSubtot() Dim bs As Range Set bs = ThisWorkbook.Sheets(1).Cells Dim r&, rp& ow = bs(Rows.Count, 8).End(xlUp).Row r = 2: rp = 2 While bs(r, 8) <> Empty r = r + 1 If bs(r, 8) <> bs(r - 1, 8) Then bs.Rows(r).Insert bs(r, 5) = "SUMA" bs(r, 6) = Application.Sum(Range(bs(rp, 6), bs(r - 1, 6))) bs(r, 5).Resize(1,...
Napisałeś pętlę nieskończoną. Nie do końca łapię co chcesz zrobić. Może wystarczy licznik pętli przesunąć poza gałąź If Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = "" If Range("A" & i).Value = 37258 Then Range("A" & i + 1).EntireRow.Insert...
Druga część warunku pętli to przerwanie w razie powtórnego uruchomienia. Wiersz(e) należy wstawić o jeden niżej (Range("A" & i + 1).EntireRow.Insert) oraz (i = i + how_many + 1) Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = ""...
Witam. Nie mogę poradzić sobie ze stworzeniem makra... Chciałabym aby makro łączyło tekst z komórek z zakresu C13:C21 ( z pominięciem pustych) z zachowaniem formatowania i wstawiało do komórki w innym arkuszu. Plik przykładowy z makrem. Jak dołączyć do makra, które mam makro, które połączy zakresy C13:C21 z arkusza "dodaj dane" do jednej komórki w innym...
Sheets.Add Method (Excel) https://msdn.microsoft.com/en-us/library... To samo mógłbyś się dowiedzieć używając rejestracji makra.
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
w przykładzie zeszyt3 [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 1).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub[/syntax] A tu kod z nazwą - ale nie...
Drepczesz w miejscu. To wciąż jest kod dla obiektu (mniejsza o nazwę), a nie dla komentarza. Spróbuj z nagraniem makra (wstawianie rysunku jako tła komentarza w pojedynczej komórce), przeanalizuj nagrany kod i wszystko stanie się proste...
Kompilator wstawia oczywiście wynik końcowy. Wylicza to w trakcie kompilacji jak czyta daną definicję aby jej wynik móc wstawić wszędzie tam gdzie jest użyta.
[syntax=vbscript]Sub Naglowki() If Application.CountIf(Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), [A1]) > 1 Then Exit Sub w = 2 While Cells(w, 1) <> "" n = w + 1 If Cells(n, 1) <> Cells(w, 1) And Cells(n, 1) <> "" Then Rows(n).Insert Range("A1:E1").Copy Cells(n, 1) w = w + 2 End If w = w + 1 Wend End Sub [/syntax]
Witam, jestem na etapie pisania pracy inżynierskiej, napisałem sobie część makra która wstawia mi twardą spację po każdym ze spójników Z tymi twardymi spacjami bym uważał, bo niektóre programy nieprawidłowo justują tekst, gdy niektóre spacje w wierszu są twarde (twarde nie ulegają justowaniu). Zdarza się to czasami nawet w gazetach. Jeśli coś takiego...
Cześć, mam problem z utworzeniem makra do podanego przeze mnie pliku. Otóż znajdują się tam trzy arkusze: Dane, Dane(2), Do uzupełnienia. W arkuszu Do uzupełnienia potrzebowałbym rozwiązania, aby pobierając dane z arkusza Dane (2) w odpowiedni sposób wstawiać nowe wiersze, pomiędzy stare tak aby nie trzeba było szukać miejsc w arkuszu Do uzupełniania...
Makr działających na zasadzie WYSZUKAJ.PIONOWO można wymyślić wiele. A Ty potrzebujesz kodu, który będzie działał z Twoim konkretnym makrem. A żeby coś konkretnie doradzić, to trzeba widzieć to makro i sprawdzić jak ono działa na przykładowych danych, czego konkretnie szuka, jaki zwraca wynik itp., a przede wszystkim jaką stosuje metodę wyszukiwania....
Witam. Mam arkusz który ma służyć do kontroli wydań i przyjmowań towarów. W arkuszu mam łącznie 40 pól w które wstawiłem przycisk i podpiąłem do niego makro wstawiające datę i do tego momentu to działa. Problem pojawia sie gdy chce to makro przypisać do wszystkich 40 przycisków, wtedy wychodzi na to że musiał bym mieć napisane 40 makr gdzie w każdym...
zdecydowanie początkujący Ale pomoc podręczna mimo wszystko jest dostępna ... :-) A z tym poniżej, jak działa ? [syntax=vba]Option Explicit Private Sub Workbook_Open() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets(Array("Inne", "Beton, pompy", "Stal", "Elementy murowe i zaprawy", "Kruszywa", "Szalunki", "Sprzęt", "Żurawie", "Kontenery",...
Dziękuje koledze makro wstawia w kolumnę s wszystkie znaki. A co z włączeniem filtra skopiowaniem danych i wyłączeniem filtra?
Disable - //reszta tekstu tylko dla wypenienia No to już wiem że nic nie wiem. U mnie zawsze dla F103, czy to gołego czy w Nucleo (a też np. dla F100) generuje się makro w HAL_MspInit. A jeśli W SYS->Debug jest Disable (obojętnie czy jawnie ustawione czy nieruszana wartość na dzień dobry) to jest __HAL_AFIO_REMAP_SWJ_DISABLE(); czyli w konsekwencji...
Sub ZapiszPlik() Dim Skor As Workbook Const FOLDER As String = "D:\moje dokumenty\" -tu wpisujesz lokalizację pliku, gdzie docelowo ma się zapisać plik Set Skor = ThisWorkbook Skor.SaveAs FOLDER & "pliczek" & Format(Now(), "_yyyymmdd") - "pliczek" to nazwa jaką będzie posiadał plik ThisWorkbook.Close False End Sub To makro wstawiasz w pliku, który ma...
Ma i to duży. Co jakiś czas dane wejściowe będą się powiększały o nowe dane, oraz o kolejne obliczenia. Wiem, że większość z tych obliczeń można by zrobić bez makra i je tak zostawić, wtedy wstawianie dodatkowych kolumn nie miałoby znaczenia, ale jednak wolałbym, żeby to chodziło z makra. Proszę poprawić błędy. Zdanie rozpoczynamy z wielkiej litery....
Dzięki za zainteresowanie. Niestety ani jeden ani drugi sposób nie załatwia mojego problemu. Po wpisaniu do komórki C9 formuł, które podaliście sytuacja wygląda tak, że jak staję na komórkę C9 i dodaje wiersz powyżej to w komórce C10 jest dalej suma tylko jednej komórki C8:C8, a mi chodziło o to, aby formuła zmieniała się na C8:C9. Dlatego zastanawiałem...
Witam (at)adamas_nt podał linka gdzie masz tam wstawianie procedury.
Owszem zadziałało ,po kilku modyfikacjach .Exel blokuje makra Ale jak zrobić żeby nowe dane się w tabele wstawiały. Na myśli mam to iż to co załączyłem w poście to seria próbna ,tych danych do analizy będzie jeszcze dużo więcej i jeszcze kilka takich operacji mnie czeka.
A to? [syntax=vbscript]Sub WstawWiersze() x = 2 While Cells(x, "C") <> "" y = x + 2 Rows(y).Insert Cells(y, "C") = Cells(x + 1, "C") Cells(y, "D") = Cells(x, "D") + Cells(x + 1, "D") 'tutaj sumuj kolejne kolumny Range("D" & y & ":I" & y).NumberFormat = "0" x = x + 2 Wend End Sub [/syntax]
No własnie problem w tym że makra umiem robić tylko recorderem, gdy trzeba samemu napisać kod, mam z tym problem - po prostu nie umiem. Licze na to że ktoś mi pomoże, napisze podstawę a ja juz poprawię tak by dopsaować do mojego arkusza.
Witajcie ponownie Proszę Was o pomoc. Przeszukałem "całego" neta i nie znalazłem odpowiedzi. W jaki sposób utworzysz szablon wiadomości w programie Microsoft Outlook 2003 aby w temacie pojawiała się bieżąca data w formacie DD-MM-RRRR. Może jakieś makra? Pozdrawiam
Tak jak napisali poprzednicy potrzebne jest tu adresowanie bezwzględne. Dodam jeszcze, że często przydaje się wiedza iż po wpisaniu w komórkę formuły: - =$A$1 po "przeciągnięciu" jej w dół lub w prawo zawsze w docelowych komórkach będzie wpis =$A$1 - =A$1 po "przeciągnięciu" jej w dół zawsze w docelowych komórkach będzie wpis =A$1, po "przeciągnięciu"...
Nie trzeba makra, np. jeśli w kolumnie 'A' arkusza 'Arkusz1' chcemy mieć "dynamiczną" listę "czegoś tam", to tworzymy sobie nazwę zdefiniowaną: Nazwy zdefiniowane => jakaś_nazwa_zdefiniowana => Odwołuje się do => =ADR.POŚR("Arkusz1!$A$2:$A$" & ILE.NIEPUSTYCH(Arkusz1!$A:$A)) i tę nazwę wstawiamy do listy sprawdzania poprawności jako 'Źródło'. Oczywiście...
Działa i to super. Pytanie mam inne teraz, czy da się to tak zmodyfikować, aby to działało tylko wtedy jeżeli w kolumnie są jakieś dane, a jeżeli nie, to nic nie robi. I jeżeli po wstawieniu już wiersza to w przypadku ponownego użycia makra omija już wstawione makra i nic nie robi, a tylko wtedy jeżeli nie ma odstępu pomiędzy liczbami, jeżeli one się...
https://obrazki.elektroda.pl/4586766500_... Widzę, że się udało. W załączniku przykład tabeli Excela. Jeśli tabela ma wiersz podsumowania, to wstawianie nowych wierszy odbywa się tabulatorem w ostatniej kolumnie tabeli. Można też wstawiać wiersze w środku tabeli z menu podręcznego (PPM) lub ze wstążki. Filtry z tabeli można usunąć...
E2 i F2 mają prawidłowo ustawione opisy kolumn, ale wartości są źle wstawiane lub... odwrotnie. W arkuszach źródłowych jednak jest inna kolejność - zmieniłem więc opisy kolumn, żeby były zgodne z dotychczas wykonywanym makrem. W obecnej postaci uzupełniane są dane w kolumnach G-H-I. Kodu makra nie optymalizowałem.
Do takiego zastosowania idealnie nadaje się wspomniany czytnik ze względu na swoja prostotę i cenę, pozostaje tylko odpowiednia konfiguracja excela i napisania makra
To jest jakby pokłosie tego o czym pisałem z Tobą w sprawie wstawiania kodu makra. Doszedłem do wniosku, że nie bardzo poradzę sobie chyba z tym makrem wstawiającym kod. Ponieważ na innym forum zaproponowano mi, żebym podmienił arkusz, pomyślałem, że tak będzie prościej. Generalnie mój pomysł opierał się na tym, że z otwieranego pliku miałem kopiować...
Witam Mam makro (wstawianieprocedury), które wstawia procedurę (Makro2) do aktywnego skoroszytu. Przy okazji jest tworzony przycisk w aktywnym arkuszu, który miałby uruchamiać tą wstawioną procedurę z Makra2. Problem w tym, że przycisk nie próbuje się odwoływać do Makro2 z aktywnego skoroszytu, ale do tego skoroszytu w którym jest makro wstawianieprocedury....
a moze mni ktos napsać jak to dokładnie zrobic bo za bardzo nie wiem
Szukam pomocy odnośnie wstawiania formuły bądź makra, które w arkuszu głównym będzie sumować wszystkie wartości, z tej samej komórki lub zakresu komórek w każdym arkuszu. Na dodatek chciałbym, aby do tej sumy dodawane były wyniki z nowo tworzonych arkuszy. Tzn. np. w arkuszu głównym mam określone, że w komórce A1 ma sumować wszystkie wartości z komórek...
Prot, mógłbyś wyjaśnić jak miałoby działać to makro, które przywołałeś? Pokazałem tylko, że istnieje możliwość wywołania makra przy zmianie którejkolwiek wartości formuły w obserwowanej kolumnie. ale wtedy wychwycenie wiersza, w którym nastąpiła zmiana jest znacznie trudniejsze niż proste x=Target.Row Twój kod wychwytuje wiersz, w którym nastąpiła...
Robisz sobie makro artykułu i wstawiasz makro do schematu- zmienia się tylko numeracja komponentu.
Poszukuje u forumowiczów pomocy. W załączniku znajduje się plik. Do niego potrzebowała bym makra. W arkuszu"BAZA" w komórce U3 makro wstawia liczbę 1, następnie drukuję ten arkusz(od komórki A1 do komórki F51), drukowanie odbywa się na domyślną drukarkę i drukowanie dwustronne, następnie makro zmienia liczbę 1 w komórce U3 na liczbę 2 i znów drukuje...
Proponuję zmienić na początku kodu - dodać drugą pętle, która sprawdzi drugą komórkę i wyczyści "częściowy wpis" z pierwszej - zasada "jak zapomniałeś jednej to wpisuj ponownie obie" (jak nie pasuje taka zasada to wystarczy wyciąć te dwie linijki czyszczące) :D [syntax=vbscript]With ActiveSheet If .Range("C2") = "" Then MsgBox " Proszę wpisac datę i...
jak wejdzie się w kod i dołuły to jest zrobione okienko tylko chodzi o podpięcie wpisanego tekstu do tabelki wstawianej
Nie bardzo rozumiem co z tym "Znacznik" :( W każdym razie linia, w której znajduje się kursor: Ln = Selection.Range.Information(wdFirstChara...
Witam. Potrzebuję pomocy z napisaniem makra, które będzie miało za zadanie automatyczne wstawienie nazwy urzedu po wpisaniu kodu mpk z podanych kolumn w Arkuszu2
Proponuję takie makro: [syntax=vbscript]Sub Moduł_Kliknięcie() Dim kom As Range, form As String For Each kom In Selection If kom.HasFormula Then form = Application.Replace(kom.Formula, 2, 0, "ABS(") On Error Resume Next kom.Formula = Replace(form, "*", ")*", 1, 1) On Error GoTo 0 End If Next kom End Sub[/syntax]Przed użyciem makra należy zaznaczyć zakres...
a po drugie chyba mniej skomplikowane będzie usuwanie tych z zakresu drugiej ramki No, może odrobinkę. W załączniku są dopisane oba. Procedury znajdują się w kodzie arkusza. W makro wstawiania nie ingerowałem, nadmiarowe CheckBox'y wyrzuciłem.
W załączniku.
Witam oto z makrem
Żeby nie grzebać już w schowku to najprościej jest zmodyfikować warunek i dopisać "/". Np.: [syntax=vbscript](...) If .Find.Found Then .Copy .GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=1 .Find.Text = "-[0-9]{8}" .Find.MatchWildcards = True .Find.Execute If .Find.Found Then .TypeText Text:="/" .Paste (...)[/syntax]
Witam, Mam plik Excela służący jako magazyn. W każdy arkuszu są zapisywane ruchy magazynowe dla każdego produktu w formie tabeli Excela. -w każdym arkuszu jest po jednej tabeli -wszystkie tabele mają dokładnie ten sam układ nagłówków (np. Towar, Cena, Ilość, Jednostka, Suma, Nr FV itp.) ale oczywiście różną ilość wierszy -chcę wstawić pomiędzy nagłówki...
Witam, Ponieważ tworzę wiele pism które muszę zakończyć tą samą treścią (klika zdań na końcu dokumentu), poszukuję rozwiązania które wstawiało by tekst przypisanym wcześniej skrótem klawiszowym. Interesuje mnie makro które będzie działało trwale, treść którą będzie wstawiało musi zwierać w kodzie VB, tak żeby można było czasami zmienić datę lub treść....
Witam. W pracy często korzystam z outlooka. Odsyłam (at) z dopiskiem Wykonano. W outlooku jest możliwość dopisania makra. Nie znam się na Visual Basic. Chciałbym uzyskać pomoc w napisaniu takiego makra, by po naciśnięciu klawiszy Ctrl + Q automatycznie wklejał się taki tekst. Czy mogę prosić o pomoc?
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...
Jeszcz patrz Twoj post #1 Mam cztery oczy (okulary), ale nawet z dziesiątym czasem nie widać "c4". Widzę nawet że ciągi są podwajane (który jest niepotrzebny), ale nie c4. W "c4: nie ma fukcji exela. i jej nie powinno być ale pocztaek mojego makra wstawiał tak jak napisąłem ostatnio. Dodano po 1 ilośc spisów bedzie uzalezniona od ilosci danych które...
Witam wszystkich forumowiczów Mam problem z prostym makrem, mianowicie potrzebuję aby w każdym arkuszu makro automatycznie wstawiało pierwsza pustą kolumnę. W moim makrze wstawiane jest tyle kolumn ile arkuszy w zeszycie i to tylko w akurat podświetlonym arkuszu. Wiem, że mógłbym to zrobić operacją na wielu arkuszach ale niestety potrzebny jest mi automat....
Możesz zrobić dwa prawie identyczne makra (różnicą będzie prawdopodobnie, za mało wiem o arkuszu, tylko adres arkusza), albo jedno makro, któe zrobi Ci od razu dwa wykresy na dwóch nowo wstawianych arkuszach.
Witam, Firma składająca się z kilku Oddziałów, które dzielą się na Zakłady ma do wprowadzenia pewne standardy korporacyjne. Polega to na tym, że na zadane pytanie każdy Zakład lub cały Oddział musi odpowiedzieć "tak". Jeśli wszystkie Zakłady odpowiedzą "tak" to w pliku zbiorczym zaznacza się,że dana rzecz jest zrobiona w całej firmie. Zaznaczanie, że...
Działa. Wielkie dzięki. Mógłbyś jeszcze podpowiedzieć jak rozbudować to makro, tak aby przy kopiowaniu wstawiało oprócz komórki A1 do AH12, zawartość komórki B1 do AH17? Pozdrawiam.
Pierwsze pytanie - czy naprawdę masz aż 600.000 wierszy w tym pliku? Drugi - czy musisz wstawiać formuły, nie możesz od razu przeliczonych wartości?
Po zmianie czasu i daty przez opcję w menu, data i czas się zmienia do momentu odłączenia zasilania. Po ponownym podłączeniu zasilania czas i data ustawiają się tak jak przed zmianą. Czemu tak się dzieje? Jesteś pewien, że działa podtrzymanie bateryjne? W setup wywołujesz bezwarunkowo kod: __DATE__ oraz __TIME__ nie mają nic wspólnego z aktualnym czasem...
czy są w ogóle w excelowskim vba jakieś komendy służące do rysowania tabel? Nagraj makro wstawiania tabeli to się przekonasz :) W sumie to jedna, dwie linijki, gdzie zakres jest typu string, więc łatwo podstawić wartości ze zmiennych. Jeśli ilość kolumn i nagłówki są stałe można wyrysować tabelkę z jednym wierszem i wstawiać kolejne, wplatając polecenie...
Witam, Mam do napisania makra, które najpierw tworzy 100 arkuszy o nazwach "Nowy_1", "Nowy_2", itd.. a później w komórkach A1:A10 w co drugim arkuszu wstawia liczby od 1 do 10. Niestety makro nie działa poprawnie, nie wiem gdzie popełniam błąd, ponieważ liczby wstawiają się tylko w pierwszym arkuszu. Baaardzo proszę o pomoc ! :) Sub WstawSkoroszyt()...
Witam. mam z drobna odrębny problem a mianowicie. Pracuję na cenniku w excelu gdzie są numery produktów OE i nasza oraz cena. Chciałbym to zautomatyzować makrem tak aby wyszukiwało po numerze OE i zwracało numer nasz i cenę. Prosze o pomoc. Super gyby to działało w nowym oknie Pozdrawiam
To nie było pytanie, czy nie ma błędu, a czy znaleziono szukany tekst: [syntax=vbscript]a = Application.Match(Target, w.Range("A1:A" & ow), 0) If Not IsError(a) Then w.Rows(a).Delete[/syntax] Stąd taka negowana logika.:) Powyższy kod to przerobiony kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then...
Makro z przestawianiem obrazków masz podane na talerzu przez kolegę marcjinj12 , więc... tylko zastosować. Osobiście dalej obstawiam filtr ;) może być, na przykład, wstawiany makrem z formularza przy wyborze grupy, albo jakoś podobnie. W każdym razie unikałbym kopiowania obiektów...
wstawiłeś to zaświadczenie do Excela Przepisałem do arkusza. Pusta oraz zaznaczona "kratka" na wydruku, to znaki czcionki Wingdings, wstawiane makrem wg wyboru w formularzu. Nie bardzo wiem jak odblokować ten plik - pobrałem go ze strony Wystarczy pobrać z innej ;)
Albo rybki albo akwarium... Albo w komórce jest formuła albo wartość jest wpisywana ręcznie. Oczywiście można jeszcze użyć makra czy też dodatkową komórkę, która przechowuje dotychczasową wartość komórki B. To niestety też wymaga makra aby ustalić kiedy i która wartość komórki ma być tą "ostatnią". Nad tym musisz się zastanowić aby osiągnąć to co założono.
Ok, to podsyłam plik w którym mamy arkusze: dane, parametry i docelowy (widok oraz wynik pracy makra). Arkusz Dane - dane jak wcześniej (trochę więcej kolumn). 9 pierwszych wierszy zarezerwowane. Dane od wiersza 10. Arkusz Parametry - parametry na których będzie opierało się makro. Arkusz Docelowy - tutaj trochę zmian ... Każdy rekord danych ma argument...
Ale mnie chodzi o Makro wstawiające do bieżącego Skoroszytu (Zeszytu) Makro we we właściwości: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) No i w czym problem? Ja podobnie jak adamas_nt nie rozumiem problemu... plik1.xls ok plik2.xls ok plik3.xls ok
Moim zdaniem wychodzisz z błędnego założenia. Sugeruję kolejność: 1. Kliknięcie przycisku w arkuszu otwiera formularz (i nic więcej). 2. Wypełnienie formularza przez użytkownika. Koniecznie zablokuj kontynuowanie bez wypełnienia kluczowych pól. Po wypełnieniu formularza można pobrać wartości potrzebne do przede wszystkim nadania nazwy wstawianego, nowego...
Nagraj makro usunięcia scalenia, wstawiania wiersza, ponownego scalenia i zapętlij...
Przyszło mi do głowy że może tak jeszcze opisze mój problem, będzie łatwiej zrozumieć: 1.1. Makro wstawia wszystkie symbole z kolumny A arkusza "BAZA" do arkusza "DANE" do pierwszej wolnej komórki w kolumnie C i dla każdego symbolu wstawia tekst:"cccccccccccc cccccccccc" w kolumnie D arkusza "DANE; 1.2. Raz jeszcze raz makro wstawia wszystkie symbole...
Śledź makro krok po kroku(F8) i upewnić się, że wartości zmiennych DOSTAWCA i NUMEREK odpowiadają do prawidłowego Dodano po 2 Na początku makra, Dodaj otwarcie formularza, gdzie powinny być wstawiony Zdjęcia
Przewiń stronę edycji w dół. Pod "zielonym paskiem" jest wstawianie załączników...
Najlepiej zamienić tabelkę w Arkuszu1 na Tabelę. Ustawiamy się kursorem na komórce z danymi i z memu Wstawianie wybieramy Tabela wtedy zakres do tabeli przestawnej będzie się sam powiększał.
makra wstawianie tekstu makra uruchamiające makra wstawianie linków
huawei gniazdo naprawa gasnące żarówki strumienica zamiast katalizatora
ricoch aficio ricoh hasło administratora
Deutz DX 90: Problem z drugim biegiem na uruchomionym silniku Myszka w pilocie SHARP nie powiększa ekranu