返回列表 上一主題 發帖

[發問] 如何將UserForm中的ComboBox變成使用者功能?

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-10-25 13:48 | 顯示全部帖子

[發問] 如何將UserForm中的ComboBox變成使用者功能?

以圖示舉例~


圖上的CheckBox皆屬於變動居多~
我想把CheckBox改成ComboBox~
方便修改變動資料~如何將UserForm中的ComboBox變成使用者功能?
收藏 分享

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
2#
發表於 2012-10-25 14:49 | 顯示全部帖子
回復 1# av8d


   找到了一個方法~如下
Private Sub UserForm_Initialize()
CheckBox51.Caption = 工作表2.[C2]
End Sub

但是如果要讓他跑迴圈~以下出了點問題
Private Sub UserForm_Initialize()
For i = 51 To 77
    Me.Controls("CheckBox" & i).Caption = 工作表2.["C" & i-49]
Next
End Sub

問題點在工作表2.["C" & i-49]
我想讓他
工作表2.[C2]
工作表2.[C3]
工作表2.[C4]
但是這個迴圈錯誤~我在研究看看~這問題我好像遇到過了~大大也解決過@@

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
3#
發表於 2012-10-26 10:55 | 顯示全部帖子
本帖最後由 av8d 於 2012-10-26 11:23 編輯

回復 6# GBKEE


    感謝兩位大大的幫忙~
我想請問G大一個問題~
如果是
Me.Controls("CheckBox" & i).ForeColor = 工作表2.Range("F" & i + 1)

所以我儲存格上必須是&XXXXXXXXX&
我儲存格上=IF(E2="","&H00E0E0E0&",IF(E2="男","&H00FFFFC0&",IF(E2="女","&H00FFC0FF&")))

可是他卻顯示"型態不符合"@@  要再次麻煩G大了!!謝謝!

補充~剛找到了一些線索 RGB(rs("red"), rs("green"), rs("blue"))，似乎是沒用的線索 = =

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
4#
發表於 2012-10-26 11:50 | 顯示全部帖子
回復  GBKEE


    感謝兩位大大的幫忙~
我想請問G大一個問題~
如果是
Me.Controls("CheckBox" & i) ...
av8d 發表於 2012-10-26 10:55



    找到原因了去掉一個&即可

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題