Trzeba to przy zapisywaniu do formatu excela zdefiniować.
Musiałbym wtedy kopiować tekst do innego edytora, tam usuwać entery i wrzucać przecinki, a później w Excela. Problem polega na tym, że chcę tego uniknąć, bo niektóre opisy są obszerne, a produktów 24.000 i do każdego opis jest inny. Może ktoś zna jakieś makro na pomijanie styli tekstu przez Excela? Dodano po 34 Temat rozwiązany. Sposób miałem prosto...
Witam, czy istnieje edytor tekstu który umiał by usunąć tekst, oczywiście, usunąć tekst każdy głupi potrafi, chodzi mi o usunięcie tych tekstów stąd... http://obrazki.elektroda.pl/5380954400_1... Może jest jakiś program do usuwania wszystkiego co jest po prawej stronie kursora, czy cos?? licze na pomoc... ;)
Potrzebuje otrzymać funkcje, która będzie mi usuwała jakieś części tekstu z komórki: -kior i -lo 30w4er78ou-kior 40rety76-lo 45miw3452-lq 30misti67903 Dziękuje
Witam. Szukam sposobu na scalenie tekstu z dwóch kolumn w taki sposób, żeby tekst po scaleniu był już całkowicie niezależny od łączonych kolumn tzn żeby można było skasować 1 ze źródłowych kolumn. Czyli odpada funkacja "złącz.tekst" / "&". Teoretycznie łatwym i naturalnym rozwiązaniem byłoby zastosowanie "Wklej specjalnie - Wartości" na zaznaczonym...
Ten kod jest do napisania od nowa, według mnie. Mnie też :) ale nie ma żadnego innego pliku. jest: 1) plik bat, który generuje mi listę z dyskami, które są na komputerach - ta lista nazywa się raport.txt. Dołączyłem w pierwszym poście 2) plik z kodem vba, nazwany plikRoboczy.xls - też go dołączyłem Patrząc na strukturę pliku txt mam wrażenie, że szybciej/lepiej/wygodniej...
Witam, nie wiem czy to z racji późnej pory czy nie ale mam problem. Wydaje oczywisty jednak nie mogę sobie z nim poradzić, zatem jeśli ktoś wie to proszę uświadomcie mnie. Mam dane w kilku arkuszach, w tym w jeden z nich za pomocą funkcji FRAGMENT TEKSTU wybieram porównywalny człon, następnie w arkuszu z tabelą przestawną próbuje go wyszukać jednak...
Sprawdź od a1 do a2000 jeśli zawiera dane z zakresu 1-1000 - ok Jeśli inne (null lub tekst) - del cały wiersz Pomysł wydaje się sensowny :D jednak jedynie wtedy jeśli masz rzeczywiście w kolumnie A tylko wartości liczbowe lub tekstowe :cry: Przy imporcie PDF do Excela otrzymujesz jednak na ogół wszystkie linie tekstu w jednej kolumnie A :!: - i wówczas...
Np dla kolumn A:C On Error Resume Next 'nie zatrzymuje się na pustych i słowach For k = 1 To 3 For w = 1 To ActiveSheet.UsedRange.Rows.Count Cells(w, k) = Replace(Trim(Cells(w, k)), ".", "") * 1 Next Next Dla pewności dodałem usuwanie spacji gdyby się jakieś zaplątały...
Super! Makro działa tak jak sobie założyłem, okazuje się jednak że mam problem z analizą tak zebranych danych. Ładuje do 100 plików na raz każdy ma nawet kilkaset linijek i analiza jest utrudniona przez to że każdy jest w osobnym arkuszu, wcześniej tego nie przewidziałem... Co trzeba by przerobić żeby pliki txt ładowało wszystkie do jednego arkusza...
Excel Ci pomoże we wszystkim...
Tutaj masz usuwanie ostatnich znaków od końca lub znaków początkowych: http://office.microsoft.com/pl-pl/excel-... Rozdziel sobie na godziny i minuty osobno
Witaj, Pojedyncza prosta funkcja nie zadziała, ale można złożyć kilka funkcji, aby osiągnąć cel. i tak na przykład jeśli z alamakota*wp.pl chcesz zostawic samo *wp.pl - musisz poszukać pozycji interesującego Cię znaku (w tym przypadku *, funkcja SZUKAJ.TEKST), poznać długość całego tekstu (funkcja DŁ) oraz wyciąć sobie kawałek z prawej strony (funkcja...
Zdaje się, że badany tekst jest krótszy niż 3 znaki. Wyłącz obsługę błędów (On Error Resume Next) lub sprawdzaj długość stringa. Powinien mieć co najmniej 4 znaki.
Dlatego, że nie wiedziałem, jak potraktuje średniki w tekście.
Witam serdecznie wszystkich, Chciałbym was uprzejmie prosić o pomoc w stworzeniu następującego makra. Jeżeli scalona komórka (składająca się z kolumn D:I) zawiera tekst "brak" to Macro usuwa ten wiersz oraz 2 wiersze powyżej i 11 wierszy poniżej. Z tym, że: - słowo "brak" jest wynikiem wpisanej formuły (nie wiem czy to ma znaczenie). W załączniku przykładowy...
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ą")...
Oj, bo nie doczytałem. Chcesz usuwać dane z H,I,J,K, zostawiając formułę w L. To wykorzystaj SelectionChange w kolumnie P, gdzie widać tekst "Dodaj". [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 16 And Target.Value = "DODAJ" Then MsgBox Target.Row End If End Sub[/syntax]
Wynik w formacie programu Excel?
Jak poniżej. Założenie, że zwraca pierwszy 26znakowy ciąg cyfr, po usunięciu spacji z tekstu. [syntax=vbscript]Function ZwrocIban(Szukaj_Komorka As Range) Dim dlugosctekstu, pozycja As Long Dim t, ciag, maska, iban As String Dim i As Long 'usuwamy spacje z tekstu t = Szukaj_Komorka t = Replace(t, " ", "") maska = "CCCCCCCCCCCCCCCCCCCCCCCCCC" dlugosctekstu...
Przeanalizuj ten fragment (2 arkusze) tekst = TextBox1.Value wynik = TekstEtykiety(tekst, "Magazyn") If wynik <> "" Then Label1.Caption = wynik Else wynik = TekstEtykiety(tekst, "Magazyn2") If wynik <> "" Then Label1.Caption = wynik Else Label1.Caption = "Nie znaleziono."...
Witam, Mam następujący problem. Muszę eksportować dane z pliku zamieszczonego poniżej do arkusza Excel. Wymóg jest taki żeby w pierwszej kolumnie znajdowało się 8 znaków łącznie ze spacjami, kolejne kolumny to już dowolny ciąg liczb. I tak dla komórki A1 powinno być [_ _ _ _ _ _ 25] - 8 znaków łącznie ze spacjami (znak _ oznacza spacje a nawias kwadratowy...
Masz małą wiedzę na temat możliwości excela. Włącz excel. Otwórz w excelu twój plik notatnika (zaznacz przy otwieraniu typy pliku "wszystkie pliki") Pojawi się pytanie czy "rozdzielany" czy "stała szerokość" W twoim przypadku zaznacz "stałą szerokość" Kliknij Dalej Zaznacz myszką gdzie ma byś podział kolumny. (tych podziałów może być dużo od ciebie...
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...
Ale tekst usuwa się Backspace a Delete kasuje maila jak na niego najedziesz. Poprawki do systemu i do outlooka 365 wszystkie pobrałeś? W środę Firma Microsoft udostępniła tymczasową poprawkę znanego problemu, który powoduje nieoczekiwane awarie aplikacji Microsoft 365, takich jak Outlook, Word i OneNote, podczas pisania lub sprawdzania pisowni tekstu....
Jeśli w tych plikach ".csv" jest dużo danych, dużo linijek, to nie będzie to najlepsza metoda (ten załączony kod z odczytem linijka po linijce) odczytu tych plików - zbyt długo będą one otwarte. Lepiej by było to odczytywać przy pomocy LOF, np.: [syntax=vba] Open sciezka & plik For Input As #1 zaw_pliku = Input$(LOF(1), #1) Close #1 [/syntax] lub [syntax=vba]...
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",...
Function zapas(tydz, wiersz) Application.Volatile 'Excel 2k7 'Application.Volatile = True 'Excel 2k 'trochę tu latania po arkuszu :) 'szukam wiersza zawierającego tekst wt = Cells.Find(what:="Dni robocze", lookat:=xlWhole).Row 'określam pierwszą kolumnę z wielkością produkcji / zółta tabelka zKol = tydz - Range("C5")...
Dobry wieczór, Opierając się na rozwiązaniu podanym przez JRV poprawiłem odnajdywanie kodu w pierwszej kolumnie, ażeby uwzględnić, że zera mogą - jak sądzę - wystąpić również wewnątrz kodu i wtedy nie należy ich usuwać. Wyszło niezbyt elegancko, ale działa, może ktoś potrafi to napisać lepiej. Pozdrowienia.
To tak działać nie będzie. Formuła listy rozwijanej sprawdzania poprawności musi zawsze zwracać odwołanie, a nie stałą "10", jak w Twojej formule. Formuła nie może generować listy rozwijanej, może ją tylko modyfikować, to znaczy nie da się (samymi formułami) zrobić tak, że w B1 raz będzie lista rozwijana, a innym razem nie. To można zrobić tylko z pomocą...
Witam, Potrzebuję zamienić tekst na liczbę : np: 0.78 PLN na 0,78 Póki co robię to tak : Najpierw z każdej komórki usuwam 3 znaki z prawej za pomocą formuły ( PLN ), następnie kolumnę kopiuję obok wklejając tylko wartość co daje mi 0.78 Dalej używając Ctrl+H zamieniam "." na "," Jakiś szybszy sposób ktoś mi podpowie, lub jakąś formułę?
super! dodałem i wszystko działa jak należy!! Miałem tylko problem z usuwaniem pustych wierszy... napisalem makro kasujące gdy jakieś pole jest puste... działa ale bardzo długo przelicza.... Poniżej makro: Sub Kasuj() For i = Cells(65536, "A").End(xlUp).Row To 3 Step -1 If Cells(i, "B").Value = "" Then Rows(i).Delete shift:=x1Up End If Next End Sub...
Witam! Nowy, czysty skoroszyt. Komórki mają formatowanie domyślne. Do komórki D3 wpisuję z ręki formułę ="0987", excel zgodnie z przewidywaniem traktuje tekst jako tekst, mamy wyrównanie do lewej, 0 zachowane. Do komórki D4 wpisuję formułę =D3, i tym razem excel zgodnie z przewidywaniem traktuje tekst jako tekst, mamy wyrównanie do lewej, 0 zachowane....
Aby wyodrębnić nazwy zawarte w jednej komórce w programie Excel, możesz skorzystać z kilku metod. Oto kroki, które pozwolą Ci osiągnąć zamierzony cel: Wyodrębnij tekst z komórki: Wybierz komórkę, w której znajdują się nazwy (np. komórkę A1). Wpisz następującą formułę w dowolnej innej komórce (np. B1), aby wyodrębnić tekst: =ZASTĄP(ZASTĄP(A1;",";"");"(";"";"")...
Niepokoją mnie takie teksty "Stale się rozrasta w dół". A jak dojdzie do końca arkusza to co? Kupimy nową wersję Excela? Czy rzeczywiście takie są potrzeby? Czy nie warto już teraz pomyśleć o jakiejś retencji/archiwizacji? Praktyka pokazuje (wejście RODO) jak trudne to zadanie gdy już nazbiera się dużo danych przy braku polityki retencji. Ludzie się...
Ze względu na ograniczenia nałożone przez admina nie jest możliwe zapisanie tego tekstu do pliku tekstowego/sekwencyjnego na dysku. Jakoś nie jestem przekonany. 1. Każdy Windows zapisuje/usuwa pliki tymczasowe. Ściągnij (otwierając, nie zapisując) dowolny załącznik i się przekonaj. 2. Zalogowany User zwykle ma jakąś przestrzeń do tego celu (plik nad...
Dzień dobry, Można również napisać stosunkowo proste makro (załącznik), które uporządkuje dane w pożądany sposób. Makro da spodziewany rezultat, jeśli adres mailowy w oryginalnych danych będzie stanowił osobny wiersz. Dane ze strony www należy skopiować w zwykły sposób do komórek. Po kopiowaniu zakres komórek jest zaznaczony, w razie czego można zmienić...
Witam Mam taki problem. Chciałbym zautomatyzowac wyciągnięcie ceny z np. takiego tekstu w komórce: "AMD-100 Bezprzewodowa czujka magnetyczna (biała) 129,00 PLN" Zależy mi na tym żeby w komórce zostało jedynie 129,00. Próbowałem w opcji znajdź wpisywać "???,?? PLN" ale niestety nie wiem jak skopiowac zawartość wyszukanych danych i wkleic je do sąsiedniej...
W excelu mam sformatowane komórki na tekstowe, w których zapisałem ciąg cyfr ze spacjami. Muszę usunąć spacje. Zastosowałem znajdź/zamień ale zmienia mi to zapis tekstu z: 021020 1025 1000 0090 3027 3156; na : 2,10201E+24. Jaką formułę zastosować, aby usunąć spacje bez zmiany tekstu (cyfr) na: 02102010251000009030273156 Dodano po 21 W excelu mam sformatowane...
to, że jestem leniwy to wiem, jednak Twoje makro nie rozwiązuje problemu - usuwa kropkę, ale pozostawia w dalszym ciągu komórkę jako tekstową. Tak więc w dalszym ciągu nie ma oczekiwanego rezultatu. Oczywiście pojawia się z lewej strony komórki komunikat o możliwości przekonwertowania do postaci liczbowej, ale tej czynności makro nie rejestruje. Dzięki...
TextBox1.InputType = xlNumber Textbox w VBA excela nie posiada takiej właściwości. Co do usuwania wpisanej wartości to owszem. Ale chciałem ją pozostawić, żeby ktoś zobaczył co wpisał, a poprzez pełne zaznaczenie wystarczy zacząć jeszcze raz wprowadzać dane a stary wpis jest zastąpiony. Ostatecznie zrobie z wyczyszczeniem okna, ale myślałem że jest...
Hej! Czy spotkał się ktoś może z problemem przenoszenia/kopiowania arkuszy. Mam kilka arkuszy, które tworzone są na podstawie jednego wzoru. Jeden z nich kopiują się szybko a inne bardzo długo - do godziny. Zdiagnozowałam problem w kilku komórkach ( również bardzo długo się kopiują). W niektórych są listy wyboru lub formuły, a w jednej tylko tekst....
Tak mam 7 kryteriów. Kryteria są dynamiczne i dlatego muszę usuwać filtr. Pętlę zostawiłem żeby móc dodać kolejne kryteria rozłączne. Kopiowane jest do kryterium filtra a następnie z niego usuwane. Mam duży plik, przygotuję kolejny mniejszy i wtedy go prześlę - jeszcze zamierzam to uogólnić żeby było makro na cały skoroszyt i odwoływało się do ActiveWorksheet....
Jeszcze jeden pomysł mi przyszedł z rana :). Pozwoli na usuwanie wierszy z arkusza1 nie niszcząc odwołań i spełni twoje oczekiwania. Wykorzystaj funkcję Adres() i adr.pośr() W funkcji adres() tworzysz adres za pomocą liczb: ADRES(nr_wiersza ;nr_kolumny ;typ_adresu;a1;tekst_arkusz) A za pomocą ADR.POŚR(adres_tekst;a1) odwołasz się bezpośrednio do danych...
Dzień dobry, Chyba doszło tu do jakiejś nieścisłości. Funkcje w Excelu służą do wykonywania obliczeń i zwracają wynik do miejsca wywołania. Funkcja WYSZUKAJ.PIONOWO nie jest tu żadnym wyjątkiem. Usuwanie danych wymaga procedury czy podprogramu, albo wbudowanego, albo napisanego przez użytkownika w Visual Basicu. O co tu mogło więc chodzić? Być może...
Więc tak, chcię użyć opcje z ClearContents a nie Clear , żeby usuwało tylko tekst/liczby dla parzystych kolumn w przedziale A:CZ ( tj. B,D,F,H itd.) wtedy może być nawet bez sprawdzania czy to formuła, mógłbym prosić o gotową linijke kodu do zrobienia tego? Z góry dziekuję Dodano po 2 albo inaczej , jak pod to Rows(i).Cells(k).ClearContents podpisać...
Cześć, Mam proste pytanie, potrzebuję pętle która będzie szła po kolumnie i usuwała wiersze, w których znajdzie część nazwy. Czyli np szukamy słowa auto, a w kolumnie mamy bmw fiat mercedes skoda vw_auto porsche Stworzyłem coś takiego ale mi nie działa: [syntax=actionscript] Sub Macro1 For Each c In Range("B1:B100") If c = "*auto" Then c.EntireRow.Delete...
Witam, chciałabym stworzyć makro porównujace dwa wskazane przeze mnie pliki. Układ obu plików jest taki sam. Na kilkaset wierszy czasami zostanie zmieniony tekst/kwota lub całkiem usunięty/dodany nowy wiersz. Widziałabym to tak że wskazuje konkretne dwa pliki, a makro porównując je usuwa powtarzające się wiersze (sprawdzając zarówno tekst jak i kwoty)....
Trudno aby usuwać coś czego nie ma. nalezy sobie napisać procedurę która "wyczuje" taka okoliczność i np. wysle komunikat na ekran, że schowek jest pusty. Rejestrator makr nie jest remedium na wszystkie problemy, mało tego, tworzy czasem taki kod że włos na głowie staje. Jest to mocno ograniczone narzędzie mające na celu pomoc w wykonywaniu prostych...
Spróbuje wyjasnic jeszcze raz o co mi chodzi. Dodaje dwa pliki z excela(jeden z makrem drugi bez). Mam dużo większą ilość danych niż w przykladowych plikach i większy rozrzut wartości zakończonych gwiazdką(*). Potrzebuje pozbyć się gwiazdek do czego stworzyłem proste makro. Po jego wykonaniu gwiazdki znikają, lecz formatowanie tych komórek pozostaje...
Dziękuję za odpowiedz. Dobrze kolega zrozumiał. Jak jest zero to odejmnij. Jak nie ma zera to dodaj zero. Tak sama z druga wartością. Juz tlumacze sens. Codziennie dostaje raporty w których występują wartości z zerem lub bez zera. Żeby makro moglo uzupełnić dane(wartości duplikujące) to musze miec dane jednakowe. Jak nie mam jednakowych danych to musze...
Dzięki temu, nie usuwając pliku a dopisując do niego wiersze można stworzyć swego rodzaju spis poszukiwanych pingów. Jedna sugestia z mojej strony. Opóźnienie należałoby dobierać doświadczalnie w zależności od osiągów sprzętowych. Czasami trwa to naprawdę długo. Dodane po chwili Działanie polecenia ping można przyspieszyć dodając po ping.exe "-n 1"....
Dziękuję za zainteresowanie, sprawa nie jest tak prosta jak się wydaję. Spieszę wyjaśnić do czego jest mi to potrzebne. Generalnie potrzebuję to do stworzenia słownika wyłącznie słów, których używam sam w swoich tekstach. Niektóre teksty (artykuły) są wręcz olbrzymie. Lista słów musi być w ten sposób ułożona (jedno po drugim) w pliku tekstowym i zaimportowana...
usuwanie tekstu kursorem excel usuwanie usuwanie excel
paczkomat inpost inspekcja mercedes wariować zegar
Zawór hydrauliczny dławiący VRFB 1/4" 15L – kompatybilność z T-25, gwinty, przepływ Przegrzewanie się wtyczki zasilacza komputera stacjonarnego
