av8d

回復 10# quickfixer


   謝謝前輩，都凌晨1點了，前輩不辭辛勞，真是很感謝您。
   可以使用，沒問題，受益良多，學習了許多未曾知道的知識領域。

av8d

回復 10# quickfixer

前輩您好，這時提問您可能睡了，等您有空再研究，
我尋找了許久，不知是否有這功能。

計畫透過ComboBox1_Change去調整被選取時的顏色變更，有使用Public公開讓兩邊都能使用，
文字敘述可能不夠詳細，附上附件，請前輩過目，謝謝！

問題延伸2.rar (40.65 KB)

下載次數: 5

2021-9-9 01:40

samwang

回復 12# av8d


如附件請測試看看，謝謝。

av8d

回復 13# samwang

謝謝前輩抽空解惑，原來是使用模組的方式，受益良多，謝謝您不遠千里的幫助。

samwang

回復 14# av8d

不好意思，更新一下您原來的程式碼的一些地方如下紅字，不知是否更符合您需求? 請測試看看，謝謝

Public Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xR As Range
Call 顏色
Set xA = [A4:G1000]
If Target.Column = 3 Then
    'Set xA = [A4:G1000]
    xA.Interior.Pattern = 0
    If Intersect(xA, Target) Is Nothing Then Exit Sub
    For Each xR In xA.Rows
        If Not Intersect(xR, Target) Is Nothing Then
            If Cells(xR.Row, 3) <> "" Then
                xR.Interior.Color = GBY
            Else
                Cells(xR.Row, 3).Interior.Color = GBY
            End If
        End If
    Next
Else
    xA.Interior.Pattern = 0
End If
End Sub

quickfixer

回復 14# av8d


不是的,跟模組無關,是你搞錯了
Public Sub,Private Sub不是拿來傳變數
samwang有幫你修正程式了,只是把一部份搬到模組

你#12的檔案,不用模組,改2行就正確了
第一行在 ComboBox1_Change()上面,加上
Public GBY
第二行刪掉Worksheet_SelectionChange重覆定義的gby
刪掉這個GBY As Variant

av8d

回復 15# samwang
回復 16# quickfixer

受益良多，前輩後來我改寫後沒問題，請問能否在添加文字時，也該格添加顏色？
目前我只能做到這程度但是比較希望在打開後能一目了然，網上查了許久，都沒找到。
問題延伸3.rar (43.27 KB)

下載次數: 3

2021-9-29 19:59

前輩大概的意思大概是在這裡加入各別的背景顏色的意思

1. Private Sub Workbook_Open()
   
2.     With Sheets("我的知識庫").ComboBox1
   
3.         .AddItem "綠"
   
4.         .AddItem "藍"
   
5.         .AddItem "黃"
   
6.     End With
   
7. End Sub

複製代碼

samwang

回復 17# av8d


功能正常，不知道您的問題在哪裡? 謝謝

av8d

回復 18# samwang


    感謝前輩抽空觀看，我想詢問一下。
    除了能預先將文字添加外，能否在各文字背景也添加顏色？
    還是說沒有這功能，我目前查詢結果只有在UserForm上才能做。

samwang

回復 17# av8d


請問能否在添加文字時，也該格添加顏色？
>> 該格添加顏色這個在13#應該就是你要的，另外用你提供的檔案已修改完成如附件，請確認是否您的需求，謝謝