返回列表 上一主題 發帖

[發問] VB程式碼寫法簡化 - 指定範圍輸入

liebe

帖子
28 
主題
20 
精華
0 
積分
70 
點名
0  
作業系統
windows 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2017-7-4 
最後登錄
2018-8-13 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2017-8-4 15:04 | 只看該作者

[發問] VB程式碼寫法簡化 - 指定範圍輸入

各位大大們好!
目前正以VB userform 來輸入指定範圍的數值，想請教大大們以下程式碼是否能加以簡化呢?
對VB還不是很熟，還請大大們教教我!
感謝大家!

程式碼:
Private Sub CommandButton2_Click()
Range("B11").Value = Val(TextBox1)
Range("C11").Value = Val(TextBox7)
Range("D11").Value = Val(TextBox13)
Range("E11").Value = Val(TextBox19)
Range("B12").Value = Val(TextBox2)
Range("C12").Value = Val(TextBox8)
Range("D12").Value = Val(TextBox14)
Range("E12").Value = Val(TextBox20)
Range("B13").Value = Val(TextBox3)
Range("C13").Value = Val(TextBox9)
Range("D13").Value = Val(TextBox15)
Range("E13").Value = Val(TextBox21)
Range("B14").Value = Val(TextBox25)
Range("C14").Value = Val(TextBox26)
Range("D14").Value = Val(TextBox27)
Range("E14").Value = Val(TextBox28)
Range("B15").Value = Val(TextBox4)
Range("C15").Value = Val(TextBox10)
Range("D15").Value = Val(TextBox16)
Range("E15").Value = Val(TextBox22)
Range("B16").Value = Val(TextBox5)
Range("C16").Value = Val(TextBox11)
Range("D16").Value = Val(TextBox17)
Range("E16").Value = Val(TextBox23)
Range("B17").Value = Val(TextBox6)
Range("C17").Value = Val(TextBox12)
Range("D17").Value = Val(TextBox18)
Range("E17").Value = Val(TextBox24)
Unload Me
End Sub
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2017-8-10 20:29 | 只看該作者
ay 是按順序儲存Button序號的陣列，所以用迴圈跑完就能讀取所有Button內容
其中r與c變數是計算以B11為原點，位移幾列，幾欄的計算，完成妳希望的排列方式
學海無涯_不恥下問

TOP

liebe

帖子
28 
主題
20 
精華
0 
積分
70 
點名
0  
作業系統
windows 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2017-7-4 
最後登錄
2018-8-13 
3#
發表於 2017-8-10 14:37 | 只看該作者
回復 2# Hsieh

Hsieh超級版主大大真得很感謝你!
但對於以下這三行我不是很了解
抱歉因為是新手想多學一點，所以問題比較多
不知道能否稍微和我解釋一下
感謝!
For i = 0 To UBound(ay)
r = Int(i / 4): c = i Mod 4
  [B11].Offset(r, c) = Controls("TextBox" & ay(i)).Value

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2017-8-7 16:20 | 只看該作者
  1. Private Sub CommandButton2_Click()
  2. ay = Array(1, 7, 13, 19, 2, 8, 14, 20, 3, 9, 15, 21, 25, 26, 27, 28, 4, 10, 16, 22, 5, 11, 17, 23, 6, 12, 18, 24)
  3. For i = 0 To UBound(ay)
  4. r = Int(i / 4): c = i Mod 4
  5.   [B11].Offset(r, c) = Controls("TextBox" & ay(i)).Value
  6. Next
  7. Unload Me
  8. End Sub
複製代碼
回復 1# liebe
學海無涯_不恥下問

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題