根据公式值格式化单元格

我有单元数据Peer(3)

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

那么我想给细胞一个颜色，我正在尝试，但不工作我得到types不匹配，已经尝试了几个小时，没有得到任何地方。

谢谢

 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. select范围F1到F10（或任何您想格式化的单元格）
2. 在function区上，点击“条件格式” – >“新build规则”
3. select“使用公式确定要格式化的单元格”
4. 假设活动单元格为F1，请input公式=VALUE(LEFT(RIGHT(F1,2))) < 3
5. 点击“格式”button，进入“填充”标签，点击“更多颜色”，“自定义”选项卡。
6. 绿色为128，红色和蓝色为0。
7. 点击“确定”，直到对话框closures。

希望有所帮助。