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...
I się nie dziwię. Twoja formula wycina od spacji przed numerem do spacji przed numerem konta ;) Wpisz: =FRAGMENT.TEKSTU(A1;SZUKAJ.TEKST(" ?? ???? ???? ???? ???? ???? ????";A1;1)+1;32) A jak już będziesz robił wersje finalną to polecam formułkę: =JEŻELI.BŁĄD(<formuła której używasz>;"") W ten sposób w arkuszu nie pojawi ci się #ARG tylko pusta...
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
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ść...
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ń.
Oczywiście możesz tez zmienić, żeby traktował inną kolumnę jako źródło: Range("A2").Select <-- zamiast A2 wstawiasz pierwszą (z góry) komórkę z listy "źródłowej" ActiveCell.Offset(0, 1).Formula = .... <-- tutaj możesz zdefiniować, gdzie ląduje wynik. W przykładzie 0 określa ten sam wiersz (-1 będzie wiersz wyżej, 1 będzie wiersz niżej, 2 będzie...
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/...
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]
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)^...
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.
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:
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")...
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]
Ż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...
[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.
Wróżę problemy z jakimikolwiek poprawkami nawet tego prostego kodu. Makro jest podpięte pod Arkusz1->Worksheet->Change.
pewnie się da krócej, ale nie potrafię ;) =JEŻELI(CZY.LICZBA(WARTOŚĆ(F...
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
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...
Argumentem funkcji IsNumber ma byc komorka (Range("B" & i)), "B" & i jest zwykly tekst
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...
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
moze tak: =ZŁĄCZ.TEKSTY(A1;" - ";A2)
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Ź...
[syntax=vbscript]Sub Benek() [A1] = "=[Zeszyt1.xlsx]Arkusz1!R3C14&"" """ [A2] = "=[Zeszyt1.xlsx]Arkusz1!R4C14&"" """ Range("E10") = [A1] & [A2] End Sub [/syntax]
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...
Jeżeli 8% ma być tylko widoczne (komórka nie zmieni wartości) to można użyć formatowania niestandardowego komórki. https://obrazki.elektroda.pl/9217840500_...
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.
[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ę :)
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ą...
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
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...
To na Twojim przykładzie
Działa i na komórce z wpisanym tekstem, musisz tylko kliknąć dwa razy ;)
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=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",...
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,...
[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]
Niestety tak nie mogę zrobić. Czasami w następnej komórce coś jest lub będzie. Czasami uzupełniam co drugą, a później muszę coś dać pomiędzy i właśnie psuje mi to czytelność. Komórka musi być pusta, bo nie wiem czy mi później system, na który to uploaduje nie wywali błędów. A lubi :)
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,...
[syntax=vbscript]If str_Wartosc Like "*" & Range("B1") & "*" Then[/syntax]
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]
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ę...
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...
W formatowaniu warunkowym: Zakres to C:C Formułę ustaw na niestandardową: Formuła: =C1<>D1 Styl formatowania: kolor tekstu: czerwony
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...
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...
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
Formatuj komórki na tekst albo http://obrazki.elektroda.pl/8125313800_1...
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,...
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...
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.
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...
[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]
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.
Jaki separator dziesiętny w systemu? Sprobuj zmienic w arkuszu "," na "."
Formuła wyszukująca tekst zawierający "(at)" w łańcuchu powinna podołać.
tekst=Trim(tekst)
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)
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...
Wystarczy sformatować tekst pionowo jako dolne. Skrót ctrl+1 i tam ustawić.
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...
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...
Witam potrzebuje z ciągu tekstowego (w jednej komórce) np. : TAB.011.111.AA, CR, TAB.122.122.AA, AB wyciagnac po koleji fragmenty tekstu po przecinku: TAB.011.111.AA CR TAB.122.122.AA AB Split obcina mi przód albo tył. W Mid musze dokałdnie podac od którego do którego chce wyciac a tego nie wiem bo elemety po przecinakch maja różna dlugość ? InStr też...
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.
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
Dzień dobry, Trochę to przekombinowane, ale można spróbować czegoś takiego: część, którą Pan wpisuje wpisać w kodzie formatu - format niestandardowy np. L (at) oznacza, że komórka sformatowana w ten sposób będzie wyświetlać na początku L i spację, a dalej faktyczną (zmienną) zawartość komórki. Z kolei w komórce można założyć listę rozwijaną z wariantami,...
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,...
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ś...
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",...
[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]
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,...
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...
[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.
a co z wierszem 65538 ?
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ą.
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"....
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...
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...
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...
wpisać tekst komórka wyciągać tekst komórka komórka zawierać fragment tekst
zasilać bateria telefon wgranie języka polskiego głowica elektroniczny termostatyczny
epson adjustment program gdzie znależć kable rozruchowe
Czujnik zużycia klocków w Volvo FH12 - jak działa? Aktualizacja firmware Toshiba 40L5463DN Smart TV
