返回列表 上一主題 發帖

請問如何用,格式規則設定找到類似的字就秀顏色

請問如何用,格式規則設定找到類似的字就秀顏色

如果在儲存格A1打上數字( 1,5,7,13)
然後在A3儲存格打上5 , 在A4儲存格打上9 , 在A5儲存格打上13,如果裡面的數字有跟A1儲存格其中相符就秀黃色(A3跟A5儲存格會秀黃色) ,請問這在 (使用公式來決定要格式化哪些儲存格)  函數該怎麼打呢?

(輸入編號12238) google網址:https://hcm19522.blogspot.com/
隨意窩 "EXCEL迷"  blog  或https://hcm19522.blogspot.com/ EXCEL函數

TOP

大大,在請問
在儲存格A1打上數字( 1,5,7,13,20,15,16)
然後在A3儲存格打上(13,5,15,16,1,,)  , 在A4儲存格打上(5,7,,,,,) , 在A5儲存格打上(14,,,,,,),如果其中一格裡面有1個數字相符就秀顏色(A3跟A4會秀顏色)  ,不知道函數該怎麼寫呢?

TOP

回復 3# Qektyyrwp


    謝謝前輩發表此主題
後學藉此帖練習VBA方法,學習方案如下,請前輩參考
執行前:
20240111_1.jpg
2024-1-11 09:24


執行結果:
20240111_2.jpg
2024-1-11 09:24


Option Explicit
Sub TEST()
Dim Brr, i&, j%, T$, SP
Brr = Range([A1], [A65536].End(3))
[A:A].Interior.ColorIndex = xlNone
T = "," & [A1] & ","
For i = 3 To UBound(Brr)
   SP = Split(Brr(i, 1) & ",", ",")
   For j = 0 To UBound(SP)
      If SP(j) = "" Or InStr(T, "," & Val(SP(j)) & ",") = 0 Then GoTo j01
      Cells(i, 1).Interior.ColorIndex = 38: Exit For
j01: Next
Next
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 4# Andy2483


    請問如果A1欄位的值改到F3欄位,要比對資料的從G5欄位開始往下一整串(G5,G6……..),該怎麼修改呢?謝謝你

TOP

本帖最後由 Andy2483 於 2024-1-13 06:10 編輯

回復 5# Qektyyrwp


    Option Explicit
Sub TEST()
Dim Brr, i&, j%, T$, SP
Set Brr = Range([G1], [G65536].End(3))
Brr.Offset(4).Interior.ColorIndex = xlNone: Brr = Brr
T = "," & [F3] & ","
For i = 5 To UBound(Brr)
   SP = Split(Brr(i, 1) & ",", ",")
   For j = 0 To UBound(SP)
      If SP(j) = "" Or InStr(T, "," & Val(SP(j)) & ",") = 0 Then GoTo j01
      Cells(i, 1).Interior.ColorIndex = 38: Exit For
j01: Next
Next
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 6# Andy2483


    大大,再請教,如果要把資料符合那一列全秀顏色,不知道該如何修改?
(ex:G7資料符合,那A7~G7的資料全部秀顏色。),感謝大大教學

TOP

本帖最後由 Andy2483 於 2024-1-13 13:08 編輯

回復 7# Qektyyrwp
Cells(i, 1).EntireRow.是整列
Rows(i)
Cells(i, 1).Resize( ,7).  A到G
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 人生沒有所有權,只有生命的使用權。
返回列表 上一主題