Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

73987 / 76807

←次へ　｜　前へ→


	【7292】Re:複数のシートにまたがるデータの集計

INA - 03/9/1(月) 9:57 -


	引用なし

	パスワード

>一つのシートの中に請求金額という欄が１カ所あるとします。
>そして、同じフォーマットのシートが複数あるとします。
>シートの枚数は、件数ごとに増えたり減ったりするので、
>いつも決まった数ではありません。
>この状態で、全シートの請求金額の合計を求める場合、どのような
>計算式にしたらいいのでしょうか？
対象セルはＡ１としてあります。
全シートのＡ１セルの合計をメッセージボックスで表示します。

Private Sub CommandButton1_Click()
Dim X
Dim Total As Long

For Each X In ActiveWorkbook.Sheets
　　Total = Total + X.Range("A1").Value
Next X

MsgBox Total

End Sub

1 hits

▼

【7288】複数のシートにまたがるデータの集計 daiko 03/8/31(日) 21:02