VB2005でExcelのアクティブセルに文字を入力したあとに

質問

VB2005初心者です。
VB2005のTextBox1に表示された文字をExcelのActiveCellに入力するプログラムを先ほど教えて頂きました。
そのあとの追加動作でActiveCellに文字を入力した後、ActiveCellを一段下げ、TextBox1の文字が変化したらActiveCellに変化した文字を入力するような繰り返し処理をさせるにはどのようにプログラムすればいいのでしょうか？
以下のコードはTextBox1の文字をActiveCellに表示させるプログラムです。ここにどのように追加すればいいのか教えて頂けませんでしょうか？

Dim xlApp As Object = GetObject(, "Excel.Application")
xlApp.ActiveCell.value = TextBox1.Text
xlApp = Nothing

どうぞよろしくお願いいたします。

回答No.2

shut0325 · ベストアンサー

一行下のセルをアクティブにすればよいので、
xlApp.ActiveCell.value = TextBox1.Text　のあとに
XlApp.Cells(XlApp.ActiveCell.Row + 1, XlApp.ActiveCell.Column).Select
とすれば良いです。

>TextBox1の文字が変化したらActiveCellに変化した文字を入力するような繰り返し処理

これは意味合いとしては
テキストボックスに文字を入力→送信ボタンを押すとExcelのアクティブセルに文字を代入する、、のであればボタンのクリックイベントにプログラムを書くだけです。

ただ、これならExcelだけで完結しそうですね。
プログラムも短くなりますし、、、

お礼

きとんと動くようになりました。どうもありがとうございました。

回答No.1

n-jun

VB2005の前にExcelVBAのユーザーフォームの時ならどうしますか？
多分その応用だと思います。