Перемножение

[ahvahsky2008]

Public Sub CommandButton1_Click()
Dim Ty_max, Ymax, T, Xn, Vn, G, B As Single
Dim Vo, A As Single


G = 9.8
'********************Main********** **************'
'В ячейке G7 число 10 а в ячейке G8 20

Vo = Range("G7").Select 'в идеале Vo должно было прировнять к 10
A = Range("G8").Select ' A должно было быть 20
' но почему то ответ выходит неправильный((((((

' а когда я вручную делаю
Vo=10
A=20

'ответ выходит правильный

'Вот тут выводится ответ
Ty_max = (Vo * Sin(A)) / G
Range("G15").Select
ActiveCell.FormulaR1C1 = Ty_max

[VictorM]

Вот так работает:

Sub Test()
    Dim Ty_max, Ymax, T, Xn, Vn, G, B As Single
    Dim Vo, A As Single
    G = 9.8
    '********************Main********** **************'
    'В ячейке G7 число 10 а в ячейке G8 20
    Vo = Range("G7")    '.Select 'в идеале Vo должно было прировнять к 10
    A = Range("G8")    '.Select ' A должно было быть 20
    ' но почему то ответ выходит неправильный((((((
    ' а когда я вручную делаю
   ' Vo = 10
   ' A = 20
    'ответ выходит правильный
    'Вот тут выводится ответ
    Ty_max = (Vo * Sin(A)) / G
    Range("G15").FormulaR1C1 = Ty_max
    'ActiveCell.FormulaR1C1 = Ty_max
End Sub

[ahvahsky2008]

Public Sub CommandButton1_Click()
Dim Ty_max, Ymax, T, Xn, Vn, G, B As Single
Dim Vo, A As Single


G = 9.8
'********************Main********** **************'
Vo = Range("G7").Value
A = Range("G8").Value
If Vo <> 10 Then MsgBox ("âàïâàïâà")
Ty_max = (Vo * Sin(A)) / G
Range("G15").Select
ActiveCell.FormulaR1C1 = Ty_max
'********************************2* **************'
Ymax = Yo + ((Sqr(Vo) * (Sin(A) * Sin(A))) / 2 * G)
Range("G16").Select
ActiveCell.FormulaR1C1 = Ymax
'**********************3*********** **********'
T = (Vo * Sin(A) + Sqrt(Sqr(Vo) * Sin(A) * Sin(A) + 2 * G * Yo))
Range("G17").Select
ActiveCell.FormulaR1C1 = T


исправил ,но теперь ругается на SQRT/ при запуске пишет sub or function not defined

[Aent]

Интересно, что парой строк выше вы совершенно правильно использовали функцию Sqr. Откуда же у вас взялось в VBA EXCEL SQRT?
Тяжёлое наследие паскаля/дельфи ?
Кстати, публикуемый код на этом форуме желательно заключать в тег CODE
(см ссылку BB коды в левом нижнем углу страницы)
Да и за кодировкой комментарив следить было бы неплохо...

[VictorM]

ahvahsky2008 см. пост Aent
а вот это код, работает (старайтесь не использовать без необходимости Select)

Sub Test()
    Dim Ty_max, Ymax, T, Xn, Vn, G, B As Single
    Dim Vo, A As Single
    G = 9.8
    Vo = [g7]
    A = [g8]
    Ty_max = (Vo * Sin(A)) / G
    [g15] = Ty_max
    Ymax = Yo + ((Sqr(Vo) * (Sin(A) * Sin(A))) / 2 * G)
    [g16] = Ymax
    T = (Vo * Sin(A) + Sqr(Sqr(Vo) * Sin(A) * Sin(A) + 2 * G * Yo))
    [g17] = T
End Sub