update,
This commit is contained in:
louiscklaw
237
jimmycheung93/task4/1/APAnalysisGraph.bas
Normal file
237
jimmycheung93/task4/1/APAnalysisGraph.bas
Normal file
@@ -0,0 +1,237 @@
|
||||
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 ' team a
|
||||
|
||||
monthly_commission = calc_result(1)
|
||||
montyly_commission_TA = calc_result(2) ' team a
|
||||
|
||||
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 ' team b
|
||||
|
||||
monthly_commission = calc_result(1)
|
||||
montyly_commission_TB = calc_result(3) ' team b
|
||||
|
||||
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
|
||||
|
||||
' insert graph
|
||||
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
|
||||
|
||||
Set cho = ws.ChartObjects(ws.ChartObjects.Count)
|
||||
Set cht = cho.Chart
|
||||
cht.SetSourceData Source:=Range("A2:B14")
|
||||
|
||||
' update chart styling
|
||||
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
|
||||
|
||||
' insert graph
|
||||
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
|
||||
|
||||
Set cho = ws.ChartObjects(ws.ChartObjects.Count)
|
||||
Set cht = cho.Chart
|
||||
cht.SetSourceData Source:=Range("A21:B33")
|
||||
|
||||
' update chart styling
|
||||
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"
|
||||
|
||||
'generate graph by month
|
||||
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)
|
||||
|
||||
'generate graph by month
|
||||
For m = LBound(MONTH_NAMES) To UBound(MONTH_NAMES)
|
||||
month_name = MONTH_NAMES(m)
|
||||
|
||||
' insert graph
|
||||
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
|
||||
|
||||
' update chart styling
|
||||
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
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user