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
122
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
YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua
Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä1012100Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa
Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.2901899Asiakas iski kaupassa varastelua tehneen kanveesiin.
https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava3411732Martina lähdössä Ibizalle
Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.2051584Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht981495- 321281
Jos ei tiedä mitä toisesta haluaa
Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em941113Se nainen näyttää hyvältä vaikka painaisi 150kg
parempi vaan jos on vähän muhkeammassa kunnossa 🤤671069- 511047
- 581038