Onko keinoa saada jollain toiminnolla lihavoitua kaikista sarakkeen soluista tekstin osat jotka sisältävät halutun sanan?
Esim. solussa on teksti "työkalu 3 metriä Merkki-X". Samankaltaisia soluja on useita allekkain ja haluaisin saada kerralla lihavoitua tuon "3 metriä".
Tekstin osan lihavointi useissa soluissa
Anonyymi
1
116
Vastaukset
- Anonyymi
Sub Boldaa()
Dim Solu As Range
Dim Alku As Integer
Dim Pituus As Integer
Pituus= Len(Range("G1"))
For Each Solu In Range("E1:E10")
If InStr(Solu.Value, Range("G1"))>0 Then
Solu.Characters(Start:= InStr(Solu.Value,
Range("G1")), Lenght:= Pituus),
Font.Bold=True
End If
Next Solu
End Sub
Sub Resetoi()
Range("E1:E10"). Font.Bold=False
Keep.EXCELing
@Kunde
P.S.
BANNIA EIVAT SAA POISTETTUA...
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1017443
Siekkilässä ajettu ihmisten yli- mitä tapahtui? Länsi-Savo ei ole uutisoinut asiata
Manneja, vaiko matuja?805028- 794859
- 1324258
Alavuden sairaala
Säästääkö Alavuden sairaala sähkössä. Kävin Sunnuntaina vast. otolla. Odotushuone ja käytävä jolla lääkäri otti vastaan103048- 522689
- 402586
- 502237
Törkeää toimintaa
Todella törkeitä kaheleita niitä on Ylivieskassakin. https://www.ess.fi/uutissuomalainen/8570818102211Suudeltiin unessa viime yönä
Oltiin jossain rannalla jonkun avolava auton lavalla, jossa oli patja ja peitto. Uni päättyi, kun kömmit viereeni tähtit211840