Excel VBA質問箱 IV

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

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


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

51291 / 76732

←次へ　｜　前へ→


	【30312】Re:最終行の計算、条件付の行のみの計算

Jaka - 05/10/25(火) 9:06 -


	引用なし

	パスワード

オートフィルタしている範囲が、よく解りませんけど、A1からしてあるとし、かつ現金がオートフィルタしてある物として。
こんな感じに。
　　 A　　　B　　　 C・・・・
1　XX ▼ 　XX ▼　 XX ▼

Dim Cel As Range, SavAD As String, GK As Long, HK As Long
With ActiveSheet.AutoFilter.Range
　　SavAD = "I1"
　　On Error Resume Next
　　For Each Cel In .Columns("F").SpecialCells(xlCellTypeVisible)
　　　　If Cel.Row <> 1 Then
　　　　　 Cel.Offset(, 1).Resize(, 2).SpecialCells(xlCellTypeBlanks).Value = 0
　　　　　 GK = GK + Cel.Offset(, 1).Value
　　　　　 HK = HK + Cel.Offset(, 2).Value
　　　　　 Cel.Offset(, 3).Value = Val(Range(SavAD)) + Cel.Offset(, 1).Value - Cel.Offset(, 2).Value
　　　　　 SavAD = Cel.Offset(, 3).Address(0, 0)
　　　　End If
　　Next
　　Range("G1").Offset(.Rows.Count).Value = GK
　　Range("H1").Offset(.Rows.Count).Value = HK
　　Range("I1").Offset(.Rows.Count).Value = GK - HK
End With

0 hits

▼

【30282】最終行の計算、条件付の行のみの計算 琴葉 05/10/24(月) 14:10