создать программу в excle 2007.

[DiemonStar]

Function НОД(A, B) As Integer- вот эту строку выделяет желтым цветом.

Какая ошибка конкретно? у меня, например, все работает без сбоев.

[kiska190593]

пишет end if without block if

[DiemonStar]

Сообщение от kiska190593

пишет end if without block if

замените

If Max Mod Min = 0 Then: Res = Min: Exit Do: End If

на

If Max Mod Min = 0 Then
  Res = Min
  Exit Do
End If

по факту, это одно и то же, но интерпретатор ругается из-за Exit Do в той же строке.

[kiska190593]

Сейчас ошибка не высвечивается,но в самом Excle массив не пишется.....

[DiemonStar]

Сообщение от kiska190593

Сейчас ошибка не высвечивается,но в самом Excle массив не пишется.....

ну так добавьте вывод массивов) это же просто:

ActiveSheet.Range("A1:B" & N) = A
ActiveSheet.Range("D1:E" & N) = B

в первом варианте я же такое уже делал))

[kiska190593]

вы меня извините,но я правда в этом ничего ни понимаю.... меня сейчас пишется только сам массив,а НОД и НОК не пишется,они должны писаться НОК в 3 СТОЛБЦЕ,А НОК в 4-м!!!

[DiemonStar]

выложите код вашей основной процедуры. (без функций)

[kiska190593]

Спасибо вам большое....Я уже сама допетрила,все получилось))))Слава богу))))