Miten säädän "drop down"

Excel makroja

boxissa fontti koon? Default koko on aika pieni ja asetus ei löydy format controllissa.

5

680

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kompopoksi

      on kaksi mahdollisuutta tehdä pudotusvalikkoa (Lomakkeet - Forms Toolbars) ja Ohjausobjektit (Control Toolbox). Valitse Control Toolbox valikosta haluttu objekti, piirrä se ja klikkaa hiiren oikealla ja valitse Ominaisuudet (Properties). Siellä voit suurentaa ja vaihtaa fonttia. Tuossa vielä linkki jossa ohjeet lontooksi.
      http://excel.tips.net/Pages/T002555_Changing_the_Font_Size_in_Combo_Boxes.html

      • kunde

        jos kelpoisuusehdolla olet tehnyt "drop down "valikon niin esim. zoomkikalla onnistuu...

        taulukon moduuliin...
        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim OrigZoom As Long
        Dim MuutettuZoom As Long
        Dim Kelpoisuus As Long

        On Error Resume Next
        Application.EnableEvents = False

        Kelpoisuus = 0
        OrigZoom = 100 'muuta originaalizoomausarvoa tässä
        MuutettuZoom = 140 'muuta zoomausarvoa tässä
        Kelpoisuus = Target.Validation.Type
        On Error GoTo virhe
        If Kelpoisuus 3 Then
        With ActiveWindow
        If .Zoom OrigZoom Then
        .Zoom = OrigZoom
        End If
        End With
        Else
        With ActiveWindow
        If .Zoom MuutettuZoom Then
        .Zoom = MuutettuZoom
        End If
        End With
        End If
        poistu:
        Application.EnableEvents = True
        Exit Sub
        virhe:
        GoTo poistu
        End Sub

        tai sitten jos käytit ohjausobjektia , niin siinähän kanssa ei ole fontin koon säätöä, mutta kikkailemalla taas. Ongelmaksihan voi tulla combon liian iso koko...

        combon koodiin seuraavat

        Private Sub ComboBox2_GotFocus()
        ActiveWindow.Zoom = 140
        End Sub

        Private Sub ComboBox2_LostFocus()
        ActiveWindow.Zoom = 100
        End Sub

        Keep Excelling
        @Kunde

      • Excel makroja
        kunde kirjoitti:

        jos kelpoisuusehdolla olet tehnyt "drop down "valikon niin esim. zoomkikalla onnistuu...

        taulukon moduuliin...
        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim OrigZoom As Long
        Dim MuutettuZoom As Long
        Dim Kelpoisuus As Long

        On Error Resume Next
        Application.EnableEvents = False

        Kelpoisuus = 0
        OrigZoom = 100 'muuta originaalizoomausarvoa tässä
        MuutettuZoom = 140 'muuta zoomausarvoa tässä
        Kelpoisuus = Target.Validation.Type
        On Error GoTo virhe
        If Kelpoisuus 3 Then
        With ActiveWindow
        If .Zoom OrigZoom Then
        .Zoom = OrigZoom
        End If
        End With
        Else
        With ActiveWindow
        If .Zoom MuutettuZoom Then
        .Zoom = MuutettuZoom
        End If
        End With
        End If
        poistu:
        Application.EnableEvents = True
        Exit Sub
        virhe:
        GoTo poistu
        End Sub

        tai sitten jos käytit ohjausobjektia , niin siinähän kanssa ei ole fontin koon säätöä, mutta kikkailemalla taas. Ongelmaksihan voi tulla combon liian iso koko...

        combon koodiin seuraavat

        Private Sub ComboBox2_GotFocus()
        ActiveWindow.Zoom = 140
        End Sub

        Private Sub ComboBox2_LostFocus()
        ActiveWindow.Zoom = 100
        End Sub

        Keep Excelling
        @Kunde

        Alunperin olen käyttänyt drop downia siitä "forms" toolbaarista. Nyt jos teen ohjausobjektilla tuon pudostusvalikon, millä saan nuo vanhat makrot liitettyä siihen? Olen käyttänyt "Assign Makro" toimintoa muttä tämä toiminto puuttuu Control Toolboxin objekteista?

      • kunde
        Excel makroja kirjoitti:

        Alunperin olen käyttänyt drop downia siitä "forms" toolbaarista. Nyt jos teen ohjausobjektilla tuon pudostusvalikon, millä saan nuo vanhat makrot liitettyä siihen? Olen käyttänyt "Assign Makro" toimintoa muttä tämä toiminto puuttuu Control Toolboxin objekteista?

        kun olet lisännyt combon niin tuplaklikkaa sitä ja koodisivu aukeaa ja siihen tulee automaattisesti esim.

        Private Sub ComboBox1_Change()
        End Sub

        nyt vaan lisäät vanhan makron nimen noiden rivien väliin
        esim.
        Private Sub ComboBox1_Change()
        VanhaMakro
        End Sub

        jossain moduulissa sitten se vanha makro -ei kuitenkaan ThisWorkbook moduulissa muistaakseni...

        Sub VanhaMakro()
        MsgBox 1
        End Sub

      • excel makroja
        kunde kirjoitti:

        kun olet lisännyt combon niin tuplaklikkaa sitä ja koodisivu aukeaa ja siihen tulee automaattisesti esim.

        Private Sub ComboBox1_Change()
        End Sub

        nyt vaan lisäät vanhan makron nimen noiden rivien väliin
        esim.
        Private Sub ComboBox1_Change()
        VanhaMakro
        End Sub

        jossain moduulissa sitten se vanha makro -ei kuitenkaan ThisWorkbook moduulissa muistaakseni...

        Sub VanhaMakro()
        MsgBox 1
        End Sub

        Mutta tuo "makro" on hyvin yksinkertainen. Siinä ei ole muita toimintoja kuin esimerkiksi:
        Input range : $D$12:$D$29
        Cell link : $D$10
        Drop down lines :17

        Mitä pitäisi kirjoittaa tuon "Private Sub ComboBox1_Change() ja End Sub" in väliin jott tuo esimerkki toimii?

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Ihanasti alkoi aamu: SDP:n kaula kokoomukseen jo 6,9 %-yks

      Lindtmanin I hallitus on tukevasti jytkyttämässä laittamaan Suomi kuntoon Orvon täystuhohallituksen jäljiltä, jonka kann
      Maailman menoa
      463
      3174

    2. Teidän persujen pitäisi välillä miettiä kuinka Suomen talous saataisiin kuntoon

      Ja lopettaa tuo tyhjänpäiväinen maahanmuuttajista höpöttäminen. Teillä on sentään rahaministerin salkku tällä kierroksel
      Maailman menoa
      146
      2307

    3. Minkä ikäinen

      Minkä ikäinen on kaipauksesi kohde?
      Ikävä
      135
      2142

    4. Persut ei kestä heidän johtajistaan tehtyä huumoria

      Laajalti tiedostettu tosiasia on, että autoritaariset johtajat ja erinäiset diktaattorit eivät kestä heidän kustannuksel
      Maailman menoa
      30
      1640

    5. Kuka omistaa entisen Veljeskodin?

      Kenellä on varaa pitää hiljattain remontoitua rakennusta tyhjillään? Tehdäänkö siitä Suomen kallein kirpputori vai mikä
      Ähtäri
      7
      1535

    6. Kaninkolojen vaikutus?

      Vinkki sinkkumiehille: jos haluatte kunnollisen täysijärkisen naisen, niin kaivautukaa ulos kaninkoloistanne ja parantak
      Sinkut
      211
      1365

    7. Martina ei mennyt naimisiin

      IS 17.9: Martinan häät peruuntui, tajusi, ettei ollut oikea aika. Rahat meni hevosiin. On edelleen parisuhteessa Yhdysva
      Kotimaiset julkkisjuorut
      170
      1344

    8. Kuka opettaja, mikä koulu

      Minkä koulun opettaja saanut potkut
      Nivala
      8
      1126

    9. Millaiset hiukset kaivatullasi on?

      Hiusten pituus, väri, suorat vai kiharat?
      Ikävä
      57
      1106

    10. Saanko soittaa tai laittaa viestiä mies?

      Huomenna vaikka....
      Ikävä
      71
      837
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt