Блог

Я пытался выяснить, как извлечь дату и вычесть ее из сегодняшней даты, затем мне нужно, чтобы она отображала «да» или «нет» в зависимости от того, находится она за пределами или внутри диапазона 12 месяцев. Я просто пытаюсь выяснить, как выполнить математические вычисления, даже не превращая их в сложный цикл.

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

Сообщение об ошибке

Ошибка компиляции: переменная не определена.

Я нарисовал стрелку в своем коде там, где она должна быть <-----------

 Private Sub CommandButton1_Click()
    calcDate
End Sub

Public Function calcDate() '<-------------- This is where the error is    
    Dim RegDate As Date
    Dim UpDate As Date

    Set RegDate = Sheets("2019").Cells(o, 17)
    Set UpDate = Sheets("2018").Cells(n, 2)

    answer = DateDiff("m", RegDate, UpDate)

    Sheets("Table").Cells(b, 2) = answer
End Function
  

Метод Cells имеет синтаксис Cells (строка, столбец). Сначала вы используете столбец, и этот столбец также должен быть заключен в двойные кавычки, иначе он будет обрабатываться как переменная, а вы их не объявляли.

Cells(2,"n") будет работать.

Кроме того, вы не объявили переменную answer .

Наконец, вам не нужно Set присваивать значение переменной date.

 Option Explicit

Private Sub CommandButton1_Click()
    calcDate
End Sub

Public Function calcDate()

Dim RegDate As Date
Dim UpDate As Date
Dim answer As Integer

RegDate = Sheets("2019").Cells(17, "O")
UpDate = Sheets("2018").Cells(2, "N")

answer = DateDiff("m", RegDate, UpDate)

Sheets("Table").Cells(2, "B") = answer

End Function