hugh0620

¼Ó¥D­nªº¥u¬O§â°Ï¶¡ªº­È±a¥X
         ´£¨Ñ¤TºØ¤è¦¡°Ñ¦Ò,§Æ±æ¥i¥H¸Ñ¨M¼Ó¥Dªº°ÝÃD
         ¨ç¼Æ=LOOKUP(E4,$B$4:$B$7,$A$4:$A$7)
         «ö¶s¦¡ :¦Û¦æ³]©w¤@­Ó«ö¶s,±Nµ{¦¡½X¶K¤W,­YSHEET¤£¤@¼Ë½Ð¦Û¦æ­×§ï
                        Private Sub CommandButton1_Click()
                                Do Until Sheet1.Range("E" & 4 + I) = ""
                                          Sheet1.Range("F" & 4 + I) = Application.Lookup(Sheet1.Range("E" & 4 + I), Sheet1.Range("B4:B7"), Sheet1.Range("A4:A7"))
                                         I = I + 1
                              Loop
                        End Sub
           ¦Û°Ê±a¥X:¿é¤J­È«á,¦Û¦æ§PÂ_,­YSHEET¤£¤@¼Ë½Ð¦Û¦æ­×§ï
           Private Sub Worksheet_Change(ByVal Target As Range)
                          If Target.Count >= 2 Then Exit Sub
                         If Target.Column <> 5 Or Target.Offset(0, 0) = "" Then Exit Sub
                                Target.Offset(0, 1) = Application.Lookup(Target.Offset(0, 0), Sheet3.Range("B4:B7"), Sheet3.Range("A4:A7"))
           End Sub