GBKEE

¦^´_ 1# gn00487767
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Option Base 1
   
3. Private Sub CommandButton1_Click()
   
4.     Ex
   
5. End Sub
   
6. Private Sub TextBox1_Change()
   
7.     Ex
   
8. End Sub
   
9. Private Sub Ex()
   
10.     Dim Rng As Range, Ar, i As Integer
    
11.     Ar = Array([C3], [G3], [C5], [G5], [C7], [C9])
    
12.     Set Rng = Sheets("¸ê®Æªí").Range("A:A").Find(WHAT:=TextBox1, LOOKAT:=xlWhole)
    
13.     For i = 1 To UBound(Ar)
    
14.         If Not Rng Is Nothing Then
    
15.             Ar(i).Value = Rng.Offset(, i)
    
16.         Else
    
17.             Ar(i).Value = ""
    
18.         End If
    
19.     Next
    
20. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# gn00487767

1. Private Sub CommandButton1_Click()
   
2.             Ex  '°õ¦æ³oµ{¦¡ = Call Ex   
   
3.             End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# gn00487767
vbaµøµ¡,¦³¤@»¡©ú«ü¥O,¿é¤J Option Explicit ¦³»¡©ú

GBKEE

¦^´_ 12# gn00487767
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, Ar(), m As Variant
   
4.     With Sheets("¦Û°ÊÅã¥Ü")
   
5.         ReDim Ar(2 To .Range("A1").End(xlDown).Row, 1 To 3) '«ü©w¤Gºû°}¦C¤¸¯Àªº¤U­­¯Á¤Þ­È,¤W­­¯Á¤Þ­È
   
6.         For i = 2 To .Range("A1").End(xlDown).Row
   
7.             m = Application.Match(.Range("A" & i), Sheets("¸ê®Æªí").Range("A:A"), 0)
   
8.             'À³¥Î¤u§@ªí¨ç¼Æ·j´M½s¸¹
   
9.             If IsNumeric(m) Then
   
10.                 With Sheets("¸ê®Æªí").Range("A" & m)
    
11.                     Ar(i, 1) = .Range("B1")     '¦WºÙÄæ
    
12.                     Ar(i, 2) = .Range("C1")     '¤é´ÁÄæ
    
13.                     Ar(i, 3) = .Range("D1")     '©m¦WÄæ
    
14.                 End With
    
15.             End If
    
16.         Next
    
17.         .[B2].Resize(UBound(Ar) - 1, UBound(Ar, 2)) = Ar
    
18.     End With
    
19. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 14# gn00487767


   

¤é´Áªº¦a¤èÅã¥Ü¤@¼Ë¬OÄA­Ëªº@@

½Ð¦b¤u§@ªí¤W¤â°Ê§ï¦^­ì¬O¨ä®æ¦¡,¦A°õ¦æµ{¦¡¬Ý¬Ý