Страницы: 1
RSS
Задать значение пользовательской функции при несоблюдении условия
 
Подскажите, как задать значение пользовательской функции при несоблюдении условия?
Есть 2 моих корявых кода. Первый работает, второй нет.
Не могу понять, где во втором ошибка

Первый
Код
Function КОД_ПАРТИИ(Код_номенклатуры, Дата_производства)
Dim m As String
Dim y As String
Dim d As String

If Код_номенклатуры = 0 Then
    КОД_ПАРТИИ = "Введите код номенклатуры!"
Exit Function
ElseIf Дата_производства = 0 Then
    КОД_ПАРТИИ = "Введите дату!"
Exit Function
End If

If Month(Дата_производства) = 1 Then
    m = "R"
End If

If Year(Дата_производства) = 2019 Then
    y = "X"
End If

If Day(Дата_производства) = 1 Then
    d = "R"
End If

КОД_ПАРТИИ = m & y & d

End Function

Второй
Код
Function TEST1(A, B)
Dim iFullName As String

iFullName = "C:\Program Files\1234.jpg"
If Dir(iFullName) = "" Then
    TEST1 = "ffgg"
    Exit Function
Else
    TEST1 = A & B
End If
End Function

Если файл 1234.jpg есть по указанному пути, все работает, функция выдает верный ответ.

Если файла нет, то функция выдает ошибку #ЗНАЧ!

 
Попробовал, у меня работает. Без файла выдает "ffgg", с файлом сцепляет аргументы А и В.Никакого #ЗНАЧ не возникает. Win7 Excel 2007
 
Какая связь между функциями?
Тему нельзя был конкретно назвать (что-то о проверке пути к файлу)?

Во второй Exit Function - лишнее
Страницы: 1
Наверх