帮忙给个VBA程序

ming1831119 · 发表于 2013-3-13 15:28

实现以下功能：A列减去B列的绝对值，若大于90且小于110，则将本行填充颜色；

ming1831119 · 发表于 2013-3-13 16:17

坐等高手啊！

AVEL · 发表于 2013-3-13 16:42

用条件格式可以么？

ming1831119 · 发表于 2013-3-15 08:40

AVEL 发表于 2013-3-13 16:42
用条件格式可以么？

条件格式可以实现，但是还是想用VBA试试

okeey · 发表于 2013-3-15 11:42

小菜鸟，拼了半天，做成的，看看吧！
Sub jisuan()
  Dim i As Integer, num_lake As Integer
  i = 1
  num_lake = Cells(65536, 1).End(xlUp).Row
   For i = 1 To num_lake
      If (Abs((Range("a" & i)) - (Range("b" & i)))) > 90 _
      And (Abs((Range("a" & i)) - (Range("b" & i)))) < 110 Then
      Range("a" & i).EntireRow.Interior.ColorIndex = 30
      End If
   Next i
End Sub

		自动登录	找回密码
密码			免费注册