EXCEL如何用VBA设置符合条件的单元格填充颜色为红色？

Question

左边1部分的是用来被比较的数据，右边2是比较1的数据。
比如右边1列的C行，也就是N6是“2”，它和左边1列的C行，也就是B6相同，用VBA设置N6填充颜色为红色。
大概就是这样，右边的数据不一定会像这样排列整齐的，就是说我可能想要用T列的数据来比较B列这样，所以希望代码加上注释，我希望能自己修改一下。。

要用VBA哦，，公式我知道怎么做。。。我只要VBA，因为VBA我不知道怎么做。

求大神帮忙，，非常感谢！
文件我传到百度云了，，希望大神帮帮忙，，

http://pan.baidu.com/s/1o6uxMzC

非常感谢！

Answer 1

材料/工具：Excel2010

1、打开Excel表格，按下【Alt+F11】组合快捷键打开VBA编辑器，也可以点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。

2、点击VBA编辑器菜单栏上面的【插入】、【模块】，也可以在编辑器上面使用【Alt+I+M】组合快捷键插入“模块”。

3、在VBA编辑器代码框里面输入以下代码：

4、在Excel表格上面的【开始】、【填充颜色】、【其他颜色】，在”颜色“对话框的【自定义】里面就可以找到，改变数值就可以看到新增的颜色。

5、在VBA编辑器的工具栏里面点击“运行”图标即可运行程序，条件满足的行将会自动填充所设置的颜色。

6、VBA自动填充满足条件的行的颜色完成。

Answer 2

 Public C   '定义全局变量C

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    Dim one, c1%
If Target.Column > 1 And Target.Column < 12 Then C = Target.Column '如果第一次选中的单元格在B-K列之间，则记录此时列号
If C = 0 Then Exit Sub
c1 = Target.Column
If c1 > 13 Then
        For one = 4 To 12 '因为你的数据在第4行到第12行之间
         If Cells(one, c1) = Cells(one, C) Then '比较两列的数据
            Cells(one, c1).Interior.ColorIndex = 3 '涂颜色
         End If
        Next    '比较下一个
        C = 0 '清空C
End If
End Sub

用法: 代码粘贴在表1的代码页中
  1、在数据1中要比较的那列随便选一个单格    
 2、在数据2中要比较的那列随便选一个单格

 

追问

你这个代码好像有点局限性。。。能不能再做一个只比较N列和B列的？真是麻烦了。。非常感谢

追答

只比较N列和B列的话，更简单了，加一个按钮，代码如下

Sub nb()

        For one = 4 To 12 '因为你的数据在第4行到第12行之间

         If Cells(one, 14) = Cells(one, 2) Then '比较两列的数据

            Cells(one, 14).Interior.ColorIndex = 3 '涂颜色

         End If

        Next    '比较下一个

End Sub

本回答被提问者采纳

Answer 3

'写了这段代码，你应该能看懂
Sub color_by_zzllrr
    For i=4 To 12
        For j=1 To 10
            IF Cells(i,12+j*2)=Cells(i,j+1) Then
                Cells(i,12+j*2).Font.Color=vbRed
            End IF
        Next j
    Next i
End Sub

追问

唔，这个懂了，，非常感谢

Answer 4

Sub xx()
  m = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Row
  n = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Column
  For i = 12 To n
    If Cells(1, i) <> "" Then
      For j = 2 To 11
        If Cells(1, j) = Cells(1, i) Then Exit For
      Next
      For k = 2 To m
        If Cells(k, i) <> "" And Cells(k, i) = Cells(k, j) Then Cells(k, i).Interior.ColorIndex = 3
      Next
    End If
  Next
End Sub

追问

能不能再做一个只比较N列和B列的？谢谢，真是麻烦了

追答Sub xx()
  n = Cells(4 ^ 8, 2).End(3).Row
  For i = 2 To n
    If Cells(i, 14) <> "" And Cells(i, 14) = Cells(i, 2) Then Cells(i, 14).Interior.ColorIndex = 3
  Next
End Sub

追问

非常感谢

追答

.............

Answer 5

我做了一个，没办法发给你追问

可以传上来吗？或者传网盘发链接？

追答

您加下俺的裙 叄贰伍肆零叄扒叄零 我把文件发给您。
他们好像都没有考虑您说的T列和B列对应的问题。