Miten säädän "drop down"

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

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

Lue lisää

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?

Lue lisää

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

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

Lue lisää

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?