VBA_Challenge.vbs

Sub AllStocksAnalysisRefactored()
    Dim startTime As Single
    Dim endTime  As Single

    yearValue = InputBox("What year would you like to run the analysis on?")

    startTime = Timer
    
    'Format the output sheet on All Stocks Analysis FINAL worksheet
    Worksheets("All Stocks Analysis FINAL").Activate
    
    Range("A1").Value = "All Stocks (" + yearValue + ")"
    
    'Create a header row
    Cells(3, 1).Value = "Ticker"
    Cells(3, 2).Value = "Total Daily Volume"
    Cells(3, 3).Value = "Return"

    'Initialize array of all tickers
    Dim tickers(12) As String
    
    tickers(0) = "AY"
    tickers(1) = "CSIQ"
    tickers(2) = "DQ"
    tickers(3) = "ENPH"
    tickers(4) = "FSLR"
    tickers(5) = "HASI"
    tickers(6) = "JKS"
    tickers(7) = "RUN"
    tickers(8) = "SEDG"
    tickers(9) = "SPWR"
    tickers(10) = "TERP"
    tickers(11) = "VSLR"
    
    'Activate data worksheet
    Worksheets(yearValue).Activate
    
    'Get the number of rows to loop over
    RowCount = Cells(Rows.Count, "A").End(xlUp).Row
    
    '1a) Create a ticker Index
    For i = 0 To 11
       tickerIndex = tickers(i)

    '1b) Create three output arrays
    Dim tickerVolumes As Long
    Dim tickerStartingPrices As Single
    Dim tickerEndingPrices As Single

    'Activate data worksheet
    Worksheets(yearValue).Activate

    '2a) Create a for loop to initialize the tickerVolumes to zero.
    tickerVolumes = 0
        
    '2b) Loop over all the rows in the spreadsheet.
    For j = 2 To RowCount
    
        '3a) Increase volume for current ticker

        If Cells(j, 1).Value = tickerIndex Then  '<< for each of the same tickers
            tickerVolumes = tickerVolumes + Cells(j, 8).Value   '<< add the ticker Volumes

        End If

        '3b) Check if the current row is the first row with the selected tickerIndex.

        If Cells(j - 1, 1).Value <> tickerIndex And Cells(j, 1).Value = tickerIndex Then    '<< if the previous row is not the same ticker
            tickerStartingPrices = Cells(j, 6).Value  '<< this is a new ticker and we need to store this starting price
             
        End If
        
        '3c) check if the current row is the last row with the selected ticker and if the next row’s ticker doesn’t match, increase the tickerIndex.
        
        If Cells(j + 1, 1).Value <> tickerIndex And Cells(j, 1).Value = tickerIndex Then '<< if the next row is not the same ticker
            tickerEndingPrices = Cells(j, 6).Value  '<< this is the last row and we need to store this ending price
            
        End If
       
        '3d Increase the tickerIndex.
            
        Next j
    
    'Next i
    
    '4) Loop through your arrays to output the Ticker, Total Daily Volume, and Return.
    'For i = 0 To 11
        
        Worksheets("All Stocks Analysis FINAL").Activate
        Cells(4 + i, 1).Value = tickerIndex
        Cells(4 + i, 2).Value = tickerVolumes
        Cells(4 + i, 3).Value = tickerEndingPrices / tickerStartingPrices - 1
        
        
    Next i
    
    'Formatting
    Worksheets("All Stocks Analysis FINAL").Activate
    Range("A3:C3").Font.FontStyle = "Bold"
    Range("A3:C3").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B4:B15").NumberFormat = "#,##0"
    Range("C4:C15").NumberFormat = "0.0%"
    Columns("B").AutoFit

    dataRowStart = 4
    dataRowEnd = 15

    For i = dataRowStart To dataRowEnd
        
        If Cells(i, 3) > 0 Then
            Cells(i, 3).Interior.Color = vbGreen
            
        Else
            Cells(i, 3).Interior.Color = vbRed
            
        End If
        
    Next i
 
    endTime = Timer
    MsgBox "This code ran in " & (endTime - startTime) & " seconds for the year " & (yearValue)

End Sub