¤j®a¦n,§Ú¬O¤@­ÓVBA·s¤â,§Ú¸Ó¦p¦ó¤Æ²¥H¤Uµ{¦¡½X©O?(¤w¸Ñ¨M)

vpower

¥H¤Uµ{¦¡½X·Pı«D±`Ãlªø,¤£ª¾¹D¬O§_¤]¤èªk¥i¥H¤Æ²¥L­Ì©O?
¨C¦¸¼W¥[¤@­Óif´N­n¥[¤@­Óendif,¾É­P¤U¤è¤@°ïendif,·Pı«D±`ÁcÂø.

1.     '§«~
   
2.     If ComboBox2.Value = "§«~-A¯Å" Then
   
3.     TextBox5.Value = ""
   
4.     TextBox8.Value = ""
   
5.     'ComboBox1.Value = "§«~(¹ÎÅé)"
   
6.     TextBox9.Value = ">=20000"
   
7.     Else
   
8.    
   
9.         If ComboBox2.Value = "§«~-B¯Å" Then
   
10.         TextBox9.Value = ""
    
11.         'ComboBox1.Value = "§«~(¹ÎÅé)"
    
12.         TextBox5.Value = ">=10000"
    
13.         TextBox8.Value = "<20000"
    
14.         Else
    
15.    
    
16.             If ComboBox2.Value = "§«~-C¯Å" Then
    
17.             TextBox9.Value = ""
    
18.             'ComboBox1.Value = "§«~(¹ÎÅé)"
    
19.             TextBox5.Value = ">=5000"
    
20.             TextBox8.Value = "<10000"
    
21.             Else
    
22.    
    
23.                 If ComboBox2.Value = "§«~-D¯Å" Then
    
24.                 TextBox5.Value = ""
    
25.                 TextBox8.Value = ""
    
26.                 'ComboBox1.Value = "§«~(¹ÎÅé)"
    
27.                 TextBox9.Value = "<5000"
    
28.                 Else
    
29.     '¹A¯S²£«~
    
30.     If ComboBox2.Value = "¹A¯S²£«~-A¯Å" Then
    
31.     TextBox5.Value = ""
    
32.     TextBox8.Value = ""
    
33.     'ComboBox1.Value = "¹A¯S²£«~"
    
34.     TextBox9.Value = ">=1500"
    
35.     Else
    
36.    
    
37.         If ComboBox2.Value = "¹A¯S²£«~-B¯Å" Then
    
38.         TextBox9.Value = ""
    
39.         'ComboBox1.Value = "¹A¯S²£«~"
    
40.         TextBox5.Value = ">=1000"
    
41.         TextBox8.Value = "<1500"
    
42.         Else
    
43.    
    
44.             If ComboBox2.Value = "¹A¯S²£«~-C¯Å" Then
    
45.             TextBox9.Value = ""
    
46.             'ComboBox1.Value = "¹A¯S²£«~"
    
47.             TextBox5.Value = ">=500"
    
48.             TextBox8.Value = "<1000"
    
49.             Else
    
50.    
    
51.                 If ComboBox2.Value = "¹A¯S²£«~-D¯Å" Then
    
52.                 TextBox5.Value = ""
    
53.                 TextBox8.Value = ""
    
54.                 'ComboBox1.Value = "¹A¯S²£«~"
    
55.                 TextBox9.Value = "<500"
    
56.                 Else
    
57.    
    
58.                
    
59.     '¬ö©À«~
    
60.     If ComboBox2.Value = "¬ö©À«~-A¯Å" Then
    
61.     TextBox5.Value = ""
    
62.     TextBox8.Value = ""
    
63.     'ComboBox1.Value = "¬ö©À«~"
    
64.     TextBox9.Value = ">=1500"
    
65.     Else
    
66.    
    
67.         If ComboBox2.Value = "¬ö©À«~-B¯Å" Then
    
68.         TextBox9.Value = ""
    
69.         'ComboBox1.Value = "¬ö©À«~"
    
70.         TextBox5.Value = ">=1000"
    
71.         TextBox8.Value = "<1500"
    
72.         Else
    
73.    
    
74.             If ComboBox2.Value = "¬ö©À«~-C¯Å" Then
    
75.             TextBox9.Value = ""
    
76.             'ComboBox1.Value = "¬ö©À«~"
    
77.             TextBox5.Value = ">=500"
    
78.             TextBox8.Value = "<1000"
    
79.             Else
    
80.    
    
81.                 If ComboBox2.Value = "¬ö©À«~-D¯Å" Then
    
82.                 TextBox5.Value = ""
    
83.                 TextBox8.Value = ""
    
84.                 'ComboBox1.Value = "¬ö©À«~"
    
85.                 TextBox9.Value = "<500"
    
86.                 Else
    
87.     '¦ñ¤â§
    
88.     If ComboBox2.Value = "¦ñ¤â§-A¯Å" Then
    
89.     TextBox5.Value = ""
    
90.     TextBox8.Value = ""
    
91.     'ComboBox1.Value = "¦ñ¤â§"
    
92.     TextBox9.Value = ">=1000"
    
93.     Else
    
94.    
    
95.         If ComboBox2.Value = "¦ñ¤â§-B¯Å" Then
    
96.         TextBox9.Value = ""
    
97.             'ComboBox1.Value = "¦ñ¤â§"
    
98.             TextBox5.Value = ">=500"
    
99.             TextBox8.Value = "<1000"
    
100.         Else
     
101.    
     
102.             If ComboBox2.Value = "¦ñ¤â§-C¯Å" Then
     
103.             TextBox5.Value = ""
     
104.             TextBox8.Value = ""
     
105.             'ComboBox1.Value = "¦ñ¤â§"
     
106.             TextBox9.Value = "<500"
     
107.                                             
     
108.             End If
     
109.         End If
     
110.     End If
     
111.                 End If
     
112.             End If
     
113.         End If
     
114.     End If
     
115.                 End If
     
116.             End If
     
117.         End If
     
118.     End If
     
119.                 End If
     
120.             End If
     
121.         End If
     
122.     End If

½Æ»s¥N½X

vpower

¦^´_ 2# GBKEE


    ·PÁÂ.