Excel VBA質問箱 IV

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

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


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

67956 / 76734

←次へ　｜　前へ→


	【13325】Re:集計表の作り方について

中２のＶＢＡ通 - 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)
あと、意図が違っていたらごめんなさい
ではさよなら

1 hits

▼

【13321】集計表の作り方について MICHIKO 04/5/1(土) 17:32