Excel VBA質問箱 IV

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

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


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

61749 / 76732

←次へ　｜　前へ→


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

ichinose - 04/11/10(水) 7:24 -


	引用なし

	パスワード

▼Yamayama さん：
おはようございます。
インパクトのない投稿をしてしまったので気がつかなかったのでしょう・・・。
投稿したコードは、単にWithステートメントで囲んだだけではありません。

>Private Sub CommandButton1_Click()
　with combobox2
>'項目
　　Cells(ComboBox1.Value + 0, 2) = .List(.ListIndex, 0)
>'称呼
　　Cells(ComboBox1.Value + 0, 4) = .List(.ListIndex, 1)
>'単価
　　Cells(ComboBox1.Value + 0, 5) = .List(.ListIndex, 2)
>'番号
　　Cells(ComboBox1.Value + 0, 10) = .List(.ListIndex, 3)
>'原価
　　Cells(ComboBox1.Value + 0, 11) = .List(.ListIndex, 4)
　 end with

項目を例に挙げれば、

・・・・=.List(.ListIndex, 0)

Yamayama さんが変更したコードと見比べてみて下さい。

Listindexの前に「.」が付いています。

1 hits

▼

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