Excel VBA質問箱 IV

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

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


51027 / 76732 ←次へ | 前へ→

【30581】Re:月毎の集計方法についてです
回答  Statis  - 05/10/31(月) 11:43 -

引用なし
パスワード
   こんにちは
お試しを(Sheet2=集計シートのレイアウトもコード化してあります)

Sub test()
Dim Sh As Worksheet, R As Range, C As Range
Dim Fi As Range, Ad As String, Ma As Variant, Da As String

Set Sh = Worksheets("Sheet2")
Sh.Cells.ClearContents
Sh.Range("B1").Value = "4月"
Sh.Range("B1").AutoFill Destination:=Sh.Range("B1:M1"), Type:=xlFillDefault

With Worksheets("Sheet1")
   .Columns(1).AdvancedFilter xlFilterCopy, , Sh.Range("A1"), True
   Set R = Sh.Range("A2", Sh.Range("A65536").End(xlUp))
   For Each C In R
     Set Fi = .Columns(1).Find(C.Value, , xlValues, xlWhole)
     If Not Fi Is Nothing Then
      Ad = Fi.Address
      Do
       Set Fi = .Columns(1).FindNext(Fi)
       Da = Month(Fi.Offset(, 1))
       Ma = Application.Match(Da & "月", Sh.Rows(1), 0)
       If Not IsError(Ma) Then
         C.Offset(, Ma - 1).Value = Fi.Offset(, 2).Value
       End If
      Loop Until Ad = Fi.Address
     End If
     Set Fi = Nothing
   Next C
   Set R = Nothing:Set Sh = Nothing
End With

End Sub
0 hits

【30566】月毎の集計方法についてです ebi 05/10/31(月) 0:34 質問
【30576】Re:月毎の集計方法についてです ちくたく 05/10/31(月) 10:20 回答
【30580】Re:月毎の集計方法についてです ちくたく 05/10/31(月) 11:28 発言
【30579】Re:月毎の集計方法についてです とまと 05/10/31(月) 11:26 発言
【30581】Re:月毎の集計方法についてです Statis 05/10/31(月) 11:43 回答
【30583】Re:月毎の集計方法についてです とまと 05/10/31(月) 13:50 回答
【30599】みなさん、ありがとうございました ebi 05/10/31(月) 17:07 お礼

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