Excel VBA質問箱 IV

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

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


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

52620 / 76732

←次へ　｜　前へ→


	【28947】Re:検索後SUM計算させたい！！

Hrk - 05/9/19(月) 13:32 -


	引用なし

	パスワード

▼TOKU さん：
アドヴァンスオートフィルター後

Sub 集計()　　
Dim rng As Range
Set rng = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
If rng.Row >1 Then
rng.Cells(3, 5).Formula = "=subtotal(9," & rng.Address & ")"
End If
End Sub
のコードで出来ると思いますよ。

>
>>>区分　　内容　　　時間　　　　　　【集計結果】
>>> A　　　　　　　　5分　　　　　　　区分　　　時間　　　　　
>>> B　　　　　　　 10分　　　　　　　　A
>>> A　　　　　　　　2分　　　　　　　 B
>>> B　　　　　　　　3分　　　　　　　 C
>>> C　　　　　　　　4分
>>> C　　　　　　　　4分
>>> ・　　　　　　　　・
>>> ・　　　　　　　　・
>
>以上、宜しくお願い致しますｍ（＿＿）ｍ
>

0 hits

▼

【28875】検索後SUM計算させたい！！ TOKU 05/9/16(金) 23:21