大家好,我是一個VBA新手,我該如何化簡以下程式碼呢?(已解決) - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 大家好,我是一個VBA新手,我該如何化簡以下程式碼呢?(已解決)

返回列表下一主題上一主題發帖

大家好,我是一個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 複製代碼收藏分享

超級版主 Rank: 8 Rank: 8

帖子: 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)

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

靜思自在 : 對父母要知恩，感恩、報恩。

返回列表下一主題上一主題