请问excel达人们中如何设置当一行中两列数据不相等时,改变这行所有信息的颜色?
3个回答
展开全部
创建宏,复制以下代码粘贴后运行
Sub 变色()
Worksheets("Sheet1").Activate
For i = 1 To 5'定义行数
For j = 1 To 3'定义列数
If j = 1 Then
If Cells(i, j).Value <> Cells(i, 1).Value Then'判断两个单元格是否相等
Rows(i).Select '选中行
Selection.Interior.ColorIndex = 4'填充绿色
End If
Else
If Cells(i, j).Value <> Cells(i, j - 1).Value Then
Rows(i).Select
Selection.Interior.ColorIndex = 4
End If
End If
Next
Next
End Sub
这个应该能帮上你的忙
Sub 变色()
Worksheets("Sheet1").Activate
For i = 1 To 5'定义行数
For j = 1 To 3'定义列数
If j = 1 Then
If Cells(i, j).Value <> Cells(i, 1).Value Then'判断两个单元格是否相等
Rows(i).Select '选中行
Selection.Interior.ColorIndex = 4'填充绿色
End If
Else
If Cells(i, j).Value <> Cells(i, j - 1).Value Then
Rows(i).Select
Selection.Interior.ColorIndex = 4
End If
End If
Next
Next
End Sub
这个应该能帮上你的忙
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
创建一个宏,把以下程序粘贴到宏里面,然后执行。
For i = 1 To 99
If Cells(i, 1) <> Cells(i, 2) Then
Rows(i).Interior.ColorIndex = 26
End If
Next i
For i = 1 To 99
If Cells(i, 1) <> Cells(i, 2) Then
Rows(i).Interior.ColorIndex = 26
End If
Next i
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询