1

我有包含数据的单元格Peer(3)

我得到了号码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
4

2 回答 2

3

也许

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
于 2013-06-03T20:16:00.477 回答
0

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

希望有帮助。

于 2013-06-03T20:31:56.193 回答