Excel VBA質問箱 IV

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

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


73912 / 76732 ←次へ | 前へ→

【7292】Re:複数のシートにまたがるデータの集計
回答  INA  - 03/9/1(月) 9:57 -

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

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

0 hits

【7288】複数のシートにまたがるデータの集計 daiko 03/8/31(日) 21:02 質問
【7291】Re:複数のシートにまたがるデータの集計 Jaka 03/9/1(月) 9:55 回答
【7292】Re:複数のシートにまたがるデータの集計 INA 03/9/1(月) 9:57 回答
【7350】Re:複数のシートにまたがるデータの集計 daiko 03/9/2(火) 22:58 お礼

73912 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free