|
>Private Sub combokataban_Change()
↓ これでいいんですか???
>textbox0 = Range("c1").Offset(combokataban.ListIndex).Value
>TextBox1 = Range("d1").Offset(combokataban.ListIndex).Value
>TextBox2 = Range("e1").Offset(combokataban.ListIndex).Value
>
> If ComboBox1.ListIndex <> -1 Then
> MsgBox ComboBox1.List(ComboBox1.ListIndex)
> End If
>
>End Sub
>combokataban.ListIndex ← この辺が全くわかんないんですけど...。
あっているとしたら、こんな感じになるのかなぁ??
なんにしても↓この類が、何をしようとしているのか良く解りません。
>Range("c1").Offset(combokataban.ListIndex).Value
>Private Sub combokataban_Change()
>If ComboBox1.ListIndex <> -1 Then
> textbox0 = Range("c1").Offset(combokataban.ListIndex).Value
> TextBox1 = Range("d1").Offset(combokataban.ListIndex).Value
> TextBox2 = Range("e1").Offset(combokataban.ListIndex).Value
>End If
>End Sub
|
|