返回列表 上一主題 發帖

[發問] Userform裡用迴圈抓ToggleButton名稱

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-3-27 14:04 | 只看該作者

[發問] Userform裡用迴圈抓ToggleButton名稱

小弟在userform裡放置50個ToggleButton

分別命名為A1 A2....A50

使用者於點選後將數值傳到sheet1裡

想用For來減少編碼，如下：

For i = 1 to 50

　x = "A" & i

　If x = Ｔrue Then sheet1.cells(0+i,1) = 編號.value

Next

但是抓不到值

請問如何才能抓到呢？謝謝。
收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2014-3-28 09:41 | 只看該作者
回復 2# lifedidi

For i = 1 To 44
  Controls("A" & i).Caption = Sheet3.Cells(i + 1, 2)
Next
學海無涯_不恥下問

TOP

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
3#
發表於 2014-3-28 08:54 | 只看該作者
感謝大大的幫忙，

小弟有找到方法了，

For A = 1 To 44

AA = "A" & A

Controls(AA).Caption = Sheet3.Cells(1 + A, 2).Value

Next

如果有類似問題的人可以參考看看，謝謝。

TOP

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
2#
發表於 2014-3-27 16:23 | 只看該作者
大大檔案如下

抓資料.rar (26.41 KB)

這是用在廠內規劃

因為有很多廠 第一個廠就44塊方格 總共還有五個 大概要200個方格

之後還要利用兩百個方格 做不同月份的編輯 所以 編起來太龐大 希望藉由迴圈的方式

有勞大大，謝謝。

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題