帮忙库存表代码优化

a园园

这段for循环经常第一次运行不出结果，第二次正常，大神们帮忙优化下，给个新思路

ykcbf1100

i=i+1，这句应该取消吧。

loirol

直说你这段填色的逻辑吧，这段双循环写的莫名其妙的


比较大小完全看不懂为什么要遍历一遍sheet3,而不是比较对应编号

taller

仅仅改写了高亮显示的代码

1. Sub HighLight()
   
2.     lstR1 = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row
   
3.     Sheet1.Range("A3:F" & lstR1).Interior.Pattern = xlNone
   
4.     Sheet1.Range("A3:F" & lstR1).Font.ColorIndex = xlAutomatic
   
5.     Set Bom = Sheet3.Range("B2", Sheet3.Cells(Rows.Count, "B").End(xlUp))
   
6.     Dim c As Range
   
7.     Application.ScreenUpdating = False
   
8.     For i = 2 To lstR1
   
9.         Set c = Nothing
   
10.         Set c = Bom.Find(Sheet1.Range("B" & i).Value, LookIn:=xlValues, lookAt:=xlWhole)
    
11.         If Not c Is Nothing Then
    
12.             If Sheet1.Range("e" & i).Value < c.Offset(0, 4).Value Then
    
13.                 Sheet1.Range("a" & i).Resize(1, 6).Interior.Color = 65535
    
14.                 Sheet1.Range("a" & i).Resize(1, 6).Font.Color = RGB(255, 0, 0)
    
15.             End If
    
16.         End If
    
17.     Next
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

a园园

taller 发表于 2024-11-14 07:22
仅仅改写了高亮显示的代码

感谢，代码是对的