判斷儲存格的數字來隱藏列

ArnoldTsay · 发表于 2010-11-1 03:37

如題...

如何判斷當儲存格的數字若為 0 時，

預覽列印時就將該列隱藏起來不列印？

或是能做一個vb按鈕來檢查該欄位的儲存格若有為0，則隱藏該列....

煩各位大佬協助幫忙...謝謝！！！

附上參考文件

Be.rar (23.25 KB, 下载次数: 19)

[ 本帖最后由 ArnoldTsay 于 2010-11-1 12:43 编辑 ]

dsmch · 发表于 2010-11-1 08:14

建议上传附件，方便代码测试。

ArnoldTsay · 发表于 2010-11-1 12:44

以上傳參考附件，麻煩 dsmch 協助看看！

wudixin96 · 发表于 2010-11-1 13:01

Application.ScreenUpdating = False
For i = 5 To [d65536].End(xlUp).Row
If Cells(i, 4) = 0 Then
Cells(i, 4).EntireRow.Hidden = True
Else
Cells(i, 4).EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
ActiveWindow.SelectedSheets.PrintPreview

复制代码

dsmch · 发表于 2010-11-1 14:58

Dim rng As Range
x = [d65536].End(xlUp).Row
For i = 5 To x
If Cells(i, 4) = 0 Then y = i: Set rng = Cells(i, 4): Exit For
Next i
For j = y + 1 To x
If Cells(j, 4) = 0 Then Set rng = Union(rng, Cells(j, 4))
Next j
rng.EntireRow.Hidden = True

ArnoldTsay · 发表于 2010-11-4 03:34

謝謝 wudixin96 的指教

to dsmch

那段代碼我試不出來

顯示 (xlUp) 會有錯誤？？

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

[求助] 判斷儲存格的數字來隱藏列