Excel VBA質問箱 IV

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

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


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

61753 / 76732

←次へ　｜　前へ→


	【19593】Re:コンボボックスの不具合について追伸

Yamayama

- 04/11/10(水) 0:57 -


	引用なし

	パスワード

ichinose　さん
こんばんわ

変更したコードです

private Sub CommandButton1_Click()

With ComboBox2

'項目

　　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 With
　
End Sub

Combobox1に設定しているセル範囲とそのセルの値

11から31が表示できれば良いので「項目」シートのR3～R23へ11～31の数字をいれて

Combobox1のプロパティRowSourceに「項目!R3:R23」と記入しています

Excelのバージョンは2000です

よろしくお願いします

1 hits

▼

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