Excel VBA質問箱 IV

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

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


67956 / 76734 ←次へ | 前へ→

【13325】Re:集計表の作り方について
回答  中2のVBA通  - 04/5/1(土) 18:34 -

引用なし
パスワード
   たぶん一番短いコードはこうでしょう。
For to next の中にFor Each in … Nextっていうくり返し処理をします。

Dim i As Byte, j As Long
Dim o As Range
j = 0
 For i = 1 to 5
  For Each o in Range(Cells(i, 1):Cells(i, 5))
   j = j + o.Value
  Next o
  Cells(i, 6).Value = j
 Next i

これで 金額を求めます
For each で一定のセル範囲に対して、一回ずつ処理をして行くので、
それを for next (数値のくり返し)と連携させています
総額を表示は
j = 0
for each o in Range(cells(1, 5):cells(65536, 5).end(xlup))
  j = j + o.value
next o
  答えを入れたいセル.value = j

自動的にはちょっと分かんないのですみません(T。T)
あと、意図が違っていたらごめんなさい
ではさよなら
3 hits

【13321】集計表の作り方について MICHIKO 04/5/1(土) 17:32 質問
【13325】Re:集計表の作り方について 中2のVBA通 04/5/1(土) 18:34 回答
【13331】Re:集計表の作り方について Asaki 04/5/1(土) 20:10 回答
【13334】Re:集計表の作り方について MICHIKO 04/5/1(土) 21:03 質問
【13338】Re:集計表の作り方について Asaki 04/5/2(日) 16:09 回答
【13355】Re:集計表の作り方について MICHIKO 04/5/2(日) 22:19 お礼
【13357】Re:集計表の作り方について 中2のVBA通 04/5/2(日) 22:35 発言

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