テキストボックスの合計について

エクセルのユーザーフォームに １から７までのテキストボックスが
あります。

そして １から６までのテキストボックスに数値を投入していきます。

それぞれの値が確定したら、７のテキストボックスに １から６までの
値の合計が表示されるようなマクロを記述したいのですが、うまく
いきません。

どのように記述したらよいのか教えていただけないでしょうか。

No.3 ベストアンサー 回答者： keithin 回答日時： 2010/04/17 17:57

ん？　

結局質問を投稿し直したのですね。ではマルチポストになってしまうので，前のご質問は解決して閉じる操作を行っておいてください。


ユーザーフォームのシートに次の全部を手抜きせず記載します。

private sub TextBox1_AfterUpdate()
　dim i
　dim res
　for i = 1 to 6
　　res = res + val(me.controls("TextBox" & i).value)
　next i
　textbox7 = res
end sub

private sub TextBox2_AfterUpdate()
　dim i
　dim res
　for i = 1 to 6
　　res = res + val(me.controls("TextBox" & i).value)
　next i
　textbox7 = res
end sub

private sub TextBox3_AfterUpdate()
　dim i
　dim res
　for i = 1 to 6
　　res = res + val(me.controls("TextBox" & i).value)
　next i
　textbox7 = res
end sub

private sub TextBox4_AfterUpdate()
　dim i
　dim res
　for i = 1 to 6
　　res = res + val(me.controls("TextBox" & i).value)
　next i
　textbox7 = res
end sub

private sub TextBox5_AfterUpdate()
　dim i
　dim res
　for i = 1 to 6
　　res = res + val(me.controls("TextBox" & i).value)
　next i
　textbox7 = res
end sub

private sub TextBox6_AfterUpdate()
　dim i
　dim res
　for i = 1 to 6
　　res = res + val(me.controls("TextBox" & i).value)
　next i
　textbox7 = res
end sub

以上です。

この回答へのお礼

無事に行いたい操作ができるようになりました。

ありがとうございました！

お礼日時：2010/04/18 15:39

No.2 回答者： kmetu 回答日時： 2010/04/17 17:37

確定するというのが6のテキストボックスにデータを入力したときでよければ

TextBox6のAfterUpdateで

TextBox7.Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value) + Val(TextBox6.Value)

とかにします

No.1 回答者： edomin7777 回答日時： 2010/04/17 16:54

「マクロを記述したいのですが、うまくいきません。

」
ではなく、エクセルのバージョンと
「～とマクロを記述したのですが、～というエラーが出ました。」
又は、
「～とマクロを記述したのですが、全く反応がありません。」
などの様に、具体的に記述したマクロを補足してください。
（「うまくいきません」で理解できる人は誰もいません。）