エクセル、マクロにて月を指定して別シートに表示はできるのでしょうか？

質問

エクセル、マクロにて月を指定して別シートに表示はできるのでしょうか？
毎度毎度申し訳ありません。開始日の検索で、5月と打っただけ5月分だけ表示6月とうったら6月が出て来る方法なんてあるのでしょうか？ありましたら、下記のコードをどう直せいいか教えて頂けますでしょうか？宜しくお願い致します。
【作業内容：場所と月を検索、さらに要らない列を消し、別シートに表示】【検索月はC】
　A　B　　　C　　　　　D　　　　　E　　　　　F　　　G　　　H　　　　I　　　J　　　　K
部署　No.　　開始日　　終了日　　　担当者　　設備　　刃名　枚数　　内容 工数 備考
茨城　1　2010/5/7　　2010/5/10　　B緒　　L型　　　K　　16枚 　研削 6.00 東和電気
東京　2　2010/6/7　　2010/6/8　　　B緒　　L型　　　K　　16枚 　研削 6.83 東和電気
茨城　3　2010/5/18　　2010/5/19　　B緒　　L型　　　K　　16枚 　研削 1.50 東和電気
茨城　4　2010/5/16　　2010/5/19　　B緒　　L型　　　K　　16枚 　研削 6.83 東和電気
茨城　5　2010/6/10　　2010/6/10　　B緒　　L型　　　K　　16枚 　研削 6.83 東和電気
↓
A　　B　　　C　　　　　D　　　　E　　　　　F　　
部署　No.　　開始日　　担当者　　内容 　　工数
茨城　1　2010/5/7　　B緒　　　研削 　　6.00
茨城　3　2010/5/16　　B緒　　掃除　　　6.83
茨城　4　2010/5/18　　B緒　　出荷　　　1.50
【コード】
Sub 検索()
Dim R As Long
Dim Row2 As Long '●Sheet2書込み行
Sheets("集計表").Range("A5").CurrentRegion.Clear
Sheets("集計表").Range("A5:F5").Value = Array("依頼部署", "依頼書No.", "研磨開始日", "担当者", "作業内容", "作業内容", "工数")
Row2 = 5
For R = 2 To Sheets("日報").Cells(Rows.Count, "A").End(xlUp).Row
If Sheets("日報").Cells(R, "A") = Sheets("集計表").Range("A2") And _
Sheets("日報").Cells(R, "C") >= Sheets("集計表").Range("B2") And _
Sheets("日報").Cells(R, "C") <= Sheets("集計表").Range("C2") Then
Row2 = Row2 + 1
Sheets("集計表").Cells(Row2, "A").Value = Sheets("日報").Cells(R, "A").Value
Sheets("集計表").Cells(Row2, "B").Value = Sheets("日報").Cells(R, "B").Value
Sheets("集計表").Cells(Row2, "C").Value = Sheets("日報").Cells(R, "C").Value
Sheets("集計表").Cells(Row2, "D").Value = Sheets("日報").Cells(R, "E").Value
Sheets("集計表").Cells(Row2, "E").Value = Sheets("日報").Cells(R, "I").Value
Sheets("集計表").Cells(Row2, "F").Value = Sheets("日報").Cells(R, "J").Value
End If
Next R
'●結果の並べ替え
If Row2 = 5 Then
MsgBox "該当データなし！"
Else
Sheets("集計表").Range("A5:D" & Row2).Sort _
Key1:=Range("B6"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, SortMethod:=xlPinYin
Sheets("集計表").Select
End Sub

回答No.2

myRange · ベストアンサー

前回も回答しましたのでちょっとお付き合い。。。
INPUTBOXは他の方にお任せして。前回同様のレイアウトで

'---------------------------------------------
■日報シート■
見出し行＿＿：　１行目
データ行＿＿：　２行目以降

'---------------------------------------------
■集計表シート■
＿＿Ａ＿＿＿Ｂ＿＿Ｃ＿＿＿Ｄ＿＿Ｅ＿＿Ｆ＿＿
１＿部署＿抽出月＿
２＿●●＿＿●＿＿
３
４
５＿部署＿ＮＯ＿開始日＿担当者＿内容＿工数＿
６
７

●に抽出条件を入れる、
抽出月は、月だけいれる（5月は、５　）

'------------------------------------------------
Sub 検索()
　Dim R As Long
　Dim Row2 As Long '●Sheet2書込み行

　Sheets("集計表").Range("A5").CurrentRegion.Clear
　Sheets("集計表").Range("A5:F5").Value = _
　Array("依頼部署", "依頼書No.", "研磨開始日", "担当者", "作業内容", "工数")
　Row2 = 5

For R = 2 To Sheets("日報").Cells(Rows.Count, "A").End(xlUp).Row
　If Sheets("集計表").Range("A2") = Sheets("日報").Cells(R, "A") And _
　　　Sheets("集計表").Range("B2") = Month(Sheets("日報").Cells(R, "C")) Then

　　　Row2 = Row2 + 1
　　　Sheets("集計表").Cells(Row2, "A") = Sheets("日報").Cells(R, "A")
　　　Sheets("集計表").Cells(Row2, "B") = Sheets("日報").Cells(R, "B")
　　　Sheets("集計表").Cells(Row2, "C") = Sheets("日報").Cells(R, "C")
　　　Sheets("集計表").Cells(Row2, "D") = Sheets("日報").Cells(R, "E")
　　　Sheets("集計表").Cells(Row2, "E") = Sheets("日報").Cells(R, "I")
　　　Sheets("集計表").Cells(Row2, "F") = Sheets("日報").Cells(R, "J")
　End If
Next R

'●抽出結果を日付で並べ替え
　If Row2 = 5 Then
　　　MsgBox "該当データなし！"
　Else
　　　Sheets("集計表").Range("A5:F" & Row2).Sort _
　　　　　　Key1:=Range("C6"), Order1:=xlAscending, _
　　　　　　Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
　　　　　　Orientation:=xlTopToBottom, SortMethod:=xlPinYin
　End If
　Sheets("集計表").Select
End Sub
'------------------------------------------------------

●見やすくするために
Sheets("集計表").Cells(Row2, "A").Valueなどの
Valueプロパティは省略していますが、
これは意味がわかっていたら省略してもＯＫです。
今回のコードでは省略してもＯＫですが、なるべく付けるようにしてください。

●当然ですが、検査値が月だけですので
当然ですがデータが数年分（２００８～２０１０年）あったとき、
２００８年の５月のデータ抽出はできません。

以上です。

お礼

今回も回答有難うございます！
すごくうれしいです！
前回教えて頂いたものもすごくよかったです。
さっそくやってみます！

補足

頼ってばかりで済みませんが、実行時エラーが
If Sheets("集計表").Range("A2") = Sheets("日報").Cells(R, "A") And _
　　　Sheets("集計表").Range("B2") = Month(Sheets("日報").Cells(R, "C")) Then
のところででます。
なぜでしょうか？
少し変えてみてもうまくいきません！教えてください！

回答No.5

myRange

またまたまた、myRangeです。

日報のデータがたっぷりあるとチェックしにくいでしょうから
日報のＣ列でエラーになるセルに色をつけましょうか。
下記コードを走らせてください。結果は次のようになります。

　赤色：　エラーになるデータ
　黄色：　空白（エラーにはならない）

'---------------------------------
Sub test33()
　Dim R As Long
　Dim D
　On Error Resume Next
　For R = 2 To Sheets("日報").Cells(Rows.Count, "A").End(xlUp).Row
　　　Sheets("日報").Cells(R, "C").Interior.ColorIndex = xlNone
　　　If Month(Sheets("日報").Cells(R, "C")) = 99 Then
　　　End If
　　　If Err.Number > 0 Then
　　　Sheets("日報").Cells(R, "C").Interior.ColorIndex = 3
　　　Err.Clear
　　　End If
　　　If Sheets("日報").Cells(R, "C") = "" Then
　　　　　Sheets("日報").Cells(R, "C").Interior.ColorIndex = 6
　　　End If
Next R
End Sub
'-----------------------------------

以上です。

お礼

何度もすみません。
ありがとうございます！
おかげで助かっています。
このコードも使って何とかやってみます！

回答No.4

myRange

またまた登場、myRangeです。

＞頼ってばかりで済みませんが、実行時エラーが
＞If Sheets("集計表").Range("A2") = Sheets("日報").Cells(R, "A") And _
　　　Sheets("集計表").Range("B2") = Month(Sheets("日報").Cells(R, "C")) Then
＞のところででます
＞少し変えてみてもうまくいきません！

エラーが出たら、どのようなエラーかのメッセージが表示されてるはずなのでそれも提示しないといけませんね。
恐らく、「型が一致しません」では？

それから、コードを変更するするのはエラーの原因が分かってからですよ。
闇雲に変更してエラーを回避できるわけがありません。

●まず、データを確認すること。
日報シートのＣ列にちゃんと日付が入っているかどうか確認してください。
それと、コードをよく見て、実際のセル番地とあっているか確かめてください。

以上です。

お礼

回答ありがとうございます！
いままでチョコチョコいじってたしかめながら変更していたら何とかなったので
、きっといままで運がよっかったんですね。
データは平気でしたが、見出しが邪魔なだけでした。
有難うございます。

回答No.3

layy

前回からの修正不十分で、場所と日付に対する判定をすべきところをＮＯを判定しようとしているってことではないですか。

メッセージボックスの機能使って左辺は何、右辺は何、と値を検証してみて下さい。

お礼

回答有難うございます！　
原因がわかりました！
原因案を出していただきありがとうございます。
大元の見出しが検索の邪魔をしていたようです！

回答No.1

layy

今は集計シートのセルに検索値をいれておいて、残りは引っ張ってくる感じですか？。

簡単なところでは、INPUTBOXの使い方を見て下さい。値入力を促す機能です。
この結果値を使うと良いです。

お礼

回答有難うございます。
INPUTBOXですね！やってみます！