Excel VBA質問箱 IV

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

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


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

8818 / 76732

←次へ　｜　前へ→


	【73482】Re:テキストボックスからセルへ　For文

さんたぱぱ - 13/1/14(月) 22:17 -


	引用なし

	パスワード

▼UO3 さん：

ありがとうございます。

ステップ実行を試してみましたが、1行ずつ進んでいってもセルに変化はありませんでした。

U03、ichinoseさんとも間違いはなさそうとのことでしたので、他に原因があるのか考えてみたのですが、テキストボックスの入力は、予めワークシートに入力したデータをリストボックスに表示させ、それを選択して値を取得し、修正するようになっています。

そこに問題があるのでしょうか？

Private Sub ListBox1_Click()

　　DB行 = ListBox1.Value + 1　　　'リストボックス内で選択された行数 + 1
　　txtBox0.Text = Worksheets("売上データ").Cells(DB行, 1)
　　txtBox1.Text = Worksheets("売上データ").Cells(DB行, 2)
　　txtBox2.Text = Worksheets("売上データ").Cells(DB行, 3)
　　txtBox3.Text = Worksheets("売上データ").Cells(DB行, 4)
　　txtBox4.Text = Worksheets("売上データ").Cells(DB行, 5)
　　txtBox5.Text = Worksheets("売上データ").Cells(DB行, 6)
　　txtBox6.Text = Worksheets("売上データ").Cells(DB行, 7)
　　txtBox7.Text = Worksheets("売上データ").Cells(DB行, 8)
　　txtBox8.Text = Worksheets("売上データ").Cells(DB行, 9)
　　txtBox9.Text = Worksheets("売上データ").Cells(DB行, 10)
　　txtBox10.Text = Worksheets("売上データ").Cells(DB行, 11)
　　txtBox11.Text = Worksheets("売上データ").Cells(DB行, 12)
　　txtBox12.Text = Worksheets("売上データ").Cells(DB行, 13)
　　txtBox13.Text = Worksheets("売上データ").Cells(DB行, 14)
　　txtBox14.Text = Worksheets("売上データ").Cells(DB行, 15)
　　txtBox15.Text = Worksheets("売上データ").Cells(DB行, 16)
　　txtBox16.Text = Worksheets("売上データ").Cells(DB行, 17)
　　txtBox17.Text = Worksheets("売上データ").Cells(DB行, 18)
　　txtBox18.Text = Worksheets("売上データ").Cells(DB行, 19)
　　txtBox19.Text = Worksheets("売上データ").Cells(DB行, 20)
　　
End Sub

となっています。

リストボックの値はRowSourceに売上データ!a2:t100として取得しています。

引き続きご教授いただけますでしょうか。

>プロシジャで使う変数はすべて明示的に宣言されるべきかと思います。
ichinoseさんご指摘のプロパティ同様、習慣づけます。

212 hits

▼

【73462】テキストボックスからセルへ　For文 さんたぱぱ 13/1/13(日) 21:15