Я пытаюсь вставить функцию в мой код VBA, чтобы заполнить ячейку только тогда, когда в другой ячейке есть данные

Question

Это мой код Он заполняет дату, когда у меня есть это =Updating_Date(B5) набранное в C5. Предполагается, что он должен заполнить ТОЛЬКО дату, когда данные присутствуют в B5, и удалить дату, когда данные отсутствуют. В настоящее время отображается дата независимо от того, что. Мне нужно написать в условии, чтобы он отображал ТОЛЬКО дату, когда данные присутствуют в столбце B.

Ниже то, что я ввел в модуль, благодаря другому пользователю, с =Updating_Date(B5) введенным в C5.

Function Updating_Date(dependent_cell as Range) As Date Updating_Date = Date End Function

Опять же, это отображает дату независимо от того, находятся данные в столбце B или нет.

Благодарю.

Answer 1

Возможно, я не совсем понимаю ваш пример, но похоже, что вы могли бы просто использовать одну из следующих формул ячеек:

=IF(ISBLANK(B5),"",TODAY())
=IF(ISBLANK(B5),"",NOW())
=IF(ISBLANK(B5),"",Updating_Date(B5))

Если вы хотите сделать проверку в VBA, вот вариант:

Function Updating_Date(dependent_cell As Range)
    If LenB(dependent_cell.Value) > 0 Then Updating_Date = Date Else Updating_Date = ""
End Function

Не то, чтобы функция не могла вернуть дату, иначе она вернет 0 вместо пустого. Я отбросил это и добавил условие If которое возвращает пустое значение, если dependent_cell ячейка пуста.