Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61803 / 76738

←次へ　｜　前へ→


	【19549】コンボボックスの不具合について

Yamayama

- 04/11/8(月) 23:07 -


	引用なし

	パスワード

お世話になります

　VBAを利用して見積書を作成しています。
ComboBoxを利用して商品名を選択してＯＫボタンで自動的に「品名」「称呼」「金額」
「番号」「原価」を入力したいのですがうまく動作しません

　UserForm上にComboBox1,ComboBox2,CommandButtonを配置しています。

ComboBox1で各項目を入力させる行番号を指定して、ComboBox2で商品の各項目を選択

CommandButtonで見積書の行番号11行から31行のComboBox1で指定した行に入力するよう
以下のように書きました

Private Sub CommandButton1_Click()

'項目
　　Cells(ComboBox1.Value + 0, 2) = ComboBox2.List(ListIndex, 0)
'称呼
　　Cells(ComboBox1.Value + 0, 4) = ComboBox2.List(ListIndex, 1)
'単価
　　Cells(ComboBox1.Value + 0, 5) = ComboBox2.List(ListIndex, 2)
'番号
　　Cells(ComboBox1.Value + 0, 10) = ComboBox2.List(ListIndex, 3)
'原価
　　Cells(ComboBox1.Value + 0, 11) = ComboBox2.List(ListIndex, 4)
　　
End Sub

問題点1
　　ComboBox2で目的の商品名を選択してもすべて最初の商品名が見積書に入力される。
問題点2
　　1つの商品につき5項目あるのに3項目しか入力されない

ComboBox2の項目は別のシートに「品名」A3「称呼」B3「金額」C3「番号」D3「原価」E3
の順に商品の数だけ入力、ComboBox2では入力した数きちんと表示されてます。

見積書には、「品名」B「称呼」D「金額」F「番号」R「原価」S列の11行から31行のComboBox1で指定した行に入力したい

ComboBox2の参照先はプロパティRowSourceに　項目!A3:E7 と入力しています。

よろしくお願いします

　

1 hits

▼

【19549】コンボボックスの不具合について Yamayama 04/11/8(月) 23:07

≪