[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ą")...
Okej dziękuję bardzo:) A zapytam: Da się zrobić taki przycisk, który zapisuje plik Excel'a?
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...
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ć?
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...
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||....
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...
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...
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...
Opis: ------ 1. W trakcie swojego działania pewne makro przypisuje do danej zmiennej tekstowej bardzo długi tekst pochodzący ze zmiennej tablicowej. Tekst ten zostaje następnie przepisany do notatnika i wyświetlony na ekranie. Ze względu na ograniczenia nałożone przez admina nie jest możliwe zapisanie tego tekstu do pliku tekstowego/sekwencyjnego na...
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?
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...
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...
no działa, dzięki tylko chciałbym żeby jeszcze wycięło to ten tekst z 1 kolumny
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...
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
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") ?
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...
Dołączam plik VCF. Można go otworzyć jako wizytówkę i zapisać w książce telefonicznej lub otworzyć jako tekst
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&""...
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...
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...
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 do was wielką prośbę dotyczącą makra. Posiadam Excel 2013 i 2016. Załóżmy że w komórce D1 mam tekst "Utworzenie sprawy"; Załóżmy że w komórce D14 mam tekst "Utworzenie sprawy Załóżmy że w komórce D41 mam tekst "Utworzenie sprawy" Załóżmy że w komórce D65 mam tekst "Utworzenie sprawy" W komórce d1 od tej komórki makro zaczyna pracę. Jeśli 1...
Witam mam 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...
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ć...
Potrzebuje makro które będzie łączyć tekst z komórek w jedną ,z zachowaniem formatu w komórkach, a dokładnie pogrubienia tekstu . Mam tutaj działające makro ale strasznie obciąża komputer ,potrzebuje to zmodyfikować i zeby działało sprawnie dla 120 komórek Private Sub CommandButton61_Click() Application.ScreenUpdating = False Dim arkusz As Excel.Worksheet,...
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ę.
rozdzielać tekst excel makro excel makro szukaj tekst excel tekst
timer1 przerwania zasilać kampera dopisanie kluczy
Opel Monterey 3.1 TD 1993 – schemat i montaż przewodów podciśnienia, serwo, EGR, 4WD Trzy czerwone kontrolki Philips ekspres lub Xbox 360 – przyczyny i diagnostyka awarii
