[已解决]代码放在sheet下执行不准确

hhxq001 · 发表于 2022-6-1 18:04

求助朋友们，怎么才能有效

hasyh2008 · 发表于 2022-6-1 20:39

这个最佳答案由 hasyh2008 给出，感谢 hasyh2008 的回答。

单击隐藏图章

本帖最后由 hasyh2008 于 2022-6-1 21:32 编辑

Sub TEST()
With ActiveWorkSheet
      For i = .Range("A65536").End(3).Row To 2 Step -1
         If .Cells(i, "H") <> "√" Then Rows(i).RowHeight = 0
      Next

      k = .Range("A65536").End(3).Row
      .Range("a1:g" & k).PrintPreview  '预览并打印a1-g列的有数据行
   Cells.EntireRow.AutoFit
End With
End Sub

hhxq001 · 发表于 2022-6-1 21:48

hasyh2008 发表于 2022-6-1 20:39
Sub TEST()
With ActiveWorkSheet
For i = .Range("A65536").End(3).Row To 2 Step -1

感觉不错，不过原表的表头会被改变格式啊

hasyh2008 · 发表于 2022-6-1 22:01

本帖最后由 hasyh2008 于 2022-6-2 09:00 编辑

Sub TEST()
Dim K%, I%, Num As Single, Num2 As Single
With ActiveSheet
      K = .Cells(Rows.Count, 1).End(3).Row
      For I = 2 To K
         If .Cells(I, "H") <> "√" Then
            Rows(I).RowHeight = 0
         Else
            Num = Num + .Cells(I, 5)
         End If
         Num2 = Num2 + .Cells(I, 5)
      Next
      .Range("E1") = "金额(合计)：" & vbCrLf & Num & "元"
   .Range("A1:G" & K).PrintPreview  '预览并打印a1-g列的有数据行
   .Range("A2:A" & K).EntireRow.AutoFit
   .Range("E1") = "金额(合计)：" & vbCrLf & Num2 & "元"
End With
End Sub

hhxq001 · 发表于 2022-6-2 11:13

本帖最后由 hhxq001 于 2022-6-2 17:44 编辑

hasyh2008 发表于 2022-6-1 20:39
Sub TEST()
With ActiveWorkSheet
For i = .Range("A65536").End(3).Row To 2 Step -1

将 Cells.EntireRow.AutoFit改为.Range("A2:A1000" ).EntireRow.AutoFit可以了

选择打印区域-准确0602.rar (12.42 KB, 下载次数: 0)

hasyh2008 · 发表于 2022-6-2 11:30

本帖最后由 hasyh2008 于 2022-6-2 11:33 编辑

111

		自动登录	找回密码
密码			注册