Hei,
miten ladataan automaattisesti yhdistelmäruutu-ohjausobjektiin arvoja vaikkapa työkirjan avaamisen yhteydessä?
Yritin ladata arvoja seuraavalla tavalla:
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
While ComboBox1.ListCount > 0
ComboBox1.RemoveItem (0)
Wend
ComboBox1.AddItem "Ok"
ComboBox1.AddItem "Ei"
ComboBox1.AddItem "-"
End Sub
Koodin idea on tyhjentää arvot ja lataa ne uudestaan joka kerta kun yhdistelmäruudun nuolta klikataan.
Koodi on Microsoft Excel Objektit -alla. Muuten toimii, mutta kun yhdistelmäruudun nuolta klikkaa, avautuu valikko jossa valittavien arvojen lisäksi on vierityspalkit ja muuta sotkua, vaihtoehtojen valinta ei oikein onnistu tällaisesta ruudusta.. Nuo ByVal button jne. tekstit VBA halusi välttämättä lisätä mukaan.
Osaisiko kukaan antaa neuvoja?
-Pasi-
miten ladataan automaattisesti yhdistelmäruutu-ohjausobjektiin arvoja vaikkapa työkirjan avaamisen yhteydessä?
Yritin ladata arvoja seuraavalla tavalla:
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
While ComboBox1.ListCount > 0
ComboBox1.RemoveItem (0)
Wend
ComboBox1.AddItem "Ok"
ComboBox1.AddItem "Ei"
ComboBox1.AddItem "-"
End Sub
Koodin idea on tyhjentää arvot ja lataa ne uudestaan joka kerta kun yhdistelmäruudun nuolta klikataan.
Koodi on Microsoft Excel Objektit -alla. Muuten toimii, mutta kun yhdistelmäruudun nuolta klikkaa, avautuu valikko jossa valittavien arvojen lisäksi on vierityspalkit ja muuta sotkua, vaihtoehtojen valinta ei oikein onnistu tällaisesta ruudusta.. Nuo ByVal button jne. tekstit VBA halusi välttämättä lisätä mukaan.
Osaisiko kukaan antaa neuvoja?
-Pasi-
Vastaukset
Vanhimmat
Ei vielä vastauksia
Aloittaja odottaa vastauksia. Kerro oma näkemyksesi ensimmäisenä.