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
932
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
- 1114339
- 793533
Oletko koskaan stalkannut kaivattuasi?
Jos olet, miten olet stalkannut? Jäitkö kiinni? Onko hän stalkannut sinua? Jos on, miten suhtauduit?843385Just alkoi ottamaan päähän
Miten voikin mennä näin, että koko päivän haluaa vain nähdä toisen ja lähelle. Sitten aivan salamana mieleen tulee kaikk223361Karhuryhmä
Kellään tarkempaa tietoa miksi ja missä karhuryhmä ollut? Perheväkivaltaa vai huumeperintää kenties taas?273276- 742946
Raisionkaaren koira hyökkäys
Taas nähtiin että koiriin ei voi luottaa. Eilen illalla vapaana ollut koira hyökkäsi Raisionkaarella kolmen henkilön kim652827"Mielipide: Äärivasemmiston uhka on otettava vakavasti"
Demokratia näyttäisi olevan Halla-aholle enemmänkin välttämätön paha kuin tavoiteltava asia. Väkivallan ihannointi ja m452790- 812620
Tapa jolla kohtelit minua viimeksi miellytti erityisesti
Osaat huomioida kauniisti ja katsot aina tilanteita yhteisen hyvän kannalta. Sitä arvostan erityisesti.852579