VBA тригонометрия

[valtuno]

Помогите написать код для проги!

Дана формула S = R*[(1-cos a) + C(1-cos 2a)].

Угол а должен изменяться от 10 до 720 град, и в зависимости от угла, значения S должны выводиться в таблицу. R, С - const.

Реально такое сделать?

[valtuno]

Забыл! Нужно вывести значения S через каждые 10 град.

[DiemonStar]

Вам это в VBA нужно или в Excel?
Вопрос не праздный, потому что формулами в Экселе это даже быстрее сделать, чем с VBA.

[valtuno]

Именно в VBA((

[DiemonStar]

Sub myfunction()
  C = 3
  R = 5
  ActiveSheet.Cells(1, 1) = "Result"
  For I = 10 To 720 Step 10
    ActiveSheet.Cells(1 + I \ 10, 1) = R * ((1 - Cos(3.14 * I / 180)) + C * (1 - Cos(3.14 * I / 90)))
  Next I
End Sub

[valtuno]

Спасибо все работает! А можно сделать чтобы я шаг сам вручную задавал и чтобы результаты как нибудь на UserForm выводились а не в excel?

[DiemonStar]

А можно сделать чтобы я шаг сам вручную задавал

Step 10

изменяете здесь значение шага и будет с вашим интервалом всё изменяться.

чтобы результаты как нибудь на UserForm выводились

делаете listbox на вашей форме и выводите туда. там ничего сложного нет.

[valtuno]

Спасибо огромное!

[valtuno]

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