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.
fontit isommiksi
Tilastointinikkari
10
304
Vastaukset
- data validation
Tuolla on joku ratkaisu (engl). Pjoaquin'in vastauksessa on linkki.
http://www.mrexcel.com/forum/excel-questions/307357-increase-font-size-excel-2007-data-validation-list.html - 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.
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?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
@KundeJoo, 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 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ä.
Luetuimmat keskustelut
JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!
Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t3812350V*ttuu että mä haluan sua
Jos jotain ihmistä voi kunnolla haluta, niin hän on se. Voi Luoja auta jo! Joku jeesus hjelppa mej!914221Nolointa ikinä miehelle
On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai1093982- 513638
Eli jos toisen hiki haisee ns. omaan nenään siedettävältä
Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳533321- 1163294
Sattuma ja muutama väärinkäsitys
vaikuttivat siihen millaiseksi tämä kaikki muodostui. Pienet aikanaan huomaamattomat käänteet. Seuraava näytös on jo tul352146- 382112
Keskusta hajoaa Palojärvi lähtee
Suomen Keskustan ryhmä hajoaa Kemijärvellä. Kalastaja Palojärvi sai tarpeekseen ja loikkasi Sitoutumattomat Aati Virkkul261945On sillä rääpyä
Tuo ex kuntajohtaja Lea Tolonen kehtaakin tulla Ähtäriin. Ajoi laivan Karille. Kari Heikkilä oikaisi taloutta, sai laiva111623