VBA是否可以建立動態UserForm

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

2^#

發表於 2016-3-11 01:04 | 只看該作者

本帖最後由 jackyq 於 2016-3-11 01:05 編輯

大大自己研究看看
http://stackoverflow.com/questions/10944064/change-individual-listbox-item-font-in-excel

clio

帖子: 132
主題: 31
精華: 0
積分: 167
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-4-14
最後登錄: 2024-2-28

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章

3^#

發表於 2016-3-15 13:42 | 只看該作者

VBA是否可以建立動態UserForm及裡面一控制項及數目

請教各位高手，不知道VBA是否能建立動態的UserForm，及即時決定這個動態的視窗裡面的控制項數目的多少呢？
例如，程式執行中，我可以依據輸入的引數，決定要有幾個Check Box ，幾個Option Button，幾個List Box嗎？感謝您們

clio

clio

帖子: 132
主題: 31
精華: 0
積分: 167
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-4-14
最後登錄: 2024-2-28

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章

4^#

發表於 2016-3-15 13:44 | 只看該作者

感謝您…除了這個，能否有辨法能自動新增其它的控制項，如Option Button, Check box, Label... 等呢？

clio

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

5^#

發表於 2016-3-15 14:18 | 只看該作者

回復 3# clio

Dim TextBox As MSForms.TextBox
Set TextBox = UserForm1.Controls.Add("forms.TextBox.1")
TextBox.Top = 0

Dim ListBox As MSForms.ListBox
Set ListBox = UserForm1.Controls.Add("forms.ListBox.1")
ListBox.Top = 30

Dim Label As MSForms.Label
Set Label = UserForm1.Controls.Add("forms.Label.1")
Label.Top = 120
Label.BorderStyle = fmBorderStyleSingle
Label.Caption = "13123"

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

6^#

發表於 2016-3-15 14:20 | 只看該作者

本帖最後由 jackyq 於 2016-3-15 14:23 編輯

用動態的話
事件就麻煩了
還要多一堆 Class 或者用 hook
才會建議你可以的話用 Listbox 就好了

clio

帖子: 132
主題: 31
精華: 0
積分: 167
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-4-14
最後登錄: 2024-2-28

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章

7^#

發表於 2016-3-15 18:30 | 只看該作者

感謝大大的告知，這樣我就會用了，另外請教一個問題，同理是不是也可以動態Create UserForm呢，可以用程式直接Create一個新的UserForm嗎？

clio

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

8^#

發表於 2016-3-15 19:56 | 只看該作者

' UserForm1 必須事先已經存在

Dim F As UserForm1
Dim TextBox As MSForms.TextBox
Dim ListBox As MSForms.ListBox

Set F = New UserForm1
F.Show 0
F.Caption = "Form 1"
Set TextBox = F.Controls.Add("forms.TextBox.1")
TextBox.Top = 0

Set ListBox = F.Controls.Add("forms.ListBox.1")
ListBox.Top = 30

Set F = New UserForm1
F.Show 0
F.Top = F.Top + 100
F.Left = F.Left + 100
F.Caption = "Form 2"
Set TextBox = F.Controls.Add("forms.TextBox.1")
TextBox.Top = 0

Set ListBox = F.Controls.Add("forms.ListBox.1")
ListBox.Top = 30