224 lines
7.4 KiB
QBasic
224 lines
7.4 KiB
QBasic
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
|
|
|
|
|