GBKEE

¦^´_ 4# baiecesi
¨Ì§AªþÀɪºªí³æ©Ò¼gªºµ{¦¡½X ¸Õ¸Õ¬Ý À³¬O³o¤è­±ªº§@ªk

1. Dim Ar()
   
2. Private Sub UserForm_Initialize()
   
3. 'Initialize ¨Æ¥ó  µo¥Í¦b¤@­Óª«¥ó¸ü¤J«á¡A¦ý©|¥¼Åã¥Üªº®É­Ô¡C
   
4.     ComboBox3.List = Array("Type1", "Type2", "Type3")   'B(Á`­È) ªº¿ï¶µ
   
5.     'B(Á`­È) ªº¿ï¶µ ¥i«ü¦V¤u§@ªíªº¦ì¸m
   
6.     ReDim Ar(UBound(ComboBox3.List))           '­«¸m°}¦C¤¸¯À¼Æ
   
7.     '------¦]¤l¿ï¶µ  ¥i«ü¦V¤u§@ªíªº¦ì¸m
   
8.     Ar(0) = Array(1.15, 1.25)                  'B(Á`­È) ¿ï¶µ1 ªº¦]¤l¿ï¶µ
   
9.     Ar(1) = Array(2.5, 5)                      'B(Á`­È) ¿ï¶µ2 ªº¦]¤l¿ï¶µ
   
10.     '------¿ï¶µ3 ªº¦]¤l¿ï¶µ ½Ð¦Û­×§ï
    
11.   '  Ar(2) = Array(2.5, 5)                      'B(Á`­È) ¿ï¶µ3 ªº¦]¤l¿ï¶µ
    
12.     TextBox1.TabIndex = 1                      '­«·s³]©wªí³æ¤W±±¨î¶µªº TabIndex ¶¶§Ç
    
13.     ComboBox3.TabIndex = 2
    
14.     ComboBox1.TabIndex = 3
    
15. End Sub
    
16. 
    
17. Private Sub ComboBox3_Change()
    
18.     ComboBox1.Clear
    
19.     Label5.Caption = ""
    
20.     If ComboBox3.ListIndex > -1 Then ComboBox1.List = Ar(ComboBox3.ListIndex)
    
21.    
    
22. End Sub
    
23. Private Sub CommandButton1_Click()
    
24.     Dim xT(1 To 3) As Double
    
25.     If ComboBox3.ListIndex = -1 Or ComboBox3.ListIndex = -1 Then
    
26.         Label5.Caption = "ComboBox1.Text * ComboBox3.Text"
    
27.     Else
    
28.         Select Case ComboBox3.ListIndex       '
    
29.             Case 0                            'Type1
    
30.                 xT(1) = 7.58
    
31.                 xT(2) = 0.8
    
32.             Case 1                            'Type2
    
33.                 xT(1) = 7.9661
    
34.                 xT(2) = 0.8
    
35.             Case 2                            'Type3
    
36.                 xT(1) = 8.1238
    
37.                 xT(2) = 0.7243
    
38.         End Select
    
39.         xT(3) = Application.Evaluate("Exp(" & xT(1) & "+" & xT(2) & "* Ln(" & Val(TextBox1) & "))") / 1000
    
40.         Label5.Caption = Round((550 / 500) * xT(3) * Val(ComboBox1), 2)
    
41.     End If
    
42. End Sub
    
43. Private Sub CommandButton2_Click()
    
44.     End
    
45. End Sub

½Æ»s¥N½X