boxissa fontti koon? Default koko on aika pieni ja asetus ei löydy format controllissa.
Miten säädän "drop down"
Excel makroja
5
693
Vastaukset
- 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.htmljos 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
@KundeAlunperin 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 SubMutta 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
Kuolemanrangaistus
Mielestäni kuolemanrangaistus on väärin kaikissa tilanteissa. Vaikka joku olisi murhannut 10 ihmistä, hänen surmaaminen855993Muistakaa persut, että TE petitte, ei kokoomus
Miksikö kukaan ei arvostele kokoomusta? No sen vuoksi, että kokoomus noudattaa vaalilupauksiaan. Sen sijaan TE persut,2925296Riikka 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äyk503335Lopetan 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ään102856Outo ilmiö - vasemmistolaiset eivät kirjoita mitään kokoomuksesta
joka sentään johtaa hallitusta, ja jonka talouspolitiikkaa noudatetaan. Nämä muutamat vasemmistolaiset jotka täällä aina1062729Jos 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ä t41665Väestöstä vain vassarit vaihtuvat nopeammin kuin persut
Kevääseen 2023 verrattuna vassareita 50 prosenttia enemmän, ja persuja 25 prosenttia vähemmän.161595Sinä olet minun forEver
Sinä olet minun sielussain, sydämessäin, huulillain, sinä olet ain, Sinä olet vieressäin, kainalossain, sylissäin, ain,211500Vihervassarit
Vihervassarit sitä, vihervassarit tätä. Minulla on paha mt-ongelma. Se tuli lobotomian jälkioireina. Vihervassarit tät321449Mies joka vetäytyy osoittaa teoillaan
Ettei halua olla tekemisissä. Mies joka ei vastaa viesteihin, ei halua sua. Mies joka jättää sut epätietoisuuteen, ei1781074