==VBA怎样自动隐藏带公式空行并执行打印==

musicmh

求大神帮忙

诉求1.
首先我在表格中会插入一个命令按钮，
  求VBA代码
我的表格中：汇总表是我录入信息的地方一般不用打印，工价表也是不打印的。主要是打印：贴皮，木工，做灰，底漆，面漆。
我的A-I列是明细表，我现在做的是K-P列为统计表，我想把统计表直接做到A-I列去，这样方便打印。
我的第4行到200行都做有公式，统计表移到A-I列的话我也会做30行左右的会式。
大神帮忙一下我的表格里面写一下VBA代码，只要是工资小计列F列计算值为0时，点击我插入的命令按钮就自动隐藏F工资小计列计算为0的行并执行打印。最好是点击一次按钮就执行隐藏并批量打印5个表（贴皮，木工，做灰，底漆，面漆），还有如果从F4开始，下面的计算数值都为0的话，就不打印当前表格，打印其它4个表。
页脚我设置的(第1/共2页)页码会自动更新为隐藏后的页数吗？而不是像以前一样一般都有9页





诉求2.

我在汇总表B列，C列，E列，（A列暂时不做）都创建有下接菜单，方便选择常用数据，但是下拉框只能显示几个数据，我想让选择框出现在点击单元格右边并且可以提供更多数据选项比如说对齐上下两端，当然要右一点，不然没办法点击右边列的单元格了，如果有TAB键可以切换也行，我现在做的这个代码，只要点击了单元格键盘就不起作用了，。





-------我还试过插入按钮指定列输入，但是要做好多按钮，1放不下2太费时间了。




11.01.002-2019计件模板.rar (161.21 KB, 下载次数: 6)

2019-11-4 00:11 上传

点击文件名下载附件

musicmh

自已顶一下，求大神帮忙

musicmh

musicmh 发表于 2019-11-4 11:25
自已顶一下，求大神帮忙

求大神帮忙呀，在其它帖子里面没有研究出来

musicmh

在网上抄的代码，240行以上可以隐藏，240到301行就不行了，就算把行号改成301也不行，哪位大神可以帮改下代码

附上抄过来的代码

Private Sub CommandButton1_Click()
Dim zmh2 As Integer, rng As Range
    zmh2 = Sheet8.Range("A65536").End(xlUp).Row
    Application.ScreenUpdating = False
    If CommandButton1.Caption = "隐藏本期余额为零的科目" Then
       CommandButton1.Caption = "显示本期余额为零的科目"
       CommandButton1.Font.Name = "隶书"
       CommandButton1.Font.Italic = True
       For i = 4 To zmh2
          If Sheet8.Cells(i, 6) = 0 Or Sheet8.Cells(i, 6) = "" Then
          'Sheet8.Cells(i, 6).EntireRow.Hidden = True
             If rng Is Nothing Then
                Set rng = Sheet8.Cells(i, 6)
             Else
                Set rng = Union(rng, Sheet8.Cells(i, 6))
             End If
              'Rows(i).Hidden
          End If
       Next i
       rng.EntireRow.Hidden = True
    Else
       CommandButton1.Caption = "隐藏本期余额为零的科目"
       CommandButton1.Font.Name = "宋体"
       CommandButton1.Font.Italic = False
       Sheet8.Rows("4:240").Hidden = False
'       For i = 8 To zmh2
'          If Sheet8.Cells(i, 6)Is Nothing Then
'          Sheet8.Cells(i, 6).EntireRow.Hidden = False
'              'Rows(i).Hidden
'          End If
'       Next i
    End If
    Cells(6, 2).Select
    Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub ToggleButton1_Click()

End Sub