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
88
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
Olet taitava
monessa asiassa. Myös siinä, miten veit sydämeni. Äkkiarvaamatta, pikkuhiljaa. Yhtäkkiä huomasin että minusta puuttuu jo747364Sinällään hauska miten jostakin
jaksetaan juoruta vaikka mitä. Jakorasia yms. Raukkamaista toimintaa. Annetaan jokaisen elää rauhassa eikä levitellä per583153- 342390
Osuuspankki Kuhmo!
Ei pysty pitämään yhtä Otto pankkiautomaattia toiminnassa Ksupermarketin kanssa,20 vuotta sitten Kuhmossa oli neljä auto271948- 201918
- 131877
Rakkaalleni!
Halusin tulla kertomaan, että sinua ajattelen ja ikävöin vaikka olen sukuloimassa. Meinasin herkistyä, kun tykkään sinus141615- 181569
- 101569
- 521568