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.
ON/OFF-nappi
Anonyymi
1
923
Vastaukset
- 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
- 796095
Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht2895420Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii984111- 522880
- 262722
- 1192060
Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua472020Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘991747- 721291
PS uusimman gallupin rakettimainen nousija
https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden1591141