Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64390 Skopiuj do schowka wyszukiwanie i zaznaczania części komórki
Autor Wiadomość
aniaroszkowska
świeżak


Wersja: Win Office 2016
Posty: 2
Wysłany: 11-03-2019, 15:52   wyszukiwanie i zaznaczania części komórki

Dzień dobry.
Mam ogromny problem, nie wiem czy jest do rozwiązania. Otóż mam kolumnę z rekordami zawierającymi nazwiska osób po przecinku. Czy jest możliwe zaznaczenie wszystkich takich samych nazwisk kolorem? np. wyszukuję kowalska i we wszystkich kolumnach kowalska napisana jest czcionką o kolorze zielonym - reszta nazwisk pozostaje czarna. Wyszukiwanie zaawansowane pozwala znaleźć kowalską ale zaznacza całą kolumnę - wszystkie wyrazy. Z góry dziękuję za podpowiedż lub odpowiedź że po prostu się nie da :)
Pozdrawiam
aniaroszkowska
ID posta: 363957 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Pomógł: 252 razy
Posty: 1372
Wysłany: 11-03-2019, 15:53   

Witamy na Forum.


Załącz plik.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 363958 Skopiuj do schowka
 
 
BrunO 
ExcelSpec



Pomógł: 125 razy
Posty: 540
Wysłany: 11-03-2019, 16:20   

Nie widząc układu danych to tylko zarys koncepcji można wrzucić... Przychodzi mi do głowy tylko takie makro:

Kod:
Sub koloruj()

Dim str As String
Dim dl As Long
Dim pocz As Long
Dim w As Long

str = Range("A1").Value
dl = Len(str)

For w = 1 To 50

Cells(w, "B").Font.ColorIndex = xlAutomatic
    Do
    pocz = InStr(pocz + 1, Cells(w, "B").Value, str)

    If pocz > 0 Then
        Cells(w, "B").Characters(Start:=pocz, Length:=dl).Font.Color = vbGreen
    End If

    Loop While pocz > 0
   
    pocz = 0    'tak profilaktycznie
Next

End Sub


Gdzie w A1 wpisujesz nazwisko a w kolumnie B (w wierszach od 1 do 50) masz nazwiska.
oczywiście da się to dopieścić, ale nie wróżąc z fusów...
ID posta: 363960 Skopiuj do schowka
 
 
aniaroszkowska
świeżak


Wersja: Win Office 2016
Posty: 2
Wysłany: 12-03-2019, 08:36   

Dziękuję serdecznie za odpowiedzi. Oczywiście umieszczam załącznik - zastosowałam makro BrunO, jednak ono koloruje wszystkie nazwiska w kolumnie B, ja chciałabym aby np. w B1 Anna Kowalska była na zielono ale Justyna Dąbek i PAweł Jarząbek pozostali w kolorze czarnym.

aniaroszkowska w dniu: 2019-03-12, 8:43 napisał/a:
Jednak działa!! Przepraszam, za zamieszanie i bardzo dziękuję za odpowiedzi

edycja Zbiniek:
Proszę korzystać z opcji edytowania wypowiedzi – przycisk „edytuj”. Opcja jest dostępna bodajże przez 30 minut od momentu wysłania wypowiedzi.


Zeszyt2.xlsx
Pobierz Plik ściągnięto 4 raz(y) 9.13 KB

  
ID posta: 363984 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe