Attached been sent

1 answer below »

View more »
Answered Same DayMay 11, 2023

Answer To: Attached been sent

Atul answered on May 11 2023
40 Votes
VBA Code for Question 14 and onwards
Sub AnalyzeStockData()
Dim numCos As Integer
Dim numPrcs As Integer
Dim jLag
As Integer
Dim jRow As Integer
Dim jCo As Integer
Dim SMAlength As Integer
Dim jTicker(1000) As String
Dim jDate(1000, 1000) As Date
Dim jMoat(1000) As String
Dim closePrc(1000, 1000) As Double
Dim SMA(1000, 1000) As Double
Dim sumPrcsSMA As Double

Sheets("Sheet3").Range("A1:H2000").ClearContents

numCos = 456
numPrcs = 257
jLag = 3
SMAlength = 26

' Read in all prices for all companies
For jCo = 1 To numCos
jTicker(jCo) = Sheets("Sheet1").Cells(jCo + 1, 2).Value
jMoat(jCo) = Sheets("Sheet1").Cells(jCo + 1, 8).Value
For jRow = 1 To numPrcs
jDate(jCo, jRow) = Sheets("Sheet1").Cells(jCo + 1, 1).Value
closePrc(jCo, jRow) = Sheets("Sheet1").Cells(jCo + 1, 6).Value
Next jRow
Next jCo

' Calculate the Simple Moving Average for all companies for all dates
For jCo = 1 To numCos
For jRow = SMAlength To numPrcs
sumPrcsSMA = 0
For i = jRow - SMAlength + 1 To jRow
sumPrcsSMA = sumPrcsSMA + closePrc(jCo, i)
Next i
...
SOLUTION.PDF

Answer To This Question Is Available To Download

Related Questions & Answers

More Questions »

Submit New Assignment

Copy and Paste Your Assignment Here
April
January
February
March
April
May
June
July
August
September
October
November
December
2025
2025
2026
2027
SunMonTueWedThuFriSat
30
31
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
1
2
3
00:00
00:30
01:00
01:30
02:00
02:30
03:00
03:30
04:00
04:30
05:00
05:30
06:00
06:30
07:00
07:30
08:00
08:30
09:00
09:30
10:00
10:30
11:00
11:30
12:00
12:30
13:00
13:30
14:00
14:30
15:00
15:30
16:00
16:30
17:00
17:30
18:00
18:30
19:00
19:30
20:00
20:30
21:00
21:30
22:00
22:30
23:00
23:30