[syntax=vbscript]Sub Dzialaj() Application.ScreenUpdating = False Dim Tekst As String Sciezka = "C:\PlikiExcela\" Tekst = "mój tekst" Plik = Dir(Sciezka & "\*.xls*") While Plik <> "" Call Wyszukaj(Sciezka & Plik, Tekst) Plik = Dir() Wend Set fso = CreateObject("Scripting.FileSystemObject... Set s = fso.GetFolder(Sciezka) For Each p In s.SubFolders...
makro akapit przed właściwym nagłówkiem również formatuje Faktycznie tak się dzieje - trudno precyzyjnie operować jest ułomnymi "symbolami wieloznacznymi :cry: Dla tego zmieniłem zapis tych "wyrażeń regularnych" Worda, zmieniłem też zastosowane style (na dotyczące znaków i akapitu :idea: ) i całość w nowej formie zamieściłem w załączniku. Czy jest...
Zależy, jak chcesz żeby się makro wykonywało. Albo zarejestruj makro i kod wklej tam, albo wstaw przycisk i w zdarzeniu przycisku.
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
Wydziel dodatkowy arkusz (może być ukryty), zrób tabelkę znaków i ich odpowiedników łacińskich i zamiast w tablicy działaj w arkuszu. Na przykład tak: https://obrazki.elektroda.pl/4775489200_... https://obrazki.elektroda.pl/4498160400_... gdzie:[syntax=vbscript]Function FrPol(tekst As String) As String Dim i As Integer,...
[syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax] Poniżej bez rozróżniania wielkości...
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
Makro z użyciem RegEx Rozdzielany tekst ma być w komórce A1, poszczególne wyrazy pojawią się w kolejnych komórkach kolumny A. [syntax=vb]Sub OddzielWyrazy() Dim l& Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ With ActiveSheet sRegExpPatt = "[a-ząćęłńóśżź]+" Set objRegExp = CreateObject("VBScript.RegExp") objRegExp.IgnoreCase = True...
Owszem to filtrowanie danych ale w żadnym wypadku nie powinno być powiązane z auto-filtrem, tym bardziej jak masz excel 2003 i poniżej. Tu masz kod. Tłumaczyć? [syntax=vb]Sub Makro1() Dim ostWrs As Long, x As Long Dim tekst As String, szukane As String ostWrs = Range("B" & Rows.Count).End(xlUp).Row tekst = InputBox("Podaj szukany ciąg", "Podaj szukaną")...
A może być w dodatkowym arkuszu cała "baza" nazwisk i przypisanych im specjalności - i tam byś wpisywał nowych a w przedstawionym arkuszu wybierał byś tylko nazwisko. Czy jednak to ma działać ściśle tak jak napisałeś czyli jeżeli wcześniej wystąpiło nazwisko to ma się pojawić obok specjalność jak nie to czyste pole oczekujące na wpis. - jeżeli tylko...
to o czym piszesz to dla mnie czarna magia Jaka tam czarna. Sprawa jest dość prosta i spokojnie obędzie się bez różdżki, szklanej kuli, czy czapki Merlina :) Makro najpierw sortuje, następnie zmienia wartości na tekst w kolumnie D. Przycisk po prawej służy tylko testom. Pozostaje sformatowanie gotowej tabelki (można dopisać stosowną procedurę). Pewnie...
Jedyne co przychodzi mi do głowy to makro z wykorzystaniem kolumny z prawidłowymi nazwami. W przykładzie zamiana polskich liter, porównanie, podstawienie. Trochę długo trwa, należałoby pewnie dopracować, ale działa (w arkuszu autora). Sub zamien() Dim i As Long, kom As Range, tekst As String For i = 2 To Range("B65536").End...
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.
Ale nie rozumiem jak jest z zapisem liczby z kalkulatora do jakieś komórki w arkuszu Jak można nie rozumieć, że ty sam napisałes? To znaczy: Z pierwszego arusza "Sheets(1)" odczytaj komórkę A1 i dodaj do niej liczbę z TextBox1 ("TextBox1.Value" = przekształć tekst na liczbę). Wynik zapisz do pierwszego arkusza "Sheets(1)" do komórki A1 = "Range("A1")...
lesławek - tak się nie da. Sam spróbuj - ale skopiuj liczbę a nie komórkę. W załączeniu proste makro. Uruchomisz skrótem klawiszowym ctrl+m (można to zmienić) Makro odejmuje od komórki z lewej coś co jest w schowku i wprowadza to formułą w zaznaczonej komórce. [syntax=vb]Sub odejmij_schowek() Dim mem As DataObject On Error Resume Next Set mem = New...
... gdyż naciskasz F9 idziesz zrobić kawę, wracasz i gotowe :D ... A mogę zapytać po co naciskasz F9? Masz wyłączone automatyczne odświeżanie? Odwołania cykliczne w formułach? Owszem F9 wymusza przeliczanie ale całego arkusza/skoroszytu a akurat "moje" rozwiązanie tego nie potrzebuje (pod warunkiem że masz włączony standardowo automat w opcjach) W...
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
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...
Taki typ danych to 255 znaków.
Pierwsze makro - czy ma znajdować jedynkę w tekście, który może być dłuższy, czy też wyszukiwać komórki tylko z jedynką, a komórki gdzie jest coś więcej ignorować?
Witam serdecznie potrzebuję z czegoś takiego wykroić tekst po "|" i przed "-" lub przed "." kropką: YSZUFPRN|YSZUFPRN|Higiena i czystość >> Szufelki|Szufelka PRESTIGE. - łączy ze sobą wysokiej jakości tworzywa sztuczne z elastomerem, dzięki czemu jest niezwykle trwała - wyprofilowana rączka szufelki bardzo dobrze układa się w dłoni|||0,0792|1|0,0792|5903355004790||....
Chyba nie rozumiem, o co Ci chodzi? Biorąc pod uwagę, że nikt jeszcze nie odpowiedział, chyba nie jestem jedyna. Twoje makro jest mało sensowne, ale może działać. Wprawdzie nie wiem po co każdą komórkę osobno kopiujesz, skoro można zaznaczyć i skopiować cały zakres D1:D30 i wkleić do A1, ale co kto lubi. Inna sprawa, że w Twoim załączniku w kolumnie...
Mam taki problem, że w arkuszu z planem produkcyjnym co tydzień muszę zmienić źródło danych. Źródło jest =dysk/folder/[nazwa pliku week 20]Monday'!$F$3 I co tydzień poprzez ctrl+f zamieniam wszystkie frazy "week 22" na "week 23" itd. Chciałabym napisać takie makro, że wpiszę w komórkę a1 tekst week 22 a w komórkę b1 tekst week 23 i makro samo przeprowadzi...
Proponuję rozwiązanie oparte na funkcjach UDF, które jest dość elastyczne. Nie wiem jak to ma działać - czy dane są wprowadzane i przeliczane jednorazowo, czy są potem zmieniane. Tu jest możliwość zmiany danych (z pewnymi ograniczeniami). Plik podstawowy (BAZA) musi zawierać makra, więc musi być zapisany w formacie wspierającym makra np. xlsm. Załącznik...
Potrzebuję napisać makro do formatowania warunkowego. Chciałabym pokolorować cały wiersz, jeśli spełnione są dwa warunki: - kolumna O > 10% oraz kolumna B zawiera tekst "styczeń", "luty", "marzec" - kolumna O > 15% oraz kolumna B zawiera tekst "kwiecień", "maj", "czerwiec" AI: Jaka wersja programu Excel jest używana? Excel 2024 AI: Czy potrzebujesz...
ten problem jest rozwiązany, ale mam jeszcze jedno pytanie. Jak scalić komórki zachowując przy tym tekst z tych wszystkich scalonych komórek w jednej ? Excel domyślnie, przy scalaniu komórek, zachowuje jedynie wartość z lewej górnej komórki, a zawartość pozostałych komórek zostaje usunięta. Aby scalić komórki i zachować tekst z wszystkich scalanych...
paweliw i Maciej Gonet! Dziękuję za bardzo rzeczowe podpowiedzi. Jako początkujący takich porad potrzebuję. Wpadłem na to żeby użyć funkcję TEKST i działa. Nie zdążyłem napisać posta, że problem rozwiązałem - byliście szybsi. Jednak dalej dręczy mnie pytanie: Dlaczego zarejestrowane makro daje inny wynik niż rejestrowana procedura?
... Dim bf As New DataObject 'schowek ... bf.SetText bufor bf.PutInClipboard ' do schowka ... SendKeys "^V", True 'wklej ... Reference to Microsoft Forms 2.0 :D Nawet nie byłem bliski pomyślenia o tym ... znaczy się ... nie myślałem ... :| :D Dzięki za podpowiedź ... ale niestety przyda się do innych celów ... chodzi o to że, jeśli kopiujemy (korzystając...
Chce jakiś przykład Analizowałeś przykład z linka? Otwiera plik, szuka tekst i kopiuje. nie znam hasła Ja chyba też nie znam hasła do Twojego pliku.
...Niestety jestem zielony w tworzeniu makr ... Nie chcę by to zabrzmiało jakbym chciał Cie urazić/obrazić ale ... nie masz pojęcia, ani o makrach, ani o tym jak "działa" excel, ani nawet o podstawach programowania, więc nie wiem dlaczego podjąłeś się pomagać innym w czymś o czym nie masz zielonego pojęcia. Excel nie jest aż tak rozbudowany jak mózg...
no działa, dzięki tylko chciałbym żeby jeszcze wycięło to ten tekst z 1 kolumny
Dlaczego w przedstawionych tabelach masz cyrfy a nie tekst, czy docelowo ma być tam tekst czy cyfry?
https://obrazki.elektroda.pl/5559573900_... z kolumny A żeby rozdzielało tekst na kolumny C i D , i to są różne przypadki a mam takich wierszy ok 6000
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Witam, otóż tak: Chcę aby Makro: - Wyszukało frazę, powiedzmy "dane" - cały tekst po "dane" aż do ustalonego znaku pwoiedzmy ":" zostaje kopiowany - skopiowany tekst zostaje wklejony we wskazaną komórkę. Super by było gdyby ktoś to ogarnął :) dzięki z góry
Witaj. Makro to dość precyzyjny zbiór poleceń, więc projektując jego działanie musisz określić dokładnie co skąd i gdzie ma kopiować. Wartość "na przykład" 3000 lub jakiś (jaki?) tekst ma być od czegoś zależna? Skądś pobierana? Gdzie ma być "dana kolumna", o której wspomniano? Znowu mamy inną wartość przykładową, "na przykład" 0000 lub jakiś tekst w...
Hmm... Tak, zdaje się, nie wyjdzie. Data, to data - czyli liczba, którą Excel wyświetla w postaci sformatowanej. Trzeba ją przekonwertować na tekst (spokojnie można pominąć separatory) i dopiero używać funkcji tekstowych. Swoją drogą, to nie rozumiem dlaczego taka zabawa z datą, której składowe masz w trzech zmiennych od samego początku...
Pytania: Czy ta wartość to wartość tekstowa czyli "1" (jak piszesz), czy tez może jednak liczbowa, czyli 1 (cyfra/liczba 'jeden') ? I czy jest to fragment większego ciągu (np. 000199KGHM000), czy też tylko pojedyncze "wartości" (1, względnie tekst "1") ?
Dołączam plik VCF. Można go otworzyć jako wizytówkę i zapisać w książce telefonicznej lub otworzyć jako tekst
Witam, Dopiero zaczynam przygodę z makrami i natrafiłem na problem z którym nie potrafię sobie poradzić. Otóż mam w jednej kolumnie (w moim przykładzie kolumna H) formuły zwracające tekst TAK lub brak tekstu, potrzebuję zaznaczyć/odznaczyć checkbox - nadać odpowiedniemu polu w innej kolumnie (w przykładzie kolumna C) wartość TRUE lub FALSE. Dla jednego...
Bardzo ale to bardzo Ci dziękuję.Dla mnie to cały dzień prób i błędów bez większych rezultatów a dla Ciebie chwila moment :). To co napisałeś jest dokładnie tym co chciałem zrobic, Dziękuje ;),punkciki dla Ciebie . Dodano po 32 A mam jeszcze inne pytanie.Gdybym chciał odwrócić sytuacje z poprzedniego programu zamieszczonego przez Pana w taki sposób...
potrzebuję makro do następującego działania: w kolumnie D mam listę kilkunastu pozycji D1, D2, D3, ..... zaznaczam komórkę A1 (chcąc w to miejsce wybrać tekst z listy), a następnie kliknięciem LPM w dowolną pozycję listy z kolumny D. Wybrany tekst wpisywany jest a zaznaczoną wcześniej kom A1. To samo z komórką A3 i dalej z A5 .... Nie chodzi mi tutaj...
Witam, Chcę napisać makro które będzie pobierało z jednego pliku Excela (Zeszyt1.xlsx) do drugiego pliku Excela tekst z odpowiednich komórek w Arkuszu1. Chcę aby Excel zwrócił ten tekst połączony w komórce E10. U mnie Excel zwraca FAŁSZ. Proszę o pomoc. Dim benek, benek1, benek2 As String benek1 = "=[Zeszyt1.xlsx]Arkusz1!R3C14&"" """ benek2 = "=[Zeszyt1.xlsx]Arkusz1!R4C14&""...
Instrukcja zajęłaby... no, trochę ekranu :) Najlepiej skorzystać z pomocy VBA. Zaznaczasz tekst funkcji w kodzie i naciskasz klawisz [F1]. Która część jest niezrozumiała? Zabezpieczenie arkusza przed edycją i temu podobne: nagraj makro z zaptaszkowanymi, odpowiednimi opcjami i przeanalizuj nagrany kod. Jak to zrobić z wykorzystaniem hasła? Było opisywane...
Witam mam pewien problem i utknąłem na tym. Jeśli ktoś będzie tak miły mi pomóc, będę bardzo wdzięczny. Makro zapisuje do komórek określone informacje istnieje komórka, która łaczy teksty z kilku komórek np (A2) Potrzebuje teraz do innej komórki wpisać komentarz z tym co znajduje się w (a2) ale nie formułę złącz.teksty... tylko wynik tego co dzięki...
A musi być makro? Bo najprościej to zrobić formatowaniem warunkowym, wybierając opcję "niepuste". Formatowanie warunkowe jest dynamiczne, więc zmiany zawartości komórek będą od razu uwzględnione. Tylko jeszcze kwestia formalna: co uważasz za puste komórki? W formatowaniu warunkowym Excel uważa za puste również komórki zawierające pusty tekst oraz same...
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, problem mam z podziałem tekstu, który znajduje się w kolumnie "B"(ok 2000 wierszy). Nie wiem czy to jest możliwe, aby podzielić ten tekst ta jak jest to zrobione na zamieszczonym w załączniku wzorze (kolumny "C-G"). Za wszelką pomoc w napisaniu makra(bo chyba żadna formuła nie da rady) z góry dziękuję.
może nieco i późno ale lepiej to niż wcale ;) załączam plik w którym jest i opis i pliczek, który zamienia wartości liczbowe na wartość "słownie" Doprawdy ułatwia życie! :) Plik “Slownie.xls” należy przekopiować do folderu Jak uruchomić to makro? Robię zgodnie z instrukcją. Podczas otwierania Excela wyskakuje mi informacja czy chce uruchomić...
No nie działa. Czemu? Bo ta pętla robi... no właśnie, trudno się połapać :) Może spróbuj w ten sposób (zakładam, że tekst jest w wierszach w kolumnie A) Edit 20:15 trochę uzupełniłem, żeby wszystko jasne było. Sub Makro1() a = ActiveCell.Row N = InputBox("wiersz koncowy") If N < a Then MsgBox "za mała wartość...":...
rozdzielać tekst excel makro excel makro szukaj tekst excel tekst
linek otwierać maska kupno transformatora toroidalnego rozkodowanie używanego pilota
rowery elektryczne mikrokomputer cobra1
Radio nie wycisza się do końca - przyczyny i rozwiązania Tłumienie filtra CL dla różnych indukcyjności
