Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72036 / 76738

←次へ　｜　前へ→


	【9189】Re:ワークシートの集計

りん

- 03/11/20(木) 18:12 -


	引用なし

	パスワード

ど素人さん、こんばんわ。

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

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

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