написание макроса

[Аcmrf]

Добрый день! Помогите с решением задачки, пожалуйста!
Необходимо из трех ячеек (a,b,c) составить вектор S[x1;x2;x3].
Если a>=0, то x1=1
если a<0, то x1=0.
Если b>=0, то x2=1
если b<0, то x2=0.
Если c>=0, то x3=1
если c<0, то x3=0.


Пока я написала такой код:
Sub ÎïðåäåëåíèåÒèïàÔèíàíñîâîéÓñòîé÷èâîñ òè()
a = Cells(18, 2)
b = Cells(19, 2)
c = Cells(20, 2)
If a >= 0 Then
Cells(12, 2) = 1
Else
Cells(12, 2) = 0
End If
If b >= 0 Then
Cells(13, 2) = 1
Else
Cells(13, 2) = 0
End If
If c >= 0 Then
Cells(14, 2) = 1
Else
Cells(14, 2) = 0
End If
End Sub



Он работает, но это только для определенных ячеек. И совсем сырой код. Необходимо сделать для рандомных трех ячеек. И как построить вектор тоже пока ума не приложу.

Заранее спасибо за помощь.

[IgorGO]

Вам ответили уже
здесь
там что некалиграфично написано, разобрать почерк не можете?

[Аcmrf]

Да почерк могу разобрать. Не получается у меня с этой функцией...
Решила заново попробовать написать уже как макрос.

[IgorGO]

а там все готово.
и данные могут быть в любых (произвольных) ячейках и вектор можно вывести в удобное Вам место на листе

и пользовательская функция - это тоже макрос, я бы не стал противоставлять друг другу эти понятия.

[Аcmrf]

Спасибо! Вроде, что-то получается..

[Аcmrf]

Просто я в этом новичок, Вы уж извините..
Пытаюсь в этом сама разобраться, а достаточно сложно мне это дается..

[IgorGO]

не стесняйтесь переспросить (уточнить).
не умение программировать не относится к преступлениям, перечисленным в уголовном кодексе
и... не попадает в список смертных грехов из Библии