Excel VBA質問箱 IV

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

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


72036 / 76738 ←次へ | 前へ→

【9189】Re:ワークシートの集計
回答  りん E-MAIL  - 03/11/20(木) 18:12 -

引用なし
パスワード
   ど素人 さん、こんばんわ。

>一つのワークシートに、ブックが150ぐらいあります。
>同じ行の列を集計したいのですが(略)
>ダグ名は追加したり削除したりしますので、毎回変更しないといけないので、
>誰か良い方法を教えて下さい。

串刺し計算ではだめでしょうか?

Sub test()
  '一番左のシートが合計表示シート(それ以外のシートは循環参照になるので除外)
  If ActiveSheet.Index = 1 Then
   With ActiveWorkbook
     ActiveCell.FormulaR1C1 = "=SUM('" + _
                .Worksheets(2).Name & ":" & _
                 .Worksheets(.Worksheets.Count).Name & "'!RC)"
   End With
  End If
End Sub

こんな感じです。

↓手で入力するならこんな感じ。
ttp://www.sharp.co.jp/mebius/excel/excel21b.html

0 hits

【9186】ワークシートの集計 ど素人 03/11/20(木) 17:10 質問
【9187】Re:ワークシートの集計 INA 03/11/20(木) 17:53 回答
【9222】Re:ワークシートの集計 ど素人 03/11/24(月) 17:24 お礼
【9189】Re:ワークシートの集計 りん 03/11/20(木) 18:12 回答
【9221】Re:ワークシートの集計 ど素人 03/11/24(月) 17:19 お礼

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