Добрый день, уважаемые знатоки VBA
Есть таблица, в которой представлены данные. Необходимо сделать следующее, если в таблице в столбце 8 в результате вычислений формулы, значение любой из ячеек в столбце 8 равно 0, то выполнялся запуск макроса Put_record, суть которого состоит в том, чтобы сделать отступ от ячейки в столбце 8, значение которой равно 0 на 2 столбца влево и выделить полученную ячейку.
Я написал следующий код, но почему то он не работает. Можете подсказать в чем причина ?
Есть таблица, в которой представлены данные. Необходимо сделать следующее, если в таблице в столбце 8 в результате вычислений формулы, значение любой из ячеек в столбце 8 равно 0, то выполнялся запуск макроса Put_record, суть которого состоит в том, чтобы сделать отступ от ячейки в столбце 8, значение которой равно 0 на 2 столбца влево и выделить полученную ячейку.
Я написал следующий код, но почему то он не работает. Можете подсказать в чем причина ?
| Код |
|---|
Private Sub Worksheet_Calculate()
Dim Cell As Object
For Each Cell In Range("Таблица2[Столбец 8]")
If Cell = 0 Then
Application.Run("Put_record").Select
Else
End If
Next Cell
End Sub |
Изменено: - 17.06.2016 08:20:15
