返回列表 上一主題 發帖

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

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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

Hsieh

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

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

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題