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
112
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
Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa
En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod225624- 324986
- 292884
- 342394
- 372088
- 152038
En ole koskaan kokenut
Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka191657- 261632
- 121621
Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...
Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons341551