fontit isommiksi

Tilastointinikkari

Yksinkertaistettuna kysymykseni.

Solussa A1 on alaspudotusvalikko, josta voin valita halutun nimen kymmenien nimien listalta tähän soluun. (Varsinainen nimilista on toisella taulukolla.)

Nyt se kysymys: Miten voin suurentaa alaspudotusvalikon fonttikokoa, puuttumatta oikean alakulman suurennussuhde-slideriin?

Pudotusvalikko on tehty Tiedot\Tietojen kelpoisuuden tarkastaminen -dialogissa.
En ole löytänyt keinoa suurentaa fonttia.

10

344

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • data validation
    • data validation

      Lisättäköön tuohon vielä että linkki ei anna vastausta kelpoisuustarkistuksen fonttikoon muuttamiseen, vaan antaa vaihtoehtoisen tavan tehdä kelpoisuustarkistuksen. Lopussa on myös koodi jolla saa Combo-box listan ilmestymään tuplaklikkauksella haluttuun soluun.

      • kunde

        ko. taulukon moduuliin...
        toimii kaikilla soluilla, jossa kelpoisuustarkistus listalla....
        muuta zoomiluvut sopiviksi

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim Zoom100 As Long
        Dim Zoom150 As Long
        Dim Datatyyppi As Long
        Zoom100 = 100
        Zoom150 = 150
        Application.EnableEvents = False
        On Error Resume Next
        Datatyyppi = Target.Validation.Type
        On Error GoTo Virhe
        If Datatyyppi = 3 Then

        If ActiveWindow.Zoom Zoom150 Then
        ActiveWindow.Zoom = Zoom150
        End If
        Else

        If ActiveWindow.Zoom Zoom100 Then
        ActiveWindow.Zoom = Zoom100
        End If
        End If

        Poistu:
        Application.EnableEvents = True
        Exit Sub
        Virhe:
        GoTo Poistu
        End Sub

        Keep EXCELing
        @Kunde

    • Tilastointinikkari

      Kiitos opastuksesta. Nyt vaan täytyy nostaa kädet ylös; en osaa hyödyntää tuota VB -koodia ihan suoraan esim. solussa A1 olevaan kelpoisuuden tarkistusvalikkoon.

      Solussa A1 on n. 30:n nimen valikko, jotka olisi mukava saada näkymään jo siinä valikkotilassa isommalla fontilla.
      Onnistuuko tuolla VB:llä siis tuo toiveeni?

      • kunde

        ko. taulukon moduuliin...
        toimii kaikilla soluilla, jossa kelpoisuustarkistus listalla....
        muuta zoomiluvut sopiviksi

        kuten olen aiemmin postannut, toimii kaikissa soluissa, missä kelpoisuustarkistus lista...
        nyt zoomaa 150%, muuta Zoom150 arvoa isommaksi, jos tarttet isompaa zoomausta

        ei muuta kuin ALT F11 ja tuplaklikkaa vasemmalla ko.taulukon nimeä ja liität koodin ko. taulukon moduuliin oikealle tyhjään tilaan ja se on siinä

        Keep EXCELing
        @Kunde

      • Tilastointinikkari
        kunde kirjoitti:

        ko. taulukon moduuliin...
        toimii kaikilla soluilla, jossa kelpoisuustarkistus listalla....
        muuta zoomiluvut sopiviksi

        kuten olen aiemmin postannut, toimii kaikissa soluissa, missä kelpoisuustarkistus lista...
        nyt zoomaa 150%, muuta Zoom150 arvoa isommaksi, jos tarttet isompaa zoomausta

        ei muuta kuin ALT F11 ja tuplaklikkaa vasemmalla ko.taulukon nimeä ja liität koodin ko. taulukon moduuliin oikealle tyhjään tilaan ja se on siinä

        Keep EXCELing
        @Kunde

        Joo, aukeshan se idea tyhjässä testi-excelissä, mutta jo käytössä olevassa excelissä, kun lisään tuon koodin muiden koodien perään ja testaan sitä.. tulee herja, joka viittaa tuon koodin ekalle riville.
        Elikkä tyhjässä excelissä tuo toimii, mutta ei käytössä olevassa. (?)

    • Tilastointinikkari

      Kiitos Kunde sinnikkyydestä. Täytynee ihan tyhmänä silti kysyä, että mitä noista useasta %-luvuista kannattaa lähteä muuttamaan?
      Otan silti ja kokeilen jotain.

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim Zoom100 As Long
      Dim Zoom150 As Long
      Dim Datatyyppi As Long
      Zoom100 = 100
      Zoom150 = 150
      Application.EnableEvents = False
      On Error Resume Next
      Datatyyppi = Target.Validation.Type
      On Error GoTo Virhe
      If Datatyyppi = 3 Then

      If ActiveWindow.Zoom Zoom150 Then
      ActiveWindow.Zoom = Zoom150
      End If
      Else

      If ActiveWindow.Zoom Zoom100 Then
      ActiveWindow.Zoom = Zoom100
      End If
      End If

      Poistu:
      Application.EnableEvents = True
      Exit Sub
      Virhe:
      GoTo Poistu
      End Sub

    • kunde

      ilmeisesti sulla on jo jo toi Worksheet_SelectionChange tapahtuma koodi siellä... joten lisää sitten toi koodi sinne ilman ekaa ja vikaa riviä
      eli ilman näitä rivejä
      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      End Sub
      Zoom100 = 100
      Zoom150 = 150
      100 on normaali ja zoom150 =150 on nyt zoomaus 150% ja jos muutat
      Zoom100 = 100
      Zoom150 = 200 niin zoomaus 200%...

      Keep EXCELing
      @Kunde

    • Tilastointinikkari

      Kyllä, mulla oli jo yksi Worksheet_SelectionChange tapahtuma. Lisäsin koodin väliin ja sain sen toimimaan.

      Alkuperäinen ajatukseni oli, että alaspudotusvalikossa olisi ollut ns. pysyvästi isompi fontti, joka näkyisi vasta valikkoa avattaessa, eikä muut taulussa zoomaustuisi isommaksi. Mutta tämäkin on hyvä näin.

      Kiitos kunde.

      • Kundepuu

        ei voi kelpoisuusehdon alasvetovalikon fonttikokoa muutella...
        Keep EXCELing
        @Kunde

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Jalankulkija kuoli. Poliisi etsii mustaa BMW Coupe -autoa, jossa on punertavat vanteet.

      Jalankulkija kuoli jäätyään auton alle Joensuussa – kuljettaja pakeni, poliisi pyytää havaintoja https://www.mtvuutiset.
      Joensuu
      123
      3047

    2. Mikä vasemmistolaisista jankkaavaa vaivaa?

      Pahasti on ihon alle, siis korvien väliin sinne tyhjään tilaan, päässeet kummittelemaan. Ei ole terveen ihmisen merkki
      Maailman menoa
      5
      2976

    3. Ohjelma "Rikollisjengien Ruotsi" hyvin paljasti jakautuneen maan

      eli ns. ruotsalaiset yhdellä puolella, muslimit ja muut kehitysmaalaiset toisella puolella. Siinäkin hyvin näki mitä ma
      Maailman menoa
      24
      2724

    4. Vassarina hymyilyttää vaurastuminen persujen kustannuksella

      Olen sijottanut määrätietoisesti osan Kelan tuista pörssiosakkeisiin, ja salkku on paisunut jo toiselle sadalle tuhanne
      Maailman menoa
      45
      2598

    5. Riikka runnoo: Elisalta potkut 400:lle

      Erinomaisen hallitusohjelman tavoite 100 000 työllistä lisää yksityisellä sektorilla on kohta saavutettu. Toivotaan toiv
      Maailman menoa
      84
      2474

    6. PÄIVÄN PARAS: Nigerialainen haki turvapaikkaa Suomesta, lähti takas huilaamaan

      kotimaahansa, koska turvapaikan saaminen kesti niin kauan. Ja tämän kertoo ihan Yle, eikä yhtään toimittaja kyseenalaist
      Maailman menoa
      46
      2422

    7. Pidennetään viikko 8 päiväiseksi

      Ja jätetään työpäivien määrä nykyiseen 5:een. Tuo olisi kompromissiratkaisu vellovaan keskusteluun työajan lyhentämisest
      Maailman menoa
      10
      2284

    8. Pääseekö kuka tahansa hoitaja katselemaan kenen tahansa ihmisen terveystietoja?

      "Meeri selaili puhelinta uteliaisuuttaan ja katuu nyt – Moni hoitaja on tehnyt saman rikoksen Tuttujen ihmisten asiat k
      Maailman menoa
      80
      1942

    9. Niinistö neliraajajarrutteli Natoon liittymistä vielä sodan alettua

      Myöntää nyt itsekin, mikä jo aikaisemmin tiedettiin. Marin vei Suomen ja Ruotsin Natoon. "”Myönnän auliisti jarruttelle
      Maailman menoa
      197
      1796

    10. Nainen rakas

      Mulle on alkanut tulla sellainen olo että meistä tulee ehkä pariskunta vielä 😌
      Ikävä
      134
      1705
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt