Составить программу в VBA через EXCEl

[Apsalon]

Мне дали задание сказали сначала составить блок схему затем по ней составить программу!!!!!
Я создал только блок схему (
ещё плохо освоил язык VBA
Помогите!!!!

[IgorGO]

я как раз осваиваю, циклы уже прошел:

Sub ReplaceData
  for i = 1 to ubound(a)
    if a(i) < 0 then a(i) = 1 else a(i) = 0
  next i
end sub

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

[Apsalon]

не совсем по моему так)
если Ai=0 то это не положительный и не отрицательный элемент !!!
по этому такая и блок схема !
Вроде нельзя там нечего упрощять)

[Apsalon]

ну хотя ответу то будут правильными)
Спасибо!

[Apsalon]

А как это проверить через EXCEl?