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
155
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
- 522127
- 622042
SDP:n lyhyt selviytymisopas
1. Komitea on vastaus, oli kysymys mikä tahansa Jos maailma on muuttumassa tai jossain palaa, demari ei hätiköi. Ensin p131561- 621372
- 501339
Mitä se olisi
Jos sinä mies saisit sanoa kaivatullesi mitä vain juuri nyt. Ilman mitään seuraamuksia yms. Niin mitä sanoisit?41855Toivoisitko
Toivoisitko, että kaivattusi olisi introvertimpi tai extrovertimpi? Itsenäinen tai tarvitsisi enemmän apua/sinua? Osoit90727Nanna Karalahti :Paljastus bisneksistä Jere Karalahden kanssa!
Ottanut yhteyttä seiskalehden toimittajaan ja kertonut totuuden yhteisestä Herotreeni-nimisestä verkkovalmenuksesta.118717Sotekeskus
Aloite on hyvä, kiitokset siitä. Mutta jos olette yhtään seuranneet hyvinvointialueen kokouksia niin sehän on jo nuijit33688- 40653