Nie bardzo rozumiem co z tym "Znacznik" :( W każdym razie linia, w której znajduje się kursor: Ln = Selection.Range.Information(wdFirstChara...
Można np zarejestrować makro które wstawia tekst. Przypiąć to do jakiegoś przycisku i naciskać go kiedy chcemy wstawić tekst.
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.
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...
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
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
[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]
jak wejdzie się w kod i dołuły to jest zrobione okienko tylko chodzi o podpięcie wpisanego tekstu do tabelki wstawianej
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...
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...
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...
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...
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...
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ć??
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...
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...
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
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...
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...
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...
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...
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 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...
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)",...
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)...
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...
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 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...
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! 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...
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...
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?
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ą...
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...
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, 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
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...
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, 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ć...
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 & "...
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...
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...
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....
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...
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ć...
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)...
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...
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...
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...
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...
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ę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...
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...
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...
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...
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ę....
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...
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 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...
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!"...
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]...
---> 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 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...
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...
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...
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...
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...
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...
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ć...
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...
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...
Odnośnie: opisane w pliku excel " Czy jest możliwość formatowania warunkowego: Na zasadzie 1. jeżeli " J1" to styczeń to wtedy bierze wartość pod godziny 1/2 etatu z "S4 ". 2. I teraz moje pytania: jeżeli " J1=Styczeń " a "F34" jest większe/mniejsze "S4" to np kolor czerwony, a gdy "F34=S4" to na zielono . 3. Dotyczy tylko komórki "F34", w pozostałych...
wstawianie tekstu makro wstawianie makra wstawianie tekstu
lampy buczenie czujniki leuze zasilanie konwertera multiswitcha
Reset kontrolera PDP – instrukcja dla Rematch, Victrix, Faceoff, Replay, Xbox, PlayStation, Switch Whirlpool BSNF 9431 K – rodzaje alarmów, sygnały dźwiękowe, kody błędów, resetowanie