匿名質問者
匿名質問者匿名質問者とは「匿名質問」を利用して質問した質問者。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら

エクセルVBA

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

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

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

質問者から

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

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

回答(2件)

匿名回答1号 No.1

匿名回答1号「匿名質問」を利用した質問に回答すると「匿名回答○号」と匿名で表示されます。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら
2014/09/23 09:15:32

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

匿名回答2号 No.2

匿名回答2号「匿名質問」を利用した質問に回答すると「匿名回答○号」と匿名で表示されます。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら
2014/09/27 22:43:48

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

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

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

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

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

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません