Załącz przykładowy plik. Funkcji działającej wprost i jeszcze na przefiltrowanych danych - nie ma. Funkcja WYST.NAJCZĘŚCIEJ działa tylko na liczbach. Trzeba więc unikatom z tych przefiltrowanych danych przypisać liczby i działać na tych liczbach. Istotne jest czy będzie jakaś zdecydowana dominanta w tych danych, czy nie okaże się, że 3 słowa występują...
W załączniku.
=JEŻELI(A1="";"";"tekst"&A1) dla 111222333 -> tekst1112223 =JEŻELI(A1="";"";"tekst"& LEWY(A1;7))
Sposób reakcji Excela i VBA na różne sytuacje nietypowe różni się w szczegółach, wynika to częściowo z innych koncepcji, częściowo z tego, że VBA operuje na wersji angielskiej, a użytkownikowi ma wyświetlać wersję zlokalizowaną (narodową). Niestety to przechodzenie między wersjami nie zawsze jest do końca dopracowane. Poza tym twórcy Excela mają manierę...
XL 2007 - dziala poprawnie sprobuj =TEKST(DZIEŃ(C4);"00")&"-"&TEKST(MIESIĄC...
[syntax=vbscript]Sub waluta_150_180() a = "waluta 150 i 180" With Sheets("Formularz") If .Range("A15") = a Then MsgBox ("Wartości waluty zostaną zmienione. Sprawdź kurs!"), vbOKOnly End If For x = 3 To 16 If .Range("A15") = a And .Cells(15, x) = 135 Then .Cells(15, x) = 150 If .Range("A15") = a And .Cells(15, x) = 165 Then .Cells(15, x) = 180 Next End...
Czy 'txtPDF_List' to twój 'textbox'? Jeżeli tak to ominiemy ten 'klipbord' [syntax=vbscript]Private Sub cmdList_Click() With txtPDF_List If .Text <> "" Then .SelStart = 0 .SelLength = .TextLength .Copy MsgBox "Skopiowano nazwę dla listu przewozowego " & txtKURIER & ": " & Chr(10) & _ txtPDF_List, vbInformation, "Kopiowanie" Else...
Formatowanie warunkowe i sprawdzanie poprawności danych. Pomoc w Office jest całkiem sprawna.
można zrobić i funkcie któras będzie działała jak inne funkcje excela (np suma() z tym że za każdym razem przy wejściu do takiego pliku excela będzie monit o makro. Przyznam że nie jestem za dobry w makrach ale poprzez logiczne myślenie :) coś takiego stworzyłem Function KOMENTARZ(a As Integer, b As Integer) As String KOMENTARZ = Cells(a, b).Comment.Text...
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...
Spróbuj: =A1&TEKST(A2;"g:mm"...
pewnie się da krócej, ale nie potrafię ;) =JEŻELI(CZY.LICZBA(WARTOŚĆ(F...
[syntax=vbscript]Function Liczba(K As String) As String d = Len(K) For x = 1 To d a = Mid(K, x, 1) b = Mid(K, x + 1, 1) w = Asc(a) w2 = Asc(b) If w > 47 And w < 58 Then If w2 < 48 Or w2 > 57 Then o = o & a Exit For End If o = o & a End If If f Then Exit For Next Liczba = o End Function [/syntax] lub [syntax=vbscript]Function Liczba2(k...
Da się to zrobić? Oczywiście - np poprzez formułę: :ok: [syntax=vbscript]=JEŻELI.BŁĄD(JEŻELI(ZNA... Jeżeli nie istotna jest wielkość liter to można wykorzystać w formule także funkcje SZUKAJ.TEKST :idea:
Witam Zobacz tak [syntax=vbnet]Sub Wyslij() Application.ScreenUpdating = False Dim OutApp As Object Dim OutMail As Object Dim Szablon As String Dim strbody As String Szablon = getFile("\\Poluser1\dyspozytorzy\Asysten... If Szablon = "" Then Exit Sub Set wd = CreateObject("Word.Application") Set doc = wd.documents.Open(Szablon)...
Pole tekstowe, jak sama nazwa wskazuje, zwraca w wyniku tekst. Jeśli taki tekst wpisujemy do komórki arkusza, czasem Excel na podstawie formatowania potrafi rozpoznać właściwy typ danych (np. rozpoznaje czas), ale nie zawsze tak będzie. Jeśli Excel nie potrafi samodzielnie dokonać konwersji, trzeba mu dopomóc i zastosować w kodzie VBA jedną z funkcji...
a co z wierszem 65538 ?
Najlepiej, gdybyś wrzucił przykład w postaci pliku. 1. Trzeba założyć, że duplikatów może być więcej niż jeden, dlatego =JEŻELI(LICZ.JEŻELI($A$2:$A$7900;B2) >0 ;"istnieje duplikat";"") 2. Najczęściej problemy powodują spacje wiodące i -trudniejsze do zauważenia- końcowe. Musiałbyś się ich pozbyć Np przepisując kolumnę A do innej, Np F, funkcją 'USUŃ.ZBĘDNE.ODSTĘPY(A2)...
Chodzi o to, że FindNext w tej postaci przeszukuje ten sam zakres za każdym razem. Czyli, zdaje się, znajduje to samo i zwraca Nothing. Nie za bardzo mogę złapać dlaczego działa pod przyciskiem, może kiedyś przy innej okazji do tego dojdziemy... Wracając do tematu: Zmodyfikowałem nieco (tu przynajmniej rozumiem co się dzieje) i teraz wygląda OK Function...
A to jakiś problem w tym przypadku? Bo z tego co widzę, to problem dotyczy jedynie komórek które mają wartość 0, niemniej Excel sobie z tym radzi np. przy sumowaniu. Najprostszy w tym wypadku jest CTRL+H i zamień 0 na 0 ;)
Kiedys miałem podobny kłopot z przenoszeniem danych z matcada do exela. rozwiązałem to za pomocą programiku w c++, który jak wykrył kropke w danej liczbie zamieniał ją na przecinek. w VB można tez napisac procedurke która będzie sprawdzac czy w liczbie jest przecinek czy kropka i zamieniac na przecimek. Jak znajde w moim bałaganie to podeszle listing...
Nie bardzo zrozumiałem - chcesz wpisać "tekst" jak komórka jest pusta, wtedy już nie będzie pusta. Takie działanie nie ma sensu. Ale mógłbyś to zrobić w innej komórce, czyli: (przykładowo) Jeśli komórka A1 jest pusta, wpisz w B1 "tekst", inaczej wpisz wartość A1 1: w komórce B1 formuła =JEŻELI(A1=0;"tekst";A1) 2: W komórce A1, wartość 0, pusta lub inna
:) Jeżeli już się zwracasz do mnie w trzeciej osobie Dziękuję wam bardzo ... ... na was liczyć ... to jednak powinieneś to wyrazić z wielkiej litery lub do słowa was dodawać słowo obywatelu lub kolego, bo tak to jakoś niepewnie się czuje komu dziękujesz :) A dodatkowo (nie żebym się upominał ale na przyszłość może ktoś inny będzie ci pomagał) jak jesteś...
Nie mogę utworzyć polecenia czyszczenia schowka po jego otwarciu. Chcę go obowiązkowo wyczyścić, gdyż mogą się tam znajdować jakieś elementy Robi się to linijką: Application.CommandBars("Clipboard").Con... Arkusz kopiuje do schowka "całą" komórkę, a ja chciałbym tylko jej zawartość tekstową. Jak świat światem to zawsze kopiuje do schowka...
Chyba, że chcesz wpisać w kolumnę A "CC" lub "DD" a w kolumnie B pojawi się "jakiś" lub "coś". Tak się da :)
Załączona formuła działa pod warunkiem, że tekst w kol.B zawiera spację. Zakładam, że nazwisk i tekstów do podstawienia będzie >1...
Na początek spróbuj formuły =FRAGMENT.TEKSTU(A1;1;DŁ(A1)) :D Czy to po prostu nie wyciągnie całej komórki A1? Coś w rodzaju =A1? :) za pomocą jakiej formuły wyciągnąć tekst z kolumny A? Dobrze byłoby wrzucić przykład. Nie wiadomo, z jakich wartości ma wyciągać ten tekst. Czy może to być na przykład XYZT1J23 i chodzi Koledze o przerobienie tego na T1J23,...
Zawijaj tekst się nie sprawdzi?
Nie zrozumiałem..., a z którego fragmentu Twojego tekstu: Czy można zrobić tak, żeby w miejsce kropek wpisywać tekst (i kropki zeby zostały zastąpione przez tekst a nie przesunięte). wynika to co ostatnio napisałeś? niezrozumiałeś mnie... chce zeby kropki zostało i przed tekstem i za tekstem... Odpowiadając - można to zrobić np. tak: Private Sub Worksheet_Change(ByVal...
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 [dysk]:\Microsoft Office\Office\XLStart. Po tym zabiegu przy każdym otwarciu arkusza będzie dostępna nowa funkcja (SŁOWNIE.XLS!słownie())...
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...
Dzień dobry, W opisanym przypadku należy wykorzystać funkcję SZUKAJ.TEKST lub ZNAJDŹ. Zwracają one numer znaku w tekście, które odpowiada tekstowi szukanemu lub kod błędu jeśli tekst nie został znaleziony. Formuła mogłaby wyglądać tak: =ORAZ(C7<>"";NIE(CZY.BŁĄD(SZUKAJ.T... Funkcja JEŻELI na początku jest niepotrzebna. Funkcja ZNAJDŹ...
Wnioskuje że w jakimś okienku (ZaznaczForm) w polu (tbWartość) chcesz wprowadzać tekst (i tylko tekst). Tak? Może wystarczy tylko wykasować w linijce kodu wartość = Val(ZaznaczForm.tbWartość.Value) funkcję zmieniajacą "Val" czyli wartość = ZaznaczForm.tbWartość.Value Tylko jak to się będzie miało do większy mniejszy od jakiegioś innego tekstu wpisanego...
Można też pozostawić po liczbie spację, a dopiero potem dodać /A i wtedy przez przeciągnięcie można komórki ponumerować. Później ewentualnie można hurtem te spacje usunąć przez zamianę spacji na tekst pusty. W tym wariancie fragment /A jest częścią zawartości komórki i można w innej komórce zrobić do niego odwołanie. Wariant zaproponowany wcześniej...
oto co wielki Mikroszit o tym mówi: Konwertowanie liczb przechowywanych jako tekst na liczby Cały zakres jednocześnie W pustej komórce wprowadź liczbę 1. Zaznacz komórkę i w menu Edycja kliknij polecenie Kopiuj. Zaznacz zakres liczb przechowywanych jako tekst, które mają być konwertowane. W menu Edycja kliknij polecenie Wklej specjalnie. W obszarze...
Być może chodzi Ci o coś takiego czy tekst czy liczba, puste też zalicza do tekstu.
Użyj funkcji TEKST =ZŁĄCZ.TEKSTY((TEKST(DZIŚ... Tydzień ";(NUM.TYG(DZIŚ();2...
W załączonym arkuszu sprawa jest prosta (same liczby). Liczysz zajęte wiersze + przecinki. W treści natomiast, dopuszczasz tekst i tu jest już mniej prosta. Musiałbyś rozbić ciąg, sprawdzać czy fragmenty są liczbą i warunkowo dodawać do sumy... Przy ilości przecinków >3, bez VBA, robi się dość skomplikowana.
[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 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...
=WARTOŚĆ(FRAGMENT.TEKSTU(D3;4;8)) bedzie to liczba, nie tekst Dodano po 2 =TEKST(WARTOŚĆ(FRAGMENT.TEKSTU(D3;4;8));... - bedzie tekst
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."...
A to musi być makro? Jeżeli tekst masz w A1 to dla pierwszej cyfry =FRAGMENT.TEKSTU(A1;ZNAJDŹ(" ";A1;1)+1;ZNAJDŹ(" ";A1;ZNAJDŹ(" ";A1;1)+1)-ZNAJDŹ(" ";A1;1)-1) a dla drugiej =FRAGMENT.TEKSTU(A1;ZNAJDŹ("na ";A1;1)+3;ZNAJDŹ(" ";A1;ZNAJDŹ("na ";A1;1)+3)-ZNAJDŹ("na ";A1;1)-3) Przeciągasz w dół i tyle Ponizej załącznik A jeżeli uważasz że porada kolegi makbeta...
Ja bym tak to zrobil Dim Tekst As String For i = 2 To Worksheets.Count Tekst = Tekst & Worksheets(i).Cells(1, 1).Text Next i Worksheets(1).Cells(1, 1).Value = Tekst
Przy pomocy makra sprawa jest dość prosta. Zapisz tablicę rozdzielając ciąg funkcją Split . Dwie ostatnie wartości to poszukiwane ciągi. Najprościej napisać funkcję użytkownika. Ha, ale uparłem się na rozwiązanie formułami arkuszowymi :) Jeśli z ostatnim nie ma problemu =PRAWY(A2;DŁ(A2)-ZNAJDŹ(...
Excell 2003. - Wklejasz plik tekstowy do excella - Zaznaczasz - MENU/ Dane / Tekst jako kolumny Wybiersz: rozdzielny Wybiersz: Dalej Ogranicznik: zaznaczasz Inny i wpisujesz Twój znak czyli "_" Wybierasz Dalej Wybierasz Zakończ i masz efekt szt-105-12as-85-002-160x142x75-s7097019.... szt-176-08as-85-002-160x142x75-sf0806190... szt-018-14as-85-003-204x142x757739630.01...
Nie wiem jak ostatecznie zdecydowałeś się to zapisywać, ale zasady są takie. Jeśli zastosujesz zapis tekstowy w rodzaju: [syntax=text]=JEŻELI(A3=8;"7:35";"")[/sy... wynik w postaci tekstowej, który nie nadaje się wprost do obliczeń. Jeśli zastosujesz zapis liczbowy typu: [syntax=text]=JEŻELI(A4=8;--"7:35";"")[/... ułamek określający...
Dzień dobry, Reguły sprawdzania błędów i sposób formatowania komórek to są rzeczy niezależne. Jeżeli ma Pan liczby poprzedzone zerami (niezależnie przy jakim formacie komórki), to przy włączonej regule "Liczby formatowane jako tekst lub poprzedzane apostrofem" będzie wyświetlany trójkąt. Jedynie gdy Pan zastosuje do takiej "liczby" funkcję =T(odwołanie),...
Propozycja makra, które działa wg poniższych zasad: 1) Reset danych za pomocą przycisku "Reset" wypełnia zakres liczbami od 1 do 14. 2) Jeśli chcemy zamienić liczbę na tekst typu #/#, gdzie # oznacza cyfrę, wystarczy zrobić dwuklik na komórce. Można też edytować ręcznie, pamiętając żeby na początku wstawić apostrof - inaczej Excel zamieni to na datę....
Proszę o plik excel tylko do formatów napisów i poprawnie utworzyć formułę. I raczej jeden wiersz z euro i jeden ze zlotim. zdjęcie pokazuje, jak to wygląda, ale czy ma numeru lub tekstu lub innego formatu można zobaczyć tylko w pliku. Nie sądzę, że to wielka tajemnica Dodano po 2 plik prawdopodobnie nie będzie czekać. Jeśli kolumna C:C jest tekst to...
tekst excel zamieniać tekst excel excel kopiować tekst
pilot chassis uszkodzona grzałka kuchenki laptop fujitsu amilo
toshiba 40rl938 toshiba 40rl938g
Philips AZ8052 – końcówka mocy TDA7056A, konfiguracja BTL, parametry, zamienniki ATtiny2313 – jak podłączyć potencjometr? Metody RC, komparator, MCP3008 SPI
