返回列表 上一主題 發帖

大家好,我是一個VBA新手,我該如何化簡以下程式碼呢?(已解決)

vpower

帖子
155 
主題
56 
精華
0 
積分
242 
點名
0  
作業系統
WinXP 
軟體版本
專業版2002 
閱讀權限
0 
註冊時間
2010-5-29 
最後登錄
2011-7-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-5-20 08:37 | 只看該作者

大家好,我是一個VBA新手,我該如何化簡以下程式碼呢?(已解決)

本帖最後由 vpower 於 2011-5-25 09:41 編輯

以下程式碼感覺非常攏長,不知道是否也方法可以化簡他們呢?
每次增加一個if就要加一個endif,導致下方一堆endif,感覺非常繁雜.
  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.     '農特產品
  30.     If ComboBox2.Value = "農特產品-A級" Then
  31.     TextBox5.Value = ""
  32.     TextBox8.Value = ""
  33.     'ComboBox1.Value = "農特產品"
  34.     TextBox9.Value = ">=1500"
  35.     Else
  36.    
  37.         If ComboBox2.Value = "農特產品-B級" Then
  38.         TextBox9.Value = ""
  39.         'ComboBox1.Value = "農特產品"
  40.         TextBox5.Value = ">=1000"
  41.         TextBox8.Value = "<1500"
  42.         Else
  43.    
  44.             If ComboBox2.Value = "農特產品-C級" Then
  45.             TextBox9.Value = ""
  46.             'ComboBox1.Value = "農特產品"
  47.             TextBox5.Value = ">=500"
  48.             TextBox8.Value = "<1000"
  49.             Else
  50.    
  51.                 If ComboBox2.Value = "農特產品-D級" Then
  52.                 TextBox5.Value = ""
  53.                 TextBox8.Value = ""
  54.                 'ComboBox1.Value = "農特產品"
  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
複製代碼
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-5-20 09:31 | 只看該作者
回復 1# vpower
試試看

簡化2.rar (12.48 KB)

TOP

vpower

帖子
155 
主題
56 
精華
0 
積分
242 
點名
0  
作業系統
WinXP 
軟體版本
專業版2002 
閱讀權限
0 
註冊時間
2010-5-29 
最後登錄
2011-7-18 
3#
發表於 2011-5-25 09:42 | 只看該作者
回復 2# GBKEE


    感謝.

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題