Hsieh

¦^´_ 4# 317

1. Sub ex()
   
2. ym = InputBox("¿é¤J¤J³f¦~¤ë", , 201308)
   
3. For Each a In Range("H:H").SpecialCells(xlCellTypeConstants)
   
4.    If IsDate(a) Then
   
5.       If Format(Cells(a.Row, "B"), "yyyymm") = ym Then
   
6.          mystr = IIf(mystr = "", Cells(a.Row, "B").Text & " " & Cells(a.Row, "C") & "¨ì´Á¤é" & a.Text, mystr & Chr(10) & Cells(a.Row, "B").Text & " " & Cells(a.Row, "C") & "¨ì´Á¤é" & a.Text)
   
7.       End If
   
8.    End If
   
9. Next
   
10. MsgBox mystr
    
11. End Sub

½Æ»s¥N½X