返回列表 上一主題 發帖

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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-10-25 13:48 | 只看該作者

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

以圖示舉例~


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

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2012-10-25 14:41 | 只看該作者
本帖最後由 mark15jill 於 2012-10-25 14:44 編輯
以圖示舉例~


圖上的CheckBox皆屬於變動居多~
我想把CheckBox改成ComboBox~
方便修改變動資料~如何將 ...
av8d 發表於 2012-10-25 13:48


小弟的作法
如果今天有 表單A (例如 圖)  表單B(空白)
我會先將 表單A 所有內容(Caption ) 及 名稱 (Name) 匯出後
由 表單B 去接收 並列出 判斷
例如
表單A 之Checkbox 匯出
A1~ A10 = checkbox1.name ~ checkbox10.name  
B1~ B10 =  checkbox1.caption ~ checkbox10.caption

表單B 之 Combobox接收
list(1 to 10)  = A1~ A10
或 矩陣
List( 1 to 10  ,  1 to 10) = ( A1 ~ A10) , (B1 ~ B10)

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
3#
發表於 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

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
4#
發表於 2012-10-25 15:00 | 只看該作者
回復 3# av8d

可以 用 r  和 r=r+1..

以下是一種方法.
  1. 'userform1
  2. Private Sub CommandButton1_Click()
  3.     For uu = 1 To 25
  4.         With Controls("Checkbox" & uu)
  5.             .Caption = Cells(uu + 1, 1)
  6.         End With
  7.     Next
  8.     UserForm1.Hide
  9.     UserForm2.Show
  10. End Sub

  12. Private Sub UserForm_Initialize()
  13.     Dim mycheckbox1 As MSForms.CheckBox
  14.     With UserForm1
  15.         .Width = 400
  16.         .Height = 400
  17.         .StartUpPosition = 2
  18.     End With
  19.     For soa = 1 To 400 Step 80
  20.         For sob = 1 To 400 Step 80
  21.             With UserForm1.Controls.Add("forms.checkbox.1")
  22.                 .Top = 10 + soa
  23.                 .Left = 10 + sob
  24.                 .Height = 50
  25.                 .Width = 50
  26.                 .Caption = .Name
  27.             End With
  28.         Next
  29.     Next

  31. End Sub
複製代碼
  1. 'userform2
  2. Private Sub UserForm_Initialize()
  3.     Dim mycombobox1 As MSForms.ComboBox
  4.     With UserForm2
  5.         .Height = 400
  6.         .Width = 400
  7.         .StartUpPosition = 2
  8.     End With
  9.     With UserForm2.Controls.Add("forms.combobox.1")
  10.         .Height = 40
  11.         .Width = 100
  12.         .Top = 10
  13.         .Left = 10
  14.         For us = 2 To 26
  15.             .AddItem (UserForm1.Controls("checkbox" & us - 1).Caption)
  16.         Next
  17.     End With
  18. End Sub
複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
5#
發表於 2012-10-25 15:02 | 只看該作者
回復  av8d


   找到了一個方法~如下
Private Sub UserForm_Initialize()
CheckBox51.Caption = 工作 ...
av8d 發表於 2012-10-25 14:49



   至於 [c2]的話
可以試用 range("c2") 來使用
因為 [c2] 這方法 小弟比較不熟(羞愧)

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2012-10-26 08:09 | 只看該作者
回復 3# av8d
Me.Controls("CheckBox" & i).Caption = 工作表2.["C" & i-49]  你這裡出錯

回復 5# mark15jill
可以試用 range("c2") 來使用,因為 [c2] 這方法 小弟比較不熟

[ 工作表上 物件或名稱]     不可帶入變數

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
7#
發表於 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

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
8#
發表於 2012-10-26 11:50 | 只看該作者
回復  GBKEE


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



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

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題