Attribute VB_Name = "APAnalysisGraph"


Function TeamATotalSalesCommisionPerformanceTable(ByVal calc_result As Variant, ByVal FILE_PATH As String)
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim startCell As Range

    Dim monthly_commission As Variant
    Dim montyly_commission_TA As Variant

    monthly_commission = calc_result(1)
    montyly_commission_TA = calc_result(2)

    Dim monthNames() As Variant
    monthNames = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")

    ' Open the workbook
    Set wb = Workbooks.Open(FILE_PATH)
    Set ws = wb.Sheets("Agent performance analysis")

    ' Write headers
    Set startCell = ws.Range("A1")
    startCell.Value = "Team A Total Sales Commision Performance"
    startCell.Offset(1, 0).Value = "Month"
    startCell.Offset(1, 1).Value = "Amount"

    Set startCell = ws.Range("A3")
    For m = LBound(monthNames) To UBound(monthNames)
        startCell.Offset(m, 0).Value = monthNames(m)
        startCell.Offset(m, 1).Value = montyly_commission_TA(m + 1)
    Next m

    ' Save and close the workbook
    ' wb.Close SaveChanges:=True
End Function

Function TeamBTotalSalesCommisionPerformanceTable(ByVal calc_result As Variant, ByVal FILE_PATH As String)
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim startCell As Range

    Dim monthly_commission As Variant
    Dim montyly_commission_TB As Variant

    monthly_commission = calc_result(1)
    montyly_commission_TB = calc_result(3)

    Dim monthNames() As Variant
    monthNames = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")

    ' Open the workbook
    Set wb = Workbooks.Open(FILE_PATH)
    Set ws = wb.Sheets("Agent performance analysis")

    ' Write headers
    Set startCell = ws.Range("A20")
    startCell.Value = "Team B Total Sales Commision Performance"
    startCell.Offset(1, 0).Value = "Month"
    startCell.Offset(1, 1).Value = "Amount"

    Set startCell = ws.Range("A22")
    For m = LBound(monthNames) To UBound(monthNames)
        startCell.Offset(m, 0).Value = monthNames(m)
        startCell.Offset(m, 1).Value = montyly_commission_TB(m + 1)
    Next m

    ' Save and close the workbook
    ' wb.Close SaveChanges:=True
End Function

Function TeamATotalSalesCommisionPerformanceGraph(ByVal calc_result As Variant, ByVal FILE_PATH As String)
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = Workbooks.Open(FILE_PATH)
    Set ws = wb.Sheets("Agent performance analysis")

    Dim cht As Chart
    Dim ax As Axis

    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select

    Set cho = ws.ChartObjects(ws.ChartObjects.Count)
    Set cht = cho.Chart
    cht.SetSourceData Source:=Range("A2:B14")
    cht.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    Selection.Format.TextFrame2.TextRange.Characters.Text = "Month"

    cht.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
    cht.ChartTitle.Text = "Team A total Sales commision performance"
    Set ax = cht.Axes(xlValue, xlPrimary)
    ax.HasTitle = True
    ax.AxisTitle.Format.TextFrame2.TextRange.Characters.Text = "Amount"

    cho.Top = 0
    cho.Left = 0
    cho.Width = 400
    cho.Height = 300

End Function

Function TeamBTotalSalesCommisionPerformanceGraph(ByVal calc_result As Variant, ByVal FILE_PATH As String)
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = Workbooks.Open(FILE_PATH)
    Set ws = wb.Sheets("Agent performance analysis")

    Dim cht As Chart
    Dim ax As Axis

    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select

    Set cho = ws.ChartObjects(ws.ChartObjects.Count)
    Set cht = cho.Chart
    cht.SetSourceData Source:=Range("A21:B33")
    cht.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    Selection.Format.TextFrame2.TextRange.Characters.Text = "Month"

    cht.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
    cht.ChartTitle.Text = "Team B total Sales commision performance"
    Set ax = cht.Axes(xlValue, xlPrimary)
    ax.HasTitle = True
    ax.AxisTitle.Format.TextFrame2.TextRange.Characters.Text = "Amount"

    cho.Top = 300
    cho.Left = 0
    cho.Width = 400
    cho.Height = 300

End Function


Function RankOfAgentSalesCommMonthlyTable(ByVal calc_result As Variant, ByVal FILE_PATH As String)
    Const HEADER_ROW As Long = 1
    Const START_CELL As String = "F1"
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim startCell As Range

    Dim monthly_top_5_comission_name As Variant
    Dim monthly_top_5_comission_value As Variant
    monthly_top_5_comission_name = calc_result(6)
    monthly_top_5_comission_value = calc_result(7)

    ' Open the workbook
    Set wb = Workbooks.Open(FILE_PATH)
    Set ws = wb.Sheets("Agent performance analysis")

    ' Write headers
    Set startCell = ws.Range(START_CELL)
    startCell.Offset(0, 0).Value = "Top 5 Agent's Commssion"
    for m = LBound(MONTH_NAMES) to UBound(MONTH_NAMES)
      startCell.Offset(1, 0+(m*3)).Value = "Name"
      startCell.Offset(1, 1+(m*3)).Value = "Commssion"

      startCell.Offset(1+1, 0+(m*3)).Value = monthly_top_5_comission_name(m+1,0)
      startCell.Offset(1+2, 0+(m*3)).Value = monthly_top_5_comission_name(m+1,1)
      startCell.Offset(1+3, 0+(m*3)).Value = monthly_top_5_comission_name(m+1,2)
      startCell.Offset(1+4, 0+(m*3)).Value = monthly_top_5_comission_name(m+1,3)
      startCell.Offset(1+5, 0+(m*3)).Value = monthly_top_5_comission_name(m+1,4)

      startCell.Offset(1+1, 1+(m*3)).Value = monthly_top_5_comission_value(m+1,0)
      startCell.Offset(1+2, 1+(m*3)).Value = monthly_top_5_comission_value(m+1,1)
      startCell.Offset(1+3, 1+(m*3)).Value = monthly_top_5_comission_value(m+1,2)
      startCell.Offset(1+4, 1+(m*3)).Value = monthly_top_5_comission_value(m+1,3)
      startCell.Offset(1+5, 1+(m*3)).Value = monthly_top_5_comission_value(m+1,4)
    next m

    ' Save and close the workbook
    ' wb.Close SaveChanges:=True
End Function


Function RankOfAgentSalesCommMonthlyGraph(ByVal calc_result As Variant, ByVal FILE_PATH As String)
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = Workbooks.Open(FILE_PATH)
    Set ws = wb.Sheets("Agent performance analysis")

    Dim DATA_RANGES As Variant
    DATA_RANGES = Array("F2:G7", "I2:J7","L2:M7","O2:P7","R2:S7","U2:V7","X2:Y7","AA2:AB7","AD2:AE7","AG2:AH7","AJ2:AK7","AM2:AN7")

    Dim GRAPH_TOPS as variant
    Dim GRAPH_LEFTS as variant
    GRAPH_TOPS = Array(0,0,0,200,200,200,400,400,400,600,600,600)
    GRAPH_LEFTS = Array(400,700,1000,400,700,1000,400,700,1000,400,700,1000)

    For m = LBound(MONTH_NAMES) to UBound(MONTH_NAMES)
      month_name = MONTH_NAMES(m)
      ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
      Set cho = ws.ChartObjects(ws.ChartObjects.Count)
      Set cht = cho.Chart

      ActiveChart.SetSourceData Source:=Range(DATA_RANGES(m))
      ActiveChart.ChartTitle.Text = "Top 5 Sales Commission " & month_name

      cht.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
      Selection.Format.TextFrame2.TextRange.Characters.Text = "Name"

      cht.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
      Set ax = cht.Axes(xlValue, xlPrimary)
      ax.HasTitle = True
      ax.AxisTitle.Format.TextFrame2.TextRange.Characters.Text = "Commission"

      cho.Top = GRAPH_TOPS(m)
      cho.Left = GRAPH_LEFTS(m)
      cho.Width = 300
      cho.Height = 200

    next m


End Function


Function Helloworld()
  Debug.Print "helloworld Sales_Analysis_Product_Category"
End Function