Witam możesz np. tak [syntax=vbscript]ActiveCell.Value = Environ("username") & ", " & Now()[/syntax] nie doczytałem do końca
Dopisz przed tą linią: debug.print .Shapes(.Cells(w, 1).Text).name naciśnij Ctrl+g uruchom makro. I co tam wypisało?
W poście niżej masz to opisane Ale tu zrobiłbym ciut inaczej, Np [syntax=vb]Sub otworz() 'otwieranie pliku z okna dialogowego z filtrem Dim fd As FileDialog Dim wkb As Workbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = "H:\CCC\ccc\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect...
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...
Nagraj to makro i przypisz do przycisku. Przycisk wiesz jak zrobić? Wiesz jak przypisać makro do przycisku? Makro powinno wyglądać mniej więcej tak: [syntax=vb]Sub aktualizuj() ' aktualizacja danych z zakresu A1 Range("A1").Select Selection.QueryTable.Refresh BackgroundQuery:=False End Sub [/syntax] .. ewentualnie we właściwościach danych zewnętrznych...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Oops, a było sobie nagrać makro ;) 1. Kod umieść w module standardowym i podepnij pod przycisk 2. Najpierw wybierz arkusz, następnie komórkę. Np [syntax=vb]Sub Odwolanie() Arkusz2.Select [C4].Select End Sub[/syntax]
Przykładowe makro: Po użyciu przycisku w Mobile KPD2 Pro następuje uruchomienie wyjścia monostabilnego na 1s. Potem tworzysz wejście, którego typ linii to "wg wyjścia" a typ reakcji to "techniczna - przycisk drzwi". Wejście to jest sterowane wg wyjścia monostabilnego. Taka wskazówka powinna wystarczyć.
Przykładowe makro w załączonym pliku. Należy przygotować dane. W wierszu, który zostanie zaznaczony będą wyniki (płace brutto). W dwóch wierszach poniżej formuły obliczeniowe. W trzecim wierszu poniżej oczekiwane płace netto. Należy zaznaczyć pierwszy wiersz na wyniki i kliknąć przycisk "Wyniki".
Dodać nowy moduł w VB, wkleić do niego kod i uruchomić. W celu ułatwienia użytkowania, można dodać przycisk uruchamiający makro do wstążki - nie posiadam wersji 2016 ale dla 2010 to należy zrobić tak: Opcje programu Outlook -> Dostosowywanie wstążki. W oknie po lewej - Wybierz polecenia z: Makra (zaznaczasz właściwą procedurę). W oknie po prawej...
Do pierwszego możesz użyć funkcji RIGHT (zakładając że tydzień jest dwucyfrowy i zawsze na końcu) tydzien = Right(wartosc_komorki, 2) Do drugiego: albo użyć przycisku którego kliknięcie wywołuje makro dodające nową osobę do zakłądki "status" i "zasoby", albo spróbować obsłużyć zdarzenie Worksheet_Change zawężone do kolumny gdzie jest nazwisko....
Przykro mi, ale nawet nie sprawdzałeś, jak działa makro... W komórkę C1 wpisujesz ścieżkę do tysiąca plików, na przykład: C:\Users\TwojaNazwaUzytkownika\Pictures\... i naciskasz przycisk 'Zmień nazwę tysiącowi plików'. Makro zamieni nazwę tysiącom plików.:)
Przepraszam że się wtrącam koledze adamas_nt'owi :) Przyznam że na podstawie makra podanego przez kolegę adamas_nt autor mógłby się pokusić o samodzielne stworzenie drugiego makra ale... dobry będę i dam w załączniku gotowca (Rozwiązań jest dużo ale jak zaznaczyłem makro jest podobne do wcześniejszego żeby było łatwiej zrozumieć - jeżeli oczywiście...
Witam, OO v3.4.1 Czy jest możliwe stworzenie makra przycisku +/- który jednocześnie odejmuje -1 od wartości w zaznaczonej komórce i dodaje wartość +1 do wartości w sąsiedniej komórce? Pozdrawiam
Może ktoś ma jakąś wiedzę na temat zmiany przełączników z mechanicznych na optyczne, czy może hardware takiej klawiatury może nie być przystosowany pod przełączniki optyczne? Nie da się zrobić takiej operacji. Tzn. może jest na rynku jakaś klawiatura umożliwiająca taki manewr, ale w standardowych jest to niewykonalne. Niezbyt rozumiem z tego opisu,...
Fajnie jakby to wyszukiwanie nie wymagało otwierania pliku. Hmm. Przy tylu danych makro działałoby od poniedziałku do środy :) W załączonym pliku dodałem przycisk oraz (na życzenie) pętlę Do-Loop.
Witam zobacz [syntax=vb]ActiveWorkbook.RefreshAll[/sy...
Jeżeli tak to proponuje nagrać makro i podpiąć je pod przycisk (będzie najprościej). Włącz na wstążce zakładkę deweloper Plik-opcje-Dostosowanie wstążki-i w oknie po prawej stronie zaznaczyć Deweloper i OK Na wstążce pojawi się karta deweloper.Otwórz ją. Przejdź na twój pierwszy arkusz. Wciśnij "Zarejestruj makro" Teraz postępuj tak jak zawsze robisz...
Skoro chodzi o zbędne spacje wiodące to użyj USUŃ.ZBĘDNE.ODSTĘPY(), potem przekopiuj tylko formaty do wyniku funkcji i masz tak jak trzeba :) Oczywiście kopiowanie formatowania można zrobić w VBA, wystarczy nagrać sobie makro podpiąć pod skrót lub przycisk i po problemie. Tu jeszcze archiwalny temat z podobnym problemem https://www.elektroda.pl/rtvforum/topic3...
Jeszcze nikt się nie odezwał ... ? Zatem moja propozycja - sprawdź, czy o to chodziło: 1. Punkt wyjściowy - tabelka w zakresie wierszy ' A2:K19 ' 2. Za pierwszym razem przycisk " Zmiana asortymentu " można wstawić automatem (makro: " a_wyszukaj_kotwe ") lub ręcznie (makro: " b_dodaj_wciskanego ", należy jednak uprzednio zaznaczyć komórkę ' B21 ' - makro...
Zależy, jak chcesz żeby się makro wykonywało. Albo zarejestruj makro i kod wklej tam, albo wstaw przycisk i w zdarzeniu przycisku.
Witaj. Makro dosyć proste: [syntax=vbnet]Sub Makro1() ActiveCell.Value = "PRZ1" ActiveCell.Offset(1, 0).Select End Sub[/syntax] Podpinasz pod przycisk i działa.
Zobacz przykład. Makro uruchamiane jest przez dwuklik w komórce z krzyżykiem...
Nagraj sobie makro zapisywania. Poniżej zarejestrowane (bez korekty) dwa: "Zapisz jako" oraz Ctrl+s (zwykłe zapisz) http://obrazki.elektroda.pl/3841968300_1... i wybierasz z listy. Aby oprogramować komórkę/zakres potrzebujesz procedury zdarzeniowej [url=http://dzono4.w.interiowo.pl/kurs/d... Tu należy warunkowo wywołać...
W zasadzie wszystko działa idealnie oprócz tzw. przeksięgowania ... :D Wpisuję numer RZ w komórkę "G-1" a następnie przyciskiem "Obciąż RZ" zdejmuję liczbę podzespołów z arkusza "RZ" ... :?: mechanizm arkusza "robi" rozliczenie tak jaby wszystkie dane tabeli arkusza "Przeksięguj" dotyczyły tylko RZ zawartego w komórce "G1"... :?: Po pierwszym użyciu...
Jak umieścić w konkretnym arkuszu Przycisk polecenia (formant ActiveX) tak aby odpalał makro z Modułu Z toolboxa (v.2007^ ;) menu 'Wstaw' na karcie developer (dolna grupa kontrolek), następnie "wyświetl kod" i wpisujesz: Call NazwaMakra
Proszę krok po kroczku 1. "Baza danych" musi mieć identyczną budowę (jeśli chodzi o kolumny) jak arkusz spisowy (zwłaszcza pod względem komórek scalonych :!: ) :arrow: najlepiej zrobić do wydruku kopię arkusza "Arkusz danych (2)"; 2. Ze wzoru arkusza spisowego robisz zrzut stopki wydruku 932190 3. W "Arkuszu danych (2)" wyfiltrowujesz tylko dane z...
Niby spoko ale czasochłonne dla mnie :cunning: Widać, że masz niewiele doświadczenia z Excelem i nie potrafisz nawet wykorzystać natywnych możliwości programu :cry: Pierwsze 6 wierszy (te z kryteriami filtrowania) możesz zawsze ukryć przed użyszkodnikami :D tego arkusza. Warunki filtrowania zapisane są w postaci samo aktualizujących się formuł więc...
1. Wiec w tym ostatni pliku potrzebowal bym w zakladce pionowo jakis przycis (makro) ktory by automatycznie usunol czesc tekstu "6pao" i "6pac" poniewaz wszystkie kody kreskowe to posadaja to z przodu ale w systemie sa tylko liczby aktualnie jest tam "6pao" ale czsami jest "6pac" czsmiami sa pomieszane jet to i to wiem ze mozna to usunac formula albo...
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...
Niestety też nie widzę opcji by nie było makra. Ale nie makro ukrywające tylko zwykłe wprowadzenie informacji do wydruku do ilu stron ma drukować. Czyli pod przycisk "wrzucić" [syntax=vb] Sub Druk() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets("POŚW").Range("E22") End Sub [/syntax] I "drukować" przyciskiem.
Do pojedynczego wyboru są te okrągłe właśnie. Jeśli chcesz zasymulować na kwadratowych checkboxach takie zachowanie to trzeba napisać proste makro w VBA, które podłączysz do każdego z tych przycisków. Kod musi sprawdzać, czy przycisk został wciśnięty i jeśli tak - ustawiać wartość wszystkich pozostałych na wyczyszczone. Według mnie prościej podmienić...
Podepnij pod przycisk coś takiego: Sub Makro1() x = 1 While Worksheets("Arkusz2").... 1).Value <> "" If Worksheets("Arkusz2").... 1).Value = Worksheets("Arkusz1").... Then Worksheets("Arkusz2")....
Jakimś wyjściem jest odpowiednio sformatowane pole WordArt jak na obrazku ( i w załączniku) http://obrazki.elektroda.pl/2055809700_1... Niemniej sama "zabawa" z ustawieniem jest pracochłonna, bo trzeba dla jednego tekstu (jednej komórki)zrobić: zaznacz tekst włącz WordArt (ikonka "A") wybrać pierwszą opcję zmienić czcionkę na Arial i...
(at)magkum , użyj tego kodu:[syntax=vb]Sub Stworz() Dim ws As Worksheet Dim OleObj As OLEObjects Set ws = Worksheets("Arkusz2") Set OleObj = ws.OLEObjects OleObj.Add ClassType:="Forms.CommandButton.1", Link:=False, _ DisplayAsIcon:=False, Left:=9.75, Top:=5.25, Width:=120.75, Height:=18.75 End Sub[/syntax] Nie napisałeś czy wstawiasz kontrolki formularza...
Wiesz co, za daleko to poszło tu pojawiają się jeszcze inne błędy. Musze to przemyśleć od początku. edit ----------------------------------------... Trzeba było tak zrobić od początku - nie było by tylu problemów. Skróciłem formułę ale dodałem "zamianę" danych co jest logiczne: Jeżeli godzina końca jest mniejsza od godziny początku to znaczy, że godzina...
Proszę bardzo prosty kod w makro. Zmodyfikowałem troszkę nagrane makro - Zamień (Ctrl+H) z uwzględnieniem wielkości liter. Sub Makro1() For x = 1 To 18 Selection.Replace What:=Cells(x + 1, 1).Value, Replacement:=Cells(x + 1, 2).Value, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False,...
to o czym piszesz to dla mnie czarna magia Jaka tam czarna. Sprawa jest dość prosta i spokojnie obędzie się bez różdżki, szklanej kuli, czy czapki Merlina :) Makro najpierw sortuje, następnie zmienia wartości na tekst w kolumnie D. Przycisk po prawej służy tylko testom. Pozostaje sformatowanie gotowej tabelki (można dopisać stosowną procedurę). Pewnie...
Na arkuszu "Nowa Hala Cyl." przypisać jedną komórkę dla indeksu, np. O1 Na arkuszu "Etykieta" w komorkach odwolania do arkuszu "Nowa Hala Cyl." np. dla C29 =INDEKS('Nowa Hala Cyl.'!H:H; 'Nowa Hala Cyl.'!O1) W kodzie arkusza 'Nowa Hala Cyl.' wpisz kod Dodano po 27 Edit Umieść kursor w wierszu, który chcesz wydrukować i kliknij przycisk
Działa coś takiego: - wstawiasz pola tekstowe do dokumentu, - ALT+F11 i w edytorze w sekcji "Project ........." Sub MojeMakro() Dim zm As String zm = "ala" ThisDocument.TextBox1.Text = zm zm = "ala ma kota" ThisDocument.TextBox2.Text = zm End Sub I już, potem możesz odpalić makro zieloną strzałką albo np. podpiąć je pod przycisk...
Funkcji nie ma ale proste makro może to załatwić. Powiedzmy, że w A1 wpiszesz datę (zgodnie z formatem daty excela) 2010-05-05 Pod przycisk (z formularzy) podepnij poniższy kod i już. Drukuj tylko za pomocą tego przycisku, inaczej data się nie zmieni. Ewentualnie w kodzie dostosuj do swoich potrzeb nazwę komórki z datą (A1) i nazwę arkusza (Arkusz1)....
Zliczanie komórek o innym kolorze tła jest możliwe wyłącznie makrem. Jednak nawet makro nie obliczy kolorów jeżeli są one zmienione formatowaniem warunkowym. W makro, w twoim przypadku, trzeba by było zliczać tak samo jak w warunku formatów. Proponuje ci, w przypadku rozwiązania zastosowanego przez kolegę adamas_nt , w jakiejkolwiek komórce wpisać =LICZ.JEŻELI(G1:I3;"<="&C5)...
Usuwam dla danego guzika konkretną kolumnę, potem zmieniam wartość w nawiasie (1) dla pierwszego guzika, potem dla drugiego zmieniam (2) itd. Czyli jak mam na razie te dwa przyciski to tak, żeby następny już wiedział, że ma kopiować dane do datachart ale o jedną kolumnę dalej niż poprzedni - robiłem to zmieniając wartość counter - kolejno 1 2 3 itd....
Sprawdź, jak to działa (załącznik). Nie wiem, jakbyś chciał liczyć ceny. Ja założyłem, że: - mamy na przykład 3 dostawy po 10 sztuk towarów, pierwsza dostawa ma towar za 1pln, druga ten sam towar za 2pln, trzecia ten sam towar za 3pln, to wtedy: - w przypadku, gdy ktoś kupuje po jednej sztuce, pierwsze elementy będą miały liczoną cenę zakupu 1pln, po...
Zrobiłem to tak że program wybiera z tabelki po prawej inicjały (4 pierwsze znaki) czyli jak w tabelce jest J.K. to wybiera te inicjały. I przeszukuje kolumnę K w poszukiwaniu zgodnych inicjałów, (też 4 pierwsze znaki) czyli jak jest( J.K. data) to wybierze tylko "J.K." i dodaje do licznika pozycji zleconych. Dodatkowo jak kolor czcionki jest czerwony...
makro musisz napisać ;) http://www.exceltip.com/st/Save_a_workbo... http://www.ozgrid.com/forum/showthread.p... http://www.lqnet.com/Excel/SaveAs.asp http://www.excel-vba.com/vba-12-code-wor...
Ad #1 - zmienna "odp" będzie typu Variant w podtypie odpowiednim do liczby w komórce zawsze Integer - w zależności od wciśnięty przycisk komunikatu MsgBox Constant Value Description vbOK 1 OK button pressed vbCancel 2 Cancel button pressed vbAbort 3 Abort button pressed vbRetry 4 Retry button pressed vbIgnore 5 Ignore button pressed vbYes 6 Yes button...
Hej, jak w temacie - napisałem krótki kod, z tym, że nie wiem jak uzupełnić go o to, że po kliknięciu gdziekolwiek w arkuszu - obraz znika. Sub Ptaszek() Sheets("Arkusz1").Select ActiveSheet.ChartObjects("Wykres 1").Activate ActiveChart.ChartArea.Copy Sheets("Arkusz2").Select Range("I6").Select ActiveSheet.Pictures.Paste.Select Range("V25").Select End...
Podepnij sobie następujący kod pod przycisk i przetestuj [syntax=vb]Dim lLstRw& Dim sLiczba$ lLstRw = Cells(Rows.Count, 7).End(xlUp).Row Select Case lLstRw Case Is = 1 Cells(lLstRw, 7).Offset(1, 0).Value = Cells(2, 3).Value & "_xyz_1" Case Is = 2 Cells(lLstRw, 7).Offset(1, 0).Value = Cells(2, 3).Value & "_xyz_10" Case Is > 2 sLiczba = Mid(Cells(lLstRw,...
Prosty wydawałoby się problem... jak zrobić tak, żeby makro w excelu można było uruchomić nie ze skrótu klawiszowego, ale poprzez kliknięcie danego pola czy obrazka? Jeśli to w czym pomoże to podpunkt 5. z tego zadania: http://www.hga.yoyo.pl/pipu/lab05zad.pdf PS. Makra mam już zrobione, tylko ten przycisk...
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....
podczas wyboru pliku kliknę na przycisk "Anuluj" :cunning: Temu kto kliknie "Anuluj" trzeba ustanowić karę : wklejania ręcznego poszczególnych wartości do tabeli :please: A na poważnie to można wprowadzić kod obsługi błędu i przerywający makro np: [syntax=vbscript]Public Sub ImpCsv() Dim Monthly As String Dim aConn As Object On Error GoTo ErrMsg If...
Witam, Proszę o napisanie makra, które wyświetli obrazek 2 (umieszczony poniżej) po kliknięciu w komórce F35 o nazwie "Statusy", po odkliknieciu gdziekolwiek obrazek zniknie. Analogicznie jak istniejace już makro, które wyswietla obrazek 3 po kliknięciu w komórce J11. Jeżeli to mozliwe to będę bardzo wdzięczna za opisanie w jaki sposób to sie robi,...
makro przycisk przycisk uruchamiać makro makro przycisk sortować
drabinki rezystorowe częsty pasek rozrząd synchronizacja klucz
Pęknięta linka zamka przedniej klapy Mercedes Vito 639 - jak otworzyć? Schemat radia samochodowego Pioneer DEH-700SDK
