Nie bardzo rozumiem co z tym "Znacznik" :( W każdym razie linia, w której znajduje się kursor: Ln = Selection.Range.Information(wdFirstChara...
Mam doswiadczenie w pisaniu pluginow w Outloku, chetnie pomoge. Opisz dokladniej swoj problem.
Przygotuj przykładowy plik i pokaż w nim o co dokładnie chodzi. Termin "z zachowaniem formatowania" jest bardzo wieloznaczny.
Można np zarejestrować makro które wstawia tekst. Przypiąć to do jakiegoś przycisku i naciskać go kiedy chcemy wstawić tekst.
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, Chciałbym w Excelu wstawić przycisk powiedzmy o nazwie PRZYCISK1 , który po kliknięciu wstawiałby w aktywną/kliknięta wybraną w tej chwili komórkę daną wartość np. PRZ1 i przechodził do komórki poniżej. Czy da się to zrobić a jeśli tak to jak? Z góry dziękuję za pomoc Pozdrawiam Odpowiedz
[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]
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...
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
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...
jak wejdzie się w kod i dołuły to jest zrobione okienko tylko chodzi o podpięcie wpisanego tekstu do tabelki wstawianej
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...
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...
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...
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.
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, 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
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...
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...
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...
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...
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)...
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ć??
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...
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...
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...
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. 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...
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
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...
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)",...
Dzięki Prot :please: Jeden błąd wyeliminowany :D Źle zrozumiałem to jak mają być numerowane poszczególne części pliku Worda. Usunąłem wielopoziomowe formatowanie i jest już dużo lepiej. Mam pytanie, czy jest możliwość wyeliminowania automatycznego wstawiania pustego nagłówka przed każdym właściwym nagłówkiem? Chodzi mi o coś takiego jak jest na obrazku...
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...
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...
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...
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...
"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...
Wychodzi na to, że pdf nie obsługuje "footnote tooltip" stworzonych w WORD. Szukając informacji o tworzeniu okienek wyskakujących po najechaniu myszką natknąłem się na trochę informacji jak to robić RĘCZNIE w różnych programach. (może komuś się przyda): Floating Text on PDF Documents http://khkonsulting.com/2014/07/floating... Acrobat...
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ą...
Witam! Mam pewnien problem z markem. Przez parę dni szukałam na różnych forach informacji jak go poprawić, ale niestety nic nie znalazłam. Problem wygląda następująco. Mam makro, które generuje mi plik Worda od podstaw tj. tekst plus wstawianie danych z komórek na podstawie aktualnie zaznaczonego wiersza. Wszystko działa kiedy zapisuje tylko dokument...
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, Potrzebuje zbudować makro które, będzie kopiowało wiersz(lub wiersze) z tabeli jeżeli spełnia warunek. A mianowicie: W Arkuszu1 mam tabele o określonej szerokości (16 kolumn) bez okreslonej ilości wierszy. W Arkuszu3 w komórce B2 wpisywanybyłby warunek (tekst) W Arkuszu2 jest pusty odpowiednik Arkusza1 (tylko nazwy kolumn). Marko działałoby w...
lub całkowicie pominąć wyświetlanie MsgBox? Chodzi o wyeliminowanie konieczności kliknięcia "OK". Przecież w podanym wyżej kodzie nie ma msgboksa. Jaki kod spowodowałby skopiowanie otrzymanego teraz tekstu do konkretnej komórki określonego dokumentu w Excelu? "Widzę", że czym więcej pytań tym, mniej pracy z twojej strony a więcej z mojej. Mogłeś napisać...
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...
Niestety nie interesuje mnie wysyłanie do wszystkich tylko do pojedynczych osób.. Do korespondencji seryjnej możesz wykorzystać bazę z jakimś polem od którego będzie zależało czy adres się drukuje czy nie.(wstawiasz w to pole np. jakiś krzyżyk) Nie musisz drukować całej bazy za każdym razem. Tu na pewno coś znajdziesz Korespondencja seryjna jest mi...
Dzieki bardzo za podpowiedz. A teraz jeszcze jedeno pytanie, jak umiescic ten przycisk w arkuszu excela i zgrac go z kodem? W Excelu 2003: - klikasz prawym przyciskiem w puste miejsce na pasku i klikasz "Visual Basic". - z menu które się pokaże klikasz "Przybornik formatów" - ikona młotka i klucza, pokaże się przybornik. - wybierasz z niego "Przycisk...
...Dzięki odpowiedź za, ale nie działa. ... Chodzi o to że w kolumnie B wpisuje magiczne odwołanie do rysunku z folderu ... następnie łapię za komórkę w kolumnie B i przeciągam w dół, a hiperłącza same się dodają uwzględniając nazwy z kolumny A i folderu z plikami *.jpg ... 'Cóś trochu' kolega poplątał, w kolumnie ' B ' są niepowtarzające się nazwy...
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....
Ta linia ostwiersz = .UsedRange.Rows.Count liczy ile zajmujesz wypełnionych wierszy. W załączonym pliku post wyżej masz wstawione 3 puste wiersze nad nagłówkiem tabelki i stąd problemy. Makro wiersz Nr 50 "widzi" jako 47... Jeśli musisz je tam mieć to wpisz dowolny tekst w dowolną komórkę każdego wiersza i zmień czcionkę na białą (będzie niewidoczny)...
Najlepiej jeszcze aby procesor tekstu sam wypełnił za użytkowników paragrafy ;). Z tego co wiem to MS-Word nie kompiluje plików. Uważaj bo w informatyce ten termin ma trochę specyficzne znaczenie. Chodzi ci oczywiście o łączenie/scalanie plików, a to po angielsku "combining" lub "merging". Wydaje mi się, że za bardzo byś sobie chciał ułatwić/zautomatyzować...
Witam, mam ogromną prośbę o pomoc w napisaniu makra w VB, które mógłbym stosować w Wordzie lub Excelu. W Wordzie dysponowałbym listą, np: Arisaema yunnanense Buchet, Notul. Syst. (Paris) 1: 367 (1911). Arisaema zanlanscianense Pamp., Nuovo Giorn. Bot. Ital., n.s., 22: 262 (1915). Arisaema zebrinum G.Nicholson, Ill. Dict. Gard. 1: 112 (1884). Arisaema...
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...
Za każdym razem robię tak, że w polecenie "Znajdź" wklejam ten znak graficzny, a w polecenie "Zamień na" wstawiam literę jaka ma być wstawiona w tekście. Można też zamiast "Zamień na" kliknąć na przycisku " Zamień wszystko " jak na zrzucie kranu poniżej (MS Excel 2007). Za jednym razem zostaną zamienione wszystkie znaki jednego rodzaju. Czynność należy...
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...
Witam! Mam makro, które przenosi wartości wstawione w kolumnach H, I oraz J do karty której nazwa jest identyczna z wartością tekstu wstawionego w kolumnie C dla wiersza w którym w kolumnach H, I, J ma przenieść dane. Dodatkowo w momencie przenoszenia danych do odpowiednich kart, kopiują się również informacje z datą raportu, zmianą jakiej dotyczy wstawiany...
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...
Coś takiego tylko żeby szukało wiersze z kolumny A wiersze z kolumny B, a nie z A i B. Sub Makro1() 'cała procedura liczy się hoho i jescze trochę (ale tak to jest z VBA) 'dane na Arkusz1, wyniki na Arkusz2 maxrow = 20 'przeszukiwany zakres maxcol = 20 Sheets("Arkusz2").Acti... Sheets("Arkusz2").Cell...
Witam wszystkich, po raz kolejny wracam do vba w excelu i znowu ściana. Mam ciąg danych pomiarowych zawierających wartości w poszczególnych dniach roku dla kilku lat. Potrzebuję: - wyszukać ile jest wartości, które występowały przez określoną liczbę dni z rzędu np. 2, 3, 4 i tak do n dni, w danym roku, ale ich wartość jest większa równa 0,1 - a potem...
Dziękuje, tak, ale nie całkiem o to mi chodziło. [1]ciotka [2]Danuta [3]swetry [4]zielone "Gruba (1) (2) Robi (3) na drutach. Już po pięciu minutach Dowiedziały się o tym jaskółki, Gwałt podniosły do spółki: "Jak to? (1) (2) Robi (3) na drutach? Na drutach siadają ptaki, Lecz (1)? Skąd pomysł taki? A lećcież do niej gromadnie, Bo wam (1) z drutów spadnie!"...
Witam Makro ma porównywać wartości z ComboBoxa txt1 z danymi w 1 kolumnie arkusza "Rejestr" oraz wartości z TextBoxa txt2 z danymi w 2 kolumnie arkusza "Rejestr". Jeżeli tekst z txt1 jest już w kolumnie pierwszej arkusza „Rejestr” oraz jednocześnie tekst z txt2 też jest odpowiednio w kolumnie drugiej arkusza „Rejestr” to makro...
Cześć, chciałbym zrobić warunkowy podział strony do wydruku w zależności od zakresu aby dany obszar mieścił się na jednej stronie. Niestety ilość tekstu jest różna i stąd moja prośba o pomoc. Aktualnie mam makro które wstawia mi podział co 60 wierszy ale to jest niewystarczające. Będę ogromnie wdzięczny za jakieś wskazówki. Dim xLastrow As Long Dim...
Dzięki za pomoc. Mam teraz dwa nowe problemy/pytania: 1.Czy da się przerobić ten kod aby [syntax=vb]Private Sub CommandButton2_Click() Dim tekst As String tekst = InputBox("Nazwisko i imiê") Cells(19, 9) = tekst zerujszukaj szukaj1k szukaj1g szukaj1p szukaj1z End Sub[/syntax] aby: a) wyskakujące okienko msg box miało oprócz "Nazwisko i imię" dodatkowo...
Witam, Zostałem poproszony o przygotowanie pliku excel aby po implementacji z pliku xml do Excela wszystkie dane były czytelne, i tu zaczyna się mój problem. Po eksportowniu pliku xml wszystkie kolumny wczytują się jak powinny jedna koluma która zawiera 26 cyfr w excelu wyświetla się w takim formacie 4,210E+25 jednak rozwinięcie tego zapisu nie daje...
Mam W kolumnie A 1600 wierszy np. z nawziskami i muszę w kolumnie B wstawić odpowiedni komentarz ( teskstowy ) będzie on zmienny więc chciałbym z prawej strony arkusza uzyskać 20 przycisków z tekstem najlepiem aby klawisze były stałe czyli nie przesuwały się A nie lepiej zamiast 20 przycisków zrobić listę rozwijaną z komentarzami w jakiejś komórce...
W notatniku jak wstawie kursor na ostania "linie" danych wyświetla mi się ilość wierszy. Jest ich ponad 2 miliony. Potrzebuje wybrać z notatnika ok 100000 wierszy. Taka ilość mi się zmieści w arkuszu Excela. Tylko jak je mam wybrać? z Excela umiem wybrać interesujące dane. Z notatnika już nie umiem. Importując dane z notatnika do Excela. Jak ja to robię....
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...
Użyłem Select Case, żeby nie zapisać pół strony instrukcją IfThenElse. Teraz jaśniej? Dobra, już tłumaczę. 1. Takie (zgodne z VB) a nie inne pole kombi, bo zdarzenie "Przy zmianie" reaguje tylko na zmianę wartości. Gdybyś chciał wpisać te same oceny raz za razem, to zmiana by nie nastąpiła. Należało użyć innego zdarzenia, o które kombi formularza jest...
Cześć wszystkim. Ja mam już sporo w temacie. Chciałbym standardową, jedną dla wszystkich lub zamienną (trzymaną we wcześniej przygotowanym pliku) treść maila wstawiać do spersonalizowanego maila wraz z spersonalizowanym załącznikiem. Istotą dla mnie jest to, aby treść maila była sformatowana jak w przygotowanym pliku. Załączam swój kod. [syntax=vbscript]...
Jedyny sposób, który mi przychodzi do głowy, to stworzyć w źródle danych, obok kolumny z wartościami, dodatkową kolumnę, gdzie funkcją wyznaczasz odpowiednią literę. Potem stworzyć wykres (bez tych liter na razie), do słupka dodać etykiety danych z wartościami (wyświetlone jako liczby), a potem zaznaczyć klikając z osobna każdą etykietę z wartością,...
Więc wygląda to tak... Access jest chyba (głowy niedam bo mam jedną) 2003, dane są tekstowe, moge je dowolnie sformatować w tym pliku ponieważ to ja (moja aplikacja) go tworze. Co do przycisku to ja go potrafie stworzyć tylko niepotrafie go zaprogramować żeby cokolwiek robił, niemówiąc już o robieniu tego co ja chce :(. Potrzebuje stworzyć przycisk,...
A jak te pola tekstowe wstawiasz? Może zamieść przykład pliku z takim polem?
---> kolumny automatycznie się dostosowywały do zawartości (tutaj chyba użyteczna będzie Columns ("1:18").AutoFit); ---> włączenie opcji zawijania tekstu . ---> Każda komórka była obramowana jak w pliku źródłowym ---> kolumna R zsumowała wartości z kolumn L, N, O i była zapisana w formacie księgowym. Kolumna E i F – format daty (dd-mm-yy). Jak...
Witam, mam mały problem z ePlan electrical P8. Stworzyłem makro PLC s7-1200, które wstawiam na stronie z przeglądem. Wzorowałem się na makrach do s7-300. Mam użyty PLC Box i wewnątrz niego użyte przyłącza PLC(DI). Teraz na stronach ze schematem wstawiam wejścia(tak samo PLC box + przyłącze). We właściwościach przyłącza ustawiam tekst funkcyjny opisujący...
Mam taki dziwny problem. Sądzę, że to siedzi gdzieś w deklaracji funkcji, ale nie mam pomysłu o co może mu chodzić. Wstawianie po prostu tekstu działa OK, liczniki OK, natomiast przy wpisywaniu funkcji do komórki idzie mi parzystymi wierszami (co drugi!) i nijak nie mogę tego zmienić. Czyli nieprawidłowo liczy R[" & NrWiersza & "]. Prościutki...
Witam Mam bazę danych w Accessie, z której zaciągam dane do exela następującym makrem: [syntax=vb]Sub Zaciagnij() Dim strMyPath As String, strDBName As String, strDB As String, strSQL As String Dim i As Long, n As Long, lFieldCount As Long Dim rng As Range Dim wartosc1 As String Dim adoRecSet As New ADODB.Recordset Dim connDB As New ADODB.Connection...
Nie skupiałem się na obliczeniach. Statystykę jakoś zaliczyłem, ale nie uważam jej za dziedzinę matematyki... Matematykę lubię, nawet różniczki 2 rzędu i szeregi, ale jak widzę prawdopodobieństwo to jestem chory... nie rozumiem tego zupełnie. Wykonałem makro do pobierania wartości na zasadzie wprowadzenia ich "gdzieś" i rozpoczęcia obliczeń. Chciałem...
Zbyt enigmatycznie opisujesz kolego swój problem :cry: (dodatkowo brak przykładowego pliku lub ilustracji :!: ) Co tam ma być w tych wierszach "stopki" każdej strony (rozumiem, że strony wydruku ? analogicznie jak wstawianie początkowych wierszy :?: ) - sumy częściowe, jakieś wartości do przeniesienia, czy stałe informacje tekstowe ? W podobnych przypadkach...
Wszystko powinno być dobrze jeżeli pozbędziesz się kropki przy liczbach (a przynajmnierj przy ostatniej - największej). Innymi słowy jeżeli w pozycji Lp będą liczby jako liczby "moje" makro wstawiając kolejną pozycję będzie powiększać maksymalna liczbę Lp o jeden i wpisywać ją w pierwszej komórce wklejanego wiersza. (W kodzie makra za to odpowiada zmienna...
1. potrzebuje pomysłu jak zabrać sie za makro... formatowanie danych wejsciowych ... i sprawdanie poprawności danych. Obawiam się kolego, że takie dane nie nadają się do automatyzacji obróbki przy użyciu VBA. W mojej ocenie pochodzą one z niezbyt precyzyjnego oprogramowania OCR i dlatego nawet po ewidentnie ręcznej obróbce w arkuszu AFTER mają dziesiątki...
A dlaczego miałaby być jakakolwiek różnica w działaniu tych kodów, skoro one się tak naprawdę niczym nie różnią? Pierwszy z nich: 1) pomija typ , podajac tylko kwalifikator "unsigned". Kompilator w takim przypadku domyśla się, że chodzi o "int" (typ), więc w efekcie otrzymasz typu (czyli słówka "int") W drugim przypadku: u08 nie jest magią, tylko odpowiada...
Witam Tak jak w temacie chciałbym wyciągnąć część tekstu z komórek z kolumnie X konkretniej wszystko to co jest przed ostatnim "-" przyrównać to do konkretnej warotości i jeżeli się pokrywają to wtedy w kolumnie O w odpowiedniej komórce będzie wstawiany jakiś tam tekst. Takich zależności będzie około 300. W zalączniku plik juz z makrem ktore do tej...
Dołączam się do pytania. Zależy mi na tym, aby utworzonych wiele tabel zostało automatycznie ponumerowane. W poprzednim wątku Panowie pomogliście mi utworzyć tabele (http://www.elektroda.pl/rtvforum/topic2... - bardzo dziękuję Fascynatowi!). Tabele mam utworzone. Czas na ich numerację. Do pliku tekstowego który tworzę dodałem powyżej każdej...
Po kilkudniowych męczarniach wpadłem na pewien pomysł z wykorzystaniem szablonu "makememos" z książki "Excel 2003 Programowanie w VBA Vademecum profesjonalisty". Sens jest taki że program ma tworzyć plik w wordzie gdzie kopiuje tekst z komórek , potem zaznacza cały tekst w wordzie i go kopiuje :). Jest jeszcze kilka nierozwiązanych kwestii i prosiłbym...
Przyglądam się (aż mało dziury nie wydrapałem we włosach) i nie rozumiem... [syntax=vb] Columns("A:A").Select Selection.AutoFilter ActiveSheet.Range("$A$2:$A$90").AutoFilt... Field:=1, Criteria1:=Array( _ "-------", " ", "ALLEGAT", "Order", "Total", "Total (", "="), Operator:= _ xlFilterValues Rows("2:500000").Delete Shift:=xlUp[/syntax]Czemu służy ostatnia...
Wydaje mi sie, ze zapisanie calosci w trybie tekstowym jest jednak najprostszym mozliwym rozwiazaniem... zalezy jeszcze ile dodatkowych elementow chcesz uzyc. W sumie jedyne co moze sprawiac trudnosc, to rozplanowanie wezlow (najlepiej sobie schemat wydrukowac/narysowac na kartce, zeby sie nie pogubic). Wiem, ze to brzmi mocno amatorsko i pewnie jest...
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...
Witam serdecznie. Potrzebuje pomocy w stworzeniu makra w Excelu. Moj problem moze wydawac sie dla wielu bardzo banalny ale ja dopiero zaczynam swoja przygode z VBA :) Potrzebuje stworzyc makro aby po wypelniu komorki B1 jakim kolwiek tekstem wstawila sie aktualna data i godzina w komorce A1 i zeby data sie nie aktualizowala. Dalej to samo aby po wypelnieniu...
Jeśli w komórkach kolumny B koniecznie musi być wstawiona formuła łączenia tekstów to możesz użyć następującego makra: [syntax=vb]Dim lLstRw& Dim rngTmp As Excel.Range lLstRw = Cells(Rows.Count, 3).End(xlUp).Row Set rngTmp = Range(Cells(2, 2), Cells(lLstRw, 2)) rngTmp.FormulaR1C1 = "=RC3&RC7"[/syntax] Jeśli wystarczy wynik tej formuły to na końcu dodaj...
Raczej wstawienie wpisanego tekstu między np. istnijące kropki. Nie działa u ciebie? Zwróć uwagę że kod jest w "bloku" Worksheet_BeforeDoubleClick a nie Worksheet_Change . Sprawdziłeś mój załącznik (przy włączonym makro)? Jaka masz wersję excela - choć to nie powinno mieć znaczenia? U mnie działa na 2003 i 2007. Makro po podwójnym kliknięciu w komórke...
A! Jeszcze jedno mi się rzuciło w oczy: kłopotliwy średnik po definicji LED. Nie jest to w sumie błąd (w tym programie), ale w przyszłości może się zemścić. Definicje preprocesora działają jak proste "znajdź i zamień" w edytorze tekstu. Preprocesor wstawia "zawartość" definicji tam, gdzie pojawi się jej nazwa. Czyli na jednym z etapów kompilacji, z...
Dzięki za odpowiedzi! Ponieważ jeden dokument ma służyć przynajmniej dla całego roku (jak nie dłużej), to obliczenie H1 dla wszystkich arkuszy nie sprawdzi się. W załączeniu przesyłam przykładowy plik. W zakładce "lipiec - suma" w polu C2 podana jest dotychczasowa formuła - suma('lipiec - suma:lipiec (1)'!H1) wpisywana ręcznie. Formuła działa, w przypadku...
Witam wszystkich, jestem na początku zabawy z VBA i potrzebuję napisać makro w exelu takie że: - w arkuszu 1 w a1 wpisuję licznę, - w a2 ciąg znaków -w a3 liczbę -w a4 liczbę - w a5 liczbę i żeby w arkuszu 2 w wierszu 1 w komurkach od 1 do 20 są liczby w w wierszu 2 są ciągi znaków w a3 są liczby, w kolumnie 1 są liczby od 1 do 30, i żeby makro przyrównało...
1)Prawie super tylko nie wiem dlaczego nie bierze pod uwagę ostatniego wiersza bez względu na liczbe w danym arkuszu?? 2)Jeszcze mam jedno pytanko w sprawie kasowania.Chciałbym usunąć wiersze zawierające konkretny tekst próbowałem użyć formuły do usuwania pustych wierszy ale nie wiedzieć czemy po wstawieniu konkretnego słowa nie działa próbowałem też...
Nie jest to może rozwiązanie doskonałe, ale ponieważ nie ma innych propozycji, spróbuj wykorzystać, ewentualnie poprawić. Starałem się dopasować do tego, co już było, ale pewne zmiany były niezbędne. Jeśli chce się wykorzystać listy rozwijane z podpowiedzią na bazie poprawności danych, to de facto sprawdzanie poprawności danych trzeba wyłączyć, a wykorzystywać...
Z VBA w Excelu mam do czynienia od niedawna i chciałbym prosić o pomoc z kodem jakim dysponuję. Powstał on poprzez rejestrację makra i skopiowanie pewnej części z sieci. Ta zarejestrowana część nie daje mi spokoju bo można to osiągnąć w bardziej uniwersalny sposób dla wszystkich arkuszy w pliku. Tak więc chciałbym aby zawartość komórek w zakresie od...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Autorka powinna wtedy albo usunąć istniejące katalogi razem z ich zawartością - ręcznie, albo dopisać stosowne zabezpieczenie... Masz słuszność, chociaż można było zrobić goto i wyświetlić komunikat, ale chyba za dużo programuję w VB.NET i później zapominam, że w VB to było mniej przyjemne :) 1. Zamknij oczy 2. Odpal makro He he... to sobie własnie...
https://obrazki.elektroda.pl/8023543700_... Pytanie: Czy mogę ulepszyć model analogowego klucza w LTspice, gdyż mój projekt zawiera w sobie takie przełączniki i multipleksery? Odpowiedź: Pewnie; tworzenie własnych modeli do LTspice nie jest trudne. Wprowadzenie Podczas testowania obwodów elektronicznych często natknąć można się na...
wstawia tekst makro wyszukaj tekst makro znaleźć tekst
przeprowadzić kalibracja bateria pomiar prędkości indukcyjnym router talktalk
mikrokomputer cobra1 deawoo lanos
Napęd na koła w traktorku kosiarce 12 KM: mechaniczny vs hydrostatyczny Niedziałający dotyk na tablicy MyBoard - co zrobić?