Работаю в Excel 2003
Требуется:
при определенном значении в ячейке 1 записывать в ячейку 2 определённый текст.
Среди стандартных функций Excel подобного не нашла.
Пытаюсь сделать пользовательскую функцию.
- Код: Выделить всё
Function Laz(address_Source As Range, num As Double, address_To As Range, str_To As String)
If address_Source.Value = num Then
address_To.Value = str_To
End If
Laz = ""
End Function
т.е. если значение в ячейке, указанной первым параметром (address_Source As Range) равно второму параметру (num As Double),
то хочу в ячейку, указанную третим параметром (address_To As Range) записать четвёртый параметр (str_To As String)
Не работает.
Пробовала такой вариант:
- Код: Выделить всё
Function Laz(address_Source As Range, num As Double, address_To As Range, str_To As String) as String
If Range(address_Source.Address(False, False)).Value = num Then
Range(address_To.Address(False, False)).Value = str_To
End If
Laz = ""
End Function
тоже не подходит.
И ещё что странно, под отладкой - программа до строки
- Код: Выделить всё
Laz = ""
НЕ ДОХОДИТ!
Вызываю функцию таким образом
=Laz(A4;7;A14;"3333332")
В ячейке отображается "#ЗНАЧ!" (ошибка в значении).
ЧТО Я ДЕЛАЮ не так?
