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...
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...
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ń.
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ć...
Czemu nie ma załącznika? Niby to proste, ale niejasne. Komórka A1 w którym arkuszu? w aktywnym? w określonym z nazwy? w pierwszym, w którym komórka A1 jest wypełniona? W sąsiednim arkuszu należy rozumieć: w następnym czy w poprzednim? Poszukiwane słowo "białe" lub "czarne" ma stanowić pełną zawartość komórki czy fragment zawartości komórki? Czy wielkość...
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
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...
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]
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:
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/...
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)^...
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.
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]
[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.
Na szybko napisałem ci skrypt wyciągający daty ze stringów. Wyrzuca je w kolumnie "J". Na resztę na razie nie mam czasu, bo lecę w trasę. Jeśli chcesz aby dopisać resztę, to się odezwij. Będę we wtorek.
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]
pewnie się da krócej, ale nie potrafię ;) =JEŻELI(CZY.LICZBA(WARTOŚĆ(F...
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")...
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
Życzę powodzenia z wydajnością tego skoroszytu Dlatego kolego clubs udzieliłem takiej odpowiedzi :D jest jakaś opcja, żeby makro pracowało bez przerwy Teoretycznie tak Po drobnych korektach budowy skoroszytu proponuję autorowi wykorzystywanie do tego sumowania danych makro :spoko: 1150517 Całość w zmodyfikowanym pliku w załączeniu :D 1150518
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...
zamiast: MsgBox tekst wpisz: [e2]=tekst i sformatuj komórkę E2...
=JEŻELI(A1="";"";"tekst"&A1) dla 111222333 -> tekst1112223 =JEŻELI(A1="";"";"tekst"& LEWY(A1;7))
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Ź(...
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...
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...
Funkcja Adr.Pośr - zobacz załącznik
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...
moze tak: =ZŁĄCZ.TEKSTY(A1;" - ";A2)
[syntax=vbscript]Sub Benek() [A1] = "=[Zeszyt1.xlsx]Arkusz1!R3C14&"" """ [A2] = "=[Zeszyt1.xlsx]Arkusz1!R4C14&"" """ Range("E10") = [A1] & [A2] 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Ź...
Tak się nie da. Hiperłącze jest przypisane do komórki lub do innego obiektu jako całości, a nie do fragmentu tekstu w komórce. Można jedynie rozdzielić te teksty na pola tekstowe i wstawić razem do komórki, ewentualnie jedno hiperłącze pozostawić przypisane do komórki, a pozostałe do pól tekstowych. Ale to dużo zabawy. Nie prościej rozdzielić teksty...
Chyba jakoś tak: Private Sub CommandButton1_Click() x = 3 While Worksheets("Przyrządy pomiarowe").Cells(x, 1).Value <> "" If Worksheets("Przyrządy pomiarowe").Cells(x, 1).Value = Worksheets("Kalibracja-Naprawy&... Then Worksheets("Przyrządy...
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
Spróbuj procedury zdarzeniowej. Np [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("K5:K13")) Is Nothing And Target.Count = 1 Then For Each kom In Range("B3:F7") If kom.Value = Target.Value Then kom.Font.Bold = True Else kom.Font.Bold = False End If Next End If End Sub[/syntax]Wklej w kod arkusza,...
Witam! Nie wiem czy o to Ci chodziło ale można obrócić tekst w komórce o 90st i wtedy pisze się go z góry na dół (litery też są odwrócone o 90st.). Trzeba wybrać na pasku narzędzi format -> tabela -> pole tekstowe i zaznaczyć opcję 'Obróć tekst w komórce o 90 stopni' Pozdrawiam.
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ń
[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...
Witaj budo Zainteresuj się opcją która się nazywa "tekst jako komórki". To na pewno załatwi sprawę :)
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]
A nie możesz tego teksty zawarte w komórkach nie można zamienić tak, żeby było jako teksty checkbox'ów? PPM na checkbox -> edit text
Argumentem funkcji IsNumber ma byc komorka (Range("B" & i)), "B" & i jest zwykly tekst
To na Twojim przykładzie
Działa i na komórce z wpisanym tekstem, musisz tylko kliknąć dwa razy ;)
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...
Oczywiście, ale poprzednio pytałeś o wszystkie komórki w kolumnie C. Zamiast LICZ.PUSTE należy zastosować funkcję LICZ.WARUNKI. [syntax=text]=LET(puste;LICZ.WARUNKI(B6:... do uzupełnienia " & puste & " pól/pola"; ""))[/syntax] Jako drugie kryterium zastosuj "", jeśli chcesz zliczać razem puste komórki i puste teksty,...
Witam Wartości w arkuszu gdy chcesz je w jednakowej odległości na osi x musisz zapisać jako tekst. W komórce przed wartością wstaw apostrof " ' ". Pozdrawiam Jarek
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"
[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]
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ą...
[syntax=vbscript]If str_Wartosc Like "*" & Range("B1") & "*" Then[/syntax]
Dzień dobry, Należy dodać do ciągu znak o kodzie 10 tzn. ZNAK(10), na przykład =A1&ZNAK(10)&B1 da w wyniku tekst z komórek A1 i B1 podzielony na 2 wiersze. Żeby to zadziałało musi być jeszcze w komórce wynikowej ustawiona opcja Zawijaj tekst. Dodano po 15 Samo "Zawijaj tekst" dzieli tekst w miejscach spacji, a tu niektóre linijki będą zawierać spacje,...
cześć. Da się jakoś w LibreOffice 7 ukryć długi tekst bez konieczności wstawiania znaku w następnej kolumnie? (patrz obrazek) Przeszukałem ustawienia i nie mogę znaleźć takiej opcji. Strasznie utrudnia mi to czytelność w pracy. Wiem, że mogę użyć opcji zawijanie wierszy ale to z kolei rozszerza komórkę, a tego nie chce.
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
Potrzebuje makro które będzie łączyć tekst z komórek w jedną ,z zachowaniem formatu w komórkach, a dokładnie pogrubienia tekstu . Mam tutaj działające makro ale strasznie obciąża komputer ,potrzebuje to zmodyfikować i zeby działało sprawnie dla 120 komórek Private Sub CommandButton61_Click() Application.ScreenUpdating = False Dim arkusz As Excel.Worksheet,...
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ę...
teksty zawarte w komórkach Przez ten czas nie wiem zawartości komórek. Jak w tych komórkach nazwy plikow, wtedy [syntax=vbnet]MojObraz = "C:\foty\" & cell.Text[/syntax]
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...
Witam. Mam pewien problem. Otóż pracuję z ms excelem od niedawna. Za zadanie mam wykonać fakturę. Tłumacząc 'łopatologicznie'... Muszę zsumować Wartości brutto, jeżeli ich wartość podatkowa wynosi 22% lub 7%. Chodzi o taką formułę, by zmieniało się to na przemian, w zależności od wpisanej wartości podatku. Załączam plik z pewnymi... wyjaśnieniami gdzie...
Tam jest napisane Część danych... ...jako tekst? Zapewne chodzi o komórki z datą. Zamień komórki z datą na tekstowe lub użyj skrypt: Application.DisplayAlerts = False
[syntax=vbscript]Sub Laczenie() k = Array("AD", "AF", "AG", "AH", "AJ", "AK", "AN", "AO", "AP", "AQ", "AS", "AW", "AX", "AY", "BB", "BC", "BE", "BH", "BM", "BN", "BO", "BV", "BY", "BX", "BY", "BZ", "CB", "CD", "CG", "CH", "CM", "CN", "CO", "CZ", "DB", "DC", "DD", "DE", "DH", "DI", "DJ", "DM", "DN", "DX", "EC", "EM", "EN", "EU", "EW", "EY", "FD", "FF",...
Podłączyłeś się pod cudzy temat i nie wyjaśniłeś dokładnie o co Ci chodzi. Czy chodziło o zaznaczenie (selekcję) kilku komórek jednocześnie i żeby we wszystkich tych komórkach liczby kończące zawarte w nich teksty wzrosły o 1? Jeśli o to chodziło i ma to być makro zdarzeniowe SelectionChange, to możesz wykorzystać taki kod w module arkusza: [syntax=vbscript]Private...
Możesz tak przygotować arkusz aby wynik Twojej funkcji był skopiowany do innej komórki. Wtedy można użyć prostego kodu: [syntax=vb] With Sheets("Arkusz1").Range("C8") .Characters(1, 10).Font.ThemeColor = xlThemeColorLight2 .Characters(11).Font.ThemeColor = xlThemeColorLight2 End With [/syntax] Kod koloruje pierwsze 10 znaków tekstu w komórce C8 na kolor1...
aaa.. Formuła nie może działać w tej samej komórce Można podzielić 1 kolumne na inne dwie - przed 'w' i po 'w' zmienić jednu kolumnu tylko makrem [syntax=vb]Sub kokos() Dim c As Range Set c = Cells(1, 1) While c <> "" p = Application.WorksheetFunction.Search("w"... c) c.Offset(, 1) = Mid(c, p) c = Left(c, p - 1) Set c = c.Offset(1) Wend End Sub...
[syntax=vbscript]Sub elka() For x = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If InStr(1, Cells(x, 6), "AAA", vbTextCompare) > 0 Or InStr(1, Cells(x, 6), "BBB", vbTextCompare) > 0 Then Cells(x, 1).EntireRow.Delete End If Next End Sub[/syntax]
Jest taka funkcja - LICZ.JEŻELI(zakres, kryteria). zakres - podajesz zakres komórek do przeszukania np. A1:A10 kryteria - liczba, wyrażenie bądź tekst. Oczywiście jeżeli każdy wpis jest w oddzielnej komórce.
Formatuj komórki na tekst albo http://obrazki.elektroda.pl/8125313800_1...
Witam! Aby Excel zliczał waluty należy sformatować komórki w jako walutowe i wybrać z listy odpowiednią walutę (wtedy symbol dopisuje się sam). W przykładzie Kolegi Excel po dopisaniu symbolu traktuje zawartość komórki jako tekst, sygnalizując to dosunięciem do lewej krawędzi komórki. Zobacz mój przykład.
Jeśli chcesz, żeby po zaznaczeniu więcej niż 1 komórki była brana pod uwagę tylko pierwsza z zaznaczonych, to możesz dodać linię: [syntax=vbscript]If Target.CountLarge > 1 Then Set Target = Target(1)[/syntax]przed tą linią, którą masz zaznaczoną na żółto. Całościowa propozycja w załączniku. Zasady są nieco inne. Zasięg działania w arkuszu nie jest ograniczony,...
Jaki separator dziesiętny w systemu? Sprobuj zmienic w arkuszu "," na "."
Tak na szybko Jeżeli możesz zmień "-" (minus) w nazwie arkusza na np "_" kreska dolna Oczywiście w komórce C4 też. "Agregaty-inne" na "Agregaty_inne" Jeżeli koniecznie ma być minus zaraz sprawdzę jak w tym przypadku zareaguje funkcja adres() tylko że tam jest inny rodzaj adresowania komórki.
Łączenie tekstów: =ZŁĄCZ.TEKSTY("Najtaniej: ";A1;B1) Szukanie spacji w tekście: =SZUKAJ.TEKST(" ";A1;1)
Znalazłem rozwiązanie. Piszę więc, może komuś się przyda. Jeżeli chcemy aby Excel formatował nam dane gdy w określonej komórce wystąpi pewna(wybrana przez nas wartość) musimy: 1. Zaznaczyć pierwszy z wierszy naszych danych 2. Wybrać ze wstążki Narzędzia główne->Formatowanie warunkowe->Użyj formuły do określenia komórek, które należy sformatować 3. W...
Wystarczy sformatować tekst pionowo jako dolne. Skrót ctrl+1 i tam ustawić.
a nie jedną zbiorczą, natomiast jak zrobić żeby wynikiem tej petki była zmienna adresy z mailami oddzielonymi średnikami? To trzeba było tak od razu pisać. Jak ma być jedna zbiorcza wiadomość to wystarczy poniższy kod. Przykład dla adresów wpisanych w kolumnie A. Kod funkcji (Private Function...) możesz sobie skopiować na sam koniec Twojego modułu...
Proponuję tak: Zakładam, że w komórce A1 jest tekst ze słowami oddzielonymi pojedynczymi spacjami i należy wydzielić z tego dwa pierwsze słowa. Do komórki B1 wpisujemy: =SZUKAJ.TEKST(" "; A1) Do komórki C1 wpisujemy: =SZUKAJ.TEKST(" "; A1; B1+1) Do komórki D1 wpisujemy: =LEWY(A1; B1-1) Do komórki E1 wpisujemy: =FRAGMENT.TEKSTU(A1; B1+1; C1-B1-1) W komórce...
ok moj blad ze splitem xs = Split("TAB.011.111.AA, CR, TAB.122.122.AA, AB", ",") xs(0) wyjdzie AB.011.111.AA xs (1) wyjdzie CR itd... dzieki pozdrawiam
Ten sposób "uczenia się" nie ma sensu Autor nigdzie nie pisze, że chce się uczyć programowania w VBA tylko że chce wykorzystać przykładowy kod. Kolegi wypowiedzi tego typu również nie spowodują, że Autor stanie się bardziej oświecony w temacie. With OutMail .To = "xx" .Subject = "Temat" .Body = "Wiadomość" W tym miejscu definiuje się w skrypcie adresata,...
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,...
Dla samego zaznaczania można też zrealizować to poprzez formatowanie warunkowe zaznaczając najpierw A1 a potem całą kolumnę A i wpisując w formatowaniu warunkowym funkcję: =JEŻELI(LICZ.JEŻELI(A:A;A1)>1;PRAWDA;FAŁ... formatując na np czerwono. Wtedy każdy identyczny dubel będzie czewrwony. Co do "podobnych" jak wspomniał kolega yogi009 nie do zrealizowania.
ok ale ta część działa prawidłowo, czy moje, cz Twoje rozwiązanie jest ok. mi chodzi o tę drugą część, gdy nie wpisuję ręcznie w komórce "tekst", (ta druga część co napisałem) tylko gdy ten "tekst" jest wynikiem z innej komórki. Czyli komórka O2 uzupełnia się gdy w innych komórkach zachodzi reakcja, wtedy w komórce O2 jest "tekst" lub jest "pusta"....
Coś nie wiem co chcesz. Chodzi ci o rozdzielenie tekstu z jednej komórki "12:00-18:30" na 12:00 i 18:30? edit: Już zrozumiałem. Poniżej wyniki
[url=https://www.youtube.com/watch?v=zdw... - Liczenie i sumowanie po fragmencie tekstu (komórki) - symbole wieloznaczne Resztę sobie dorysujesz z użyciem funkcji vlookup.
Cześć! Czy przy pomocy formatowania warunkowego w Excelu można otrzymać następujące warunki? 1. Gdy w komórce B1 znajduje się tekst "Anulowano" to pokaż w komórce A1 tekst "ND". 2. Jeżeli w komórce C1 znajduje się tekst "Korekta" to komórka A1 podświetla się na czerwono - i to zrobiłam i działa. I teraz chciałabym do tego dołożyć taki warunek: Gdy w...
Menu format >> formatowanie warunkowe. Ustaw np żeby kolor tekstu w jakiejś komórce był czerwony, jak wartość jest od 0 do 0,5 i zielony jak jest od 0,5 do 1. F9 służy do tego, żeby odświeżyć arkusz. Jedyne co mi przychodzi do głowy co się może zmienić po odświeżeniu arkusza, to to użycie funkcji losuj. W tym celu wpisz w komórce, którą wcześniej sformatowałeś...
[syntax=vbscript]Function Polacz(z As Range) As String For Each k In z If k <> "" Then p = p & k & "," Next If p <> "" Then Polacz = Mid(p, 1, Len(p) - 1) End Function[/syntax]
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",...
Moje makro wyszukuje i koloruje tylko samą kropkę :?: :not: Jeśli chcesz zmienić kolor czcionki w całej komórce zawierającej "." to zastosuj kod :spoko: [syntax=vbscript]Sub Koloruj() Dim zakres As Range Dim kom As Range Set zakres = Selection For Each kom In zakres.Cells If InStr(1, kom.Value, ".", 1) > 0 Then kom.Font.ColorIndex = 1 End If Next End...
Jeśli dni są wszystkie bez "dziur", to można formułą Prota , jeśli są przerwy, to można tak: [syntax=text]=SUMA(--(CZĘSTOŚĆ($B$2:$B$2... zakresie nie może być błędów. Puste komórki, teksty nie przeszkadzają.
Formuła wyszukująca tekst zawierający "(at)" w łańcuchu powinna podołać.
a co z wierszem 65538 ?
Proszę bardzo: [syntax=vbscript] Sub test() Dim i As Integer Dim row As Integer Dim col As Integer Dim tablica(3) As String tablica(0) = "Alpha" tablica(1) = "Beta" tablica(2) = "Charlie" For i = 0 To 2 wyjatek = tablica(i) For col = 2 To 7 For row = 5 To 40 If Cells(row, col).Value = wyjatek Then Cells(row, col).Interior.Color = vbRed End If Next row...
W formatowaniu warunkowym: Zakres to C:C Formułę ustaw na niestandardową: Formuła: =C1<>D1 Styl formatowania: kolor tekstu: czerwony
Ok, a gdyby chcieć to zrobić z badaniem wartości dwóch komórek? Tzn. Jeżeli w komórce A znajdują się wartości od 1 do 10 oraz w komórce B znajduje się "określony tekst" to wpisz wartość z komórki a?? Wtedy po "Excelowsku", dla danych w jednym wierszu, wg Twojego wzoru =JEŻELI(ORAZ(A4<11;A4>0;B4...
Witam mam ogromny problem z wyciągnięciem fragmentu tekstu z komórki. Oto polecenie: Przenieś z danych w kolumnie E numery domów i mieszkań do kolumny F. (podpowiedź: /zastąp, znajdź)
Użyj funkcji CZY.PARZYSTE lub MOD przykład: =JEŻELI(MOD(A1;2)=0;"os...
Nie do konca mi o to chodzilo, bo chcialbym zeby ceny byle w jednej kolumnie, a korzystajac z podpowiedzi wszystko jest gdzieindziej, bo tekst w komorkach składa się z różnej ilości wyrazów.
Witam, używam w pracy Excela na dysku Google. Od kilku dni mam taki problem, że gdy zaznaczam jakiś tekst w komórce, klikam prawym i "Drukuj", to pokazuje się biała kartka papieru. Natomiast gdy zaznaczę tekst, kliknę ikonę "Drukuj", zmienię na zaznaczone komórki, to normalnie wydrukuję. Bardzo proszę o pomoc. Dziękuję, Piotr
wpisy komórkach gamma komórkach tekst pascal wyświetlać tekst tekst
sterowanie deskorolka zmniejszyć moment obrotowy naprawa kosiarki
swiatlo pozycyjne punto obciążalność prądowa przewodów
Podłączenie CAN-BUS w radiu NCS RS-304 Migająca lampka sufitowa airbag w Volkswagen Passat B5FL