Miten säädän "drop down"

Excel makroja

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

5

681

    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?


      • 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. Putin lähti takki auki sotaan....

      Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,
      Maailman menoa
      103
      3515
    2. Näitä venäjä-faneja tuntuu edelleen vaan riittävän - kummallista

      ja lähinnä siis ihan suomalaisia. Mitä hienoa ja hyvää he näkevät maassa joka on diktatuuri, maassa jossa ei ole sananv
      Maailman menoa
      201
      2257
    3. Ulkoistin makuaistini Yleisradiolle

      Nyt voimme luottaa siihen, että Virallinen Totuus tekee maistelutyön puolestamme. Me persulandiassa arvostamme priimaa,
      Maailman menoa
      0
      2110
    4. Sanna on pakottaja, domina

      Pakotti sadistisessti työttömät hakemaan töitä, josta seurasi hirmuinen työttömyys. Näin on asia, jos uskomme Hesarin k
      Maailman menoa
      37
      1842
    5. Skodan hankintaan painostaminen toi potkut

      Kylläpä on kovat keinot käytössä, kun on yritetty pakottaa hankkimaan Skoda painostuskeinoilla. Kyllä valinnan pitää oll
      Skoda
      9
      1649
    6. Harmittaa ettei paluuta entiseen enää ole

      Paluuta entiseen ei ole koska pilasit kaiken.
      Ikävä
      95
      1108
    7. No onneks ei tartte sit olla

      Mustis ku se ootki sinä itte 😂😂 Oon pelännyt että ehkä teille kehkeytyy jotain enemmän ku niin paljon yhteistä mut....
      Ikävä
      5
      870
    8. Mitä sun päässä oikeen liikkui

      Silloin kun menit laittamaan sille viestiä? Jotenkin tosi outoa?
      Ikävä
      51
      852
    9. Lahden kolarisuma ja automaattinen hätäjarrutusjärjestelmä

      Olisiko uudehkojen autojen automaattinen hätäjarrutusjärjestelmä vähentänyt kolareiden määrää tuolla Lahden tiellä? Sumu
      Yleistä autoilusta
      69
      827
    10. Sinkkuihmisten suppea kuva maailmasta.

      Siskoni on jo vannoutunut sinkku. Hän ei haaveile mitään suhdejuttuja. Mutta välillä mietin, miten vähän ja suppeasti
      Sinkut
      129
      783
    Aihe