Wczytuje dane ze wszystkich plików tekstowych znajdujących się w tym samym katalogu, co plik Excela: [syntax=vb] Sub ddd() Dim wiersz As Integer Dim wielkosc As Integer Dim lInputFile As Variant Dim linia As String Dim i As Integer Dim tekst As Variant Dim opis As String wiersz = 1 Dim plik_txt As String plik_txt = Dir(ActiveWorkbook.Path & "\*.txt")...
Ad2.Jeśli chodzi o wyodrębnienie liczby z ciągu tekstowego proponuję zbudować formułę, która sprawdzi czy na lewo od fragmentu tekstu " mm", określona ilość znaków zamienionych na cyfry jest liczbą i jeżeli tak to zapisze ją w komórce. Przykład: Tekst w A2: Belka 89 E 15 dł. 2200 mm 3CR RAL 2004 Szukamy " mm". Formuła: =SZUKAJ.TEKST(" mm";A2) Interesują...
Możesz zrobić tak: Wypisujesz sobie listę liczb w komórkach pionowo lub poziomo. Każdą komórkę formatujesz niestandardowo, przypisując jej (komórce) określony tekst. Ten tekst będzie niezależny od liczby, która jest w komórce. Na przykład pierwszą komórkę sformatujesz niestandardowo jako "a". Tworzysz listę rozwijaną, podając jako zakres tę swoją listę...
Pliki CVS nie zapamiętują formatu i traktują 00000010 jako liczbę 10. Przed eksportem zaznacz dane w komórkach jako tekst i dopiero wyeksportuj, lub po ponownym imporcie oznacz pole jako liczbowe z zerami wiodącymi (000000000) Małe sprostowanie. Zapisze do pliku jako 00000010, ale po imporcie nie ma ustawionego formatu komórki i będziesz widział 10
Dzień dobry, Jeżeli położenie komórek jest stałe, to znaczy w kolejnych komórkach ma Pan tekst oryginalny (w przykładzie A1), wynik (w przykładzie B1) i położenie "X" w tekście wynikowym (w przykładzie C1) może Pan nadać nazwy swojej formule oraz jej parametrom (zgodnie z zasadami Excela). Można to zrobić w Menedżerze Nazw (Excel >= 2007) lub przez...
Zaznacz wszystko (Ctrl+A ) i zamień (Ctrl+H ) . Jeżeli ten tekst nie jest w komórkach to zaczyna być kłopot. Jeżeli te "okienka" to formant formularza to wyłącznie pisanie makra lub ręczna zmiana. Jeżeli to formant ActiveX to zaznacz wszystkie okienka z tym tekstem (pomocne jest włączenie okienka zaznaczania (na wstążce "znajdź i zaznacz a tam okno...
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...
Możesz jak wspomniał kolega wyżej wykorzystać funkcje dzielenia mi modulo (funkcja mod w excelu) ale możesz też skorzystać z operacji na tekstach tak zamyślałeś na początku. jeśli A5 to nasza komórka z danymi to kolejne cyfry można obliczyć np tak: =JEŻELI(DŁ(A5)>10;WARTOŚĆ... =JEŻELI(DŁ(A5)>9;WARTOŚĆ&...
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...
Jeśli ktoś zna lepszy sposób to mógłby podać. Można napisać własną funkcję w VBA: W załączniku przykładowy plik z jej działaniem. Funkcja oczekuje, że w komórkach będzie tekst w postaci czterech liczb rozdzielonych dwukropkami (01:02:03:04 lub 1:2:3:4 lub 1:02:03:04 są dla niego akceptowalne i oznaczają jedną godzinę, dwie minuty, 3 sekundy i 4 setne...
https://obrazki.elektroda.pl/4780071900_... Podstawy GOOGLETRANSLATE i wpisujemy w A1 jakieś przykładowe słowo - "Przekaźnik": https://obrazki.elektroda.pl/2211472500_... W B1 wpisujemy znak równości a potem zaczynamy pisać GOOGLE, podpowiedź powinna się już pojawić: https://obrazki.elektroda.pl/2939205100_...
Teraz nie jestem w stanie dodać załącznika. Jest skoroszyt z dwoma arkuszami. Pierwszy nazywa się źródło a drugi wynik. Komórka a1 w źródle zawiera dużo tekstu. Jest jedyną wypełnioną komórką w tym arkuszu. Z całej treści tej komórki musi być wyszukane słowo "biały" lub "czarny". W obydwóch arkuszach wszystko musi być wielkimi literami. Wpisywanie ma...
Podaj więcej szczegółów. Np. która wersja Excela? Czy masz funkcję X.WYSZUKAJ? Ona nie ma tego ograniczenia do 255 znaków. Poza tym ile znaków ma C1? To znaczy, czy limit 255 jest przekroczony w C1 czy tylko w A1:A6? Ponadto, czy chodzi o niewielkie przekroczenie (możliwość podziału tekstu na 2 fragmenty), czy o znaczne? Czy mają być rozróżniane małe/wielkie...
Powstrzymam się od skomentowania Twoich czarnych zrzutów ;-) Odnoszę wrażenie że borykasz się jedynie z problemem nieczytelności widoku arkusza z komórkami zawierającymi bardzo dużo !!! tekstu. Mogę jedynie zaproponować zmniejszenie skali wyświetlania arkusza i dostosowanie formatowania komórki - aby uzyskać możliwość wprowadzania tekstu do wybranej...
Korzystam z formuły sumującej dane dla konkretnego miesiąca czyli w arkuszu "lipiec - suma" (arkusz podsumowujący) mam formułę: suma('lipiec - suma :lipiec (1)'!H1), która sumuje mi wszystkie dane z pól H1 z zakresu wszystkich arkuszy pomiędzy "lipiec - suma" i "lipiec (1)". Ponieważ tworzę arkusz "lipiec-suma" na samym początku miesiąca (potrzebuję...
Obawiam się, że się nie rozumiemy. Ten załączony tekst ma sens jako kod VBA, natomiast nie bardzo ma sens jako zwykły tekst do czytania dla ludzi. Dlatego założyłem, że jednak jest to tekst programu, bo inaczej będziemy się poruszać w sferze abstrakcji. Jeżeli jest to tekst programu, to nie jest on celem samym w sobie, tylko środkiem do osiągnięcia...
http://obrazki.elektroda.net/41_12633119... Stworzone przeze mnie urządzenie jest praktycznym uzupełnieniem piórnika szkolnego. Jest wyposażone w kilka pożytecznych funkcji i na opisanych poniżej nie zamierzam zaprzestać. Całość została zorganizowana w wygodne w obsłudze intuicyjne menu. 6 przycisków uSwith w jakie jest wyposażony układ umożliwia...
Najprościej to można zrobić z kolumną pomocniczą, do której wpisać funkcję SUMY.CZĘŚCIOWE. Wtedy obliczenia formułą: [syntax=text]=LICZ.WARUNKI($A$2:$A$86;"*... Jeśli nie może być kolumny pomocniczej, to sprawa się trochę komplikuje, w każdym razie nie można użyć LICZ.WARUNKI, bo obie funkcje wymagają odwołań.
Chcesz odblokować tylko formatowanie tekstu w komórkach ? (dane nie zmieniac) Kod w post #2 odblokuje wszystko... Ale... te makra do przyciskow(Pobierz_Arkusz1, Usuñ_Arkusz1) to odblokowanie usune. Uzyj przy blokowaniu kod ActiveSheet.Protect Password:="x", AllowFormattingCells:=True
Zrobiłem niewielką formułę w excelu, mam nadzieję, że Ci pomoże: =FRAGMENT.TEKSTU(A1;SZUKAJ.TEKST("???-??... Formułka znajduje gdziekolwiek w tekście ciąg ???-??? i traktuje go jako początek numeru telefonu a potem wycina do najbliższego przecinka. Możesz łatwo to zmodyfikować...
Witaj, Nie mam pomysłu na formułę, mam natomiast pomysł na proste makro, które mniej więcej robi to, co chcesz. Nie jestem najlepszym programistą VBA, ale w sumie na pierwszy rzut oka działa. [syntax=VB]Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-04-16, autor Darek ' ' Kolumna A od wiersza 2 w dół zawiera działania ' W kolumnie B będą...
Jeżeli to możliwe to poproszę o użycie formuły Proponuję formułę :spoko: [syntax=vbscript]=JEŻELI(NIE(CZY.BŁĄD(ZN...
włanie to nie wypala, excel sam w sobie to najgorsze co moze do tego być chociaż jako jedyny ma opcję przycisk wstawiania jednym kliknięciem tego screena zdjęcią i to jest super żaden inny tego nie ma. Reszt to już powoduje że szkoda zajmować się excelem nie mówię o szyfrowaniu i braku dostępu do pliku, formatu jak licencja online tego nie obejmie...
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 problem z formatowaniem warunkowym. Chcę żeby w zakresie komórek od D3 do I2 (które są z listą wyboru) formatowało komórkę (zakreślało na czerwono) jeśli tekst zawiera fragment z komórki C3. Wybieram formatuj komórki jeśli: Tekst zawiera fragment: i wpisuję =C3 Jednak kiedy w komórce np. D3 wybieram z listy tekst to formatuje mi go od razu...
Nie liczcie tak na te zdjęcia. Ile osób może zdawać egzamin w niedzielę? A ile z nich może mieć możliwość zrobić zdjęcie? Najdokładniej jak potrafię. Zapytania do bazy 1.Stworzyć bazę kantor w Xamppie 2.Zaimportować plik kantor.sql (a wcześniej go rozpakować) 3.Stworzyć plik kwerendy.txt 4.Utworzyć zapytania SQL a.Dodać rekord danych do tabeli klient,...
las na zielono, wody na niebiesko. istnieje jakieś rozwiązanie? Pojedyncze cuda można zrobić :D ale ręcznie np. 1170743 Jeśli chciałbyś to robić na większą skalę to pozostaje jedynie kod VBA :ok:
No to mamy wreszcie pierwszy konkret: w arkuszu Excela w komórce A1 jest "Polcaina" (tej nazwy nie znajdzie, bo w danych jest "Polocaina", ale listy rozwijanej Pan nie chce), w B1 jest "5", w C1 jest "Polocainum Hydrochloricum 5%", w D1 jest "57". I co dalej? Co teraz przeszukujemy i czego dokładnie szukamy? Skoroszyt, arkusz, zakres w arkuszu? Jak...
Witam, Od dłuższego czasu nie mogę sobie poradzić z następującym zadaniem. W arkuszu z danymi w jednej z kolumn mam zapisane daty w formacie rrrr-mm-dd. Pewnym utrudnieniem jest to, że w poszczególnych komórkach tej kolumny może być zapisanych kilka dat z dodatkowym opisem np.: w komórce B1mam wpisany tekst (2013-04-11 abc, 2014-02-12 bbj 2011-01-01...
Przetestuj: [syntax=VB]Sub Data_Bold() Dim lLstRw& Dim i& Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania Dim sCol$ 'kolumna z danymi sCol = "A" With ActiveSheet sRegExpPatt = "Data" lLstRw = .Cells(Rows.Count, sCol).End(xlUp).Row Set objRegExp = CreateObject("VBScript.RegExp") objRegExp.Global...
dla Excel =>2007 A1 =JEŻELI.BŁĄD(SZUKAJ.TEKST("Peugeot";B1)^...
Ja pamiętam to jeszcze z Delphi 2.0 :-) Być może pokręciłem nazwę, zaraz poszukam w sieci, chwilowo nie mam zainstalowanego delphi... EDIT: W DrawGrid nie trzeba nic zmieniać jednak, pokręciłem z innym komponentem, wystarczy jedną metodę oprogramować i już :) To Ci powinno pomóc: http://www.festra.com/wwwboard/messages/...
Dla jednego pola nie jest to skomplikowane - działające makro to: Dla zakresu [syntax=vbscript]Sub elka() For Each c In Range("H8:H100") If c = "TAK" Then c.Offset(, -5) = True ElseIf c = "" Then c.Offset(, -5) = False End If Next End Sub[/syntax]
Formuła wyszukująca tekst zawierający "(at)" w łańcuchu powinna podołać.
[syntax=vbscript]Sub Rozdziel() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To ow a = Split(Cells(x, 1), ".") For y = 2 To 4 Cells(x, y) = a(y - 2) Next Next End Sub [/syntax] Trzeba tylko ustawić format kolumn B:D na tekstowy.
Trochę czasu wolnego się trafiło, poczytałem toiowo, i znalazłem może niezbyt eleganckie ale dosyć satysfakcjonujące rozwiązanie mojego problemu. Tylko brak mu automatyzacji i całościowego podejścia jeszcze. Są dwie kolumny, w jednej nazwa towaru po polsku (A), w drugiej ma być po angielsku (B). Część drugiej jest już przetłumaczona, więc niektóre komórki...
...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...
Witam Proszę o pomoc. Jak można automatycznie wstawić znaki w zaznaczonych komórkach w wpisane już w dane w komórce. Do każdego wiersza chce wstawić "tekst" z przodu wiersza Miało by to wyglądać tak: 111222333 -> tekst1112223 "tekst" ma być wstawiony zawsze w tym samym miejscu (czyli z przodu cyferek) Przerobiłem kod Januszf777 ale efekt jest na końcu...
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...
W komórkach jest czas „09:44:58” sformatowany „gg:mm:ss”. Potrzebuję czas bez sekund jako tekst. Można to zrobić wykorzystując kreator z arkusza: „Tekst jako kolumny” ustawiając typ danych źródłowych: „stała szerokość” zaznaczając miejsce podziału i format wyjściowy: „Tekst”. Uzyskany wynik: kol1 – 09:44, kol2 - :58 (patrz załącznik) czyli to co chciałem...
Migać to nawet w 2007 nie będzie ale może się zmieniać kolor komórki lub czcionki lub (nowość w 2007) wykorzystuje się ikonki np w stylu świateł sygnalizacji lub strzałek których kolor /pochylenie strzałki jest zależny od wartości komórki. Jednak żadne ze wskazań nie mruga.
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 ale chyba coś pomyliłem. Myślę że jakąś drobnostke i nie chce działać. To może teraz prościej i już na konkretnym przykładzie. W jednej komórce A1 w arkuszu zaczytuję dzisiajszą datę. W tabeli mam wiersz 7 z datami typu 01.01.2023, 01.02.2023 itp. - > kolumny od 6 do 45. W wierszach od 9 do 850 mam różne czynności. Na skrzyżowaniu daty i czynności...
Użyj funkcji: =LICZ.JEŻELI(zakres1:zakres2;"tekst") zakres1 - adres komórki zakres2 - adres komórki "tekst" - wyraz, który występuje w komórkach a ma być zliczony
Wróżę problemy z jakimikolwiek poprawkami nawet tego prostego kodu. Makro jest podpięte pod Arkusz1->Worksheet->Change.
Dodano po 5 w A1 zmieni się pod wpływem formuły [syntax=vb]Private Sub Worksheet_Calculate() zk = Range("A1") = 1 With Range("A2") n = Len(.Text) k = n \ 2 .Characters(Start:=1, Length:=k).Font.Strikethrough = zk .Characters(Start:=k + 1, Length:=n - k).Font.Strikethrough = Not zk End With End Sub [/syntax]
zamiast: MsgBox tekst wpisz: [e2]=tekst i sformatuj komórkę E2...
Chciałbym poprosić o pomoc w związku z makrem które, muszę zbudować. Mianowicie chodzi mi o to że mam tysiąc komórek które wyglądają mniej więcej tak: dzbanek_02-01-2008_K20 W VBA możesz użyć czegoś takiego: Do moderacji: Wiem, że odświeżam temat, ale może ta krótka instrukcja się komuś przyda, bo autor pewnie już sobie poradził. Usuwajcie jeśli uznacie...
Kolumna C danymi liczbowymi i komórkami pustymi kolumna B1 będzie zawierać formułę =C1 Kolumna B2 będzie zawierać formułę =JEŻELI(CZY.PUSTA(C2);B1;C2) Dodano po 1 ale nie wiem jak zrobić z liczbami i tekstem w komórkach
napisz niewielkie makro np jak masz komentarz w komórce a1 a chcesz wpisać go powiedzmy do b1 to wystarczy napisać makro Sub Makro1() Range("B1").Value = Range("A1").Comment.Text End Sub i go uruchomić i wszystko. Myślę że sobie poradzisz. Jeżeli masz w parudziesięciu komórkach to trzeba by było zrobić automat i przez jakąś pętle warunkową podmieniać...
wpisy komórkach gamma komórkach tekst edytor tekst
prestige instrukcja napełnianie tuszem canon głośnik przenośny blaupunkt
Mobilny router restartuje radio samochodowe - przyczyny i rozwiązania Sterownik do klawiatury Titanum TK103 - gdzie znaleźć?