[發問] 讓所有ComboBox的Caption字體大小都是12

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-8-11 17:32 | 顯示全部帖子

[發問] 讓所有ComboBox的Caption字體大小都是12

本帖最後由 VBALearner 於 2016-8-11 17:34 編輯

請問各位高手
小弟我正在設計有Multipage的Userform(name : 表單)
現在面臨到幾個問題想請教各位~~~
1.如何用程式讓Userform上面所有的Textbox跟Combobox字型都是12 ? 以下程式是我試寫在表單的程式碼裡，但不知為何執行無效，應該跟多個控制項在不同pages沒關吧...還是說只能在Initialize裡同時執行更改屬性?

Sub test()
Dim ccont As Control
For Each ccont In 表單.Controls
if typename(ccont) = "combobox" or typename(ccont) = "textbox" then ccont.Caption.Font.Size = 12
Next ccont
End Sub

複製代碼

2.Multipages底下page的標籤Caption字型字體大小或顏色有辦法改變嗎?
3.有辦法批量更改各個page的控制項name屬性嗎? 例如:page2的combobox有10個，則此頁的combobox.name = "page2combobox1"....10，順序隨機沒關係
謝謝指教!

樓主熱帖

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

2^#

發表於 2016-8-12 00:06 | 顯示全部帖子

回復 2# lpk187

那請問一下我如果不要在Userform_Initialize程式碼才做更改屬性動作，要直接更改所有控制項預設的字體大小，該如何執行程式碼?
因為我更改完程式執行後，每個控制項的font屬性還是沒有變...

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

3^#

發表於 2016-8-12 00:48 | 顯示全部帖子

對所有name屬性為A開頭的ComboBox...

再度請教各位高手
我想對所有表單上控制項name屬性為A開頭的ComboBox作以下設定

Private Sub UserForm_Initialize()
Dim ccont As Control
Dim ar
ar = Array("1", "3", "5")
For Each ccont In Me.Controls
If typename(ccont) = "combobox" and ccont.Name = "籌碼日*" Then ccont.List = ar
Next
End Sub

複製代碼

請問程式錯在哪裡? 執行無效果...
謝謝指教

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

4^#

發表於 2016-8-12 11:31 | 顯示全部帖子

回復 8# lpk187

喔喔了解了謝謝指教!

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

5^#

發表於 2016-8-12 11:35 | 顯示全部帖子

本帖最後由 VBALearner 於 2016-8-12 11:36 編輯

回復 7# GBKEE

阿阿懂了~~~我以為是"T"ype"N"ame的大小寫要一樣，原來是指"ComboBox"大小寫
改用Like居然成功了!! 可以請問超級版主是為什麼嗎O___O?! 小弟還嫩...
喔對了~~還有Multipages底下page的標籤Caption字型字體大小或顏色有辦法改變嗎?