根據公式值格式化單元格

Question

我有數據Peer(3)

我得到VALUE(LEFT(RIGHT(F2,2)))的數字VALUE(LEFT(RIGHT(F2,2)))

然后我想給細胞一個我正在嘗試的顏色，但不工作我得到類型不匹配，嘗試了幾個小時，沒有得到任何地方。

謝謝

Sub Format()

Dim LastRow As Long
Dim WS As Worksheet

Set WS = Sheets("sheet1")

LastRow = WS.range("F" & WS.Rows.Count).End(xlUp).Row

If WS.range("F2:F" & LastRow).Formula = "=Value(Left(Right(F2, 2)))" < 3 Then cell.Interior.ColorIndex = 10

End Sub

Answer 1

也許

Sub Format()

Dim LastRow As Long
Dim WS As Worksheet
dim rCell as range

Set WS = Sheets("sheet1")

LastRow = WS.range("F" & WS.Rows.Count).End(xlUp).Row

for each rcell in WS.range("F2:F" & LastRow).cells
 if clng(Left(Right(rcell.value, 2), 1)) < 3 Then rcell.Interior.ColorIndex = 10
next rcell
End Sub

Answer 2

而不是使用VBA，使用條件格式。

例如，假設從F1到F10的單元格包含Peer（2），Peer（3），Peer（1）等值

1. 選擇范圍F1到F10（或任何要格式化的單元格）
2. 在功能區上，單擊“條件格式” - >“新規則”
3. 選擇“使用公式確定要格式化的單元格”
4. 假設活動單元格為F1，則鍵入公式=VALUE(LEFT(RIGHT(F1,2))) < 3
5. 單擊“格式”按鈕，轉到“填充”選項卡，單擊“更多顏色”，“自定義”選項卡。
6. 將128設為綠色，將0設為紅色和藍色。
7. 單擊“確定”直到對話框關閉。

希望有所幫助。