自动隐藏空白例

yzgpcb

各位大能，能帮我加点个代码么，表格从O11-U11区域，收费项目是不固定的，所有在打印的时候就想把空白项的例隐藏了，下次再便时全部的项都还在。

半百

这个意思？

yzgpcb

半百 发表于 2023-4-6 17:42
这个意思？

哥，可以帮我加在文件里吗？谢谢

半百

yzgpcb 发表于 2023-4-13 14:22
哥，可以帮我加在文件里吗？谢谢

..............

niko88819

隱藏

1. Sub HideEmptyColumns()
   
2.     Dim rng As Range
   
3.     Set rng = Range("O11:R17")
   
4.    
   
5.     '檢查每個列是否都是空的
   
6.     Dim i As Long
   
7.     For i = rng.Columns.Count To 1 Step -1
   
8.         If Application.WorksheetFunction.CountA(rng.Columns(i)) = 0 Then
   
9.             '隱藏整個列
   
10.             rng.Columns(i).Hidden = True
    
11.         Else
    
12.             '顯示整個列
    
13.             rng.Columns(i).Hidden = False
    
14.         End If
    
15.     Next i
    
16. End Sub

复制代码

不隱藏

1. Sub Undiddencolumn()
   
2.     Range("O10:R17").Select
   
3.     Selection.EntireColumn.Hidden = False
   
4. End Sub

复制代码

yzgpcb

半百 发表于 2023-4-13 14:47
..............

谢谢哥，可以用了！
再想问下，如果我只有十一行有数据，12-17的行可以隐藏吗？

半百

yzgpcb 发表于 2023-4-13 18:17
谢谢哥，可以用了！
再想问下，如果我只有十一行有数据，12-17的行可以隐藏吗？

？？？？？？？？

yzgpcb

半百 发表于 2023-4-14 10:10
？？？？？？？？

真是太感谢了，谢谢大哥！