このような事は可能でしょうか?
特定のシート(複数)のA1が選択されている状態でSheet1のB1に選択されているセルの合計を出す事は可能でしょうか。
理論上可能かだけ知りたいです。
可能であれば詳細も兼ねて別途質問しようと思います。
こんな感じのことですか?
3D集計(串刺し集計)--Excel・エクセル
できそうな気がします。
下のコードを実行すると、sheet1~sheet4(シートの名前は無関係)の
各シートの中で、選択されているセルが数値の場合のみ、その数値を合計し、
sheet1(シートの名前はどうであっても)のC5(Cells(5, 3))に入れてくれます。
各シートで選択されているセルは、
B1ではなくても、どの位置でも、いくつのセルでも、
シートごとに違うセルが選択されていても、
選択してあれば、合計はしてくれます。
Sub test()
Dim r As Range
Dim rtotal As Double
rtotal = 0
For i = 1 To 4
Sheets(i).Activate
For Each r In Selection.Cells
If IsNumeric(r) = True Then
rtotal = rtotal + r.Value
End If
Next r
Next
Sheets(1).Activate
Sheets(1).Cells(5, 3) = rtotal
End Sub
コメント(0件)