Excel VBA質問箱 IV

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

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


52624 / 76736 ←次へ | 前へ→

【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分
>>> ・        ・
>>> ・        ・
>
>以上、宜しくお願い致しますm(__)m
>

0 hits

【28875】検索後SUM計算させたい!! TOKU 05/9/16(金) 23:21 質問
【28879】Re:検索後SUM計算させたい!! ichinose 05/9/17(土) 8:24 発言
【28944】Re:検索後SUM計算させたい!! TOKU 05/9/19(月) 8:57 質問
【28947】Re:検索後SUM計算させたい!! Hrk 05/9/19(月) 13:32 発言
【28962】Re:検索後SUM計算させたい!! ichinose 05/9/19(月) 19:07 発言
【29046】Re:検索後SUM計算させたい!! TOKU 05/9/22(木) 13:16 お礼

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