TEST»P¸ê®ÆÀÉ(§÷®Æ)¤u§@ªí¤ñ¹ï

plyl

Private Sub AA_Click()
Dim myrow, myrow2 As Integer

For myrow = 4 To 50  
If Sheets("TEST").Cells(myrow, 1) = "" Then Exit For
    For myrow2 = 2 To 5000
      If Sheets("¸ê®ÆÀÉ").Cells(myrow2, 1) = "" Then Exit For
      If Sheets("¸ê®ÆÀÉ").Cells(myrow2, 1) = Sheets("TEST").Cells(myrow, 1) = Sheets("¸ê®ÆÀÉ").Cells(myrow2, 18) Then _
      Sheets("TEST").Cells(myrow, 2) = Sheets("¸ê®ÆÀÉ").Cells(myrow2, 18):
    Exit For
  
Next
Next
End Sub
µù:1.§Ú¦³¨â­Ó¤u§@ªí"TEST' "¸ê®ÆÀÉ"
    2.TEST("A4:A50")»P¸ê®ÆÀÉ("A2:A500")°µ¤ñ¹ï
     3.§¹¥þ§k¦X´N±N¸ê®ÆÀÉ("A3")¶K¨ìTEST ("B4")


³Â·Ð¤j¤jÀ°§Ú¸ÑªR­þ¸Ì¥X¿ùÁÂÁ·P®¦
ªì¾ÇªÌ

GBKEE

¦^´_ 9# plyl
¤èªk2
If Sheets("TEST").Cells(myrow, 1) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 1) Then
              'ITO RECIPE
              If Sheets("TEST").Cells(myrow, 1) = "" Then Exit For  '©ñ³o¸Ì¤~¥¿½T              Sheets("TEST").Cells(myrow3, 41) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 32)
              'ITES ¥iRUN 01 OR 02
              Sheets("TEST").Cells(myrow3, 64) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 33)
              myrow3 = myrow3 + 1
End If

plyl

If Sheets("TEST").Cells(myrow, 1) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 1) Then

Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 1)  ¦³¸ê®Æ

¤èªk1
Dim myrow, myrow2, myrow3 As Integer

    myrow3 = 4

    For myrow = 4 To 50
    If Sheets("TEST").Cells(myrow, 1) <> "" Then        For myrow2 = 3 To 5000

            If Sheets("TEST").Cells(myrow, 1) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 1) Then
                    'ITO RECIPE
                    Sheets("TEST").Cells(myrow3, 41) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 32)
                    'ITES ¥iRUN 01 OR 02
                    Sheets("TEST").Cells(myrow3, 64) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 33)
                    myrow3 = myrow3 + 1
            
            End If

        Next
    End If    Next

¤èªk2
Dim myrow, myrow2, myrow3 As Integer

    myrow3 = 4

    For myrow = 4 To 50

        For myrow2 = 3 To 5000

            If Sheets("TEST").Cells(myrow, 1) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 1) Then
                    'ITO RECIPE
                    Sheets("TEST").Cells(myrow3, 41) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 32)
                    'ITES ¥iRUN 01 OR 02
                    Sheets("TEST").Cells(myrow3, 64) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 33)
                    myrow3 = myrow3 + 1
             If Sheets("TEST").Cells(myrow, 1) = "" Then Exit For         
           End If

        Next

    Next
¥Ø«e´ú¸Õ¨âºØ¤èªk¦h¥i¥H§ì¨ì¸ê®Æ
½Ð°Ý¤èªk2ªºµ²ºc¬O¤£¬O¿ùªº
GBKEEª©¥D ¨¯­W±z¤F!¤p§Ì¥Ñ°J·PÁÂ

GBKEE

¦^´_ 7# plyl
If Sheets("TEST").Cells(myrow, 1) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 1) Then
¦p³o±ø¥ó¦¨¥ß®É  ½Ð°ÝSheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 1)¬O¦³¸ê®Æªº¶Ü?
                    'ITO RECIPE
              Sheets("TEST").Cells(myrow3, 41) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 32)
                   'ITES ¥iRUN 01 OR 02
                Sheets("TEST").Cells(myrow3, 64) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 33)
                    myrow3 = myrow3 + 1
             If Sheets("TEST").Cells(myrow, 1) = "" Then Exit For     {§Ú¬O©ñ¦b³o¸Ì}      
             ¦p ¦³¸ê®Æ ¤W¦¡¥Ã¤£·|¦¨¥ßªº
End If

plyl

¦^´_  plyl
Private Sub AA_Click()
    Dim myrow, myrow2, myrow3 As Integer
    myrow3 = 4
    F ...
GBKEE µoªí©ó 2011-3-21 17:28

   {­ì¨Ó¬O³o¼Ë©ñ
   ¬O¤£¬OFor myrow = 4 To 50 ¦pªG20¬OªÅ®æ ·|Â÷¶}For myrow ªº¦^°é}

   Dim myrow, myrow2, myrow3 As Integer

    myrow3 = 4

    For myrow = 4 To 50

        For myrow2 = 3 To 5000

            If Sheets("TEST").Cells(myrow, 1) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 1) Then
                    'ITO RECIPE
                    Sheets("TEST").Cells(myrow3, 41) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 32)
                    'ITES ¥iRUN 01 OR 02
                    Sheets("TEST").Cells(myrow3, 64) = Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 33)
                    myrow3 = myrow3 + 1
             If Sheets("TEST").Cells(myrow, 1) = "" Then Exit For     {§Ú¬O©ñ¦b³o¸Ì}      
           End If

        Next

    Next

GBKEEª©¥D ¨¯­W±z¤F!¤p§Ì¥Ñ°J·PÁÂ

GBKEE

¦^´_ 5# plyl
Private Sub AA_Click()
    Dim myrow, myrow2, myrow3 As Integer
    myrow3 = 4
    For myrow = 4 To 50
   If Sheets("TEST").Cells(myrow, 1) = "" Then Exit For   ¬O¥[¦b³o¸Ì¶Ü?
   ¿ù¤F, °²¦p¤W¦¡ªºmyrow=10 ¥B  Sheets("TEST").Cells(myrow, 1) = ""  ·|Â÷¶}For myrow ªº¦^°é
   ¨º  myrowªº 11,12,13....... ªºSheets("TEST").Cells(myrow, 1) ´N¤ñ¹ï¤£¨ì¤F
   ½Ð§ï¦¨   
   If Sheets("TEST").Cells(myrow, 1) <> "" Then      
        For myrow2 = 2 To 5000
            If Sheets("TEST").Cells(myrow, 1) = Sheets("¸ê®ÆÀÉ").Cells(myrow2, 1) Then
                    Sheets("TEST").Cells(myrow3, 2) = Sheets("¸ê®ÆÀÉ").Cells(myrow2, 1)
                    myrow3 = myrow3 + 1
            End If
        Next
    End If    
    Next
End Sub

plyl

3.§¹¥þ§k¦X´N±N¸ê®ÆÀÉ("A3")¶K¨ìTEST ("B4")
¬O"D3"
myrow3 = myrow3 + 1 "­ì¨Ó­«ÂI´N¦b³o"
§Ú¤S¦b³o«á­±¤S¥[¤@¦æ¤£µM¸õ¤£¥X¥h
If Sheets("TEST").Cells(myrow, 1) = "" Then Exit For

GBKEEª©¥D ¨¯­W±z¤F!¤p§Ì¥Ñ°J·PÁÂ

GBKEE

¦^´_ 1# plyl
3.§¹¥þ§k¦X´N±N¸ê®ÆÀÉ("A3")¶K¨ìTEST ("B4")
³o¥y¹ï¶Ü?
¬O§_¬O   §¹¥þ§k¦X´N±N "¸ê®ÆÀÉ"ªº¸ê®Æ ±qTEST ("B4")©¹¤U¶K¤W

1. Option Explicit
   
2. 'µù:1.§Ú¦³¨â­Ó¤u§@ªí"TEST' "¸ê®ÆÀÉ"
   
3.    '2.TEST("A4:A50")»P¸ê®ÆÀÉ("A2:A500")°µ¤ñ¹ï
   
4.    '3.§¹¥þ§k¦X´N±N¸ê®ÆÀÉ("A3")¶K¨ìTEST ("B4")
   
5. Private Sub AA_Click()
   
6.     Dim myrow, myrow2, myrow3 As Integer
   
7.     myrow3 = 4
   
8.     For myrow = 4 To 50
   
9.         For myrow2 = 2 To 5000
   
10.             If Sheets("TEST").Cells(myrow, 1) = Sheets("¸ê®ÆÀÉ").Cells(myrow2, 1) Then
    
11.                     Sheets("TEST").Cells(myrow3, 2) = Sheets("¸ê®ÆÀÉ").Cells(myrow2, 1)
    
12.                     myrow3 = myrow3 + 1
    
13.             End If
    
14.         Next
    
15.     Next
    
16. End Sub

½Æ»s¥N½X

plyl

¥X²{  «¬ºA¤£²Å¦X (¿ù»~ 13)

ªì¾ÇªÌ

GBKEE

If Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 1) = Sheets("TEST").Cells(myrow, 1)  AND  Sheets("¸ê®ÆÀÉ(§÷®Æ)").Cells(myrow2, 18) Then