|
▼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さんご指摘のプロパティ同様、習慣づけます。
|
|