单元格字体着色代码错误，请大家帮助

wangjwpx

1. Sub 对应单元格着色2_Click()
   
2. 
   
3. 
   
4. 
   
5. For i = 6 To 56
   
6. For k = 4 To 8
   
7. 
   
8. For j = 15 To 19
   
9. 
   
10. 
    
11. 
    
12.           If Cells(i, k) = Cells(4, j) Then                   '如果有数字相同，那么
    
13.          
    
14.                Cells(i, k).Font.Color = vbRed          '着色红色
    
15.                
    
16.             Else                                     '否则
    
17.                  
    
18.                   Cells(i, k).Font.Color = RGB(112, 48, 160)        '数字不相同着色蓝色
    
19.                   
    
20.           End If
    
21.        Next
    
22.   Next
    
23. 
    
24. Next
    
25. 
    
26. 
    
27. 
    
28. End Sub

复制代码

加上Else，Cells(i, k).只有一个单元格变成红色。代码1可以有数字相同着色，代码2只有一个单元格着色。具体见附件，代码1正常，代码2为什么只有一个单元格35着色？

此乃小白一枚

   你的代码等同于这个，不知道你的目的，也没有附件
Sub 对应单元格着色2_Click()



    For i = 6 To 56
    For k = 4 To 8
     
        If Cells(i, k) = Cells(4, 19) Then                   '如果有数字相同，那么
              
               Cells(i, k).Font.Color = vbRed          '着色红色
                  
        Else                                     '否则
                     
                  Cells(i, k).Font.Color = RGB(112, 48, 160)        '数字不相同着色蓝色
                     
              End If
           Next
      Next
     
    Next



    End Sub

wangjwpx

此乃小白一枚 发表于 2021-1-13 23:06
你的代码等同于这个，不知道你的目的，也没有附件
Sub 对应单元格着色2_Click()

谢谢回复，附件已上传。主要问题是代码2


加上Else，Cells(i, k).只有一个单元格变成红色。

wangjwpx

主要问题是代码2加上Else，Cells(i, k).只有一个单元格变成红色。

MOY838840554

F8逐步运行不就知道了
Sub 对应单元格着色2_Click()
    For i = 6 To 56
        For k = 4 To 8
            For j = 15 To 19
                If Cells(i, k) = Cells(4, j) Then                   '如果有数字相同，那么
                    Cells(i, k).Font.Color = vbRed          '着色红色
                    Exit For'匹配到了退出循环
                Else                                     '否则
                    Cells(i, k).Font.Color = RGB(112, 48, 160)        '数字不相同着色蓝色
                End If
            Next
        Next
    Next
End Sub

XUEJUNXI

Sub 对应单元格着色2_Click()
For i = 6 To 56
     For k = 4 To 8
          For j = 15 To 19
          Debug.Print i, k, j
               If Cells(i, k) = Cells(4, j) Then                   '如果有数字相同，那么
                    Cells(i, k).Font.Color = vbRed
                    Exit For
               Else
                    Cells(i, k).Font.Color = RGB(112, 48, 160)        '数字不相同着色蓝色
               End If
          Next
     Next
Next
End Sub

wangjwpx

MOY838840554 发表于 2021-1-14 09:21
F8逐步运行不就知道了
Sub 对应单元格着色2_Click()
    For i = 6 To 56

感谢提示

wangjwpx

XUEJUNXI 发表于 2021-1-14 10:09
Sub 对应单元格着色2_Click()
For i = 6 To 56
     For k = 4 To 8

Debug.Print i, k, j什么意思？

wangjwpx

Exit For语句我懂了

XUEJUNXI

wangjwpx 发表于 2021-1-14 11:02
Debug.Print i, k, j什么意思？

这是运行时，我从立即窗口看的，忘了删掉了