Здравствуйте, стоит такая задача, с основного листа с помощью ВПР идет разбор по необходимым листам, на других листах например есть список из 5 компонентов, значения которых подставляются с помощью ВПР, но не всегда имеются в изначальном списке необходимые данные, в результате пишет #Н/Д, как бы скрывать эти строчки, где стоит нд, есть макрос, он скрывает строчки со значением х, а если поставить туда нд, выдает ошибку, есть еще вариант сделать типа нд=какое то значение, но я то то не соображу как это сделать например нд находится в столбце в, скрывать по условию столбец с, и в него написать что то типа #н/д=скрыть, заранее спасибо
Код |
---|
Sub Hide()
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'проходим по всем ячейкам первой строки
If cell.Value = "#Н/Д" Then cell.EntireColumn.Hidden = True 'если в ячейке x - скрываем столбец
Next
For Each cell In ActiveSheet.UsedRange.Columns(2).Cells 'проходим по всем ячейкам первого столбца
If cell.Value = "#Н/Д" Then cell.EntireRow.Hidden = True 'если в ячейке x - скрываем строку
Next
Application.ScreenUpdating = True
End Sub
Sub Show()
Columns.Hidden = False 'отменяем все скрытия строк и столбцов
Rows.Hidden = False
End Sub
|