Question

Question 2: (40 Pointsy) The total cnerey, E. ofa movins hint i comual to energy, E, of a moving object is equal to the sum of its kinetic and potential energieS: where m is the mass (in kg) v is the velocity (in m/s) h is the height of the object (in m) g is the acceleration due to gravity (9.81 m/s') 5 m/s Write a VBA Program that calculates and displays the energy for 6 velocities ranging from 0 to 25 m's at increments Assume that the Excel spreadsheet contains cells with the following information: 2 3 Height: 10 4 Gravity: 9.81 5 6 Mass: |25 kg m/s2 Velocity(m/s) Energy (J) 0 10 15 20 25 10 Program criteria: Declare all variables Use a For...Next loop to calculate the 6 values for E (rounded to one decimal place). Display the values for velocity and energy in columns on the excel worksheet. Use at least one comment line. . .
can someone please help me out with this? i have to write this in vba excel.

Answer 1

Please find the excel file from the below link:

https://www.dropbox.com/s/nz1dbih8d06oymj/Calculate%20Energy%20In%20Joules.xlsm?dl=0

日勺 Calculate Energy In Joules - Excel File Home Insert Page Layout FormulasData Review View Developer Team Tell me what you want to do.... Sign in Share Conditional Formattingnsert2 Format as Table" A Sort &Find & Editing Calibri ▼111 ▼ A A EGeneral aste BIUA Clipboard F10 Delete Format- Cells .0 00 0o Cell Styles e. Filter . Select . Font Alignment Number Styles 2 Mass: 25 3 Height: 10 4 Gravity: 9.81 Velocity(m/s) Energy(J) 10 15 20 25 10 12 13 17 18 19 21 23 Sheet1 Ready 回凹 + 100%

OUTPUT

Calculate Energy In Joules - Excel File Home Insert Page Layout FormulasData Review View Developer Team Tell me what you want to do.... Sign in Share Conditional Formattingnsert2 Format as Table Cell Styles . A Calibri 11A A EGeneral Delete Format- Cells Sort &Find & Filter-Select- Paste .0 00 00$0 L- Clipboard Font Alignment Number Styles Editing F10 2 Mass: 25 3 Height: 10 4 Gravity: 9.81 Velocity(m/s) Energy(J) 10 15 20 25 2452.5 2765 3702.5 5265 7452.5 10265 10 12 13 17 18 19 21 23 Sheet1 Ready 囲ロ凹 + 10096 -

VBA Code (Code will trigger on load of the excel)

Microsoft Visual Basic for Applications - New Microsoft Excel Worksheet - Copyxlsm - ThisWorkbook (Code)] File Edit View Insert Format Debug Run Tools Add-Ins Window Help Project - VBAProject XII workbook vOpern 'This function wili trigger on load of excel Private Sub Workbook Open () mass -Range ("B2") .Value Get the value of mass Dim height As Variant EVBAProject (New Microsi 白 Microsoft Excel Objects SS As Variant Sheet1 (Sheet1) ThisWorkbook Modules Module 1 height Range ("B3").Value 'Get the value of height 嘰Module2 Dim gravity As Variant gravity - Range ("B4") .Value 'Get the value of gravity Variable declarations Dim rng As Range, cell As Range, velocity As Variant, energy As Variant Set rng = Range ("B6:B11") 'Set the range to loop through for velocities For Each cell In rngl velocity cell·Value Get velocity value for cell Calculate energy as 1/2mv2 mgh energy = ((mass * (velocity ^ 2)) / 2) + (mass * gravity * height) "Set the value of the adjacent right cell (i.e. C6-C11) equal the energy calculated Range (cell.Address).Offset (0, 1)-Value energy Next cell End Sub

YOU CAN ACCESS THE VBA CODE BY DOUBLE CLICK THE OPTION SHOWN BELOW.

日勺 Calculate Energy In Joules - Excel Team Tell me what you want to do... Sign in Share E Map Properties E import File HomeInsertPage Layout Formulas t eviewView Developer |ーコRecorelativeReferences·δ XTyre pert es Mode[] Run Dialog El Expansion Packs鹵import Properties Use Relative References Macro Security Code Expansion Packs E, Export Refresh Data Export Add Excel COM Insert Design Source Visual cros Basic ins Add-ins Add-ins Add-in Controls XML F10 kg 2 Mass: 25 3 Height: 10 4 Gravity: 9.81 Velocity(m/s) Energy(J) 10 15 20 25 10 12 13 17 18 19 21 23 Sheet1 Ready 回凹 + 100%