返回列表 上一主題 發帖

[發問] ComboBox1.BackColor問題?

[發問] ComboBox1.BackColor問題?

各位高手前輩們大家好:

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

回復 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

回復  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

回復 3# mark15jill


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

TOP

回復  mark15jill


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


一起精進吧~

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

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

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

  少看=只看不做也枉然

TOP

        靜思自在 : 對父母要知恩,感恩、報恩。
返回列表 上一主題