ON/OFF-nappi

Anonyymi

Tarkoituksena on luoda valintaruutu, josta saa tiettyjen solujen tekstin näkyviin ja pois näkyvistä.

Olen luonut kaksi makroa, joista toinen piilottaa tekstin muuttamalla fontin värin valkoiseksi ja toinen muuttaa värin takaisin mustaksi.

Miten saan yhdistettyä nämä kaksi makroa? Vai miten tuo olisi paras/helpoin tapa toteuttaa?

Tällä hetkellä valintaruutu toimii vain yhdellä makrolla, eli muuttaa tekstin joko valkoiseksi tai mustaksi, kun se on TOSI/EPÄTOSI-tilassa, mutta ei tee molempia.

VBA:lla tämän kai saisi jotenkin toiminaan, mutta minulla ei ole sen käytöstä tarpeeksi kokemusta.

1

915

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Onnistuu ilman makrojakin.

      Käytä solua A1 valintaruutuna. Kaikkiin niihin soluihin, jotka haluat päälle ja pois, tulee kaava =IF(A1="x"; "tekstiä"; "") Voit käyttää piilottamiseen kaavan sijasta myös tekstin valkoiseksi muuttavaa ehdollista muotoilua ja siinä ehtona =($A$1="x")

      Toinen vaihtoehto on käyttää CheckBoxia, jonka linkität soluun A1. Piilotettaviin tekstisoluihin kaava =IF(A1; "tekstiä"; "")

      Jos haluat käyttää nappia, makrossa tulee olla seuraava koodi ja muu, kuten edellisessä esimerkissä:
      Range("A1") = Not (Range("A1")).

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

    Luetuimmat keskustelut

    1. 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. Vuod
      Ikävä
      22
      5144
    2. Huomenta ihana

      Kauniskasvoinen ihanuus 😘 saan sut vielä
      Ikävä
      25
      4328
    3. Hei rakas...

      Miten on työpäivä sujunut? Rakastan sinua 💗
      Ikävä
      27
      2461
    4. Edelleen sitä on vaikea uskoa

      Että olisit oikeasti rakastunut muhun
      Ikävä
      34
      2244
    5. Toiveikas vai toivoton

      torstai? Ajatuksia?
      Ikävä
      37
      1998
    6. Vitsi mihin menit. Heti takasin.

      Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
      Ikävä
      15
      1908
    7. En ole koskaan kokenut

      Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka
      Ikävä
      19
      1587
    8. Mukavaa päivää

      Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
      Ikävä
      12
      1521
    9. 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 kons
      Suomalaiset julkkikset
      21
      1247
    10. Kerranki asiat oikein

      Ilkka ja muut pienpuolueeet...teitte hyvän työn kun valitsitte pätevän henkilön virkaan eikä kepulle passelia!! Jatkakaa
      Haapavesi
      10
      1174
    Aihe