帖子: 5
主題: 3
精華: 0
積分: 55
點名: 0
作業系統: WIN10
軟體版本: Office 2019
閱讀權限: 20
性別: 男
註冊時間: 2020-6-22
最後登錄: 2023-5-6

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2022-10-19 00:02 | 只看該作者

[發問] ComboBox1.BackColor問題?

各位高手前輩們大家好:

我將ComboBox1放在SHEET1工作表中,且嘗試用以下程式改變其背景顏色,
Worksheets(1).ComboBox1.BackColor = RGB(255, 0, 0)
問題是程式執行中,顏色不會立刻變,
巨集執行完畢才會變,這不是我想要的效果,我需要COMBOBOX1即時反應顏色,
還請大家不吝指點~

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-11-28

2^#

發表於 2022-10-19 08:56 | 只看該作者

回復 1# luiroger

謝謝前輩發表此主題
後學也很想知道
1.後學以前沒改過背景色,手動設定今天才測試到
2.如果開啟自定表單一開始不會變背景色
3.輸入第一字才變色
今天學習到自訂表單背景改色

手動設定:

剛開啟未變色:

輸入第一字才變色:

Sub TEST()
UserForm1.Show
End Sub

Private Sub ComboBox1_Change()
ComboBox1.BackColor = RGB(255, 255, 0)
End Sub

Private Sub UserForm_Click()

End Sub

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

3^#

發表於 2022-11-27 13:34 | 只看該作者

回復 luiroger

謝謝前輩發表此主題
後學也很想知道
1.後學以前沒改過背景色,手動設定今天才測 ...
Andy2483 發表於 2022-10-19 08:56

如果只是單純表單顯示就把

combobox1.backcolor 變顏色

可以直接把 combobox1.backcolor 放置在

Private Sub UserForm_Initialize()
ComboBox1.BackColor = RGB(255, 255, 0)
end sub

Private Sub ComboBox1_Change()
if combobox1.text<>"" then combobox1.backcolor = rgb(0,0,255)
end sub

這樣表單顯示/內容不為空就會變動顏色

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

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

  少看=只看不做也枉然

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-11-28

4^#

發表於 2022-11-28 08:45 | 只看該作者

回復 3# mark15jill

謝謝前輩指導
測試OK
https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/initialize-event
Initialize 事件: 會在載入物件之後但顯示之前發生。

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^#

發表於 2022-12-4 13:28 | 只看該作者

回復 mark15jill

謝謝前輩指導
測試OK
https://learn.microsoft.com/zh-tw/office/vba/langua ...
Andy2483 發表於 2022-11-28 08:45

一起精進吧~

太久沒碰excel vba 也是再慢慢找回感覺

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

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

  少看=只看不做也枉然

TOP