Sub vol()
Dim rad As Double ' радиус
Dim h As Double 'высота
Dim vol As Double ' объем
Const pi As Double = 3.1415926
 
rad = Range("A1")
h = InputBox("Введите высоту цилиндра")
vol = 'формула объема цилиндра
MsgBox "Объем = " & vol
 
 
End Sub