GBKEE

¦^´_ 1# 317

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, f As Range, R As Integer
   
4.     With Sheets("¤u§@ªí1")
   
5.         Set Rng = .Range("C:C").SpecialCells(xlCellTypeConstants)
   
6.         Set f = Rng.Find(InputBox("¿é¤J °s¦W"), LOOKAT:=xlWhole)
   
7.         If Not f Is Nothing Then
   
8.             If .Cells(f.Row, "H") <> "" Then
   
9.                 R = f.Row
   
10.             Else
    
11.                 R = .Cells(f.Row, "H").End(xlUp).Row
    
12.                 If R = Rng.Cells(1).Row Then R = R + 1
    
13.             End If
    
14.             MsgBox f & "¨ì´Á¤é" & .Cells(R, "H")
    
15.         End If
    
16.     End With
    
17. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# 317

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim R As Integer, ym As String, mystr As String, A As Range
   
4.     With Sheets("¤u§@ªí1")
   
5.         R = Range("C:C").SpecialCells(xlCellTypeConstants).End(xlDown).Row
   
6.         ym = InputBox("¿é¤J¨ì´Á¦~¤ë ®æ¦¡[yyyymm]", , Format(.[H4], "YYYYMM"))
   
7.         For Each A In .Range("H:H").SpecialCells(xlCellTypeConstants)
   
8.             If IsDate(A) Then
   
9.               If Format(A, "yyyyMm") = ym Then
   
10.                 If A.End(xlDown).Row > R Then
    
11.                     mystr = Join(Application.Transpose(.Range("C" & A.Row & ":C" & R)), vbLf)
    
12.                 Else
    
13.                     mystr = Join(Application.Transpose(.Range("C" & A.Row & ":C" & A.End(xlDown).Row - 1)), vbLf)
    
14.                 End If
    
15.                 Exit For
    
16.             End If
    
17.         End If
    
18.         Next
    
19.         MsgBox IIf(mystr <> "", ym & " ¨ì´Á" & vbLf & mystr, ym & " ¨S¦³¨ì´Áªº°s")
    
20.     End With
    
21. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# 317
¤W¶ÇÀɮ׬ݬÝ

GBKEE

¦^´_ 11# 317
¹ï¸Ü²°¤¤¥uÅã¥Ü¨ì´Á³fª«, ¦p¿é¤J¨S¦³¨ì¬õ°s¤ë¥÷®É, ¥ç·|§@¥X´£¥Ü¸Ó¤ë¥÷¨S¦³¨ì´Á¬õ°s,
¥i¥H¦A¸ÑÄÀ¤@¤U¶Ü?
¸ÕµÛ­×§ï¦p¤U

1. Option Explicit
   
2. Sub Ex()
   
3.   Dim ym As String, Rng As Range, A As Range, mystr As String, R As Integer
   
4.   ym = InputBox("¿é¤J¤J³f¦~¤ë", , 201308)
   
5.   Set Rng = Range("B:B").SpecialCells(xlCellTypeConstants)
   
6.   For Each A In Rng
   
7.     If IsDate(A) Then
   
8.       If Format(Cells(A.Row, "B"), "yyyymm") >= ym Then  '****
   
9.         If mystr = "" Then mystr = "¤J³f¤é´Á" & vbTab & "½s¸¹" & vbTab & "¦WºÙ" & vbTab & "¯Å§O" & vbTab & "¨ì´Á¤é"
   
10.         If Cells(A.Row, "m") <> "" Then
    
11.           R = A.Row
    
12.         Else
    
13.           R = Cells(A.Row, "m").End(xlUp).Row
    
14.           If R = Rng.Cells(1).Row Then R = R + 1
    
15.         End If
    
16.         mystr = mystr & vbLf & Format(Cells(A.Row, "B"), "yyyy/mm/dd") & vbTab & Cells(A.Row, "c").Text & vbTab & Cells(A.Row, "d").Text & vbTab & Cells(A.Row, "e") & vbTab & Cells(R, "m")
    
17.       End If
    
18.     End If
    
19.   Next
    
20.   MsgBox IIf(mystr <> "", mystr, ym & " ¨S¦³¨ì´Áªº°s")
    
21. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 13# 317

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim ym As String, A As Range, mystr As String, R As Integer, i As Integer
   
4.     With Sheets("¤u§@ªí3")
   
5.         ym = InputBox("¿é¤J¨ì´Á¤é ¦~¤ë", , Format(.[M4], "YYYYMM"))
   
6.         For Each A In .Range("M:M").SpecialCells(xlCellTypeConstants)
   
7.            
   
8.             If Format(A, "yyyymm") = ym Then  '****
   
9.                 Debug.Print A.Row
   
10.                 If mystr = "" Then mystr = "¤J³f¤é´Á" & vbTab & "½s¸¹" & vbTab & "¦WºÙ" & vbTab & "¯Å§O" & vbTab & "¨ì´Á¤é"
    
11.                 If A.End(xlDown).Row <> Rows.Count Then
    
12.                     R = A.End(xlDown).Row - 1
    
13.                 Else
    
14.                     R = .Cells(A.Row, "B").End(xlDown).Row
    
15.                 End If
    
16.                 For i = A.Row To R
    
17.                     mystr = mystr & vbLf & Format(.Cells(i, "B"), "yyyy/mm/dd") & vbTab & .Cells(i, "c") & vbTab & .Cells(i, "d") & vbTab & .Cells(i, "e") & vbTab & .Cells(A.Row, "m")
    
18.                 Next
    
19.             End If
    
20.         Next
    
21.   End With
    
22.   MsgBox IIf(mystr <> "", mystr, ym & " ¨S¦³¨ì´Áªº°s")
    
23. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 15# 317
5¦C¦Ü²Ä8¦C³£¬O¨S¦³¨ì´Á¤é, ¥i§_§â¨S¦³¨ì´Á¤é¤£Åã¥Ü¥X¨Ó,

1. For i = A.Row To R
   
2.                     mystr = mystr & vbLf & Format(.Cells(i, "B"), "yyyy/mm/dd") & vbTab & .Cells(i, "c") & vbTab & .Cells(i, "d") & vbTab & .Cells(i, "e") & vbTab & .Cells(i, "m").Text   '.Cells(A.Row, "m")§ï¦¨.Cells(i, "m")
   
3.                 Next

½Æ»s¥N½X

2,¦bµ¡®Ø¤º²Ä¤@¦æ¼ÐÅÒ½s¸¹,¦WºÙ, ¯Å§O, ¨ì´Á¤é, ¥i§_²¾¦Ü¸Ó¦æ¦ì¸m¤¤¦ì, ¦]³o¬Ý°_¨Ó, ¬O¤£·|¦³²V¶Ã·Pı

  

¤U¸ü (38.51 KB)

2013-9-6 06:16

  
¦p¹Ï ¬O¨Ì 13#ªºÀÉ®×°õ¦æ14#ªºµ{¦¡½X,¨S¦³§A»¡ªº²V¶Ã·Pı.