Cześć, mam pytanie w jaki sposób za pomocą makra wyszukać wszystkie kropki w komórkach (niezależnie od ciągu znaków), a następnie pokolorować je na czarno. Funkcja ma działać tak jak Ctrl+f i wyszukanie: „*.” Jak to zapisać za pomocą makra?
Moje makro wyszukuje i koloruje tylko samą kropkę, a jak zrobić to z dowolnym ciągiem znaków? Proszę o pomoc.
Sub Koloruj()
Dim zakres As Range
Dim kom As Range
Set zakres = Selection
For Each kom In zakres.Cells
Select Case kom.Value
Case "."
kom.Interior.ColorIndex = 1
End Select
Next
End Sub
Pozdrawiam.
Moje makro wyszukuje i koloruje tylko samą kropkę, a jak zrobić to z dowolnym ciągiem znaków? Proszę o pomoc.
Sub Koloruj()
Dim zakres As Range
Dim kom As Range
Set zakres = Selection
For Each kom In zakres.Cells
Select Case kom.Value
Case "."
kom.Interior.ColorIndex = 1
End Select
Next
End Sub
Pozdrawiam.
