Can anyone help me with a school assignment?

Rolltide89 · Nov 4, 2011

I have an assignment for school I need to get done and I cannot figure out the right codes for this for the life of me. This is my first course in VBA and I really need some help badly! Heres the project:

 [FONT=&quot]CS385: Project 1 [/FONT]
[FONT=&quot]Check Calendar for Due Date[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot]Create a macro called Calculations that will perform the following tasks:[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot]1. [/FONT][FONT=&quot]Prompt the user to enter three numbers and store them in appropriate variables.[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot]2. [/FONT][FONT=&quot]Create a private function Min which will take the three variables as arguments. The procedure will determine the smallest of the three numbers entered by the user and return it to a variable named Smallest using an assignment statement.[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot]3. Create a private function Max which will take three variables as arguments. The procedure will determine the largest of the three numbers entered by the user and return it to a variable named Largest using an assignment statement.[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot]4. [/FONT][FONT=&quot] Determine if each variable is even or odd and print the variable and result to the spreadsheet.[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot]5. [/FONT][FONT=&quot] Output the following with labels starting in cell A1:[/FONT]
[FONT=&quot]a. [/FONT][FONT=&quot]All three numbers entered by the user.[/FONT]
[FONT=&quot]b. [/FONT][FONT=&quot]Smallest of numbers entered by the user.[/FONT]
[FONT=&quot]c. [/FONT][FONT=&quot]Largest of numbers entered by the user.[/FONT]
[FONT=&quot]g. [/FONT][FONT=&quot]Numbers are Even or Odd[/FONT]
[FONT=&quot]h. [/FONT][FONT=&quot]Column A should be resized using code to the widest statement[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot]6. [/FONT][FONT=&quot]Save the workbook in this form CollegeJoeHW1.xls and submit it to WebCT.[/FONT]
[FONT=&quot] [/FONT]
[FONT=&quot]Sample Output Results:[/FONT]
[FONT=&quot][/FONT]
Column A in Excel Column B in Excel
First number= 46
Second number= 68
Third number= 23
The largest nuber is 68
The smallest number is 23
The number 45 is odd
The number 68 is even
The number 23 is odd

*He gave us a starter code for it:

This is some code to get you started on Project 1.
Option Explicit
Public Sub Calculation()
'Define variables
Dim Var1 As Long, Var2 As Long, Var3 As Long, Largest As Integer, Smallest As Integer
'Input 3 numbers from user
Var1 = InputBox("Enter the first integer :", "First")
Var2 = InputBox("Enter the second integer :", "Second")
Var3 = InputBox("Enter the third integer :", "Third")
'Write information to the spreadsheet
Range("a1").Value = "First number = "
Range("a2").Value = "Second number = "
Range("a3").Value = "Third number = "
Range("b1").Value = Var1
Range("b2").Value = Var2
Range("b3").Value = Var3
'Find the Largest Number
Largest = Max(Var1, Var2, Var3)
Range("a4").Value = "The largest number is " & Largest
'Find the Smallest Number
Smallest = Min(Var1, Var2, Var3)
Range("a5").Value = "The smallest number is " & Smallest
If Var1 Mod 2 = 0 Then
Range("a6").Value = "The number " & Var1 & " is even"
Else
Range("a6").Value = "The number " & Var1 & " is odd"
End If
If Var2 Mod 2 = 0 Then
Range("a7").Value = "The number " & Var2 & " is even"
Else
Range("a7").Value = "The number " & Var2 & " is odd"
End If
If Var3 Mod 2 = 0 Then
Range("a8").Value = "The number " & Var3 & " is even"
Else
Range("a8").Value = "The number " & Var3 & " is odd"
End If
Columns("a:a").EntireColumn.<wbr>AutoFit
End Sub
You will need to create the Max Function and Min Function in the following form:
Private Function Max(Var1 As Integer, Var2 As Integer, Var3 As Integer) As Integer
‘Place your If statements here from Computer Exercise 2, Problem 4 which finds the largest and smallest values from three integers
End Function

*Then he gave us another function code to check if we were right. He gave us the Min and Max function:
Private Function Min(v1 As Long, v2 As Long, v3 As Long) As Long
If v1 < v2 And v1 < v3 Then
Min = v1
ElseIf v2 < v1 And v2 < v3 Then
Min = v2
ElseIf v3 < v1 And v3 < v2 Then
Min = v3
End If
End Function
Private Function Max(v1 As Long, v2 As Long, v3 As Long) As Long
If v1 > v2 And v1 > v3 Then
Max = v1
ElseIf v2 > v1 And v2 > v3 Then
Max = v2
ElseIf v3 > v1 And v3 > v2 Then
Max = v3
End If
End Function

*If anyone give me the correct code so I can figure out my mistakes please. I would be very thankful!!

Rolltide89 · Nov 7, 2011

It gives me a Run-time Error '1004' : Application-defined or object defined error. I made the labels for the table with Period, Payment, Interest, Principle, and Balance. When I run the macro it will show an input box for "Enter rate of loan in decimal form", then "Enter number of years", then "Enter the amount of loan" and then it shows the error. The macro is supposed to fill in the table under the headings based on what is put in the input cells. Am I missing anything or not defining the right variables?

Andrew Poulsom · Nov 8, 2011

You haven't assigned a value to the variable Y.

Rolltide89 · Nov 8, 2011

What do you mean by assigning it a variable? At the top I did Dim Y As Integer. How would I fix my code? It keeps giving me errors!

Andrew Poulsom · Nov 8, 2011

You've declared it but you haven't assigned it a value, so it's zero. I think you need to set it to 7 before running your loop.

Can anyone help me with a school assignment?

Rolltide89

New Member

Rolltide89

New Member

Excel Facts

Andrew Poulsom

MrExcel MVP

Rolltide89

New Member

Andrew Poulsom

MrExcel MVP

Similar threads

Forum statistics

Share this page

Can anyone help me with a school assignment?

Rolltide89

New Member

Rolltide89

New Member

Excel Facts

Andrew Poulsom

MrExcel MVP

Rolltide89

New Member

Andrew Poulsom

MrExcel MVP

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock