s3526369

¦^´_ 1# PIPI

1. Private Sub mya_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2. Dim rn As Range
   
3. For Each rn In Sheets("sheet1").Range("A2:A1000" & Sheets("Á`«~¶µ").Cells(Rows.Count, "A").End(xlUp).Row)
   
4.    If mya.Text = rn Then
   
5.         myb.Value = Sheets("Á`«~¶µ").Cells(rn.Row, "B")
   
6.         Exit For
   
7.        ' MsgBox ("§¹¦¨")
   
8.     Else
   
9.         myb.Value = "¬dµL¦¹¸ê®Æ"
   
10.     End If
    
11. Next
    
12. End Sub

½Æ»s¥N½X

¦bmya¿é¤J§¹°ê»Ú½X¦Û°Ê¿é¤Jmyb¶µ¥Ø