У меня проблема с таблицей, которая работала ранее. Когда я нажимаю кнопку «Добавить образец» (см. Изображение ниже), я получаю сообщение об ошибке компиляции: значение не определено. В Отладчике это показывает, что это происходит в Private Sub UserForm_Activate()
и похоже, что зависание на Date From
. К сожалению, это не электронная таблица, которую я создал. и не то, с чем я исключительно знаком. Любая помощь будет принята с благодарностью
Private Sub UserForm_Activate()
Dim icol
Tests.Clear
' if any additional tests have been added to this form, take note
For icol = 11 To 29
If ActiveSheet.Cells(9, icol) <> "" Then
TestName = ActiveSheet.Cells(9, icol)
AddTest_Click
End If
Next icol
TestName = ""
LookupType.Clear
LookupType.AddItem "Composite"
LookupType.AddItem "Sample"
LookupType = "Composite"
DateFrom = Now - 14
DateTo = Now
Select Case ActiveSheet.Cells(1, 25)
Case "Fond du Lac"
Site.Text = "FD"
Case "Mountain Lake"
Site.Text = "ML"
Case "Norfolk"
Site.Text = "NE"
Case "Wautoma"
Site.Text = "WT"
Case "Visalia"
Site.Text = "VS"
Case Else
Site.Text = ""
End Select
End Sub