如果然後錯誤代碼

另一個noobie問題。我試圖隱藏特定工作表中第5行的所有列，如果單元格不爲空，並且該單元格等於0.我得到它在一個不使用z作爲整數的工作，但我不能適應非空條件（列與一個空的第五行單元格被隱藏，因爲默認值爲零）。將不勝感激任何幫助。另外的問題是，是否有一種快速且骯髒的方法將工作簿重置爲某種「保存狀態」？謝謝。如果然後錯誤代碼

Dim wsOut As Worksheet 
Dim rng As Range 
Dim z As Integer 

Set wsOut = ThisWorkbook.Sheets("sheet2") 
Set rng = wsOut.Range("B:AA") 

For z = 1 To 26 
    If (Not IsEmpty(wsIn.Cells(5, z))) And wsIn.Cells(5, z).Value = 0 Then 
      cell.EntireColumn.Hidden = False 
      cell.EntireColumn.Hidden = True 
    End If 
Next z

末次

來源

2015-01-26 Ben

呀。 [開始使用源代碼管理]（https://christopherjmcclellan.wordpress.com/2014/10/10/vba-and-git/）。不幸的是，那個repo中的'DevTools'模塊現在有點破壞，我沒有時間去修復它，因爲我正在研究[集成VBA編輯器和Git]（https://github.com/ retailcoder/Rubberduck /里程碑/來源％20Control％20Integration）。您可以觀看Rubberduck回購以獲取更新。 – RubberDuck 2015-01-26 20:24:47

確定NVM我做到了簡單，這工作...

Sub HideColumn() 
    Dim cell As Range 
    For Each cell In Range("B5:AA5") 
     If cell = 0 And Not IsEmpty(cell) Then 
      cell.EntireColumn.Hidden = True 
     End If 
    Next cell 
End Sub

來源

2015-01-26 20:15:45 Ben

如果然後錯誤代碼

回答

相關問題