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變成使用者功能?

樓主熱帖

av8d

大學生 Rank: 4

帖子: 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

av8d

大學生 Rank: 4

帖子: 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

mark15jill

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

高中生 Rank: 3 Rank: 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

mark15jill

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

高中生 Rank: 3 Rank: 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..

以下是一種方法.

'userform1
Private Sub CommandButton1_Click()
For uu = 1 To 25
With Controls("Checkbox" & uu)
.Caption = Cells(uu + 1, 1)
End With
Next
UserForm1.Hide
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
Dim mycheckbox1 As MSForms.CheckBox
With UserForm1
.Width = 400
.Height = 400
.StartUpPosition = 2
End With
For soa = 1 To 400 Step 80
For sob = 1 To 400 Step 80
With UserForm1.Controls.Add("forms.checkbox.1")
.Top = 10 + soa
.Left = 10 + sob
.Height = 50
.Width = 50
.Caption = .Name
End With
Next
Next
End Sub

複製代碼

'userform2
Private Sub UserForm_Initialize()
Dim mycombobox1 As MSForms.ComboBox
With UserForm2
.Height = 400
.Width = 400
.StartUpPosition = 2
End With
With UserForm2.Controls.Add("forms.combobox.1")
.Height = 40
.Width = 100
.Top = 10
.Left = 10
For us = 2 To 26
.AddItem (UserForm1.Controls("checkbox" & us - 1).Caption)
Next
End With
End Sub

複製代碼

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

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

  少看=只看不做也枉然

TOP

av8d

大學生 Rank: 4

帖子: 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: 3 Rank: 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