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

Calculate your order
275 words
Total price: $0.00

Top-quality papers guaranteed

54

100% original papers

We sell only unique pieces of writing completed according to your demands.

54

Confidential service

We use security encryption to keep your personal data protected.

54

Money-back guarantee

We can give your money back if something goes wrong with your order.

Enjoy the free features we offer to everyone

  1. Title page

    Get a free title page formatted according to the specifics of your particular style.

  2. Custom formatting

    Request us to use APA, MLA, Harvard, Chicago, or any other style for your essay.

  3. Bibliography page

    Don’t pay extra for a list of references that perfectly fits your academic needs.

  4. 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

Type of paper
Academic level
Deadline
550 words

How to place an order

  • Choose the number of pages, your academic level, and deadline
  • Push the orange button
  • Give instructions for your paper
  • Pay with PayPal or a credit card
  • Track the progress of your order
  • Approve and enjoy your custom paper

Ask experts to write you a cheap essay of excellent quality

Place an order