这样写出来的代码好卡，求大神解决

raingolden

VBA小白，不是很懂代码，为了解决工作问题东拼西凑出来了代码，但是运行的时候发现excel好卡顿，有时候还有死机，求大神能够帮忙简化代码，以及解决卡顿问题。
主要是为了解决日生产明细表能够一键打印且隐藏空白单元行

Sub 打印()
Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("日生产明细表") ' 修改为你的工作表名称

    ' 记录原始保护状态，以便后续恢复
    Dim wasProtected As Boolean
    wasProtected = ws.ProtectContents

    ' 如果工作表被保护，则先解除保护
    If wasProtected Then
        ws.Unprotect password:="123" ' 修改为你的密码
    End If


    Set ws = ThisWorkbook.Sheets("2024年报表") ' 修改为你的工作表名称

    ' 记录原始保护状态，以便后续恢复

    wasProtected = ws.ProtectContents

    ' 如果工作表被保护，则先解除保护
    If wasProtected Then
        ws.Unprotect password:="123" ' 修改为你的密码
    End If


    Set ws = ThisWorkbook.Sheets("生产月报表") ' 修改为你的工作表名称

    ' 记录原始保护状态，以便后续恢复

    wasProtected = ws.ProtectContents

    ' 如果工作表被保护，则先解除保护
    If wasProtected Then
        ws.Unprotect password:="123" ' 修改为你的密码
    End If


    Set ws = ThisWorkbook.Sheets("生产汇总表") ' 修改为你的工作表名称

    ' 记录原始保护状态，以便后续恢复

    wasProtected = ws.ProtectContents

    ' 如果工作表被保护，则先解除保护
    If wasProtected Then
        ws.Unprotect password:="123" ' 修改为你的密码
    End If


    Dim rng As Range
    Dim lastRow As Long

Dim i%, r%
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
For r = 8 To 90
If Application.Count(Sheets(i).Range("a" & r & ":iv" & r)) < 1 Then
Sheets(i).Rows(r).EntireRow.Hidden = True
End If
Next r
Next i
Application.ScreenUpdating = True


    Set ws = ActiveSheet
    With ws
        ' 假设数据在第一列，从最后一行开始向上查找非空单元格
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        ' 如果最后一行是空行，则隐藏
        If lastRow = 1 Then
            .Rows(lastRow).EntireRow.Hidden = True
        End If
    End With

    ' 打印工作表
    ws.PrintOut

    ' 恢复隐藏的行（可选）
    For Each rng In ws.Rows
        If rng.EntireRow.Hidden Then
            rng.EntireRow.Hidden = False
        End If
    Next rng
    ' 恢复原始保护状态
    If wasProtected Then
        ws.Protect password:="123" ' 修改为你的密码
    End If
End Sub

3190496160

如果仅仅是实现日生产明细表的隐藏空白行再打印，那么，代码中很多涉及到其他工作表的操作岂不是画蛇添足吗

raingolden

3190496160 发表于 2024-9-22 10:19
如果仅仅是实现日生产明细表的隐藏空白行再打印，那么，代码中很多涉及到其他工作表的操作岂不是画蛇添足吗

就是不是很懂vba，东拼西凑勉强解决了问题，但是运行起来好卡，所以求大神看能不能简化下

ykcbf1100

楼主的代码是AI写的吧，这种直接操作单元格的处理方法，速度上肯定不会快的。

yuason

把Range存到数组，再直接操作数组就快了

3190496160

Sub 打印()
Application.ScreenUpdating = False
Dim rn As Range
Dim ws As Worksheet
Set ws = ActiveSheet
With ws
    .Unprotect password:="123" '
    lastRow = ws.Cells.Find("*", searchdirection:=xlPrevious).Row
    .Rows("7:" & lastRow).EntireRow.Hidden = False
    For i = 7 To lastRow
        sl = Application.CountA(.Range(.Cells(i, 2), .Cells(i, 18)))
        If sl = 0 Then
            If rn Is Nothing Then
                Set rn = .Rows(i)
            Else
                Set rn = Union(rn, .Rows(i))
            End If
        End If
    Next i
    If Not rn Is Nothing Then rn.EntireRow.Hidden = True
    .PrintOut
    .Protect password:="123"
End With
Set rn = Nothing
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

参考
生产报表模板（920）.rar (62.11 KB, 下载次数: 6)

2024-9-23 08:54 上传

点击文件名下载附件

raingolden

ykcbf1100 发表于 2024-9-22 21:41
楼主的代码是AI写的吧，这种直接操作单元格的处理方法，速度上肯定不会快的。

是AI写的，就是不会所以ai写了东平西凑出来

raingolden

3190496160 发表于 2024-9-23 08:55
参考

不好意思还要再麻烦您，这个里面还有点希望您能在帮忙改下

raingolden

3190496160 发表于 2024-9-23 08:55
参考

汇总表的数据多了之后，日明细表很多被隐藏了无法正常显示，而且隐藏部分不能取消隐藏，也没有办法打印出来，还麻烦大神看能不能帮忙在看下，谢谢！