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

wangjwpx

XUEJUNXI 发表于 2021-1-14 11:04
这是运行时，我从立即窗口看的，忘了删掉了

谢谢

wangjwpx

XUEJUNXI 发表于 2021-1-14 11:04
这是运行时，我从立即窗口看的，忘了删掉了

如果单元格中的值是公式产生的，为什么不行

wangjwpx

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

Cells(i, k)单元格中数字是公式产生的，为什么不着色红色，蓝色行

wangjwpx

追问：有公式2个区域单元格字体着色问题具体见附件。没有公式的单元格着色没有问题，有公式的单元格着色红色有问题，着色蓝色没有问题。代码怎么完善修改？

wangjwpx

1. Sub 单元格字体着色_Click()
   
2. 
   
3. Application.ScreenUpdating = False            '关闭屏幕闪烁
   
4. 
   
5. For i = 63 To 81
   
6. For k = 28 To 62
   
7. 
   
8. For j = 25 To 29
   
9. 
   
10. 
    
11. 
    
12.           If Cells(i, k).Value = Cells(1, j) Then                         '如果有数字相同，那么
    
13.                Cells(i, k).Font.Color = vbRed                                '着色红色
    
14.                
    
15.                Exit For                                                 '匹配到了退出循环
    
16.             
    
17.            Else                                                               '否则
    
18.             
    
19.              Cells(i, k).Font.Color = RGB(112, 48, 160)        '数字不相同着色蓝色
    
20.             
    
21.           End If
    
22.        Next
    
23.    Next
    
24. 
    
25. Next
    
26. 
    
27. Application.ScreenUpdating = True            '打开屏幕闪烁
    
28. 
    
29. End Sub
    

复制代码

代码对于有公式的单元格着色红色没有作用

wangjwpx

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

拜托看看
追问：有公式2个区域单元格字体着色问题具体见附件。没有公式的单元格着色没有问题，有公式的单元格着色红色有问题，着色蓝色没有问题。代码怎么完善修改？

wangjwpx

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

拜托看看
追问：有公式2个区域单元格字体着色问题具体见附件。没有公式的单元格着色没有问题，有公式的单元格着色红色有问题，着色蓝色没有问题。代码怎么完善修改？

wangjwpx

求助：有公式2个区域单元格字体着色问题具体见附件。没有公式的单元格着色没有问题，有公式的单元格着色红色有问题，着色蓝色没有问题。代码怎么完善修改？

wangjwpx

再次求助：有公式2个区域单元格字体着色问题具体见14楼附件。没有公式的单元格着色没有问题，有公式的单元格着色红色有问题，着色蓝色没有问题。代码怎么完善修改？

lsc900707

wangjwpx 发表于 2021-1-14 19:40
追问：有公式2个区域单元格字体着色问题具体见附件。没有公式的单元格着色没有问题，有公式的单元格着色红 ...

1. Sub 单元格字体着色_Click()
   
2.     Application.ScreenUpdating = False            '关闭屏幕闪烁
   
3.     For i = 63 To 81
   
4.         For k = 28 To 62
   
5.             For j = 25 To 29
   
6.                 If Val(Cells(i, k)) = Cells(1, j) Then                         '如果有数字相同，那么
   
7.                     Cells(i, k).Font.Color = vbRed                                '着色红色
   
8.                     Exit For                                                 '匹配到了退出循环
   
9.                 Else                                                               '否则
   
10.                     Cells(i, k).Font.Color = RGB(112, 48, 160)        '数字不相同着色蓝色
    
11.                 End If
    
12.             Next
    
13.         Next
    
14.     Next
    
15.     Application.ScreenUpdating = True            '打开屏幕闪烁
    
16. End Sub

复制代码