VBA 整数加算の方法

質問

初歩的なことだとは思いますがエクセルVBAで
ラベル１にテキストボックス１～４０までの
総数（整数）を加算する時はLabel1=Val(Textbox1)+val(Textbox2)+・・・
＋Val(Textbox40)とゆうふうに並べるのではなく簡単に
する方法を教えていただきたいのですが？

回答No.5

noname#79209

> 今回は入力するところをテキストボックス、
> 確認するところはラベルを使用しただけですが・・・
VBAということなので、多分フォームをお使いだと推察しますが、通常、ラベルは表題やテキスト・ボックスの項目名など、固定的なものの表示に使い、
テキスト・ボックスの合計なども一般的にはテキスト・ボックスを使いますので、てっきり「深ーい事情があるのかな」と思ったもので．．．

また、EXCELの場合、元々表計算ソフトなので、わざわざフォームとVBAを使わなくても、セルを使って簡単にSUM(A1:A40)などとすれば良いように思いますし．．．

よくEXCELを表計算ソフトと認識しておらず、「表形式のワープロ」と誤認識していて、ときどき、「ワードとエクセルは何が違うの」という質問されることがあります。
まさか、そう認識されてませんよね？

回答No.4

noname#79209

具体的方法は他の方々がお答えされていますが、
何故、テキストボックスでなくラベルに集計結果を表示されたいのか
後学の為にお教え願いますか？

お礼

すみません。何かあるかわかりませんが、
今回は入力するところをテキストボックス、
確認するところはラベルを使用しただけですが・・・

回答No.3

taocat

こんばんは。
お、頑張ってらっしゃいますねぇ。
隠しオブジェクトTexBoxesを使わない方法を。

'-----------------------------------------------------------
Private Sub CommandButton1_Click()

　Dim Kei As Long
　Dim K As Integer

　For K = 1 To 40
　　　Kei = Kei + CLng(Me.Controls("TextBox" & K).Text)
　Next K

　Label1.Caption = Format(Kei, "#,##0")

End Sub
'----------------------------------------------------------

Val関数は、Format関数などでTextBoxの表示を、
12,345　と３桁区切りにしていた場合、頭の、１２しか取れませんので
CLng関数等で数値に変換して計算させることをお勧めします。

また、Labelへの表示も、1000以上になる時は、
Format関数で３桁区切りで表示した方が見やすいでしょう。

以上です。

お礼

すみません。説明が悪いため、皆さん少々違ったとらえ
かたをされたようです。
上記の親切な回答有難うございます。
別の意味で参考になりました。

回答No.2

Ce_faci

こんばんわ
FOR...NEXT　で４０回加算するのは？

Label1=0
FOR I = 1 to 40
Label1 = Label1 + ACTIVESHEET.TEXTBOXES("Text Box " & I).TEXT
NEXT

お礼

すみません。説明が悪いため、皆さん少々違ったとらえ
かたをされたようです。
上記の回答も別のところで活用させていただきました。
有難うございました。

回答No.1

zap35

Dim idx ,Amount As Integer
For idx = 1 to 40
Amount = Amount + Val(UserForm1.TextBoxes(idx).text)
Next

ではどうですか？　テキストボックスの値が数値でない場合のチェックなどは追加される方が良いと思います。
（すみませんがテストはしていません）

お礼

すみません。説明が悪いため、皆さん少々違ったとらえ
かたをされたようです。
ちょっと、自分には回答の意味がわからないのですが？
すみません。