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

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 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,感覺非常繁雜. '禮品 If ComboBox2.Value = "禮品-A級" Then TextBox5.Value = "" TextBox8.Value = "" 'ComboBox1.Value = "禮品(團體)" TextBox9.Value = ">=20000" Else If ComboBox2.Value = "禮品-B級" Then TextBox9.Value = "" 'ComboBox1.Value = "禮品(團體)" TextBox5.Value = ">=10000" TextBox8.Value = "<20000" Else If ComboBox2.Value = "禮品-C級" Then TextBox9.Value = "" 'ComboBox1.Value = "禮品(團體)" TextBox5.Value = ">=5000" TextBox8.Value = "<10000" Else If ComboBox2.Value = "禮品-D級" Then TextBox5.Value = "" TextBox8.Value = "" 'ComboBox1.Value = "禮品(團體)" TextBox9.Value = "<5000" Else '農特產品 If ComboBox2.Value = "農特產品-A級" Then TextBox5.Value = "" TextBox8.Value = "" 'ComboBox1.Value = "農特產品" TextBox9.Value = ">=1500" Else If ComboBox2.Value = "農特產品-B級" Then TextBox9.Value = "" 'ComboBox1.Value = "農特產品" TextBox5.Value = ">=1000" TextBox8.Value = "<1500" Else If ComboBox2.Value = "農特產品-C級" Then TextBox9.Value = "" 'ComboBox1.Value = "農特產品" TextBox5.Value = ">=500" TextBox8.Value = "<1000" Else If ComboBox2.Value = "農特產品-D級" Then TextBox5.Value = "" TextBox8.Value = "" 'ComboBox1.Value = "農特產品" TextBox9.Value = "<500" Else '紀念品 If ComboBox2.Value = "紀念品-A級" Then TextBox5.Value = "" TextBox8.Value = "" 'ComboBox1.Value = "紀念品" TextBox9.Value = ">=1500" Else If ComboBox2.Value = "紀念品-B級" Then TextBox9.Value = "" 'ComboBox1.Value = "紀念品" TextBox5.Value = ">=1000" TextBox8.Value = "<1500" Else If ComboBox2.Value = "紀念品-C級" Then TextBox9.Value = "" 'ComboBox1.Value = "紀念品" TextBox5.Value = ">=500" TextBox8.Value = "<1000" Else If ComboBox2.Value = "紀念品-D級" Then TextBox5.Value = "" TextBox8.Value = "" 'ComboBox1.Value = "紀念品" TextBox9.Value = "<500" Else '伴手禮 If ComboBox2.Value = "伴手禮-A級" Then TextBox5.Value = "" TextBox8.Value = "" 'ComboBox1.Value = "伴手禮" TextBox9.Value = ">=1000" Else If ComboBox2.Value = "伴手禮-B級" Then TextBox9.Value = "" 'ComboBox1.Value = "伴手禮" TextBox5.Value = ">=500" TextBox8.Value = "<1000" Else If ComboBox2.Value = "伴手禮-C級" Then TextBox5.Value = "" TextBox8.Value = "" 'ComboBox1.Value = "伴手禮" TextBox9.Value = "<500" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If 複製代碼收藏分享

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	3^# 發表於 2011-5-25 09:42 \| 只看該作者回復 2# GBKEE 感謝.

	TOP