Nie bardzo rozumiem co z tym "Znacznik" :( W każdym razie linia, w której znajduje się kursor: Ln = Selection.Range.Information(wdFirstChara...
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...
jak wejdzie się w kod i dołuły to jest zrobione okienko tylko chodzi o podpięcie wpisanego tekstu do tabelki wstawianej
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
[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.
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ść....
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. Nie mogę poradzić sobie ze stworzeniem makra... Chciałabym aby makro łączyło tekst z komórek z zakresu C13:C21 ( z pominięciem pustych) z zachowaniem formatowania i wstawiało do komórki w innym arkuszu. Plik przykładowy z makrem. Jak dołączyć do makra, które mam makro, które połączy zakresy C13:C21 z arkusza "dodaj dane" do jednej komórki w innym...
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
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...
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...
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...
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, 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...
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...
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,...
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...
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...
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...
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...
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...
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, 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
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ć??
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 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...
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...
CommandButton z napisem GRAJ!, Poszedłbym raczej w kierunku formatki użytkownika (UserForm), niż bawiłbym się w z przyciskami w arkuszu. Łatwiej zapanować nad aspektem wizualnym "zabawki", no i miejsca więcej w arkuszu na inne rzeczy. czy „CommandButton_SPRWDZ1” może weryfikować wszystkie 39 odpowiedzi Prosto odpowiadając - można - np....
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 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...
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...
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 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...
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)...
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?
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...
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...
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ą...
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...
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 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...
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 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...
Myślę, że można to zrobić na przykładzie jaki jest w załączniku. Kolejne wstawiane obrazki będą mieć różne nazwy, więc trzeba sie odwołać do obrazka, który jest umieszczony w danej pozycji w arkuszu. W przykładzie odwołanie jest do obrazka umieszczonego w tym samym folderze co arkusz, ale oczywiście wszystko można sobie zmienić. Przyciski: Wstaw i Kasuj...
Dołącz przykładowy plik Excela, bo Ty go już masz, a każdy inny musiałby go dopiero tworzyć, więc szkoda czasu. Jeśli stosujesz odwołania wielopoziomowe (tzw. 3-W albo 3-D) z dwukropkiem między nazwami arkuszy skrajnych, to najlepiej, żeby te arkusze skrajne pozostawały niezmienne jako ograniczniki a pomiędzy nimi możesz wstawiać arkusze z kolejnymi...
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...
Napisane mam dwa makra w visual basic w corelu 12. Przygotowuję zdjęcia do katalogu, wrzucam do folderu. Pierwszy skrypt wstawia zdjęcia z ww folderu (można ustawić rozmiar odstępy i marginesy) podpisuje je nazwą zdjęcia (kod towaru). Drugi skrypt korzystając z bibliotek excela szuka w pliku xls kodu (nazwa zdjęcia) i wstawia przygotowany wcześniej...
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 & "...
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ć...
myslalem ze jak "klikne" marka, pokaz makra to tam to makro tez bedzie, ale nie ma, Tam są makra nagrane przez Excela, pisane własnoręcznie są widoczne np. po kliknięciu przycisku VisualBasic i otwarciu odpowiedniego pliku. jesli chodzi o kod to jest dla mnie srednio zrozumialy... Coś konkretnego nie jest jasne? Makro składa się z jednej pętli FOR,...
uzupełniam kolumnę C i poniżej w tabelach automatycznie dodają się wiersze z tym tekstem co powyżej. Dokładnie podobny mechanizm mam na myśli :D , ale oparty na formułach, oraz na automatycznym ukrywaniu pustych wierszy (realizowane prostym makrem Worksheet_Change) :idea: 989747 Jak widać na zrzucie wstawiam pierwszą literę nowego surowca, zatwierdzam...
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 Mam mikrokontroler, który co pewien czas wysyła mi na port COM temperaturę z czujnika. np "21,4" Nie mam żadnego problemu z połączeniem COM ponieważ jeśli odpalam HYPER TERMINAL wszystko wyświetla mi świetnie, problem w tym że musiał bym za każdym razem kopiować cały tekst z terminala i w excelu obrabiać żeby sobie utworzyć wykres temperatury....
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...
Witam Jestem słabo obeznany z excelem więc piszę nowy temat, próbowałem zrozumieć coś z poprzednich podobnych tematow ale niestety. Poproszę o pomoc. Chcę stworzyć w excelu - a najlepiej w open office formułę ,która po każdym wpisie obok wstawiała by datę tego wpisu. Dodatkowo ma to się pojawiać dopiero gdy wpis zostanie dokonany inaczej nie. Używałem...
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)...
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...
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! 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...
Plik robi wrażenie uszkodzonego. Wydaje mi się, że był przeciążony. Właśnie tak myślałem,żeby zrobić od podstaw nowy plik.W obecnym od początku było już bardzo dużo modyfikacji,zmian i róznego rodzaju prób,formuł i makra.Może to jest całą przyczyną bierzących problemów i wolnej pracy pliku.W chwili obecnej,dzięki Waszej pomocy, jest już raczej wystarczająco...
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...
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...
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...
Czyli kopiujesz nie tylko formaty. Podmień kod arkusza na[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("zakres2")) Is Nothing Then 'tu ustaw zakres symbolów grup If Target.Count = 1 Then Application.ScreenUpdating = False szuk = UCase(Target.Value) 'szukanie odniesienia (komórki z tekstem "Wzór systemu")...
To jeszcze co do AD2 Rozumiem że karta ma być wynikiem - będzie pobierać dane z grafiku - tak? Jeżeli tak to w grafiku mam tylko czas pracy a nie "start-stop". To będzie uzupełnione? Będziesz pracował na liczbach czy na czasie bo 8 to nie to samo co 8:00 ? Co do ad1 jeżeli nie będziemy chcieli korzystać z makr można to zrealizować za pomocą autofiltru...
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...
No jak ma ograniczone możliwości optymalizacji, skoro wynik tego wyrażenia jest wstawiany jako wartość elementu tablicy? Przecież gdyby preprocesor tego nie wyliczył to niemógłby tą wartością zainicjalizować elementu tablicy i wyleciałby błąd. BTW, w gcc w ostatnich 2 latach zaszły duże zmiany jeśli chodzi o obliczenia prowadzone przez preprocesor...
Musisz przejrzeć bibliotekę z radzia i w odpowiednich miejscach dać opóźnienie 0,5us powinno wystarczyć. On w tych bibliotekach zapomniał o tym i przy dużej częstotliwości taktowania procesora wyświetlacz nie zdąża. Miałem ten sam problem jak wykorzystywałem. Wyświetlacz twój jest na KS0066UP. Jest kompatybilny z HD44780 ale bodajże troszkę inaczej...
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...
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 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...
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...
O kurde - dlaczego na to nie wpadłem... Przecież kolejny "print' będzie tam, gdzie skończył się poprzedni. A ja definiowałem miejsce wystąpienia 'C na nowo... Dokładnie tak :) Jeśli potrzebujesz przerwy, także ruchomej, to wstawiasz po prostu spację, czy dwie: lcd.print(" "); Nie musisz więc badać czy temperatura ma 1 cyfrę przed przecinkiem, czy 2....
(at)ElektrodaBot to jakim cudem kiedy był wyłączony Quiet boot było o tak napisane HEL80_81 BIOS Ver.: 105B? Szybka odpowiedź Napis „HEL80_81 BIOS Ver.: 105B” po wyłączeniu Quiet Boot oznacza tylko, że w kości znajdował się wsad w wersji 1.05B, w którym ciąg identyfikacyjny („POST-string”) został ustawiony na „HEL80_81” . Nie dowodzi to jednak, że...
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!"...
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...
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ę....
Możesz sobie utworzyć zakładkę w miejscu w którym ma być wstawiony tekst i od niej odnosić się makrem: [syntax=vb]ActiveDocument.Bookmarks("Naz... zakładki").Range.InsertAfter "Twój tekst"[/syntax]
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...
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ść, 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...
W poprzednich odcinkach wiel;e osób zwracało ci uwagę, że tłumaczysz starocie, w dodatku starocie, w któych jest masa błędów i merytorycznych i implementacyjnych. Proszę nie brać tych uwag do siebie - krytyka dotyczy autora artykułu, co wynika zapewne z faktu, że od jego napisania upłynęły 2-3 dekady! Niemniej biorąc pod uwagę także krytykę wcześniejszych...
Witam, Mam problem z makrem które zaimportuje mi dane z wielu dokumentów .xlsx. Importować chcę wybrane komórki z wybranych Arkuszy wielu plików o dokładnie takim samym formacie. Wszystkie te zródłowe znajdują się w tym samym folderze . W trakcie studiowania formum prawie udało mi sie osiagnąć oczekiwany cel. Niestety arkusze źródłowe zawierają formuły...
---> 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...
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]...
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...
Propozycja makra, które działa wg poniższych zasad: 1) Reset danych za pomocą przycisku "Reset" wypełnia zakres liczbami od 1 do 14. 2) Jeśli chcemy zamienić liczbę na tekst typu #/#, gdzie # oznacza cyfrę, wystarczy zrobić dwuklik na komórce. Można też edytować ręcznie, pamiętając żeby na początku wstawić apostrof - inaczej Excel zamieni to na datę....
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...
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...
Istnieje klawisz odj = IIf(Cells(3, 3) = "", -1, 1) Cells(Cells(3, 3).End(xlDown).Row + odj, 3) = InputBox("Podaj cos") a na upartego w jednej Cells(Cells(3, 3).End(xlDown).Row + IIf(Cells(3, 3) = "", -1, 1), 3) = InputBox("Podaj...
Cześć, Mam taki problem. Mam dwa pliki, załóżmy, że są to Marko 1 i Makro 2. Makro 2 to moja najnowsza wersja danych. Chciałbym w Makro 2 mieć takie makro, które porówna mi kolumnę C i A w porównaniu do pliku Makro 1. Tzn. Jeżeli w Makro 2 na tym samym zamówieniu jest inna ilość to w komórce obok wstawi się określony tekst np. "Uwaga zmiana wartości"...
wstawianie tekstu makro wstawianie makra wstawianie tekstu
kupić 18650 wirnik pralki dodanie filmu youtube
aceton mycia ekspres bosch ctl636
3C41 General Electric – planarna trioda VHF/UHF, dane techniczne, typowe usterki, zastosowania Najlepsze karty graficzne do zasilacza 350W
