帖子: 21
主題: 5
精華: 0
積分: 58
點名: 0
作業系統: Win8
軟體版本: Excel 2.0
閱讀權限: 20
註冊時間: 2016-3-17
最後登錄: 2024-1-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2024-1-7 03:12 | 只看該作者

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

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

樓主熱帖

hcm19522

大學生 Rank: 4

帖子: 1391
主題: 4
精華: 0
積分: 1401
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-12-16

熱烈參與勳章

2^#

發表於 2024-1-7 11:13 | 只看該作者

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

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

Qektyyrwp

中學生 Rank: 2

帖子: 21
主題: 5
精華: 0
積分: 58
點名: 0
作業系統: Win8
軟體版本: Excel 2.0
閱讀權限: 20
註冊時間: 2016-3-17
最後登錄: 2024-1-13

3^#

發表於 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會秀顏色) ，不知道函數該怎麼寫呢？

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

4^#

發表於 2024-1-11 09:25 | 只看該作者

回復 3# Qektyyrwp

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

執行結果:

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

Qektyyrwp

中學生 Rank: 2

帖子: 21
主題: 5
精華: 0
積分: 58
點名: 0
作業系統: Win8
軟體版本: Excel 2.0
閱讀權限: 20
註冊時間: 2016-3-17
最後登錄: 2024-1-13

5^#

發表於 2024-1-13 00:26 | 只看該作者

回復 4# Andy2483

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

6^#

發表於 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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Qektyyrwp