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
Top-quality papers guaranteed
100% original papers
We sell only unique pieces of writing completed according to your demands.
Confidential service
We use security encryption to keep your personal data protected.
Money-back guarantee
We can give your money back if something goes wrong with your order.
Enjoy the free features we offer to everyone
-
Title page
Get a free title page formatted according to the specifics of your particular style.
-
Custom formatting
Request us to use APA, MLA, Harvard, Chicago, or any other style for your essay.
-
Bibliography page
Don’t pay extra for a list of references that perfectly fits your academic needs.
-
24/7 support assistance
Ask us a question anytime you need to—we don’t charge extra for supporting you!
Calculate how much your essay costs
What we are popular for
- English 101
- History
- Business Studies
- Management
- Literature
- Composition
- Psychology
- Philosophy
- Marketing
- Economics