Дата печать книги при открытии

Question

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

Моя текущая логика в виду, заключается в следующем, но это дает мне «Неоднозначное Name» сообщение об ошибке:

Private Sub Workbook_Open() 

If Worksheet(1).Range("G30") Is Nothing Then 
Range("G30").Value = Now + 120 
On Error GoTo 0 

End Sub 

Учебное пособие предназначено для обновления по мере необходимости, поэтому нужно будет проверить, является ли отметка даты уже отмечена.

У кого-нибудь есть предложения в этом случае? Спасибо заранее!

Answer 1

что бы:

Private Sub Workbook_Open() 
    With Worksheets("General Profiling") 
     If IsEmpty(.Range("G30")) Then .Range("G30").Value = Now + 120 
    End With 
End Sub 

с:

• Worksheet не является допустимым ссылка на объект

• someRange нет ничего,

  работы для проверки, является ли Range тип d переменная someRange была назначено или не

  в то время как Worksheets(1).Range("G30") просто по умолчанию в Value свойства этого Range объекта, а затем вы должны проверить его против быть Empty или не

• вашей ссылки 2-й диапазона (Range("G30").Value) ISN» t полностью

  тогда он будет ссылаться Range("G30") в в настоящее время активно лист, который не может быть тем, который вы хотите.

  With Worksheets(1) - End With с помощью блока и точки (.) перед всеми Range вызовов будет убедиться, что они ссылаются на тот же (и хотел) лист