205 lines
6.5 KiB
QBasic
205 lines
6.5 KiB
QBasic
Attribute VB_Name = "NoOfCasesTable"
|
|
|
|
Global new_case_per_agent As Object
|
|
Global collapsed_case_per_agent As Object
|
|
|
|
Global new_case_team_a As Double
|
|
Global collapsed_case_team_a As Double
|
|
|
|
Global new_case_team_b As Double
|
|
Global collapsed_case_team_b As Double
|
|
|
|
Global case_persistency_by_agent As Object
|
|
Global case_persistency_team_a As Double
|
|
Global case_persistency_team_b As Double
|
|
|
|
Function Calc(ByVal TablesMeta As Variant) As Variant
|
|
Debug.Print "helloworld"
|
|
Set new_case_per_agent = CreateObject("Scripting.Dictionary")
|
|
Set collapsed_case_per_agent = CreateObject("Scripting.Dictionary")
|
|
Set case_persistency_by_agent = CreateObject("Scripting.Dictionary")
|
|
|
|
Dim agent_sales_table As Variant
|
|
Dim product_sales_meta As Variant
|
|
Dim product_sales_table As Variant
|
|
|
|
Dim val_agent_name as string
|
|
Dim val_team as string
|
|
|
|
agent_sales_table = TablesMeta(0)
|
|
Dim agent_sales_table_rows As Variant
|
|
agent_sales_table_rows = agent_sales_table(0)
|
|
|
|
product_sales_table = TablesMeta(1)
|
|
Dim product_sales_table_row As Variant
|
|
product_sales_table_row = product_sales_table(0)
|
|
|
|
agent_working_performance_table = TablesMeta(2)
|
|
Dim agent_working_performance_table_rows As Variant
|
|
agent_working_performance_table_rows = agent_working_performance_table(0)
|
|
|
|
Dim val_product_sales_selling_unit As String
|
|
|
|
Dim sales_selling_unit_TA As Integer
|
|
Dim sales_selling_unit_TB As Integer
|
|
Dim team As String
|
|
|
|
For ps = 1 To agent_working_performance_table(1)
|
|
val_agent_name = agent_working_performance_table_rows(ps, 2)
|
|
val_team = agent_working_performance_table_rows(ps, 3)
|
|
num_new_case = agent_working_performance_table_rows(ps, 4)
|
|
num_collapsed_case = agent_working_performance_table_rows(ps, 5)
|
|
|
|
|
|
If (Not (IsEmpty(val_agent_name)) And Not (new_case_per_agent.exists(val_agent_name))) Then
|
|
new_case_per_agent(val_agent_name) = 0
|
|
End If
|
|
new_case_per_agent(val_agent_name) = new_case_per_agent(val_agent_name) + num_new_case
|
|
|
|
If (Not (IsEmpty(val_agent_name)) And Not (collapsed_case_per_agent.exists(val_agent_name))) Then
|
|
collapsed_case_per_agent(val_agent_name) = 0
|
|
End If
|
|
collapsed_case_per_agent(val_agent_name) = collapsed_case_per_agent(val_agent_name) + num_collapsed_case
|
|
|
|
if (val_team = "A") Then
|
|
new_case_team_a = new_case_team_a + num_new_case
|
|
collapsed_case_team_a = collapsed_case_team_a + num_collapsed_case
|
|
end if
|
|
|
|
if (val_team = "B") Then
|
|
new_case_team_b = new_case_team_b + num_new_case
|
|
collapsed_case_team_b = collapsed_case_team_b + num_collapsed_case
|
|
end if
|
|
|
|
Next ps
|
|
|
|
for s = 0 to UBound(SALES_ARRAY)
|
|
sales_name = SALES_ARRAY(s)
|
|
collapsed_case = collapsed_case_per_agent(sales_name)
|
|
new_case = new_case_per_agent(sales_name)
|
|
|
|
case_persistency_by_agent(sales_name) = ( new_case - collapsed_case ) / new_case
|
|
|
|
next s
|
|
|
|
case_persistency_team_a = (new_case_team_a - collapsed_case_team_a ) / new_case_team_a
|
|
case_persistency_team_b = (new_case_team_b - collapsed_case_team_b ) / new_case_team_b
|
|
|
|
|
|
Calc = Array(1, sales_selling_unit_TA, sales_selling_unit_TB)
|
|
|
|
End Function
|
|
|
|
Function WriteTable(ByVal calc_result As Variant, ByVal FILE_PATH As String)
|
|
Debug.Print "helloworld"
|
|
|
|
Dim sales_selling_unit_TA As Integer
|
|
Dim sales_selling_unit_TB As Integer
|
|
sales_selling_unit_TA = calc_result(1)
|
|
sales_selling_unit_TB = calc_result(2)
|
|
|
|
Const TOP_ROW As Long = 1
|
|
Dim wb As Workbook
|
|
Dim ws As Worksheet
|
|
Dim startCell As Range
|
|
Dim tempArray() As Variant
|
|
Dim i As Long
|
|
|
|
' Open the workbook
|
|
Set wb = Workbooks.Open(FILE_PATH)
|
|
|
|
' Check if the sheet exists
|
|
On Error Resume Next
|
|
Set ws = wb.Sheets("No. of cases")
|
|
On Error GoTo 0
|
|
|
|
' If not found, create a new sheet
|
|
If ws Is Nothing Then
|
|
Set ws = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
|
|
ws.Name = "No. of cases"
|
|
Else
|
|
' Empty the entire sheet
|
|
ws.UsedRange.ClearContents
|
|
End If
|
|
|
|
|
|
' Write month names
|
|
Set startCell = ws.Range("A1")
|
|
tempArray = Array("Case Persistency")
|
|
For i = LBound(tempArray) To UBound(tempArray)
|
|
startCell.Offset(0, i).Value = tempArray(i)
|
|
Next i
|
|
|
|
' Write month names
|
|
Set startCell = ws.Range("A2")
|
|
tempArray = Array("Name", "No of new case", "No. of collpased case", "Case Persistency")
|
|
For i = LBound(tempArray) To UBound(tempArray)
|
|
startCell.Offset(0, i).Value = tempArray(i)
|
|
Next i
|
|
|
|
' Write month names
|
|
Set startCell = ws.Range("A3")
|
|
For i = LBound(SALES_ARRAY) To UBound(SALES_ARRAY)
|
|
startCell.Offset(i, 0).Value = SALES_ARRAY(i)
|
|
Next i
|
|
|
|
' Write month names
|
|
Set startCell = ws.Range("B3")
|
|
' For sales_name = LBound(SALES_ARRAY) To UBound(SALES_ARRAY)
|
|
for s = 0 to UBound(SALES_ARRAY)
|
|
sales_name = SALES_ARRAY(s)
|
|
startCell.Offset(s, 0).Value = new_case_per_agent(sales_name)
|
|
Next s
|
|
|
|
' Write month names
|
|
Set startCell = ws.Range("C3")
|
|
' For sales_name = LBound(SALES_ARRAY) To UBound(SALES_ARRAY)
|
|
for s = 0 to UBound(SALES_ARRAY)
|
|
sales_name = SALES_ARRAY(s)
|
|
startCell.Offset(s, 0).Value = collapsed_case_per_agent(sales_name)
|
|
Next s
|
|
|
|
' Write month names
|
|
Set startCell = ws.Range("D3")
|
|
' For sales_name = LBound(SALES_ARRAY) To UBound(SALES_ARRAY)
|
|
for s = 0 to UBound(SALES_ARRAY)
|
|
sales_name = SALES_ARRAY(s)
|
|
startCell.Offset(s, 0).Value = case_persistency_by_agent(sales_name)
|
|
startCell.Offset(s, 0).NumberFormat = "0.00%"
|
|
Next s
|
|
|
|
' Write month names
|
|
Set startCell = ws.Range("A14")
|
|
tempArray = Array("Team A total", "Team B Total")
|
|
For i = LBound(tempArray) To UBound(tempArray)
|
|
startCell.Offset(i, 0).Value = tempArray(i)
|
|
Next i
|
|
|
|
|
|
' Write month names
|
|
Set startCell = ws.Range("B14")
|
|
tempArray = Array("Team A total", "Team B Total")
|
|
startCell.Offset(0, 0).Value = new_case_team_a
|
|
startCell.Offset(1, 0).Value = new_case_team_b
|
|
|
|
' Write month names
|
|
Set startCell = ws.Range("C14")
|
|
tempArray = Array("Team A total", "Team B Total")
|
|
startCell.Offset(0, 0).Value = collapsed_case_team_a
|
|
startCell.Offset(1, 0).Value = collapsed_case_team_b
|
|
|
|
' Write month names
|
|
Set startCell = ws.Range("D14")
|
|
tempArray = Array("Team A total", "Team B Total")
|
|
startCell.Offset(0, 0).Value = case_persistency_team_a
|
|
startCell.Offset(1, 0).Value = case_persistency_team_b
|
|
startCell.Offset(0, 0).NumberFormat = "0.00%"
|
|
startCell.Offset(1, 0).NumberFormat = "0.00%"
|
|
|
|
|
|
|
|
|
|
End Function
|
|
|
|
|