Excel 當有很多CheckBox1_Click時，要如何簡化程式

作者： -
http://tw.knowledge.yahoo.com/question/question?qid=1511051305752





該如何簡化以下程式

Private Sub CheckBox1_Click()

If CheckBox1.Value = False Then

TextBox1.Enabled = False

TextBox1 = ""

TextBox2 = ""

Else

TextBox1.Enabled = True

End If

TextBox270 = Str(Val(TextBox2) + Val(TextBox4) + Val(TextBox6) + _

Val(TextBox8) + Val(TextBox10) + Val(TextBox12) + Val(TextBox14) + _

Val(TextBox16) + Val(TextBox18) + Val(TextBox20) + Val(TextBox22) + _

Val(TextBox24) + Val(TextBox26))

End Sub

 

Private Sub CheckBox2_Click()

If CheckBox2.Value = False Then

TextBox3.Enabled = False

TextBox3 = ""

TextBox4 = ""

Else

TextBox3.Enabled = True

End If

TextBox270 = Str(Val(TextBox2) + Val(TextBox4) + Val(TextBox6) + _

Val(TextBox8) + Val(TextBox10) + Val(TextBox12) + Val(TextBox14) + _

Val(TextBox16) + Val(TextBox18) + Val(TextBox20) + Val(TextBox22) + _

Val(TextBox24) + Val(TextBox26))

End Sub

 

Private Sub CheckBox3_Click()

If CheckBox3.Value = False Then

TextBox5.Enabled = False

TextBox5 = ""

TextBox6 = ""

Else

TextBox5.Enabled = True

End If

TextBox270 = Str(Val(TextBox2) + Val(TextBox4) + Val(TextBox6) + _

Val(TextBox8) + Val(TextBox10) + Val(TextBox12) + Val(TextBox14) + _

Val(TextBox16) + Val(TextBox18) + Val(TextBox20) + Val(TextBox22) + _

Val(TextBox24) + Val(TextBox26))

End Sub

 






  • 2011-05-13 22:06:46 補充


    To：chu 大大
    我不會使用陣列
















<h3> 最佳解答</h3>
  • 發問者自選







回答者：

擅長領域：

回答時間：









金桔 ( 實習生 4 級 )

商務應用 | 桌上型電腦
2011-05-22 08:09:05



[ 檢舉 ]












將重複的句子獨立寫出一個，再利用迴圈來執行

如下方式：

 

Sub 使用迴圈()

Dim A%, V%, B%, Y%

V = 1

For A = 1 To 3

    If UserForm1.Controls("CheckBox" & A).Value = False Then ' UserForm1為表單

   UserForm1.Controls("TextBox" & V).Enabled = False ' UserForm1為表單

   UserForm1.Controls("TextBox" & V).Value = "" ' UserForm1為表單

   UserForm1.Controls("TextBox" & V + 1).Value = "" ' UserForm1為表單

    Else

   UserForm1.Controls("TextBox" & V).Enabled = True ' UserForm1為表單

    End If

    V = V + 2

Next A

 

B = 0

For Y = 1 To 14

   B = B + Str(Val(UserForm1.Controls("TextBox" & Y * 2).Value)) ' UserForm1為表單

Next Y

   TextBox270 = B

End Sub

 

Private Sub CheckBox1_Click()

使用迴圈

End Sub

 

Private Sub CheckBox2_Click()

使用迴圈

End Sub

 

Private Sub CheckBox3_Click()

使用迴圈

End Sub

留言

張貼留言

這個網誌中的熱門文章

歐姆龍 HEM-7600T 評價，購買心得分享(打臉文)

作者： -
3/28 電話購買歐姆龍 HEM-7600T 3/29 貨到，立馬量血壓126/76、心中覺得怪怪的，         將歐姆龍 HEM-7600T血壓計拿到醫院後，先用醫院的血壓計測量 136/86、         接著使用歐姆龍 HEM-7600T 測量一樣還是126/76，同一時間內這誤差也太大了。 4/1 16:57 打去客服回答說， 1、誤差10上下算正常， ( 打臉文 < 電子血壓計到底準不準  > 文章有提到誤差5算可以接受) 2、我就說130不算高血壓，而140就是高血壓了，這樣怎麼決定我要不要吃藥？       這樣的誤差還說正常。 3、客服跟我說不信可以問醫生，我4/3號跑去總公司問，回答卻說沒有誤差10這回事。 4、客服說可能我有做其它事情才測量不準(例如：運動、咳嗽、講話)。 打電話問賣家，賣家也講了一堆幹話 1、跑步會影響血壓。 2、咳嗽會影響血壓。 3、要退貨要先證明機器有問題才能退，去歐姆龍總公司拿數據。 4、機器本來就會有誤差正負3。 5、醫院的血壓計會調高一點，怕消費者提告。 6、新產品一定比較好。 打臉文 < 教授隔空交手歐姆龍 血壓計不准認錯難 > 跑去總公司也是在說幹話 1、機器剛出廠都有校正過，機器沒問題 2、可以給數據證明 機器沒問題 ，但不是證明 血壓準不準 。(ps:醫療器材你跟我說不準？) 購買七天內本來就可以退，不需要數據。 消基會1950。 我就當場打電話問店家說，總公司說 七天內 可以退不需要數據。 賣家才說請自行寄回辦理退貨。 得出結論是，血壓計一定沒問題，但就是 測量數據 會不準，一定是測量的人有問題 1、一邊 拉屎 一邊測量血壓。 2、一邊 跑步 一邊測量血壓。 3、一邊 咳嗽 一邊測量血壓。 所以你到醫院用腕隧道式測量的時候，會拿著儀器 拉屎+測量血壓 ，或著是測量的時候 咳嗽 。 但是，我在台安醫院測量時，那邊的 服務人員 是不會讓我這樣做的，就是我想也沒辦法做。 感覺是 我的智商 有問題，還是 歐姆龍客服 智商有問題，還是 台安醫院 的人員有問題？ 不相信的人可以自行測試客服打 0809 080 880訊問 1、就問我剛買了歐姆龍 HEM-7600T，機器不準怎麼辦，我同時在醫院測量，卻數據不一樣。
閱讀完整內容

超任 三國志3代，登入武將金手指

作者： -
新登入武將 7ED0DB 陸指 250 7ED0DC 水指 250 7ED0DD 武力 200 7ED0DE 知力 200 7ED0DF 政治 200 7ED0E0 魅力 220(DC) 、魅力210(D2)，煲書+7忠誠。 魅力 220 計略"作敵"會失敗。 16進制→魅力230(E6)、魅力210(D2)、魅力200(C8) 新君主一 　 新君主一 新君主二 新君主三 新君主四 新君主五 新君主六 新君主七 顏 7E2004 7E2020 7E203C 7E2058 7E2074 7E2090 7E20AC 性別 7E2005 7E2021 7E203D 7E2059 7E2075 7E2091 7E20AD 陸指 7E2008 7E2024 7E2040 7E205C  7E2078 7E2094 7E20B0 水指 7E2009 7E2025 7E2041 7E205D 7E2079 7E2095 7E20B1 武力  7E200A 7E2026 7E2042 7E205E 7E207A 7E2096 7E20B2 智力 7E200B 7E2027 7E2043 7E205F 7E207B 7E2097 7E20B3 政治 7E200C 7E2028 7E2044 7E2060 7E207C 7E2098 7E20B4 魅力 7E200D 7E2029 7E2045 7E2061 7E207D 7E2099 7E20B5 月  7E200E 　 　 　 　 　 　 日 E200F 　 　 　 　 　 　 年紀
閱讀完整內容

年青人眼鏡評價(負評)，辛酸血淚史分享文

作者： -
2019/05/07  花費四年的時間與金錢，終於確認(年青人眼鏡) 度數配錯， 只要 度數正確 ，沒有 戴習慣 問題，沒有 視差 問題。 (目前有，遠、中、近、多焦、近近、五付眼鏡， 證實打臉驗光師 )。 文章最下面有配眼鏡相關知識網址。 經過本人幾年的努力，在此公開配眼鏡心得， 如果消費者還是想在年青人配眼鏡( 不建議 )， 請先網路上尋找「年青人眼鏡 客訴」關鍵字， 那麼為了自己的消費權益， 以下一定.. 要懂..要懂..要懂 ..(很重要所以講三次)。 通常驗光時OK，可是眼鏡配出來就不行。 主因有三點 、有可能驗光出問題。(人為或機器出問題) 、有可能磨片出問題。(人為或機器出問題) 、驗光師對散光的細節沒注意到。 可能發生的問題是： 、在年情人配眼鏡，有可能磨片錯誤。 、在年青人配眼鏡，驗光師人員經驗跟水準良莠不齊。 、在年青人配眼鏡，配好後需要再去別家測試度數是否正確。 、同一天不同家驗光，會有不同的數據。 、在年青人配眼鏡，要有客訴的準備。 、在年青人配眼鏡，反應問題後，會發現當初幫你的驗光師不在了。 、在年青人配眼鏡，不會幫你注意適合的鏡框。 、在年青人配眼鏡，洗鏡片會刮傷。 只有自己學會，才有辦法保障權益 一、在年青人配眼鏡，需自己先學會看 處方箋 ， 教學文連結 二、在年青人配眼鏡，需自己懂得挑 適合的鏡框 ， 教學文連結 三、在年青人配眼鏡，有 散光 的消費者要更加小心，有四個數據都一定要懂。 四、在年青人配眼鏡，請保留 最初 的「 驗光數據 」及 日期 。 五、在年青人配眼鏡，請保留 實際 的「 鏡片數據 」及 日期 。(鏡片請至 眼科 驗光) 如果真的走到客訴這步：(公司電話：0286636890、官網http://tw.ypgo.net/ 、FB官網)。 只有你真正學會了，才有辦法保障自己權益 、不要太相信年青人眼鏡內部的溝通反應。 、一定要讓自己的問題正確無誤的反應到上級。 、一定要確保自己連絡的人是不是主官。 、所有對話過程，一定要 錄音 ，小心店家反告你，保護自己也保護店家。 文章歡迎轉載，減少受害者 。 故事： 在105年11月在年青人配眼鏡一副，說是要看電腦用的，配好之後反應怪怪的， 店家卻說：「戴久了就習慣了，而且本來就會有 視差 。
閱讀完整內容