Miten säädän "drop down"

Excel makroja

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

5

667

    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

      • 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ä.

    Luetuimmat keskustelut

    1. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      79
      6095
    2. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      289
      5420
    3. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      98
      4111
    4. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      52
      2880
    5. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      26
      2722
    6. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      119
      2060
    7. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      47
      2020
    8. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      99
      1747
    9. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      72
      1291
    10. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      159
      1141
    Aihe