Excel VBA質問箱 IV

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

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


41244 / 76732 ←次へ | 前へ→

【40569】Re:集計表について
お礼  サン E-MAIL  - 06/7/18(火) 12:24 -

引用なし
パスワード
   ▼Kein さん:

夜遅くまで申し訳ございませんでした。
集計表有難うございました。
いつもいつも申し訳ございません。

お伺いしたいのですが
Range("B65536")の所なのですが
なぜ上のセルを選択しているのか
教えて頂けますでしょうか。
また、どの部分が集計機能の部分か
教えて頂けますでしょうか。

ご面倒な事を頼んでしまい
申し訳ございません。


>集計は、ワークシート関数の SUMIF を使う方法もありますが、
>Excelには集計機能というものもあるので、それを使って・・
>
>Sub My集計()
>  Dim Sh As Worksheet
>
>  Set Sh = Worksheets(2)
>  Application.ScreenUpdating = False
>  With Worksheets(1)
>   With .Range("A1").CurrentRegion
>     .Sort Key1:=.Range("C1"), Order1:=xlAscending, _
>     Header:=xlYes, Orientation:=xlSortColumns
>     .Subtotal 3, xlSum, Array(5, 6, 7)
>   End With
>   With .Range("B2", .Range("B65536").End(xlUp).Offset(1)) _
>   .SpecialCells(4)
>     Intersect(.EntireRow, Range("A:D")).FormulaR1C1 = _
>     "=R[-1]C"
>     .EntireRow.Copy
>     Sh.Range("A2").PasteSpecial xlPasteValues
>   End With
>   Application.CutCopyMode = False
>   .Cells.RemoveSubtotal
>   .Rows(1).Copy
>   Sh.Range("A1").PasteSpecial xlPasteValues
>  End With
>  Sh.Activate: Sh.Range("A1").Select
>  With Application
>   .CutCopyMode = False
>   .ScreenUpdating = True
>  End With
>  Set Sh = Nothing
>End Sub
>
>で、どうかな ?

0 hits

【40478】集計表について サン 06/7/14(金) 15:14 質問
【40490】Re:集計表について kobasan 06/7/14(金) 22:25 回答
【40568】Re:集計表について サン 06/7/18(火) 12:16 お礼
【40652】Re:集計表について kobasan 06/7/19(水) 18:48 回答
【40662】Re:集計表について サン 06/7/20(木) 9:55 お礼
【40732】Re:集計表について サン 06/7/21(金) 16:53 質問
【40739】Re:集計表について kobasan 06/7/21(金) 20:43 回答
【40747】Re:集計表について ichinose 06/7/22(土) 8:13 発言
【40755】Re:集計表について kobasan 06/7/22(土) 18:44 発言
【40759】Re:集計表について ichinose 06/7/23(日) 11:20 発言
【40825】Re:集計表について' kobasan 06/7/24(月) 20:16 発言
【40834】Re:集計表について' ichinose 06/7/24(月) 23:12 発言
【40902】Re:集計表について' kobasan 06/7/25(火) 22:45 お礼
【40782】Re:集計表について サン 06/7/24(月) 10:04 お礼
【40491】Re:集計表について Kein 06/7/14(金) 22:31 回答
【40569】Re:集計表について サン 06/7/18(火) 12:24 お礼
【40632】Re:集計表について Kein 06/7/19(水) 14:22 回答
【40633】Re:集計表について サン 06/7/19(水) 14:28 お礼

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