Hsieh

¦^´_ 2# acdx

1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2. ob = Array(100, 125, 160, 200, 250, 315, 400, 500, 630, 800, 1000, 1250, 1600, 2000, 2500, 3150, 4000, 5000, 6300, 8000, 10000, 12500, 16000, 20000)
   
3. Set dic = CreateObject("Scripting.Dictionary")
   
4. For Each ky In ob
   
5.    dic.Add ky, ky
   
6. Next
   
7. If dic.exists(Val(TextBox1)) = False Then MsgBox "¿é¤J­È¿ù»~"
   
8. End Sub

½Æ»s¥N½X