Miten säädän "drop down"

Excel makroja

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

5

691

Ää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. Kuolemanrangaistus

      Mielestäni kuolemanrangaistus on väärin kaikissa tilanteissa. Vaikka joku olisi murhannut 10 ihmistä, hänen surmaaminen
      Laki ja rikos
      71
      5545

    2. Muistakaa persut, että TE petitte, ei kokoomus

      Miksikö kukaan ei arvostele kokoomusta? No sen vuoksi, että kokoomus noudattaa vaalilupauksiaan. Sen sijaan TE persut,
      Maailman menoa
      272
      4857

    3. Riikka Purra ei estä tehomaksun käyttöönottoa

      Sähkön hinnoittelua koskevan määräyksen on määrä astua voimaan vuoden 2029 alusta, Energiavirastosta kerrotaan. Määräyk
      Maailman menoa
      39
      3168

    4. Seuraava hallituspohja - Kokoomus, kepu, persut + KD

      Kokoomus saa ainakin 20% kannatuksen ensi vaaleissa, keskusta sanoisin noin 15%, persut todennäköisesti enemmän, ehkä 17
      Maailman menoa
      255
      2994

    5. Outo ilmiö - vasemmistolaiset eivät kirjoita mitään kokoomuksesta

      joka sentään johtaa hallitusta, ja jonka talouspolitiikkaa noudatetaan. Nämä muutamat vasemmistolaiset jotka täällä aina
      Maailman menoa
      103
      2630

    6. Lopetan ikävöinnin

      Ei meistä enää koskaan tule mitään. Olen ikävöinyt ja kaivannut enkä saa mitään vastakaikua ja lämpöä. Parempi erillään
      Ikävä
      5
      2092

    7. Maria Veitola kommentoi soutelija Saarion huomionhakuisuutta

      "Minusta on jotenkin kuvottavaa, kuinka kovalla intensiteetillä Suomi-media seuraa miessankari Jari Saarion merihätää. S
      Kotimaiset julkkisjuorut
      336
      2052

    8. Muovipusseista pitäisi saada panttimaksu takaisin

      Ostan joka päivä yhden muovipussin, ja niistä palautuu keskimäärin takaisin kaupan pullomaatin yhteydessä olevaan roskik
      Maailman menoa
      65
      1771

    9. Väestöstä vain vassarit vaihtuvat nopeammin kuin persut

      Kevääseen 2023 verrattuna vassareita 50 prosenttia enemmän, ja persuja 25 prosenttia vähemmän.
      Maailman menoa
      15
      1555

    10. Jos kaikki lopulta kuolevat, onko edes pahimmillakaan rikoksilla mitään väliä?

      Kaikki kuolevat lopulta. Siksi ihmisten tekemillä rikoksillakaan ei lopulta ole mitään merkitystä. Joidenkin mielestä t
      Filosofia
      2
      1546
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt