匿名質問者

エクセルVBA

このような事は可能でしょうか?
特定のシート(複数)のA1が選択されている状態でSheet1のB1に選択されているセルの合計を出す事は可能でしょうか。

理論上可能かだけ知りたいです。
可能であれば詳細も兼ねて別途質問しようと思います。

回答の条件
  • 1人5回まで
  • 登録:
  • 終了:2014/09/30 02:45:04
匿名質問者

質問者から

匿名質問者2014/09/23 05:08:23

ちなみに特定のシート名は変動するものとします。

回答2件)

匿名回答1号 No.1

こんな感じのことですか?
3D集計(串刺し集計)--Excel・エクセル
できそうな気がします。

匿名回答2号 No.2

下のコードを実行すると、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

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません