帖子: 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，順序隨機沒關係
謝謝指教!

樓主熱帖

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兔年全勤獎章

16^#

發表於 2016-8-14 10:20 | 只看該作者

回復 15# VBALearner

程式碼中
1用滑鼠選取要查看的VBA說明
2 按下F1鍵
VBA的說明視窗出現了

或是程式碼視窗上,按下功能表上的[說明]指令,選擇要查看的說明

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

VBALearner

中學生 Rank: 2

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

論壇贊助勳章

15^#

發表於 2016-8-14 10:05 | 只看該作者

回復 11# VBALearner

好的版主您說的是這個嗎?
https://msdn.microsoft.com/zh-tw/library/office/ff194068.aspx

真心感謝每一位願意分享所學、指導新手的人!

TOP

VBALearner

中學生 Rank: 2

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

論壇贊助勳章

14^#

發表於 2016-8-13 23:57 | 只看該作者

回復 12# c_c_lai

好的謝謝C大的回覆，感謝C大回我很多問題OwQ，感激不盡!

真心感謝每一位願意分享所學、指導新手的人!

TOP

jackyq

中學生 Rank: 2

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

13^#

發表於 2016-8-13 17:02 | 只看該作者

回復 11# VBALearner

善用 google 大神
大神不能叫假的

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

12^#

發表於 2016-8-13 15:56 | 只看該作者

回復 11# VBALearner
ccont.Name = "籌碼日*"
' 必須為絕對吻合值，它將"籌碼日*"視為一體。即 "*" 為一 "*" 字元符號。
ccont.Name Like  "籌碼日*"
' 只要是前三字同 "籌碼日" 名稱的皆可。如 "籌碼日A"、"籌碼日XYZ" 等皆可。
' 換言之、此處之 "*"  是一替代元 (所有的) 表示符號。

TOP

VBALearner

中學生 Rank: 2

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

論壇贊助勳章

11^#

發表於 2016-8-13 13:46 | 只看該作者

[版主管理留言]

GBKEE(2016/8/14 08:15): 多看看 vba 的說明會了解,進步的.

本帖最後由 VBALearner 於 2016-8-13 13:50 編輯

回復 10# GBKEE

對不起超級版主~我問題一直問不完O__Q! 最後一個問題就好
1.為什麼ccont.name Like "籌碼*" 會成功? 改用 = "籌碼*" 就不行?!

真心感謝每一位願意分享所學、指導新手的人!

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兔年全勤獎章

10^#

發表於 2016-8-12 19:32 | 只看該作者

回復 9# VBALearner

With MultiPage1
.Font.Size = 25
.ForeColor = vbRed
End With

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

VBALearner

中學生 Rank: 2

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

論壇贊助勳章

9^#

發表於 2016-8-12 11:35 | 只看該作者

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

回復 7# GBKEE

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

TOP

VBALearner

中學生 Rank: 2

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

論壇贊助勳章

8^#

發表於 2016-8-12 11:31 | 只看該作者

回復 8# lpk187

喔喔了解了謝謝指教!

TOP