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

GBKEE

¦^´_ 6# acdx

1. Private Sub UserForm_Initialize()   'ExportResult(ªí³æ¼Ò²Õ)
   
2. Dim Ob()   '<-³oDim Ob ÅÜ¼Æ ¥u¥i¥H¦b UserForm_Initializeµ{§Ç¤¤¨Ï¥Î
   
3. Ob = Array(100, 125, 160, 200, 250, 315, 400, 500, _
   
4.             630, 800, 1000, 1250, 1600, 2000, 2500, 3150, _
   
5.             4000, 5000, 6300, 8000, 10000, 12500, 16000, 20000)
   
6. End Sub

½Æ»s¥N½X

1. Option Explicit         'ExportResult(ªí³æ¼Ò²Õ)
   
2. Dim Ob(), Msg As Boolean  ' ³o¨â¦æµ{¦¡½X ½Ð©ñ¦b ExportResult(ªí³æ¼Ò²Õ)ªº³Ì¤WºÝ
   
3. (¦p¦¹³oDim Ob ÅܼÆ,ExportResult(ªí³æ¼Ò²Õ)©Ò¦³µ{¦¡¥i¥G¥sªº)
   
4. Private Sub CommandButton2_Click()
   
5. Unload Me
   
6. ALtoolbox.Show
   
7. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 9# ML089
¦^´_ 10# GBKEE
©ú¥Õ¤F¡A¤S®³ Lookup ©M Index ¤ñ¸û¤@¤U¡A¤]¬OÃþ¦ü±¡§Î
    v1 = Application.Lookup(0, Array(1, 2, 3))
    v2 = Application.Index(Array(1, 2, 3), 4)
¬Ù²¤ WorkSheetFunction => ¥u·|¨Ï¨ç¼Æ¶Ç¦^¿ù»~­È
¦³¥[ WorkSheetFunction => ³y¦¨°õ¦æ¶¥¬q¿ù»~
¤]ÁÂÁ´£¨ÑÅܳq¤èªk°Ñ¦Ò¡C