=WARTOŚĆ.LICZBOWA(PODSTAW(A1;"PLN";"");"...
Dla Twojego konkretnego przypadku[syntax=vb]Sub podzial() Dim bs As Worksheet, bd As Worksheet Dim r&, c&, p%, k% Set bs = ActiveSheet Set bd = Sheets.Add(after:=bs) For r = 1 To Application.CountA(bs.Columns(1)) x = bs.Cells(r, 1) k = 0 For c = 1 To 7 p = k + 1 k = InStr(p, x, " ") bd.Cells(r, c) = Mid(x, p, k - p) Next p = InStr(k, x, ",") + 3 bd.Cells(r,...
[syntax=vb] Sub Link() Dim x As Long, Adres As String x = 1 While Cells(x, 1) <> "" Adres = Cells(x, 1) Cells(x, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "http://www." & Adres, TextToDisplay:=Adres x = x + 1 Wend End Sub [/syntax]
Spróbuj przerzucić przez zmienną pomocniczą zadeklarowaną jako liczba.
Zakładam, że ta tabela TCOne będzie się rozrastała i zmieniała :D , więc proponuję ewentualnie się od niej uniezależnić i poprzez "nazwane funkcje" uprościć tą formułę przeciąganą w kolumnie A :idea: - tak jak na zrzucie :spoko: 1045128 Zmiana oznaczeń (XXX - AAA itd.) można zrealizować poprzez zagnieżdżenie formuły JEŻELI() - 1045149
do drugiej osobnej kolumny.. np. do kol. D[syntax=vb] Private Sub Worksheet_Calculate() Application.EnableEvents = False Range("D10:D200") = Range("B10:B200").Value Application.EnableEvents = True End Sub[/syntax]
Głupie pytanie ale nie wystarczy zaznaczenie tej kolumny i zamiana tekstu poprzez CTRL+H? Możesz zawsze zarejestrować sobie makro robiące dokładnie tę czynność.
A ja z trochę innej strony podpowiem 1 excel ma taką funkcję "Tekst jako koumny .. ". Zaznaczasz / i OK i masz dwie kolumny z jednej. Więc jeżeli to czynność jednorazowa to to bym proponował. 2. Funkcja Wyszukaj.pionowo() 3. jeżeli to ma być ograniczenie wprowadzania danych do komórki to poprzez kolejną funkcję excela taką jak "sprawdzanie poprawności...
Witam serdecznie, mam problem aby zmienic cos na cos w excelu chodzi o to aby po wklejeniu danego tekstu w kolumne zmienial on obok na to co bedzie zamienione np chodzi tutaj o grafik aby zmienial automatycznie np 1 na 8:00-16:00 i dalej 2 na 6:-30 i tak dalej CZYLI 1 | 8:00-16:00 u | URLOP w | WOLNE 10 | 9:00-17:00 probowalem sam za pomoca VB replace...
Jeśli w każdej linijce tekstu jest tylko jeden PESEL i tekst bezpośrednio z nim sąsiadujący z obu stron jest zawsze identyczny to rozwiązaniem może być hurtowa zamiana (z jakimś makrem) w Notepad++.
funkcja lewy funkcja prawy i zamiana na liczbę - wartość wszystkie w kategorii Tekstowe
Nie "kumam" pytania, ale "złośliwie" :) odpowiem: tak samo tylko na odwrót czyli I dd I mm I rrrrI na dd-mm-rrrr czy dd.mm.rrrr (zamiana kolumn w tekst 1 kolumnowy). Chyba powinieneś się sam już domyśleć co i jak. Tak nawiasem mówiąc - jak mnie ktoś pomógł to przynajmniej używam magicznego słowa "Dziękuję".
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ć?
Wszystko zależy czy zamiana ma być stała (zawsze ten sam tekst na inny też stały tekst) czy dynamiczna i czy tylko jedna kombinacja zamiany czy dużo więcej różnych kombinacji. No i dodatkowo czy tekst ma być wyszukiwany i zamieniany w ciągu tekstu w komórce czy zamieniamy całą zawartość komórki. Najprościej =JEŻELI(B6="zima";"Lato";B6)
Można wyłączyć przeliczanie przed wejściem w pętlę i włączyć po wyjściu. [url=http://www.automateexcel.com/vba/on... Przy 100k+ wierszach i długaśnych formułach jakoś wcale mnie to spowolnienie nie dziwi. U mnie ten sposób nie obcina długich funkcji. Ale jak koniecznie chcesz użyć zamiany...
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...
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ą...
Zastanów się nad wstępną normalizacją kodów, bo czeka Cię nie lada zadanie... http://obrazki.elektroda.net/75_12682516... W VBA można wykorzystać funkcję Split ale przy tym ostatnim zapisie założenie bierze w łeb i trzeba szukać pierwszej liczby w łańcuchu. Może byłoby i łatwiej. Jeśli tablica po rozbiciu łańcucha miałaby mniej niż 4 elementy,...
Ha. Nie jestem niedowiarkiem i udam, że nie zauważyłem zamiany spacji na minus w formatowaniu tekstu. :D
W pełni zgadzam się z kolegą adamas_nt co do znaków, które może zawierać nazwa pliku. Chcę tylko zwrócić uwagę na drobny błąd, który zakradł się do jego kodu: ActiveWorkbook.SaveAs Filename:=ActiveCell.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbookMacroEn... Aby to działało prawidłowo wystarczy zamienić "Value" na "Text". Różnica...
Ale ten czas leci. 2000 to jeszcze nastolatek, a już "stary". Uważam jednak, że to nieszkodliwe przyzwyczajenie i błędem nie jest.. Absolutnie! Byłem tylko ciekaw powodów. Domyśliłem się o co Ci chodzi ale nie znałem genezy :) Obserwuję Twoje porady i traktuję je z należnym szacunkiem :) Dobrze wiedzieć, że we wcześniejszych wersjach excela takie problemy...
PDF-a konwertuję do excela na jakiejkolwiek strunie gdzie mogę zrobić to online. Czy to znaczy, że otwierasz PDF-a w przeglądarce WWW i myszą kopiujesz tekst? W jakim systemie to robisz? Windows, Linux, MacOS...?
Funkcja ADR.POŚR może służyć do odczytania danych z pliku otwartego w tej samej instancji Excela. W tym przypadku to się nie przyda. Bez VBA czy innych dodatkowych narzędzi nie da się tego zrobić w sposób trywialny. Istnieją sposoby "drogą okrężną". Najpierw trzeba przygotować teksty odwołań, potem zamienić formuły na wartości i wreszcie aktywować uzyskane...
Przetestuję ten program. Mam jeszcze jeden problem: Muszę odwrócić wszystko od punktu 1 do 153 czyli mam: 1 tekst 2 tekst 3 tekst 4 tekst (...) tekst 151 tekst 152 tekst 153 tekst i muszę zrobić tak, żeby to odwrócić czyli: 153 tekst 152 tekst 151 tekst (...) tekst 3 tekst 2 tekst 1 tekst Jest jakiś programik żeby to zrobić? // dałem rade sortowanie...
Witam Potrzebuje zamienić spacje na znaki enter w tekście. Wiem, że łatwo to można zrobić w programie Word, Excel itp ale mnie interesuje tylko notatnik. Tekst przed konwersją: Ala ma kota Po zamianie: Ala ma kota Oczywiście korzystam z funkcji zamień na ctrl+ H i wpisuję: Enter: Alt+013 , lecz to nie działa. Spacja: Alt+032- Dla spacji działa lecz...
Są różne rozwiązania, zaproponowaliśmy te, które wydają się najprostsze w opisanej sytuacji. Innym rozwiązaniem jest wyłączenie opcji "Użyj separatorów systemowych" i wskazanie kropki jako separatora dziesiętnego, a przecinka jako separatora tysięcy. Ale to automatycznie nie skonwertuje tekstów, które już masz w arkuszu na liczby. I tak trzeba każdą...
Niestety problem następny dane przekazuje ,wszystko działa ale wynik niezgodny z oczekiwaniami ,licząc kalkulatorem i funkcjami wbudowanymi wyniki się różnią .Przypuszczam ,że problem tkwi w sposobie zamiany przez excel tekstu na binarne ,lub jeszcze inny problem . W docelowym programie przy składniku mp po podświetleniu wskazuje 1,#INF czyli infinity...
Możesz zagnieździć kilka funkcji ZNAJDŹ i jeśli >0 WYSZUKAJ.PIONOWO, nie zapominając o zamianie liter na wielkie lub małe. Dla mnie o wiele prościej jest wykorzystać własną (załącznik).
Konieczna jest zamiana tekstu na datę. Np =DATA.WARTOŚĆ(PODSTAW(A1;".... Format komórki wynikowej ustaw na datę, ew. niestandardowy "dd.mm.rrrr" (jeśli musisz użyć kropkę jako separator).
Chodzi ci dokładnie o przypisanie konkretnej liczby to jakiegoś tekstu? Tak ogólnie to knwersje ale podstawowe np. zamiana cyfr arabskich na rzymski, zamiana np ilości sekund na gg.mm.ss itd. trzeba poszukać. Jeśli chcesz przypisać liczbę do słowa, to musisz to zrobić to na piechotę: Napisać "bazę" "słownika" i porównywać kolejne wartości.
Dużo do wyjaśniania, więc przeanalizuj sobie taki przykład makra z pętlą[syntax=vb]Sub Ukash() Dim myPath As String, fName As String, newWkb As Workbook Dim wrs As Long, wrsDst As Long myPath = "U:\Lukasz\Raporty\" 'składasz string z zamianą daty na tekst fName = "Raport " & Str(Date) & " adamas" 'lub dowolna data pobrana z komórki Set newWkb...
=TEKST(A2;"rrrrmmdd")
Witam, Proszę o pomoc ponieważ nie mam pomysłu jak mam zrobić aby wykonało sie pewne zdarzenie. Chcę zrobić makro które wyszuka dany fragment tekstu i zamieni go na podany w danej komórce. Przykładowo mam domek.rafała w kilku komórkach, natomiast w komórce A1 mam pałac i chce aby ten tekst zaminił się na pałac.rafała. Zawsze robiłem to ręcznie metodą...
NR INWENTARZOWY UP/487/039/2020/ABC UP/487/040/2020/ABC jakiej funkcji użyć w excel aby numerować dalej tylko wartości 039, 040, 041 itd. Rozwiązałabym to na 2 sposoby, 1. dostawiła kolumnę pomocniczą i w kolejnej zrobiła formułę "=UP/487/"& [tu adres komórki z kolumny pomocniczej bez spacji po lewej i po prawej stronie] &"/2020/ABC" - tylko być może...
Witam!!! A próbowałeś zamiany ciągu znaków na inny ciąg znaków. To się robiło chyba przez "edycja" -> "zmień" i wpisujesz co ma zamienić na co i ok. Wpisujesz w zamień np. "spadek" a w polu zamień na wpisujesz "-". Z pozostałymi znakami tak samo. Nie wiem czy Ci o to właśnie chodzi ale ja właśnie tak zamieniam jak mam np. inny format liczb. Pozdrawiam!!!
Jak pisałem. Wklejanie z menu kontekstowego "Wklej specjalnie" otwiera okno z 3 opcjami: HTML, Tekst Unicode, Tekst. Tylko opcja HTML rozdziela komórki. Pozostałe walą wszystko ciurkiem w pierwszą kolumnę. Tabela z www ma liczby z separatorem w postaci kropki. Excel takie liczby zamienia automatem do daty. Pozostaje chyba tylko ręczne, mozolne zamienianie...
Do zamiany zawartości komórek możesz użyć funkcji =Z.WIELKIEJ.LITERY(tekst) lub =LITERY.MAŁE(tekst). Najlepiej utworzyć dodatkowy arkusz Wstaw->Arkusz następnie przekopiować cały arkusz do nowoutworzonego a następnie do stosownych komórek wstawić jedną z podanych funkcji gdzie argumentem tekst byłby adres odpowiedniej komórki w źródłowym arkuszu. Funkcję...
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...
Spróbuj jeszcze tak: Jeżeli kwoty oddzielane są większa ilością spacji niż poszczególne słowa w opisie (dobrze by było żeby równą - jak nie to też poradzisz, byle większą - zadasz wtedy w wyszukiwaniu/zamianie znak zapytania i ileś tam spacji), zamień ich pewną możliwie jak największą ilość na jakiś unikalny znak (np. średnik) a potem użyj funkcji tekst...
adamjur1 :arrow: Też używałem (i używam) pliku nabla.xla do zamiany liczby na tekst a z groszami poradziłem sobie tak: Liczba($C$38) &" "& PRAWY(TEKST($C$38;"###.##0,00");2)&"/100 zł." co powoduje, że otrzymujesz np.: dwieście jeden 20/100 zł . W komórce C38 jest liczba do zamiany. A co do problemu to wystarczy użycie jednego warunku: JEŻELI(C4>DZIŚ();"Przekroczony...
Witam, Potrzebuję makra które wyszukiwałoby danych zawartych w innej komórce, a następnie zamieniało znalezione wartości innymi danymi, tak abym mógł zmienić tylko wybrane wartości w tekście, zawarte w oddzielnej komórce a następnie zmienić je na wartości z kolejnej komórki. np. dla wartości: http://obrazki.elektroda.pl/1877443800_1...
Dla poprawnego funkcjonowania mojej propozycji konieczne jest spełnienie następujących wymagań: W kolumnie A i B znajduje się "słownik podmnian" czyli informacja jakie zbitki i litery zamieniane są na jakie cyfry. http://obrazki.elektroda.net/96_12819617... W kolumnie H znajdują się słowa do podmiany. Następnie w VBA wklejasz poniższy kod i uruchamiasz....
Dobry wieczór, W ogólnym przypadku (dowolna liczba zmiennych o dowolnych adresach) może to być trudne, ale jeśli ograniczyć się do określonej liczby zmiennych o stałych adresach lub nadanych znanych nazwach, to można to zrobić stosując odpowiednią sekwencję instrukcji Excela. Pewien problem stanowi odzyskanie z komórki formuły w postaci tekstu. W Excelu...
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...
Punkt 1. W starym Basicu tekst, czyli łańcuch znaków, miał funkcję STRING. Można było dzielić tekst na pojedyncze znaki CHAR i porównywać je wg kodu ASCII. Pozwalało to posortować litery w danym słowie kolejno wg ASCII, bo a < od pozostałych liter. Kod ASCII przypisał literom i innym znakom wartość liczbową, ale oddzielnie dla małych i dużych liter....
Makro jest w załączonym pliku. Tu z drobnymi zmianami: w makro są dwie pary tablic: zasady i wyjątki, czyli następne wystarczy dopisywać. Niżej sprawdzane jeszcze 3 warunki (liczba po znaku, minus po znaku i liczba na początku akapitu). [syntax=vb]Sub proba() Dim rCo As Variant, rNa As Variant, tekst As Variant Dim wrs As Long, i As Integer, j As Integer,...
Faktycznie strasznie zawile to tłumaczysz. Chyba się domyślam scenariusza, pewnie zmieniono indeksy magazynowe, a tym masz zrobić zestawienie z poprzedniego roku kiedy były jeszcze stare, tak aby można było porównać dane z tymi z roku bieżącego. Masz dwie operacje. 1.Zamiana indeksów 2.Sumowanie Uważam, że makro zbędne. No chyba, że będziesz to robił...
Post wedytowałem, ale teraz czeka na akceptacje zmiany moderatora. Podaje jeszcze raz - trochę czytelniejsze. Zamieniłem kawałek tego oryginalnego kodu ... If po_przecinku >= 1 Then liczba = po_przecinku GoSub zamiana y$ = xxx$ groszy$ = " " + y$ + " gr) " Else groszy$ = ") " End If ... na ten. 'If po_przecinku...
Witam Od dłuższego czasu próbuje zrobić plik inwentaryzacyjny. Wszystko wydawałoby się, że działa dobrze ale tylko jeśli komórki są sformatowane jako liczby, a musi działać z wartościami liczbowymi sformatowanymi jako tekst. Niestety zamiana na komórki liczbowe nie wchodzi w grę z uwagi na to, iż niektóre wartości zaczynają się zerem. [syntax=vb] With...
:arrow: marek003 Można wpleść coś takiego kol = Cells.Find(What:="Kod Wewnętrzny").Column i mamy numer kolumny w postaci liczby dla Cells :arrow: agentka83 Większość prostych makr "tworzymy" przez nagrywanie. Przykład: Musisz zamienić tekst A0012 na 0306 w kolumnie "F". 1. Włączasz rejestrator makr 2. Naciskasz Ctrl+H wypełniasz...
startRow nie bardzo potrzebuje bo w większości to tekst jest importowany a nie liczby. I nie wiem czego dotyczy to ograniczenie do 32767 Jeśli nie żartujesz, to wrzuć sobie ten tekst do translatora - "TO" właśnie dotyczy ograniczenia "TEGO" (QueryTables) mechanizmu excela służącego do importu tekstu - po prostu ... powyżej 32767 wierszy nic nie "zaimportujesz",...
Ja też się zastanawiałem nad tą sumą. Czasem daje się to na zabezpieczenie przed tekstem lub pustym tekstem w komórce źródłowej, żeby zamienić to na zero. Podejrzewam, że przy tej liczbie plików raczej będą zamknięte, dlatego ja proponuję rozwiązanie nie tak proste, ale mam nadzieję skuteczne przy zamkniętych plikach. Najpierw trzeba utworzyć odpowiednie...
Próba odpowiedzi na problem Pana okondy. Ponieważ napisał Pan, że słabo zna Excela starałem się opisać wszystko dość dokładnie. Niestety, nie napisał Pan, której wersji Excela Pan używa, ale ponieważ załączony przykład jest w formacie .xls , więc przyjąłem, że jest to wersja 2003 i moje wyjaśnienia odnoszą się do tej wersji. W innych wersjach szczegóły...
O kurna :) takie proste... Dzięki! A to może jeszcze podpowiesz jakie makro stworzyć aby taką zamianę automatycznie zrobiło mi we wszystkich arkuszach poczynając od 8 do n...?
Witam Nie mam Excela pod ręką, więc trochę z pamięci: - wczytujesz jak CSV i ustalasz sobie znaki jakie rozdzielają dane - zaznaczasz obszar w jakim masz dane - Edytuj znajdź/zamień - zamień tekst z .... 0x - na tekst pusty Potem możesz wyeksportować z jakiejś ludzkiej postaci rozdzielonej wygodnymi znakami Piotr
Niewiele zrozumiałem z tego, co teraz napisałeś. W załączonym arkuszu jest jedna wersja - nie wiem, czy to jest to co masz, czy to co chciałbyś mieć? Które komórki mają niewłaściwy format i dlaczego jest on niewłaściwy? Poza tym nie wiem co kopiujesz i w jaki sposób. Czy chodzi o kolumny B i C z godzinami? Że nie potrzeba sekund? Jeśli o to chodzi,...
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...
Tego się nie da zautomatyzować w samym Excelu bez dodatków. Jeśli masz tekst formuły utworzony w komórce Excela i chcesz to zamienić na działającą formułę, to możesz skopiować ten tekst formuły i wkleić go ponownie w to samo miejsce (lub w inne miejsce) za pomocą schowka Office (a nie zwykłego schowka Windows). Schowek Office ma cechę zamiany formuł...
Widzisz to jest jak w programach do pisania kodu źródłowego, pewne wyrazy są zastrzeżone tylko do programowania i w innych przypadkach nie mogą występować. Jedynie co ci pozostaje to przed załadowaniem pliku csv zamienić wszystkie false na "false" [false] a może jeszcze inaczej np na (false): zgaduję nie wiem. Poszukaj jak na przykład w programie było...
Odnalazłem odpowiedź na pytanie które zadałem, postanowiłem więc bez zakładania nowego tematu opisać ją tutaj. Potrzebujemy darmowego programu [url=http://www.replsoft.com/downloads.h... File Utilities Oraz dodatek Batch Replacer for MS Word [url=http://www.replsoft.com/brformsword... Replacer for MS Word Po zainstalowaniu programu (...
Niestety formatowanie kolumn nie pomaga. Program najwyraźniej w trakcie importu sam interpretuje rodzaj danych i wkleja do excela nie patrząc na format komórek (zmienia je). Prawdopodobnie w opcjach importu jest gdzieś taka możliwość nadania formatu danych jako tekst ale nie wiem gdzie. A nie wystarczy sformatować tekstowo kolumny do której mają być...
moge coś odpalić... ;) Proszę otworzyć sobie załącznik. W górnej części jest postać postać pliku z exela (zapisz jako tekst), docelowo potrzebuje ten plik w postać "poziomej" a exel go tak nie zapisze. z racji że te ciągi mogą miec nawet po kilkaset wartosci to zamiana tego na piechote bedzie trochę mecząca
Nie wiem jakie makro pobrałeś (jest ich wiele i różne zasady konwersji z postaci cyfrowej na słowną). Ja umieszczam plik z makrem (np. Słownie.xls) w katalogu ...\Microsoft Office\Office\XLStart i wraz ze startem excela mam dostępną funkcję "Słownie" - jako funkcja "Użytkownika" (ostatnia na wybieranej kategorii funkcji). http://obrazki.elektroda.net/20_11552040...
Chcesz uczyć się programowania i pisać jednocześnie chyba dość obszerny program użytkowy. Według mnie ciężko te dwie sprawy pogodzić, chociaż sam kiedyś pisałem od podstaw bazę danych dla wypożyczalni kaset wideo w Pascalu. Po pół roku dzieło było gotowe a ja zgłębiłem Pascala... Koledzy licytują się pomiędzy wyborem C++, C# lub Delphi... W każdym przypadku...
Witam Niedawno musiałem zapoznać się z VBA i nawet mi poszło no ale żeby tego mało muszę napisać makro w Open Office. Czy mógłby ktoś pomóc w przerobieniu makra z excela na scalc ? Zasada jest taka, że otwieram plik txt, zamieniam spacje na #, likwiduję ####### do postaci jednego # i wczytuję w odpowiednie komórki. Tak to sobie wymyśliłem jak niżej...
zamiana tekstu zamiana tekstu formułę excel zamiana
opalarka grzeje płytka stykowa atmega8 bezpiecznik kuchni elektrycznej
schemat wentylatora dospel schemat wentylatora dospel
Jak sprawdzić bezpiecznik termiczny w ekspresie Nivona? Nasłuch satelitarny w paśmie 29 MHz: AO-7 i inne