Private Sub CommandButton3_Click()
Dim i As Integer
Dim a, b, c As Single
For i = 6 To 20
a = Cells(i, "g")
b = Cells(i, "j")
If a = b Then Cells(i, "g").Interior.ColorIndex = 3
Next
End Sub
第1个回答 2014-08-16
如你的数据在A列,代码如下。
sub aa ()
for x =1 to range("A65536").end(xlup).row'建立循环
if cells(x,1)=6 then'判断单元格值
cells(x,1).interior.colorIndex = 3'单元格值等于6时,该单元格填充红色
end if
next x
end sub本回答被提问者和网友采纳
sub aa ()
for x =1 to range("A65536").end(xlup).row'建立循环
if cells(x,1)=6 then'判断单元格值
cells(x,1).interior.colorIndex = 3'单元格值等于6时,该单元格填充红色
end if
next x
end sub本回答被提问者和网友采纳
第2个回答 2014-08-16
上面的代码是因为没有end if
定义变量时候加了as容易画蛇添足,不是很复杂的话可以不用定义变量
直接拿来用
定义变量时候加了as容易画蛇添足,不是很复杂的话可以不用定义变量
直接拿来用
第3个回答 2014-08-16
把as single去掉就行。