If, а затем код ошибки

Другой вопрос noobie. Я пытаюсь скрыть все столбцы в строке 5 на конкретном листе, если ячейка не пуста и эта ячейка равна 0. Я заработал ее в одной точке, не используя z как целое, но я не смог установить не пустое состояние (столбцы с пустая ячейка пятой строки была скрыта, поскольку значение по умолчанию было равно нулю). Поблагодарили бы за любую помощь. Отдельный вопрос: есть ли быстрый и грязный способ вернуть рабочую книгу к определенному «сохраненному состоянию»? Спасибо.If, а затем код ошибки

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

End Sub

источник

2015-01-26 Ben

Да. [Начать использование источника управления] (https://christopherjmcclellan.wordpress.com/2014/10/10/vba-and-git/). К сожалению, модуль 'DevTools' в этом репо сейчас немного разорен, и я не успел его исправить, потому что я работаю над [Интеграция редактора VBA с Git] (https://github.com/ retailcoder/Rubberduck/вехи/Источник% 20Control% 20Integration). Вы можете посмотреть репозиторий Rubberduck, чтобы получить обновления об этом. – RubberDuck

нормально 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

If, а затем код ошибки

ответ

Смежные вопросы