Dziekuję za zwrócenie uwagi na róznicę w zapisuwaniu nazw arkuszy. Odnosnie pkt 2 doszedłem do takiego etapu: Ad 2. Należy podać szukany tekst w cudzysłowie: "szukana_fraza" wyrzuca mi błąd 1004. Próbowałem także z opcją .Value, niestety bezskutecznie. Jak więc zamiast stałej komórki "A43" zapisać poszukiwanie komórki zawierającej określony tekst?
Witam Mam do was wielką prośbę dotyczącą makra. Posiadam Excel 2013 i 2016. Załóżmy że w komórce D1 mam tekst "Utworzenie sprawy"; Załóżmy że w komórce D14 mam tekst "Utworzenie sprawy Załóżmy że w komórce D41 mam tekst "Utworzenie sprawy" Załóżmy że w komórce D65 mam tekst "Utworzenie sprawy" W komórce d1 od tej komórki makro zaczyna pracę. Jeśli 1...
Witam Mam plik " Wzor" i z niego muszę dokonać drukowania określonych arkuszy. Makro ma zadanie wydrukować najpierw arkusz o nazwie "AAA"; potem arkusz "BBB". Drukowanie jest wysyłane na domyślną drukarkę i drukowanie dwustronne. :idea: Jak ja to bym widziała :D : W arkuszu "MENU" w komórce "F5" makro wstawia liczbę "1". Wtedy zadziałają funkcje Excel...
Hej, nagrałem makro którym potrzebuję datę np 15.10.2021 rozdzielić na dzień 15 i miesiąc 10. Następnie połączyć dane z innej kolumny z dniem i miesiącem. Do rozdzielnia daty użyłem funkcji excella "Tekst jako kolumny" https://obrazki.elektroda.pl/9236122300_... https://obrazki.elektroda.pl/4510144100_... Dzień i miesiąc...
Nie bardzo rozumiem co z tym "Znacznik" :( W każdym razie linia, w której znajduje się kursor: Ln = Selection.Range.Information(wdFirstChara...
Witam Co dzień utwierdzam się w przekonaniu, że exel z vba to wspaniałe narzędzie. Myślałem, że będe z niego korzystać tylko w pracy ale po kilku już zrealizowanych pomysłach w domu wpadłem na kolejny. Ale pomysł nie zawsze idzie w parze z jego realizacją i dlatego zwracam się do was maniacy vba o pomoc w realizacji mojego pomysłu. Przejdę do rzeczy....
Gdzieś chyba jest błąd w kodzie bo zamiast liczyć to wstawia tekst formuły brakuje na początku formuły znaku "=". Natomiast gdy ręcznie wstawię to zlicza natomiast i tak wyskakuje komunikat "Łącza do pliku*xls' nie zostały uaktualnione, ponieważ plik xls*' nie został ponownie obliczony przed ostatnim zapisem". Imuszę ręcznie wciskać OK aby wartości...
Witam, Myślę nad zrobieniem czegoś w stylu wyszukaj.pionowo + zamień, dla tekstu zawartego w jednej komorce. Chodzi o to że z innego skoroszytu chce wyciągać wartości odpowiadające tekstowi zawartemu w powiedzmy komórce C1. Nie byłoby w tym nic trudnego gdyby w tej komorce znadowal sie tekst tylko dla jednego rekordu a wynik wyszukaj pionowo mialby...
Do kolegów i koleżanek zwracam z prośbą o pomoc. Exel 2010 jaki używam. Mam zeszyt o nazwie "Wzor program do składnic". W tym zeszycie są arkusze o następujących nazwach: "Informacja", "DANE", "ZASTĄP", "SCALANIE", "DATY_SKRAJNE", "SPIS". W tych arkuszach znajduje się wiele funkcji, które miały mi pomóc w uzyskaniu efektu jaki znajduje się w arkuszu...
Chyba jakoś tak: Private Sub CommandButton1_Click() x = 3 While Worksheets("Przyrządy pomiarowe").Cells(x, 1).Value <> "" If Worksheets("Przyrządy pomiarowe").Cells(x, 1).Value = Worksheets("Kalibracja-Naprawy&... Then Worksheets("Przyrządy...
[syntax=vbscript]Sub DodajOsobe() osoba = InputBox("Podaj nazwisko i imię osoby", "UWAGA") nw = Cells(Rows.Count, "B").End(xlUp).Row + 1 Cells(nw, 2) = Cells(nw - 1, 2) + 1 Cells(nw, 3) = osoba Cells(nw, 16).Formula = "=SUM(D" & nw & ":O" & nw & ")" End Sub [/syntax]
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.
Myślę że to też jest dobre rozwiązanie, przetestuję tą funkcję, dam znać czy się sprawdza. Dzięki.
Przygotuj przykładowy plik i pokaż w nim o co dokładnie chodzi. Termin "z zachowaniem formatowania" jest bardzo wieloznaczny.
Słabo szukałeś. Tu masz przykład z "wordowskiej" pomocy visual basica jak się wstawia TextFrame (troszeczkę przerobiłem). Znalazłem poprzez nagrywanie makr. Owszem nie można nagrać wstawiania ramki ale jeżeli jest już wstawiona można do niej wejść i coś napisać (to się nagra). I po nitce do kłębka... With ActiveDocument.Shapes.AddShape(msoSh...
Mam w tych plikach faktury w postaci tekstowej. Trochę to dziwne :D Faktury w postaci tekstowej :?: Z jakiego to programu wyeksportowane ? załącz przykładowy plik. Potrzebuję, aby makro Excela otwierało te pliki tekstowe jeden po drugim i wstawiało w określone miejsca pliku nowy tekst, by powstała korekta faktury Konieczny byłby szablon takiej faktury...
Mam doswiadczenie w pisaniu pluginow w Outloku, chetnie pomoge. Opisz dokladniej swoj problem.
Można np zarejestrować makro które wstawia tekst. Przypiąć to do jakiegoś przycisku i naciskać go kiedy chcemy wstawić tekst.
Witam serdecznie. Mam wiersze z tekstem pogrubionym i normalnym(oba rodzaje tekstu występują w pojedynczej komórce) .Chciałbym aby w pętli makro wycięło pogrubiony tekst z komórki np A1 i wkleiło tylko (pogrubiony tekst) do odpowiedniej komórki C1 itd czyli A2 do C2 czy A3 do C3 itd.Może się tak zdarzyć że w którejś z komórek nie będzie pogrubionego...
Cześć wszystkim, Jako, że dopiero zaczynam działać z VBA, a nie mogę nigdzie znaleźć czego podobnego postanowiłem się tu zgłosić po pomoc. Potrzebuję stworzyć makro, które polegałoby na tym, że tekst wprowadzony InBoxa zostanie wrzucony do pierwszej wolnej komórki(bądź linii) np kolumny A . Chodzi o to, aby stworzyć swojego rodzaju rejestr. Możecie...
Witam serdecznie ;) Mam problem z makrem w Excelu. Ogólnie zadanie polega na tym, że jeśli tekst w podanej komórce jest przekreślony, to w innej podanej komórce powinien wyświetlić się napis "Tak". Początkowo myślałem, że da się to zrobić jakąś gotową funkcją, albo nawet formatowaniem warunkowym, ale niestety jedynym wyjściem jest chyba napisanie makra....
Napisałam makro które między innymi zmienia formatowanie kolumny, jeśli znajdzie komórkę z wartością "Kod". Makro działa dobrze gdy komórka "kod" zostaje znaleziona, ale gdy jej nie ma wyrzucą błąd. Jak mogę zmodyfikować to makro, żeby w przypadku nieznalezienie komórki "Kod" przeszedł do dalszej części instrukcji? Z góry bardzo dziękuję za pomoc! Cells.Find("Kod").Select...
Witam, mam problem, jestem nowy i nie mam zbyt dużej wiedzy o VBA. Szukam sposobu aby makro skopiowało cały wiersz w jednym arkuszu i wkleiło go tyle razy ile wynosi wartość w jednej z komórek w tym własnie wierszu. Nastepnie makro ma przejść do kolejnego wiersza, ale pominąć te wklejone. Bardzo licze na pomoc, wierszy mam naprawde mnóstwo a jest to...
Witam, mam problem z MAKRO do przycisku przypisałem: [syntax=vb]Private Sub CommandButton1_Click() Range("A1").Value = "NOWY PROGRAMISTA" End Sub [/syntax] 1. Więc w A1 po kliknięciu w przycisk wpisuje mi NOWY PROGRAMISTA jak by miało wyglądać makro aby po kliknęciu przycisk wpisało przedmiotowe słowo ale w obojetnie której komórce stoję np. D4 potem...
a u mnie działa. może zamioast ; wstawiasz , dodaje załącznik. - przy otwieraniu pojawi się monit o tym ze plik posiada makro - jest tam tylko to makro (w module). plik i komputer czysty i sprawdzony antyvirem
Witam, jestem początkujący jeśli chodzi o tworzenie makr w VBA pod excelem, potrzebuję Waszej pomocy w temacie makra wstawiającego w wybraną komórkę formułę, dowolną, chociażby sumę dwóch komórek znajdujących się powyżej. Po wstawieniu poniższego kodu makro wysypuje się, działa jedynie gdy nie wstawię znaku = przed jeżeli, czyli wstawia sam tekst. [syntax=VBA]Range("A5").Select...
Ad.1 Jeśli makro jest w 'Thisdocument;, to nie. Jeśli gdziekolwiek indziej (moduł, normal, inny plik), to musi być nazwa lub indeks: 'Documents("nazwa").Tables(1)' Ad.2 To zależy. Jeśli tabelka ma zmienną ilość wierszy, a odwołujesz się do Np ostatniej, to: [syntax=vb]rw = Documents(1).Tables(1).Rows.Count kol = Documents(1).Tables(1).Rows(rw).Cells.Co...
jak wejdzie się w kod i dołuły to jest zrobione okienko tylko chodzi o podpięcie wpisanego tekstu do tabelki wstawianej
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...
Chciałbym połączyć te dwa makra w jedno i umieścić pasek postępu wstawiania twardych spacji. Chcę aby twarde spacje wstawiały się po uruchomieniu jednego marka, i aby tekst w Wordzie "nie mrugał", a najlepiej wyświetlał się pasek postępu - jakiś wskaźnik procentowy, lub coś podobnego. Liczę na pomoc.
Chamski (podwójne NOT) kod, ale działa. - najpierw wybierasz sobie "co chcesz wstawić" z komórek D1..D6 - potem wybierasz sobie "gdzie to wstawiasz" - komórki A1..A6 O pierwszej nad ranem trudno o lepszy kod :) Myślę, że koncepcję moją już znasz, przerobisz sobie "na swoją modłę" - jak będziesz chciał. Kod wklejasz bezpośrednio w kod arkusza, którego...
Staram się... OK, nagrałem sobie makro, usunąłem co niepotrzebne, dodałem co niezbędne i wyszło coś takiego Znalazłem taki kod ale nie wiem jak go pod siebie przerobić Nie mam pojęcia czy zakres dla procedury zdarzeniowej (określony argumentem: "Me.ListObjects("Lista1").Range.Columns(... ma u Ciebie zastosowanie, czy nie. Może bierzemy się za przerabianie...
Witam, kontynuując temat mam jeszcze zapytanie o takie makro: 1) w tych dodanych wierszach w kolumnie "A" wpisany byłby tekst "zrobione" 2) w kolumnie "B" ponumerowane tylko te dodane wiersze 3) w kolumnie "C" w miejsce wyczyszczonych danych wpisany tekst "ok" czy da się coś takiego zrobić? Będę bardzo wdzięczna
Witam serdecznie Potrzebuję pomocy w napisaniu makra które by działało w następujący sposób: W kolumnie A mam powiedzmy 10 różnych tekstów pod sobą, w kolumnie B mam liczby całkowite przy nich. Potrzebuję powstawiać wiersze dla każdego tekstu o takiej liczbie wierszy jak w kolumnie B przy danym tekscie i żeby teksty były pod sobą. np: A1 / B1 Kot 5...
Zdaje się, że zapętlasz się w nieskończoność. Ale bez analizy krok po kroku (klawisz F8), trudno coś powiedzieć pewnego. Pierwsze co rzuciło się w oczy to : [syntax=vb]ZnajdzNast = InStr(ZnajdzStop, Dokument, PozPocz, vbTextCompare)[/syntax]Gdzie przy następnym przebiegu: [syntax=vb]ZnajdzStart = InStr(ZnajdzNast, Dokument, PozPocz, vbTextCompare)[/syntax]To...
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...
To dlatego, że w tym pliku wykorzystujesz znaki ======= jako separator graficzny, natomiast Excel po wstawieniu tego w komórkę traktuje to jako zaczątek formuły i zwraca błąd. Wystarczy sformatować kolumnę, w którą wstawiasz te komórki, na sztywno jako tekst: ręcznie lub programowo, gdzieś na początku kodu umieszczając: [syntax=vb]Arkusz1.Columns(1).NumberForm...
Witam serdecznie, Potrzebuje pomocy w napisaniu marka, poniewaz sam nie potrafię. Tabela: W kolumnie T w kolejnych wierszach są wpisane jako tekst ścieżki na dysku. Czasem jest to jedna ścieżka, a czasem dwie lub trzy oddzielone ";" (średnikiem). Czyli ścieżki to takie główne wartości oddzielone ";" średnikami. Makro: Makro ma przeszukiwać tekst (wartości)...
Za pomocą makr pewnie, skoro standardowe funkcje nie pozwalają. Gdyby Twój opis był jaśniejszy, już kilka osób pewnie by Ci pomogło. Dwa razy czytałem Twoje posty i nadal nie mam pojęcia, co chcesz tak właściwie osiągnąć (chodzi o wynik końcowy, bo wiem, że zmieniając coś chcesz zmienić resztę tabeli, ale według jakich kryteriów - nie mam pojęcia)....
Dzień dobry. To są zwykłe pola, które wprowadza się poprzez Ctrl+F9 (lub z paska Wstawianie>Szybkie części>Pole). Żeby podejrzeć co w nich siedzi należy nacisnąć Alt+F9. W Pana dokumencie podejrzewam, że jest to zrobione tak jak w moim załączniku, czyli ustawienie pola macrobutton które po kliknięciu nic nie robi, jedynie wyświetlany jest jego opis,...
Panie Macieju, serdeczne podziękowania, zrobiłem wstępną próbę i wygląda na to, że makro spełnia dokładnie moje oczekiwania :)) Jutro wprowadzę pełne dane do Arkusza2 i zobaczę jak się wtedy zachowa skrypt. Parę linijek tekstu co mieisąc zaoszczędzi mi ze 2 godziny roboty. Gdyby Pan miał chwilę i podesłał jeszcze jedną zmodyfikowaną wersję, w której...
takie tstr = Str(Target.Value) jest równoważne z Target. Jeśli używasz angielskiej wersji Excela, to prawie tak, jeśli polskiej - jak ja na ogół i jak pytający - to już zdecydowanie nie! Proponuję wykonać takie makro po wprowadzeniu do komórki liczby dziesiętnej. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) MsgBox Target & "...
Proponuję makro zdarzeniowe BeforeDoubleClick: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Columns("B:C")) Is Nothing Then Exit Sub Cancel = True If Len(Target) = 19 Then Exit Sub Target.Value = Format(Now, "yyyy-mm-dd hh-mm-ss") Target.Columns.AutoFit End Sub[/syntax]Makro...
Witam, Chciałbym, żeby w wysyłanej wiadomości email pojawiała się ścieżka do pliku będąca hiperłączem. Stworzyłem makro poniżej, ale nie wiem jak sprawić, żeby w tekście wiadomości email pojawiało się hiperłącze. Będę wdzięczny za pomoc specjalistów :). Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Zawsze tak bedzie? w Info 'wezicki adam'(ze szpacja), a w Dane Wezicki.Adam( z kropka i Litera)? Albo jakoś po ludzku? Dodano po 16 Sortowanie jest nadmierne. Wystarczy konwertowac tekst w daty:[syntax=vb]Sub wstaw_daty() Dim kol As Long, wrs As Long, ost As Long With Sheets("dane") For kol = 4 To 6 Step 2 ost = Cells(Rows.Count, kol).End(xlUp).Row...
A czemu ta indeksacja nie działa? Czy może mieć na to wpływ fakt, że ten userform jest w Wordzie? Nie ma znaczenia. Po prostu podchodzisz do tego nie z tej strony ;) Najprościej (podepnij pod przycisk w uForm): [syntax=vba]Dim c As Control, tekst As String 'kontrolki w uForm to najzwyklejsza kolekcja, sprawdzimy wszystkie jej elementy For Each c In...
Nie do końca się chyba zrozumieliśmy. Być może to ja niezbyt dokładnie to opisałem. Wstawiając komentarz dla jakiegoś fragmentu tekstu to najpierw go zaznaczam potem używam skrótu CRTL+ALT+M i wstawiam treść komentarza. I teraz zależy mi aby wypunktować uwagi w następujący sposób. 1. "treść zaznaczonego tekstu 1 do którego jest wstawiony komentarz (pisany...
Nie do końca to rozwiązanie zaspokoi moje potrzeby. Ponieważ tabela zmienia się dynamicznie chciałbym aby w odpowiednich komórkach raportów nie były wstawiane wartości tylko formuły. Bardzo by mi w tym pomogło makro które zamieni tekst znajdujący się w komórce G15 arkusza Tabela na formułę. Jak to zrobić??
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...
Witam. Ludziska pomocy. Pobrałam makro dotyczące zamiany cyfr na tekst ale teraz powiedzcie mi (jak blondynce) jak je wsadzić do mojego arkusza w excelu, żeby zadziałało??? jakoś je może zapętlić i ustawić żeby nie obliczać ciągle z palca ale żeby sie samo uruchamiało po otwarciu tego arkusza???? Sprawa wygląda tak że arkusz 1 jest polem edycji a na...
To ja mam pytanie w trochę podobnym zakresie. Czy da się zrobić takie makro, które będzie formatowało wszystkie tabele w Wordzie. Chodzi o to, aby tabele były dopasowane do okna oraz obramowane linią o grubości 1 pkt. w szarym kolorze. Wiem, że można zrobić formatowanie tabeli w stylach, ale jak usunę ostatni wiersz z tabeli to wówczas obramowanie na...
"Etykieta dla sprawy_ABBA" generuje się w systemu. Rzeczywiście makro nie będzie poprawnie działało na wygenerowanym przez System dokumencie. Myślę, że to jest odpowiedni moment aby wystosować maila do Twórcy Systemu i wspomnieć, że generowane przez System pliki są bezużyteczne do dalszej obróbki. Ów System raczy generować dokument w postaci niesformatowanej...
Niestety moje pomysły nie podziałały... Problem jest w tym, że .Columns(14 + i).Insert .Cells(2, 14 + i) = teksty(i) .Cells(3, 14 + i) = sumy1(i) działa normalnie, natomiast .Columns(27 + i * 2).Insert .Cells(2, 27 + i * 2) = teksty(i) .Cells(3, 27 + i * 2) = sumy2(i) już nie. Makro zamiast wstawiać te formuły sumy2 = Array("=SUM(S5:S100)", "=SUM(T5:T100)",...
Na upartego można to zrobić bez VBA. Jeśli makro, to najpierw trzeba rozbić ciąg (Split) i dalej przypisywać warunkowo w "z góry upatrzone" miejsce w arkuszu. Najprościej byłoby dopisywać kolejne w ostatni wolny wiersz, a po znalezieniu dubla wstawiać nowy. W efekcie osiągnąłbyś coś takiego: http://obrazki.elektroda.pl/8687250500_1...
Witam Potrzebuje makra, a nie funkcji. W arkuszu "dane" w kolumnie D wystąpić tekst: "xxxx"; "yyyyyyy" ; "zzzzz" lub puste komórki. W arkuszu "dana" w kolumnie E mogą wystąpić następujące teksty, które są brane pod uwagę pod makro:"aaaaaaa";"yyyyyyy";"zzzzz", inne teksty lub cyfry, znaki specjalne lub puste komórki nie są brane pod uwagę. Podałam przykładowy...
Działa... w pewnym sensie. W efekcie dostaję widoczne na ekranie H, które jest odpowiednikiem greckiej Ety w naszym alfabecie. Nie wkleja to znaku Unicode z greckiego, tylko... No właśnie - nie wiem jak to funkcjonuje. Wpadłem jeszcze na taki pomysł. Replacement text = ^c to wstawienie ze schowka. Może nagram makro w którym wstawiam Etę, skopiuję ją...
wstawia tekst makro wstawia makro wyszukaj tekst
remont oscyloskop adres sklepu lutowania dopuszczalny napiąć ładować akumulator
zasilacze korad zasilacze korad
Czysty soft do Motoroli V980 - gdzie znaleźć? Kuchenka Amica - zwarcie przy ustawianiu godziny