根据公式值格式化单元格

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. 单击“确定”直到对话框关闭。

希望有所帮助。