a jak zrobić aby w kolumnie I excel wpisał pozostałe teksty Proponuję wykorzystać formułę :spoko: : [syntax=vbscript]=JEŻELI(DŁ(F2)=DŁ(G2);"... FRAGMENT.TEKSTU(F2;DŁ(G2)+1;DŁ(F2)-DŁ(G2...
:arrow: fascynat Rzeczywiście, nieładnie się zachowałem, nie mój pomysł a się wtrąciłem. Przepraszam, spróbuje się w przyszłości poprawić. ;) Rozwinę więc swoją propozycję z wymuszeniem wciśnięcia insertu po podwójnym kliknięciu w komórkę z kropkami (np. w środek kropek). Nastąpi wtedy zastępowanie kropek tekstem. kod: Private Sub Worksheet_BeforeDoubleClick(ByVal...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 12 And Target = "przegrany" Then If Cells(Target.Row, "M") = "" Then MsgBox "Wprowadź komentarz!", vbCritical, "UWAGA" End If End Sub [/syntax]
http://www.excelforum.pl/light.php/o_t__...
Być może chodzi Ci o coś takiego czy tekst czy liczba, puste też zalicza do tekstu.
=WARTOŚĆ.LICZBOWA(PODSTAW(A1;"PLN";"");"...
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ć...
=WARTOŚĆ(FRAGMENT.TEKSTU(D3;4;8)) bedzie to liczba, nie tekst Dodano po 2 =TEKST(WARTOŚĆ(FRAGMENT.TEKSTU(D3;4;8));... - bedzie tekst
Formuła dla C1 =JEŻELI(ADR.POŚR(ADRES(WIERS... "&B2;JEŻELI(ADR.POŚR(AD... "&B2&" "&B3;JEŻELI(ADR.POŚR(AD...
Nie bardzo zrozumiałem, co z tą kolumną G. Ta wartość ma być wyszukiwana na równych prawach z nazwami ulic? I po co tam scalone komórki? Spróbuj takiej formuły: [syntax=text]=ILE.LICZB(SZUKAJ.TEKST($F$... starszych wersjach Excela zatwierdzenie tablicowe.
Spróbuj formuł z załącznika. Zwróć uwagę na nazwane zakresy i formułę nazwas w Menedżerze nazw. A na przyszłość swoje dane przykładowe umieszczaj w pliku, a nie w tekście.
=JEŻELI(A1="";"";"tekst"&A1) dla 111222333 -> tekst1112223 =JEŻELI(A1="";"";"tekst"& LEWY(A1;7))
W Excelu 2016 możesz użyć formuły: [syntax=text]=PODAJ.POZYCJĘ(PRAWDA;CZY.L...
Z pierwszym plikiem pomęczysz się 5 minut a pozostałe zrobisz w kilka sekund ;) Widzę w kolejnej odpowiedzi masz bardziej uniwersalną metodę. Choć ja tam zawsze tak robiłem jak opisałem. Też działa to na exelu i każdym innym podobnym arkuszu jak calc np. bez szukania funkcji importu z tekstu.
Funkcja Adr.Pośr - zobacz załącznik
[syntax=vbscript]Sub Benek() [A1] = "=[Zeszyt1.xlsx]Arkusz1!R3C14&"" """ [A2] = "=[Zeszyt1.xlsx]Arkusz1!R4C14&"" """ Range("E10") = [A1] & [A2] End Sub [/syntax]
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ą...
Trzeba to przy zapisywaniu do formatu excela zdefiniować.
Zawijaj tekst się nie sprawdzi?
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ń.
XL 2007 - dziala poprawnie sprobuj =TEKST(DZIEŃ(C4);"00")&"-"&TEKST(MIESIĄC...
[syntax=vb]Sub Numeruj() ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If Left(Cells(x, 1), 1) = "*" Then n = Val(Mid(Cells(x, 1), 2)) While Left(Cells(y + x, 1), 1) <> "*" If x + y > ow Then Exit Sub Cells(y + x, 1) = n & ":" & Cells(y + x, 1) y = y + 1 Wend End If x = x + y - 1 y = 1 Next End Sub[/syntax]
Jeżeli kolumnę B możesz posortować wg. kryterium "Od Z do A" to w kolumnie C można będzie zastosować poniższą formułę tablicową (zatwierdzanie CTRL+SHIFT+ENTER): [syntax=text]=JEŻELI(CZY.BŁĄD(PODAJ.POZY...
Witam ! Musisz być bardzo precyzyjny (dokładność 1 znaku :!: ) to możesz to zrealizować formułą jak na zrzucie :spoko: 891642
Funkcja Excel PRAWY Dodano po 1 np. w komorce B2 =PRAWY(A2; 3)
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...
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...
Tak, formatowanie warunkowe zobacz http://excel.republika.pl/bazawiedzy/for...
Uruchom rejestrację makr Zrób co chcesz aby zrobiło makro Formułę musisz wpisać do komórki (a nie wklejać) Zatrzymać rejestrację i wejść w edycję makra Tam zobaczysz kod i formułę w takiej postaci jak chce VBA Dostosować makr do swoich potrzeb I tyle Mam nadzieję iż teraz jest to jasne.
Twoja formuła robi tak jak chcesz czyli ma zmienić tylko aktywna komórkę czyli ActiveCell Aby to poprawić: zmień ActiveCell.FormulaR1C1 = ....(itd) na: rng.FormulaR1C1 = ....(itd) Czyli cała procedura: [syntax=vb] Sub kopiujtlumacz() Dim rng As Range For Each rng In Range("b2:b16") If rng.Value = "" Then rng.FormulaR1C1 = _ "=IF((ISNUMBER(SEARCH(R3C3,RC[-1]))),(R6...
Spróbuj: =A1&TEKST(A2;"g:mm"...
Jeszcze jeden wariant. Uwzględnia ostatnie (w sensie numeru wiersza, a nie daty) zamówienie każdego towaru. Zakładam, że wpisy w arkuszu 'Stany' będą unikatowe.
Skoro tak, to może o to Ci chodzi? [syntax=vbscript]Sub Rozdziel() k = 1 While Cells(2, k) <> "" If InStr(1, Cells(2, k), "-") > 0 Then Cells(2, k + 1).EntireColumn.Insert ow = Cells(Rows.Count, k).End(xlUp).Row Range(Cells(2, k), Cells(ow, k)).TextToColumns _ Destination:=Range(Cells(2, k), Cells(ow, k)), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote,...
[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]
[url=http://office.microsoft.com/pl-pl/e...
Można jeszcze tak + inne [syntax=vbscript]=JEŻELI(CZY.LICZBA(SZUK...
Użyj funkcji CZY.PARZYSTE lub MOD przykład: =JEŻELI(MOD(A1;2)=0;"os...
przydział w grupie A jest zawsze tekst, natomiast w grupie B są zawsze liczbowe? Porównaj D3 - G3, D6 - G6, etc. Bardzo pożądane jednego typu(tekst 109a)
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,...
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
chodzi o wyciągnięcie zawsze tych pierwszych dat Ogólnie to konieczne by było makro z wyrażeniami regularnymi :idea: , w tym konkretnym przypadku można jednak wykorzystać prostą przeciąganą formułę :D [syntax=vbscript]=FRAGMENT.TEKSTU(E3;SZU...
Załącznik powinien być reprezentatywny. Bo tak to nie wiadomo, czy w danym wierszu tekst z kolumny B ma być porównywany z kolumną A, czy każdy tekst z kolumny A ma być porównywany ze wszystkimi tekstami z kolumny B.
gdyby w funkcji ZNAJDŹ można było użyć symbolu wieloznacznego "*" W funkcji ZNAJDŹ nie można, ale jest bardzo podobna funkcja SZUKAJ.TEKST, w której można używać symboli wieloznacznych. Różni się od ZNAJDŹ (poza symbolami wieloznacznymi) tym, że nie rozróżnia małych/wielkich liter. Jeśli z tą funkcją sobie poradzisz to będziesz miał satysfakcję. Ja...
Chciałbym wrzucić ten plik na nasz dysk Google Nic, co można powiedzieć. Nie używam dysk Google. że lista.xls zamyka się bez pytania o np zapisanie zmiany Zmiany chranione po zamykani. Jak nie trzeba zamykac, usun to lista.Parent.Parent.Close True skorzystać z czegoś w stylu - Windows("lista.xls").Activate Aktywacja nie jest konieczna, tylko otwarty....
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...
A coś takiego: [syntax=vb]Dim lLstRw& Dim rngTmp As Excel.Range With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With lLstRw = Cells(Rows.Count, 2).End(xlUp).Row Set rngTmp = Range(Cells(1, 2), Cells(lLstRw, 2)) rngTmp.NumberFormat = "General" rngTmp.FormulaLocal = rngTmp.FormulaLocal With Application .ScreenUpdating =...
tekst zostaje rozformatowany Zamiast & vbCr (jak w Ciebie) Treba & vbCrLf potrzebna by była chyba dodatkowa cała procedura Tak :) bf.SetText "" bf.PutInClipboard ' do schowka
moze tak: =ZŁĄCZ.TEKSTY(A1;" - ";A2)
marek003 Nie lepiej napisać podobny do tego moduł: (zakładając, że tekst wpisany jest w A1) (po przeróbce, działa z kropką i przecinkiem) Public Function Zamien(Tekst) As Double Badam = Left(Tekst, 1) If Badam = "W" Or Badam = "w" Then Mnoznik = 1 Else Mnoznik = -1 End If Liczba1 = Right(Tekst, 5) If (Mid(Liczba1, 2, 1)) = "." Then Liczba1a = CDbl(Left(Liczba1,...
Źle Ci podałem, bo stała 'wd' nie jest znana z poziomu Excela, lecz Worda. To i tak nie ma znaczenia w tym przypadku, bo czarny i tak ma wartość 0. Natomiast zmień linię : Nie wiem czy to coś zmienia ale dane są w tabelce w excelu To gdzie w końcu chcesz zmienić kolor?
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",...
Jeśli piszesz, że nie znasz się na VBA, to dlaczego chcesz to robić w VBA? Przecież do tego wystarczy prosta formuła: [syntax=text]=LICZ.JEŻELI(D$1:D1;$D$1)[/... kopiujesz w dół jak daleko potrzeba. A żeby to zrobić w VBA należałoby opisać jak to dokładnie ma działać, czy jednorazowo, czy ma śledzić wpisywanie nowych danych i dodawać numerację...
Do tego nie potrzeba makra, można to prosto zrobić korzystając z listy rozwijalnej i łączenia tekstu. Prosty przykład
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...
W załączniku.
pewnie się da krócej, ale nie potrafię ;) =JEŻELI(CZY.LICZBA(WARTOŚĆ(F...
Proszę sprawdzić załącznik. Plik po dekompresji "waży" ponad 2,6 MB i zawiesza Excela przy próbie otwarcia. Może zapisać plik w formacie .xls i załączyć bez kompresji. Po odzyskaniu zawartości pliku brak wykresów. Dodano po 1 Jeśli chodzi o wykres, to zastosowany sposób jest trochę udziwniony. Polega on na zastosowaniu różnych formatów daty, aby wymusić...
To nie jest dobre rozwiązanie ze względu na różne rodzaje danych (tekst i liczba) i może prowadzić do błędów. Oczywiście można zrobić np. tak =WYSZUKAJ.PIONOWO(WARTOŚĆ(PRAWY(A2;4));A... i zadziała prawidłowo :). Prościej jednak (na przyszłość) aby wyszukiwany identyfikator był (co do typu danych i długości) taki sam jak w kolumnie...
[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...
No, nie wiem... Moim zdaniem wystarczy użyć funkcji IsDate() do sprawdzenia, czy wpisana wartość zostanie przez Excela rozpoznana jako data. jak pisałem, wtedy fromat DD.MM.YYYY nie zostanie jako taki rozpoznany (co innego: DD-MM-YYYY). W tym kodzie co masz teraz za "poprawny" zostanie uznany np. taki zapis: 99.99.9999
Przetestuj =JEŻELI(A2>A1;"mamy ponad "&(A2-A1);(A1-A2)&&... za mało")
Witam [syntax=vbscript]=DZIEŃ(A1) =TEKST(A1; "mmmm")[/syntax]
Spróbuj przerzucić przez zmienną pomocniczą zadeklarowaną jako liczba.
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ę...
nie wiem czy do końca o to ci chodziło ale za długo nat tym nie myślałem (2 minutki) jeżeli chcesz to zrobić za pomoca jednej formuły musisz dodać dodatkową kolumnę "pomoc" w pierwszym arkuszu sa dane i dodatkowa kolumna a w drugim arkuszu zestawienie (kolumny z pomoca mozesz ukryć) nd ciekawszym rozwiązaniem nie mam w tej chwili czasu pomyśleć bo jade...
Tak się wtrącę. Jeśli w nazwie arkusza jest operator, należy nazwę (również odwołanie) umieścić pomiędzy apostrofami. Np =LICZ.JEŻELI(ADR.POŚR("'&qu...
Cześć. Sprawdź takie makro wykonywane w zdarzeniu "Change" arkusza: [syntax=vbnet]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If (Target.Column = 1 And Target.Offset(0, 2).Value = "") Then Target.Offset(0, 2).Value = Date End If End Sub[/syntax]
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...
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ą...
Możesz też skorzystać z funkcji & Piszesz formułę: =A1&" 8%" I przeciągasz w dół. Minus jest taki że otrzymany wynik jest interpretowany jako tekst i nie wykonasz na tym żadnych innych działań
Co masz na myśli pisząc "karta"? Dla arkuszy skoroszytu można zagnieździć kod w kolejnej pętli For ark = 1 to thisworkbook.sheets.count ' lub liczbowo indeksy Np 2 To 4 sheets(ark).select 'kod Next
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]
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Ź...
Dlatego, że nie wiedziałem, jak potraktuje średniki w tekście.
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...
[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.
Użyj funkcji TEKST =ZŁĄCZ.TEKSTY((TEKST(DZIŚ... Tydzień ";(NUM.TYG(DZIŚ();2...
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:
Szukałem odpowiedzi w Google ale chyba źle formułuje moje pytanie... Czy mógłbyś mi powiedzieć jak to najprościej zrobić? Widzę, że masz poprawne podejście do tematu :D - tak jak Google tak i inni "pomagierzy" nie są w stanie przewidzieć: jaki masz problem i jakich informacji potrzebujesz ? Masz rację - zawsze jak jest jakiś problem - to najważniejsze...
Ctrl+f, następnie klikasz "więcej" i zaznaczasz "znajdź tylko całe wyrazy".
Wg podanych informacji, najprościej którąś z Do. Coś w tym rodzaju: [syntax=vb]wrs = 2 Do While Cells(wrs, 6) <> "" Cells(wrs, 4) = "ble ble ble" wrs = wrs + 1 Loop[/syntax]
Łączenie tekstów: =ZŁĄCZ.TEKSTY("Najtaniej: ";A1;B1) Szukanie spacji w tekście: =SZUKAJ.TEKST(" ";A1;1)
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ą...
a co z wierszem 65538 ?
Najprościej: kolumna pomocnicza, MAX()+1 i formuła wyszukiwania.
Spróbuj z anulowaniem zdarzenia (Cancel=True) Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsNumeric(Okno.TextBox1.Value) = False Then MsgBox "popraw" Cancel = True End If End Sub
Czy to ma działać jak w załączniku?
Spróbuj tak: [syntax=text]=JEŻELI([Rodzaj]="AIR";JEŻE...
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...
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
Dzień dobry, Jeśli można się włączyć do dyskusji, jeśli dane są takie jak w ostatnim przykładzie, to wydaje mi się, że dodawanie przecinków jest zbędne i cała procedura może się obejść bez kolumn pomocniczych. Funkcja USUŃ.ZBĘDNE.ODSTĘPY potrzebna jeśli mogą się gdzieś pojawić dodatkowe spacje. Formuła końcowa byłaby formułą tablicową (Ctrl+Shift+Enter)....
Proponuję rozwiązanie najprostsze i przy tym bardzo elastyczne. Wszystkie formuły w arkuszach pomocniczych są "kopiowalne", więc nie będzie żadnych problemów z rozbudową. W Excel <2007 funkcję JEŻELI.BŁĄD należy zastąpić formułą JEŻELI(CZY.BŁĄD(...
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 ;)
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_...
A przez formatowanie komórki (zaznaczyć komórki na których Ci zależy PPM Formatownie komórek niestandardowe i w typ oprócz Standardowy dajesz "/A" czyli Standardowy"/A"
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)...
Formuła: [syntax=text]=TEKST(C1;"[g].mm")&" / "&TEKST(C2;"[g].mm")[/syntax]
Jeżeli wynik pierwszej funkcji masz w B1, to: [syntax=text]=FRAGMENT.TEKSTU(A1;ZNAJDŹ(... ";A1;ZNAJDŹ(B1;A1))-ZNAJDŹ(B1;A1))[/synt... Och, jeszcze trzeba obciąć kawałek, czyli: [syntax=text]=FRAGMENT.TEKSTU(A1;ZNAJDŹ(... ";A1;ZNAJDŹ(B1;A1))-ZNAJDŹ(B1;A1)-DŁ(B1)... (podstawiając do pierwszej):[syntax=text]=FRAGMENT.TEKSTU...
zamieniać tekst excel excel kopiować tekst excel formuła tekst
bateria kondensatorów pomiary ustawienia czcionki schemat woltomierz cyfrowy
sterownik movera uszkodzony powerbank
TEA1721AT Role in Philips Steam Generator: Power Supply Controller, Faults, Replacement Tips Nadmiar tonera w module bębna Xerox WC 6605