Excel VBA

I have done the code but I have some mistakes that it need to be fixed….. I couldnot upload a file so here is screenshots of it………………………

X
| Microsoft Visual Basic for Applications – attachment_1.xls – [Module3 (Code)]
File Edit View Insert Format Debug Run Tools Add-Ins Window Help
6 X
DD
Ln 3, Col 1
ROTextSub
ES
1
1
Project – VBA X (General)
Option Explicit
Sub ROTextSub ()
BVBAProje
Micros Declaration
She
She Dim A As String
She
Dim B As String
Thi
Dim C As String
Dim D As String
Forms
Dim E As String
Module
Dim F As String
+
Mo
с Мо
Мо
Dim Ans1 As String
Dim Ans2 As String
Dim Ans3 As String
Dim Ans4 As String
Dim Ans5 As String
Dim Ans6 As String
1
Input
I
Properties – 1 x
Range (“A11:A16”).Select
A = ActiveCell. Value
Modul Modul
Alphabet
(Name) Module:
ActiveCell.offset (1, 0). Select
B = ActiveCell. Value
ActiveCell.Offset (1, 0).Select
C = ActiveCell. Value
ActiveCell.Offset (1, 0).Select
D = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
E = ActiveCell. Value
ActiveCell.Offset (1, 0).Select
F = ActiveCell. Value
Process
Ans1
Ans2 E
Ans3 D
Ans4 С
Ans5 = B
Ans6 = A
|| | || || | ||
=
‘Output
I
Range (“B11:B16”).Select
ActiveCell.Value = Ans1
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Ans2
< O Type here to search jj EO х N O W 95°F & ° ) ENG 5:54 PM 9/24/2021 IMI 8 - X | Microsoft Visual Basic for Applications - attachment_1.xls - [Module2 (Code)] File Edit View Insert Format Debug Run Tools Add-Ins Window Help 6 X DD Ln 4, Col 1 CirCy SlantSub Project - VBA X (General) Input ES I Range ("A12:014").Select L_1 = ActiveCell. Value BVBAProje Micros She She She Thi Forms Module ActiveCell.Offset(0, 1).Select r 1 = ActiveCell. Value + ActiveCell.Offset(0, 1).Select t 1 = ActiveCell.Value Mo Mo Мо ActiveCell.Offset (1, -2).Select L 2 = ActiveCell.Value ActiveCell.Offset(0, 1).Select r2 = ActiveCell. Value ActiveCell.Offset (0, 1).Select t 2 = ActiveCell. Value ActiveCell.Offset(1, -2).Select L 3 = ActiveCell. Value Properties - 1 x Modul Modul ActiveCell.Offset(0, 1).Select r 3 = ActiveCell.Value Alphabet (Name) Module: ActiveCell.offset (0, 1).Select t 3 = ActiveCell. Value Process * V 1 V 2 V 3 * L 1 Application.Worksheet Function.Pi Application.Worksheet Function. Pi L 2 * L 3 Application.Worksheet Function. Pi * * A (r 1) (r 2) (r 3) ^ 2 * Sin (t_1) 2 * Sin (t 2) 2 * Sin(t 3) * 'Output Range ("D12").Select ActiveCell.Value = V 1 ActiveCell.Offset(1, 0).Select ActiveCell. Value V 2 ActiveCell.Offset(1, 0).Select ActiveCell.Value = V 3 End Sub Function RightCirConeUDF (r As Double, h As Double) As Double RightCirConeUDF = Application.Worksheet Function.Pi() * r * A.Sqr( * r + h * h) End Function < 5:53 PM o Type here to search jj EO х O N W 95°F a ENG IMI 9/24/2021 8 - X | Microsoft Visual Basic for Applications - attachment_1.xls - [Module2 (Code)] File Edit View Insert Format Debug Run Tools Add-Ins Window Help 6 X DD Ln 4, Col 1 CirCy SlantSub Project - VBA X (General) Sub CirCylslantSub () ES T 'Declaration I BVBAProje Micros She She She Thi Forms Module Dim L 1 As Double Dim r 1 As Double Dim t 1 As Double Dim L 2 As Double Dim r 2 As Double Dim t 2 As Double Dim L 3 As Double Dim r 3 As Double Dim t 3 As Double + Mo Mo в Мо Dim V 1 As Double Dim V 2 As Double Dim v 3 As Double 'Input I Range ("A12:C14").Select L_1 = ActiveCell.Value Properties - 1 x Modul Modul ActiveCell.Offset(0, 1).Select r 1 = ActiveCell. Value Alphabet (Name) Module: ActiveCell.Offset(0, 1).Select t 1 = ActiveCell. Value ActiveCell.Offset (1, -2).Select L 2 = ActiveCell. Value ActiveCell.Offset(0, 1).Select r 2 = ActiveCell. Value ActiveCell.Offset(0, 1).Select t 2 = ActiveCell.Value ActiveCell.Offset(1, -2).Select L 3 = ActiveCell. Value ActiveCell.Offset(0, 1).Select r 3 = ActiveCell. Value ActiveCell.offset (0, 1).Select t 3 = ActiveCell. Value Process * V 1 Application.Worksheet Function.Pi V 2 = Application.Worksheet Function. Pi V 3 = Application.Worksheet Function.Pi L 1 * L 2 L 3 * * (r_1) 2) (r 3) 2 * Sin (t_1) 2 * Sin(t 2) ^2 * Sin (t_3) * 'Output Range ("D12").Select < 5:53 PM o Type here to search jj EO х O N W 95°F & 3 ENG IMI 9/24/2021 8 X | Microsoft Visual Basic for Applications - attachment_1.xls - [Module1 (Code)] File Edit View Insert Format Debug Run Tools Add-Ins Window Help 6 X OD Ln 4, Col 1 Project - VBA X (General) SimpleMathSub ES End Function Sub QuadSub () Declaration BVBAProje Micros She She She Thi Forms Module T + с Мо Dim A As Integer Dim B As Integer Dim C As Integer Dim x 1 As Double Dim x 2 As Double Dim x 3 As Double Dim y_1 As Double Dim y_2 As Double Dim y_3 As Double с Мо Мо 1 'Input Range ("B27:D29").Select A = ActiveCell. Value Properties - IX Modul Modul ActiveCell.Offset (1, 0).Select B = ActiveCell. Value Alphabet (Name) Module ActiveCell.Offset(1, 0).Select C = ActiveCell. Value ActiveCell.Offset (-2, 2). Select x 1 = ActiveCell. Value ActiveCell.Offset(1, 0).Select x 2 = ActiveCell.Value ActiveCell.Offset (1, 0).Select x 3 = ActiveCell. Value 'Process ^ y_1 = A * y 2 A * y 3 A * (x 1) (x 2) (x 3) 2 + B * 2 + B 2 + B * * (x 1) (x 2) (x 3) + C + C + C = 1 'Output Range ("E27").Select ActiveCell.Value = y_1 ActiveCell.Offset(1, 0).Select ActiveCell.Value Y_2 = ActiveCell.Offset(1, 0).Select ActiveCell. Value Y_3 End Sub < 5:52 PM O Type here to search jj EO х N O W 95°F & ° ) ENG IM 9/24/2021 8 X | Microsoft Visual Basic for Applications - attachment_1.xls - [Module1 (Code)] File Edit View Insert Format Debug Run Tools Add-Ins Window Help 6 X DD Ln 4, Col 1 SimpleMath Sub Project - VBA X (General) Sub SimpleMathSub () ES 'Declaration I BVBAProje Micros She She She Thi Forms Module Dim x1 As Double Dim yl As Double Dim x2 As Double Dim y2 As Double Dim x3 As Double Dim y3 As Double + Mo с Мо Мо Dim Ans1 As Double Dim Ans2 As Double Dim Ans3 As Double 1 'Input Range ("A12:B14").Select x1 = ActiveCell. Value ActiveCell.Offset(1, 0).Select x2 = ActiveCell.Value Properties - IX Modul Modul ActiveCell.Offset(1, 0).Select x3 = ActiveCell. Value Alphabet (Name) Module ActiveCell.Offset(-2, 1).Select yl = ActiveCell.Value ActiveCell.Offset (1, 0).Select y2 = ActiveCell. Value ActiveCell.Offset(1, 0).Select y3 = ActiveCell. Value I 'Process Ans1 = Tan (x1 / yl) Ans2 = Tan (x2 / y2) Ans3 = Tan (x3 / y3) " "Output Range("C12").Select ActiveCell. Value Ans1 = ActiveCell.Offset(1, 0).Select ActiveCell.Value = Ans2 ActiveCell.Offset(1, 0).Select ActiveCell.Value Ans3 = End Sub Function SimpleAddUDF (x As Integer, y As Integer) As Integer 를 < 5:52 PM o Type here to search jj EO х N O W 95°F a 4) ENG IM 9/24/2021 8