如何修改代码，使其更快速计算？

yangyangzhifeng

试试看

1. Sub 填色()
   
2.     Dim i%
   
3.     With Application
   
4.         .ScreenUpdating = False
   
5.         For i = 7 To 116
   
6.             If i < 38 Then
   
7.                 If .Cells(6, i) <> "" Then
   
8.                     If Weekday(.Cells(6, i), 2) > 5 And .Cells(5, i) = "" Or .Cells(5, i) = "放假" Then
   
9.                         Range(Cells(7, i), Cells(116, i)).Interior.Color = RGB(141, 180, 226)
   
10.                     Else
    
11.                         Range(Cells(7, i), Cells(116, i)).Interior.Color = RGB(255, 255, 255)
    
12.                     End If
    
13.                     If Cells(5, i) = "法定假" Then
    
14.                         Cells(7, i).Resize(110, 1).Interior.Color = RGB(218, 150, 148)
    
15.                     End If
    
16.                 Else
    
17.                     Range(Cells(7, i), Cells(116, i)).Interior.Color = RGB(255, 255, 255)
    
18.                 End If
    
19.             End If
    
20.             Select Case .Cells(i, 4)
    
21.             Case "5★"
    
22.                 Range(Cells(i, 1), Cells(i, 6)).Font.Color = RGB(49, 134, 155)
    
23.             Case "4★S"
    
24.                 Range(Cells(i, 1), Cells(i, 6)).Font.Color = RGB(192, 80, 77)
    
25.             Case "4★J"
    
26.                 Range(Cells(i, 1), Cells(i, 6)).Font.Color = RGB(255, 0, 0)
    
27.             Case "3★S"
    
28.                 Range(Cells(i, 1), Cells(i, 6)).Font.Color = RGB(0, 128, 0)
    
29.             Case "3★J"
    
30.                 Range(Cells(i, 1), Cells(i, 6)).Font.Color = RGB(255, 0, 255)
    
31.             Case "2★S"
    
32.                 Range(Cells(i, 1), Cells(i, 6)).Font.Color = RGB(226, 107, 10)
    
33.             Case "2★J"
    
34.                 Range(Cells(i, 1), Cells(i, 6)).Font.Color = RGB(0, 0, 255)
    
35.             Case "1★"
    
36.                 Range(Cells(i, 1), Cells(i, 6)).Font.Color = RGB(0, 0, 0)
    
37.             End Select
    
38.         Next i
    
39.         .ScreenUpdating = True
    
40.         .Calculate
    
41.     End With
    
42. End Sub
    

复制代码

smhf_6

本身就这么一点数据，大概是双重循环的影响吧
另外，个人偏好文档简捷干净清爽，对一些重点关键行列可以上色，但也不要铺天盖地，否则，看上去就是一个大花脸，反而不清楚

sampsonpon

yangyangzhifeng 发表于 2017-1-14 13:32
试试看

一直忘了问，这里为什么是If i < 38 Then  ？

DevilW

sampsonpon 发表于 2017-5-29 16:58
一直忘了问，这里为什么是If i < 38 Then  ？

结合这句代码分析Cells(6, i)
主要是判断第6行，从第7列到116列循环，当列数小于38列就运行后面的代码