マクロの使い方

質問

マクロのＶＢＳを使用して1～Ｎまでの数値を足していくプログラムを作成したいのですが、うまくいきません。
テキストボックスを２つ作成し、コマンドボタンからの操作ですが、以下のようにしました。
a = 0
For i = 1 To N
N = TextBox2.Text
a = a + i
Next
TextBox1.Text = a
テキストボックス2に適当な数値を入れてみたのですが、うまくいきませんでした。間違っているところを教えてください。

回答No.1

ASIMOV · ベストアンサー

N = TextBox2.Text
の位置が間違っています
これでは
For i = 1 To N
で、Nの値が０（不定）なので、Forループの中が実行されません
N = TextBox2.Text
を、外に出し

a = 0
N = TextBox2.Text
For i = 1 To N
a = a + i
Next
TextBox1.Text = a

で、どうでしょうか