Excel VBA質問箱 IV

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

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


15730 / 76734 ←次へ | 前へ→

【66479】Re:シート間の和
質問  ウータン  - 10/9/5(日) 22:28 -

引用なし
パスワード
   ▼かみちゃん さん:

なんとか苦心の末動くようになりました。
A3〜B77セルという部分をfor構文にて表現したのですが、
もし、もっと綺麗な表現方法があれば後学のためご教授ください。


Sub SUM関数のあてはめ()
 Dim c As Integer
 Dim r As Integer

 With Workbooks("TEST.xls")
  For c = 1 To 2
   For r = 3 To 77
    .Worksheets("合計").Cells(r, c) = "=SUM(" & .Sheets(2).Name & ":" & .Sheets(Worksheets.Count).Name & "!" & Cells(r, c).Address(0, 0) & ")"
   Next r
  Next c
 End With
End Sub
0 hits

【66461】シート間の和 ウータン 10/9/5(日) 5:55 質問
【66463】Re:シート間の和 UO3 10/9/5(日) 8:33 回答
【66467】Re:シート間の和 ウータン 10/9/5(日) 9:29 質問
【66468】Re:シート間の和 かみちゃん 10/9/5(日) 9:33 発言
【66479】Re:シート間の和 ウータン 10/9/5(日) 22:28 質問
【66480】Re:シート間の和 かみちゃん 10/9/5(日) 22:40 発言
【66481】Re:シート間の和 ウータン 10/9/5(日) 22:52 お礼
【66482】Re:シート間の和 かみちゃん 10/9/5(日) 22:54 発言
【66484】Re:シート間の和 ウータン 10/9/5(日) 23:05 お礼

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