Добрый день!
В файле есть макрос для определения типа конрагента (просто пример, понятно, что очень примитивно).
Как сделать из него функцию, где бы в качесстве аргумента можно было указать ячейку и соответственно результат был выведен в ячейку, куда ввел формулу.
Спасибо.
И код для примера.
В файле есть макрос для определения типа конрагента (просто пример, понятно, что очень примитивно).
Как сделать из него функцию, где бы в качесстве аргумента можно было указать ячейку и соответственно результат был выведен в ячейку, куда ввел формулу.
Спасибо.
И код для примера.
Код |
---|
Sub Category() For i = 1 To 5 If Cells(i, 1).Value Like "*ООО*" Then Cells(i, 2).Value = "Юр.лицо" ElseIf Cells(i, 1).Value Like "*АО*" Then Cells(i, 2).Value = "Юр.лицо" ElseIf Cells(i, 1).Value Like "*ИП*" Then Cells(i, 2).Value = "ИП" Else Cells(i, 2).Value = "Физ.лицо" End If Next End Sub |