Ugrás a tartalomhoz Lépj a menübe
 


ComboBox

2008.06.07

A ComboBox egy legördülőmenü. Az adatokat aminek a ComboBox-ban benne kell lennie, először írd be az Excel táblázat celláiba. Ha csak az első oszlopba írtál adatokat, így írd meg a  kódot:
Private Sub ComboBox_Click()
j = 1
Do While Worksheets(1).Cells(j, 3) <> ""
ComboBox1.AddItem (Worksheets(1).Cells(j, 3))
j = j + 1
Loop
End Sub


Magyarázat:
A j egy változó, j=j+1 jelentése,hogy egyesével menjen,<>",ez azt,hogy addig menjen az adatokon, míg nem talál üres cellát.

 

Hozzászólások

Hozzászólás megtekintése

Hozzászólások megtekintése

Nincs új bejegyzés.