| |
▼kanabun さん：
takeshiです。kanabunさんの記述の通りに入力してみました。
すると、自分の思ったとおりに動きました！か、感動です!!
10日くらい考えて、どうにもならずにあきらめかけてたので、感慨ひとしおです。
ほんとに、ありがとうございます！
でも、一か所だけうまくいかない箇所があります。
順々にリストから選択していって最後に単価が自動的に出るまでいったんですが、もう一回、得意先名を変更しようとすると、エラーが出ます。（実際、仕事で使用する際には得意先の箇所は一度入れると変更することはほぼないんですが・・・。）
「実行時エラー'381' Listプロパティの値を取得できません。プロパティの配列のインデックスが無効です。」と出ます。
デバッグしてみると、
Private Sub ComboBox2_Change()
Dim i As Long, j As Long, Index As Long, lot As Long
Index = ComboBox2.ListIndex
With ComboBox3
.Clear
i = -1
For j = 1 To 6 Step 2
→→→ lot = Val(ComboBox2.list(Index, j))
If lot > 0 Then
i = i + 1
.AddItem lot 'ロット(受注)数
.list(i, 1) = ComboBox2.list(Index, j + 1)
End If
Next
.ListIndex = i
End With
End Sub
→の段が黄色反転しています。
どうしたらいいのか、また迷っています。すみませんが、教えてもらえないでしょうか？
|
|
takeshi
- 08/9/21(日) 1:34 -
