標題: 請問如何用，格式規則設定找到類似的字就秀顏色 [打印本頁]

---

作者: Qektyyrwp    時間: 2024-1-7 03:12     標題: 請問如何用，格式規則設定找到類似的字就秀顏色

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

---

作者: hcm19522    時間: 2024-1-7 11:13

(輸入編號12238) google網址:https://hcm19522.blogspot.com/

---

作者: Qektyyrwp    時間: 2024-1-11 02:37

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

---

作者: Andy2483    時間: 2024-1-11 09:25

回復 3# Qektyyrwp


    謝謝前輩發表此主題
後學藉此帖練習VBA方法,學習方案如下,請前輩參考
執行前:
[attach]37273[/attach]

執行結果:
[attach]37274[/attach]

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

---

作者: Qektyyrwp    時間: 2024-1-13 00:26

回復 4# Andy2483


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

---

作者: Andy2483    時間: 2024-1-13 06:04

本帖最後由 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

---

作者: Qektyyrwp    時間: 2024-1-13 09:51

回復 6# Andy2483


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

---

作者: Andy2483    時間: 2024-1-13 12:39

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

回復 7# Qektyyrwp
Cells(i, 1).EntireRow.是整列
Rows(i)
Cells(i, 1).Resize( ,7).  A到G

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)