Zdravim,
tady lze vyuzit vlastnost ListIndex, ktera rekne, ktera polozka ComboBoxu byla vybrana (poradi se ale cisluje od 0, tak se musi pricist jednicka, aby byl definovan radek).
Takto by mohl vypadat kod:Private Sub ComboBox1_Change()
Dim Radek As Long
Radek = FORM.cbA.ListIndex + 1
txtB.Text = Cells(Radek, 2)
txtC.Text = Cells(Radek, 3)
txtD.Text = Cells(Radek, 4)
End Subcitovat
tady lze vyuzit vlastnost ListIndex, ktera rekne, ktera polozka ComboBoxu byla vybrana (poradi se ale cisluje od 0, tak se musi pricist jednicka, aby byl definovan radek).
Takto by mohl vypadat kod:Private Sub ComboBox1_Change()
Dim Radek As Long
Radek = FORM.cbA.ListIndex + 1
txtB.Text = Cells(Radek, 2)
txtC.Text = Cells(Radek, 3)
txtD.Text = Cells(Radek, 4)
End Subcitovat
\n
RSS nejnovější články