Tuotteiden yliviivaus

Yliviivattuja

Taulukossani on A-sarakkeessa tuotteiden nimiä satoja rivejä. Joudun poistamaan niitä useilta kymmeniltä riveiltä kerrallaan. Kysymykseni kuuluu, miten voisin jotain VB makronappia painamalla yliviivata yhdelläkertaa valitsemani tuotteiden nimet, jotka jäisivät vain odottamaan käsittelyä paremmalla ajalla.
Eli ensin merkkaisin Ctrl:lla hiirellä halutut solut ja napilla saisin ne yliviivatuiksi.
Osaan hieman VB-juttuja, kunhan saisi koodit millä onnistuu.

Kiitti kovasti jos joku jeesis tässä.

5

1680

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • CTRLjne

      Pois ne valitut rivit saa painamalla yhtäaikaa CTRL ja miinus (-) ja valittujen solujen fonttiin efektiksi yliviivauksen painamalla CTRL ja 5.

    • Tämmöinen

      Sub Button1_Click()
      Selection.Font.Strikethrough = Not Selection.Font.Strikethrough
      End Sub

    • Yliviivaaja

      Excel 2010 löytyy suora "Yliviivaus"-nappi.
      Ylin rivi, oikea reuna löytyy "Mukauta pikatyökaluriviä"-painike. Avautuvasta valikosta valitse "Lisää komentoja". Vaihda "Suositut komennot" kohtaan "Kaikki komennot". Sieltä pitkästä listasta löytyy "Yliviivaus". Klikkaa sitä ja sitten siitä keskeltä "Lisää". Yliviivaus siirtyy oikeanpuoleiseen laatikkoon > OK. Nyt yläriviltä löytyy painike yliviivaukseen ja samasta myös sen poistoon valituista soluista.

    • Yliviivattuja

      Tänx molemmille. Nuo olikin helppo ottaa molemmat käyttöön. :)

      • Yliviivattuja

        Tänx myös Yliviivaajalle vinkistä. Uskoisin, että tuo Ctrl 5 komento tulee olemaan se eniten käytetty mulla. Painonapit tein myös laiskuuden yllättäessä. :))


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kanki kovana; ei tiedä pornovideoista mitään

      Kaikkosen erityis­avustajan asunnossa kuvattiin pornoa. Väittää ettei tiedä asiasta yhtään mitään. https://www.is.fi/po
      Maailman menoa
      121
      5777
    2. Halaisin sua mies

      Jos voisin 💗
      Ikävä
      29
      2100
    3. Onkohan meillä kummallakin joku pakkomielle toisiimme

      Vähän luulen että on..
      Ikävä
      177
      1932
    4. Ei monet elä kuin alle 60 v, mikä vaikuttaa?

      gulp, gulp.. Juice Leskinen eli 56 vuotta. Matti Nykänen eli 55 vuotta. Topi Sorsakoski eli 58 vuotta.
      Maailman menoa
      66
      1104
    5. Mitä tämä on

      Ajatella, olen viimeksi nähnyt sinua melkein vuosi sitten ohimennen. Ja silloinkin sinä välttelit minua. En ole kuullut
      Tunteet
      10
      1103
    6. Hyvää yötä kaivatulleni

      En pysty tekemään kokemaan mitään sielussa tuntuvaa, syvää, vaikuttavaa, ilman että rinnastan sen sinuun. Niin kävi tänä
      Tunteet
      24
      987
    7. Olen valmis

      Kohtaamaan sinut tänä kesänä, jos sellainen sattuma osuu kohdalleni.
      Ikävä
      73
      977
    8. Nyt on konstit vähänä.

      Nimittäin tuulivoiman vastustajilla, kun pitää perättömiä ilmiantoja tehdä. Alkaa olla koko vastustajien sakki leimattu,
      Kiuruvesi
      24
      892
    9. Tilinpäätösvaltuusto 27.5

      Samalla viimeinen kokous ennen uudenvaltuustokauden alkamista. Vanhat antavat itselleen erinomaiset arvosanat, ja siirty
      Pyhäjärvi
      42
      887
    10. Hevoset ajoteillä Karhulanvaaralla

      Minkä ihmeen takia osaamattomat ihmiset tuovat hevosia ajoteille ja pyöräteille? Eilen oli kolari lähellä tämän takia. I
      Suomussalmi
      12
      755
    Aihe