如何优化代码？

sampsonpon

1.     If session.findById("wnd[0]/sbar").MessageType = "W" Or session.findById("wnd[0]/sbar").MessageType = "E" Then  '左下角提示错误信息(没有picking时)
   
2.         errtext = session.findById("wnd[0]/sbar").Text  '把错误信息写入到D2
   
3.         Sheet1.Cells(2, 4).Value = errtext
   
4.         Sheet1.Cells(2, 4).Interior.ColorIndex = 3  '红色填充
   
5.         Sheet1.Cells(2, 4).Font.Size = 11  '字号11
   
6.         Sheet1.Cells(2, 4).Font.ColorIndex = 2  '白色字体
   
7.         
   
8.         If Sheet1.Cells(2, "D") Like "Object requested is currently locked by user*" Then
   
9.             Sheet1.Cells(2, "E") = "项目被占用"
   
10.             Application.Speech.Speak "此项被人占用"
    
11.         Else
    
12.             Sheet1.Cells(2, "E") = "无Picking"
    
13.             Application.Speech.Speak "此趟没有TRB胶架大批镜片标签"
    
14.         End If
    
15.         
    
16.     Else
    
17.    
    
18.    
    
19.         With Sheet1
    
20.              iRow = .Range("S" & Rows.Count).End(3).Row
    
21. '             If iRow > 1 Then .Range("S2:S" & iRow).Copy
    
22.              .Range("S2:S" & iRow).Copy
    
23.         End With
    

复制代码

这里这么多Sheet1，是不是改成以下这样也算是优化代码了？

1.     If session.findById("wnd[0]/sbar").MessageType = "W" Or session.findById("wnd[0]/sbar").MessageType = "E" Then  '左下角提示错误信息(没有picking时)
   
2.         errtext = session.findById("wnd[0]/sbar").Text  '把错误信息写入到D2
   
3.         With Sheet1
   
4.             .Cells(2, 4).Value = errtext
   
5.             .Cells(2, 4).Interior.ColorIndex = 3  '红色填充
   
6.             .Cells(2, 4).Font.Size = 11  '字号11
   
7.             .Cells(2, 4).Font.ColorIndex = 2  '白色字体
   
8.             
   
9.             If .Cells(2, "D") Like "Object requested is currently locked by user*" Then
   
10.                 .Cells(2, "E") = "项目被占用"
    
11.                 Application.Speech.Speak "此项被人占用"
    
12.             Else
    
13.                 .Cells(2, "E") = "无Picking"
    
14.                 Application.Speech.Speak "此趟没有TRB胶架大批镜片标签"
    
15.             End If
    
16.         End With
    
17.     Else
    
18.         
    
19.         
    
20.         iRow = Sheet1.Range("S" & Rows.Count).End(3).Row
    
21.         Sheet1.Range("S2:S" & iRow).Copy
    

复制代码

ykcbf1100

改用数组啊，速度快

ynzsvt

是的，加快了，也优化了阅读。

sampsonpon

ynzsvt 发表于 2024-10-9 16:13
是的，加快了，也优化了阅读。

有这么一句话，这里的第二个sheet1是不是累赘？
Sheet1.Range("S2:S" & Sheet1.Range("S" & Rows.Count).End(3).Row).Copy

ykcbf1100

sampsonpon 发表于 2024-10-9 16:31
有这么一句话，这里的第二个sheet1是不是累赘？
Sheet1.Range("S2:S" & Sheet1.Range("S" & Rows.Count) ...

Sheet1.Range("S2:S" & Sheet1.Cells(Rows.Count, "s").End(3).row).Copy

sampsonpon

ykcbf1100 发表于 2024-10-9 16:12
改用数组啊，速度快

    If session.findById("wnd[0]/sbar").MessageType = "W" Or session.findById("wnd[0]/sbar").MessageType = "E" Then  '左下角提示错误信息(没有picking时)
        errtext = session.findById("wnd[0]/sbar").Text  '把错误信息写入到D2
        Sheet1.Cells(2, 4).Value = errtext
        Sheet1.Cells(2, 4).Interior.ColorIndex = 3  '红色填充
        Sheet1.Cells(2, 4).Font.Size = 11  '字号11
        Sheet1.Cells(2, 4).Font.ColorIndex = 2  '白色字体
        
        If Sheet1.Cells(2, "D") Like "Object requested is currently locked by user*" Then
            Sheet1.Cells(2, "E") = "项目被占用"
            Application.Speech.Speak "此项被人占用"
        Else
            Sheet1.Cells(2, "E") = "无Picking"
            Application.Speech.Speak "此趟没有TRB胶架大批镜片标签"
        End If
        
    Else

老师，这个能改成数组？
怎么改成简单且快速？

ykcbf1100

sampsonpon 发表于 2024-10-10 11:18
If session.findById("wnd[0]/sbar").MessageType = "W" Or session.findById("wnd[0]/sbar").Messag ...

你也没附件，不好说。
你可以参考一下我在论坛回复帖子时写的代码吧，我的代码大多用的是数组。