Home |
Search |
Today's Posts |
#1
![]() |
|||
|
|||
![]()
Hey.
I was wondering if you guys could help me with some excel problems? I really hope there are some excel fanatics in here... For the first one, I know how to obtain the values from the net and get the lines. What I don't know how to do is forecast 20 periods into the future using the regression equation. Could you guys instruct me on that? 1) This is the problem. From yahoo, obtain a series of prices for an individual stock or for the Dow Jones Industrial or some other standard average.(at least 100 data points). Create an appropriate chart of the data. Fit three trend lines to the data, using technology. Include the equation and R2 for all models. Also, use the model that best fits the data to forecast 20 periods into the future, using technology and the regression equation. I am suppose to have a seperate chart for each regression model. ---- Now for the second one, I have no clue what to do. 2) In this problem, I am asked to create a worksheet that allows me to enter the location of the ticket desired, the age of the person, and the price of the ticket. I am given the following data to complete the assignment: Box seats are $98, lower deck seats are $54, and upper deck seats are $32. Children (under 16) are half price. Seniors (65 and over) receive a $12 discount. If the person types in an illegal seat the worksheet should inform the user. I can use as many cells as I want. I am suppose to try the worksheet for box seats for a 65 year old, lower deck for a 12 year old, and dugout for a 28 year old, and box for an 16 year old. I'd be very thankful if you guys could help me with these worksheets. :) |
#2
![]() |
|||
|
|||
![]()
I wasn't sure how much freedom you are allowed to have in making this spreadsheet. That and I dont want to do your homework for you. (Nor should you want others to completely do everything for you). So I have decided to do everything in a macro so you can see some of the neat things that can be done. In a new spreadsheet in column A1, B1, C1, D1 respectively put Seat Type, Age, Ticket Price, Name. Add this macro to your spread sheet:
Code:
Option Explicit Sub Macro1() Dim seattest As String Dim agetest As Integer Dim nametest As String Dim lastprice As Integer Part1: seattest = InputBox("What type of seat do you want to purchase ie Box Seat, Lower Deck, Upper Deck?") Select Case seattest Case "Box Seat" Range("A6000").End(xlUp).Offset(1, 0).Value = "Box Seat" agetest = InputBox("How old is the the attendee (in years)?") Select Case agetest Case Is < 17 Range("B6000").End(xlUp).Offset(1, 0).Value = agetest Range("C6000").End(xlUp).Offset(1, 0).Value = 98 * 0.5 Case Is 64 Range("B6000").End(xlUp).Offset(1, 0).Value = agetest Range("C6000").End(xlUp).Offset(1, 0).Value = 98 - 12 Case Else Range("B6000").End(xlUp).Offset(1, 0).Value = agetest Range("C6000").End(xlUp).Offset(1, 0).Value = 98 End Select Case "Lower Deck" Range("A6000").End(xlUp).Offset(1, 0).Value = "Lower Deck" agetest = InputBox("How old is the the attendee (in years)?") Select Case agetest Case Is < 17 Range("B6000").End(xlUp).Offset(1, 0).Value = agetest Range("C6000").End(xlUp).Offset(1, 0).Value = 54 * 0.5 Case Is 64 Range("B6000").End(xlUp).Offset(1, 0).Value = agetest Range("C6000").End(xlUp).Offset(1, 0).Value = 54 - 12 Case 17 To 64 Range("B6000").End(xlUp).Offset(1, 0).Value = agetest Range("C6000").End(xlUp).Offset(1, 0).Value = 54 Case Else MsgBox ("Incorrect Entry") GoTo Part1 End Select Case "Upper Deck" Range("A6000").End(xlUp).Offset(1, 0).Value = "Upper Deck" agetest = InputBox("How old is the the attendee (in years)?") Select Case agetest Case Is < 17 Range("B6000").End(xlUp).Offset(1, 0).Value = agetest Range("C6000").End(xlUp).Offset(1, 0).Value = 32 * 0.5 Case Is 64 Range("B6000").End(xlUp).Offset(1, 0).Value = agetest Range("C6000").End(xlUp).Offset(1, 0).Value = 32 - 12 Case 17 To 64 Range("B6000").End(xlUp).Offset(1, 0).Value = agetest Range("C6000").End(xlUp).Offset(1, 0).Value = 32 Case Else MsgBox ("Incorrect Entry") GoTo Part1 End Select Case Else MsgBox "Incorrect Entry" GoTo Part1 End Select nametest = InputBox("What is your name?") Range("D6000").End(xlUp).Offset(1, 0).Value = nametest lastprice = Range("C6000").End(xlUp).Value MsgBox ("Your ticket price is $" & lastprice) End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
homework | New Users to Excel | |||
My Excel Homework | Excel Discussion (Misc queries) | |||
Excel spreadsheat to track homework assignments | Excel Discussion (Misc queries) | |||
how do I prepare a excel spreadsheet to track homework assignmen. | Excel Discussion (Misc queries) | |||
Quick Excel download for homework assignment | Excel Discussion (Misc queries) |