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

VBALearner

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

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

複製代碼

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

lpk187

回復 1# VBALearner

必須區分大小寫，然後 應該是 ccont.Font.Size = 12
    If TypeName(ccont) = "ComboBox" Or TypeName(ccont) = "TextBox" Then ccont.Font.Size = 12

lpk187

回復 1# VBALearner


    已執行的控制項的name屬性無法在執行中變更名稱，但可以在Controls.Add在新增控制項時給予名稱

VBALearner

回復 2# lpk187

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

VBALearner

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

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

複製代碼

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

GBKEE

回復 6# VBALearner

1. If typename(ccont) = "combobox" and ccont.Name = "籌碼日*" Then

複製代碼

lpk187 不是說了,TypeName 的字母大小寫要完全一樣.
再改一下為 ccont.Name Like  "籌碼日*"

lpk187

回復 5# VBALearner


    在創建一個Userform的同時，先修改Userform.font屬性，再創建控制項，其控制項也會同Userform同一樣屬性
是不用寫程式的！
但先創建控制項再修改Userform.font屬性，其屬性就會不同！

VBALearner

回復 8# lpk187

喔喔了解了謝謝指教!

VBALearner

回復 7# GBKEE

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

GBKEE

回復 9# VBALearner

1. With MultiPage1
   
2.         .Font.Size = 25
   
3.         .ForeColor = vbRed
   
4.   End With

複製代碼