Tekstin osan lihavointi useissa soluissa

Anonyymi

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ä".

1

155

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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
      S​ub 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

    1. Rakas

      Eihän se tietysti minulle kuulu, mutta missä sinä olet? 😠
      Ikävä
      52
      2127
    2. Pidit itseäsi liian

      Vanhana minulle? Niinkö?
      Ikävä
      62
      2042
    3. 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 p
      Maailman menoa
      13
      1561
    4. Joko olet luovuttanut

      Mun suhteen?
      Ikävä
      62
      1372
    5. Haluaisitko oikeasti

      Vakavampaa välillemme vai tämäkö riittää
      Ikävä
      50
      1339
    6. Mitä se olisi

      Jos sinä mies saisit sanoa kaivatullesi mitä vain juuri nyt. Ilman mitään seuraamuksia yms. Niin mitä sanoisit?
      Ikävä
      41
      855
    7. Toivoisitko

      Toivoisitko, että kaivattusi olisi introvertimpi tai extrovertimpi? Itsenäinen tai tarvitsisi enemmän apua/sinua? Osoit
      Ikävä
      90
      727
    8. Nanna Karalahti :Paljastus bisneksistä Jere Karalahden kanssa!

      Ottanut yhteyttä seiskalehden toimittajaan ja kertonut totuuden yhteisestä Herotreeni-nimisestä verkkovalmenuksesta.
      Kotimaiset julkkisjuorut
      118
      717
    9. Sotekeskus

      Aloite on hyvä, kiitokset siitä. Mutta jos olette yhtään seuranneet hyvinvointialueen kokouksia niin sehän on jo nuijit
      Ähtäri
      33
      688
    10. Sinunkin pitää jättää

      Se kaivattusi rauhaan.
      Ikävä
      40
      653
    Aihe