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. 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
      109
      2955

    2. 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
      185
      2647

    3. 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
      61
      2109

    4. 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
      1
      1421

    5. Maria Veitola kommentoi soutelija Saarion huomionhakuisuutta

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

    6. Vihervassarit

      Vihervassarit sitä, vihervassarit tätä. Minulla on paha mt-ongelma. Se tuli lobotomian jälkioireina. Vihervassarit tät
      Maailman menoa
      22
      1293

    7. 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ä
      3
      1011

    8. Ei osattu ratkaista etääntymistä

      Mä jäädyin eikä sulla ole taitoa sulattaa. Parempi antaa olla, vaikka toivoin jotain muuta. Miehelle.
      Ikävä
      115
      870

    9. Esprit hoitokdit Varkaudessa?

      Asun keskisuomessa ja käyn satunnaisesti äitini luona Varkaudessa. Äitin tarvitsee kohta hoitajan kotiin tai hoitokodin
      Varkaus
      103
      843

    10. Ei ole liian myöhäistä..

      Tule mun luo ja katso silmiin, niin saadaan taas se sanaton yhteys ja sano sitten vain anteeksi rakas ja suutele ja hala
      Ikävä
      3
      782
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt