update,
This commit is contained in:
louiscklaw
326
jimmycheung93/task4/1/Common.bas
Normal file
326
jimmycheung93/task4/1/Common.bas
Normal file
@@ -0,0 +1,326 @@
|
||||
Attribute VB_Name = "Common"
|
||||
Option Explicit
|
||||
|
||||
' get row number for a given username
|
||||
Function GetIdxByUsername(username As String) As Integer
|
||||
Dim result_idx As Integer
|
||||
Dim i As Integer
|
||||
|
||||
result_idx = -1
|
||||
|
||||
For i = 1 To Var.MAX_NUM_OF_SALES
|
||||
If (username = usernames(i)) Then
|
||||
result_idx = i
|
||||
Exit For
|
||||
End If
|
||||
Next i
|
||||
|
||||
GetIdxByUsername = result_idx
|
||||
End Function
|
||||
|
||||
' get age from account sheet for a given username
|
||||
Function LookupAge(username As String) As String
|
||||
Dim lookup_result As String
|
||||
Dim i As Integer
|
||||
|
||||
For i = 1 To Var.MAX_NUM_OF_SALES
|
||||
If (username = usernames(i)) Then
|
||||
lookup_result = ages(i)
|
||||
Exit For
|
||||
End If
|
||||
Next i
|
||||
|
||||
LookupAge = lookup_result
|
||||
End Function
|
||||
|
||||
' get team from account sheet for a given username
|
||||
Function LookupTeam(username As String) As String
|
||||
Dim lookup_result As String
|
||||
Dim i As Integer
|
||||
|
||||
For i = 1 To Var.MAX_NUM_OF_SALES
|
||||
If (username = usernames(i)) Then
|
||||
lookup_result = teams(i)
|
||||
Exit For
|
||||
End If
|
||||
Next i
|
||||
|
||||
LookupTeam = lookup_result
|
||||
End Function
|
||||
|
||||
Sub GenTextReport()
|
||||
Dim sPath As String
|
||||
Dim calc_result As Variant
|
||||
|
||||
Var.AgentSalesMeta = ReadAgentSalesWorkbook.Run(Var.agentSalesFilePath)
|
||||
Var.ProductSalesMeta = ReadProductSalesWorkbook.Run(Var.productSalesPath)
|
||||
Var.AgentWorkingPerformanceMeta = ReadAgentWorkingPerfWorkbook.Run(Var.agentWorkingPerformancePath)
|
||||
|
||||
Var.CombinedSalesMeta = Array(Var.AgentSalesMeta, Var.ProductSalesMeta, Var.AgentWorkingPerformanceMeta)
|
||||
|
||||
Dim file_path As String
|
||||
file_path = Var.output_report_directory & "\output_report.xlsx"
|
||||
|
||||
' empty workbook
|
||||
' EmptyWorkbook (file_path)
|
||||
|
||||
' delete file if exist
|
||||
Common.DeleteFileIfExist (file_path)
|
||||
Common.createNewXlsx (file_path)
|
||||
|
||||
|
||||
Dim wb As Workbook
|
||||
Set wb = Workbooks.Open(file_path)
|
||||
|
||||
If frmMain.chkSalesAnalysisRpt.Value = True Then
|
||||
' SAMonthAndQuart
|
||||
calc_result = CalcSalesAnalysisMonthlyAndQuart(Var.CombinedSalesMeta)
|
||||
WriteSalesAnalysisMonthlyAndQuart calc_result, file_path, wb
|
||||
End If
|
||||
|
||||
If frmMain.chkProductAnalysisRpt.Value = True Then
|
||||
' write sales analysis product category
|
||||
' SAProductCategory
|
||||
calc_result = CalcSalesAnalysisFileSalesAmount(Var.CombinedSalesMeta)
|
||||
WriteSalesAnalysisFileSalesAmount calc_result, file_path, wb
|
||||
End If
|
||||
|
||||
If frmMain.chkProductAnalysisRpt.Value = True Then
|
||||
calc_result = CalcSalesAnalysisFileSalesUnit(Var.CombinedSalesMeta)
|
||||
WriteSalesAnalysisFileSalesUnit calc_result, file_path, wb
|
||||
End If
|
||||
|
||||
If frmMain.chkAgentPerformanceAnalysisRpt.Value = True Then
|
||||
calc_result = APAnalysis_Calc(Var.CombinedSalesMeta)
|
||||
APAnalysis_WriteTable calc_result, file_path, wb
|
||||
End If
|
||||
|
||||
If frmMain.chkNoOfCasesRpt.Value = True Then
|
||||
calc_result = NoOfCasesTable_Calc(Var.CombinedSalesMeta)
|
||||
NoOfCasesTable_WriteTable calc_result, file_path, wb
|
||||
End If
|
||||
|
||||
wb.Save
|
||||
wb.Close
|
||||
|
||||
MsgBox "generate report done"
|
||||
Debug.Print "done"
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub GenChartReport()
|
||||
Dim sPath As String
|
||||
Dim calc_result As Variant
|
||||
Dim file_path As String
|
||||
|
||||
' NOTE: for debug work
|
||||
sPath = "C:\temp\xlsx\Agent_Sales.xlsx"
|
||||
Var.AgentSalesMeta = ReadAgentSalesWorkbook.Run(sPath)
|
||||
|
||||
' NOTE: for debug work
|
||||
sPath = "C:\temp\xlsx\Product_Sales.xlsx"
|
||||
Var.ProductSalesMeta = ReadProductSalesWorkbook.Run(sPath)
|
||||
|
||||
' NOTE: for debug work
|
||||
sPath = "C:\temp\xlsx\Agent_Working_Performance.xlsx"
|
||||
Var.AgentWorkingPerformanceMeta = ReadAgentWorkingPerfWorkbook.Run(sPath)
|
||||
|
||||
Var.CombinedSalesMeta = Array(Var.AgentSalesMeta, Var.ProductSalesMeta, Var.AgentWorkingPerformanceMeta)
|
||||
|
||||
' Const file_path As String = "D:\_workspace\carousell-comission-playlist\jimmycheung93\task4\_poc\main_xlsm\helloworld_graph.xlsm"
|
||||
' creasteXlsm(FILE_PATH)
|
||||
file_path = Var.output_report_directory & "\output_report_chart.xlsx"
|
||||
|
||||
' vba delete file if exist
|
||||
DeleteFileIfExist (file_path)
|
||||
createNewXlsx (file_path)
|
||||
|
||||
'EmptyWorkbook (file_path)
|
||||
Dim wb As Workbook
|
||||
Set wb = Workbooks.Open(file_path)
|
||||
|
||||
If frmMain.chkSalesAnalysisMonthAndQuartery.Value = True Then
|
||||
' Sales Analysis (Monthly & Quartery)
|
||||
AddSheet file_path, "Sales Analysis Monthly_Quartery"
|
||||
calc_result = CalcSalesAnalysisMonthlyAndQuart(CombinedSalesMeta)
|
||||
SAMonthAndQuartGraph.MonthlySalesAmountTable calc_result, file_path
|
||||
SAMonthAndQuartGraph.MonthlySalesAmountGraph file_path
|
||||
|
||||
SAMonthAndQuartGraph.MonthlySalesComissionTable calc_result, file_path
|
||||
SAMonthAndQuartGraph.MonthlySalesComissionGraph file_path
|
||||
End If
|
||||
|
||||
If frmMain.chkSalesAnalysisProductCategory.Value = True Then
|
||||
' Sales Analysis (Product Category)
|
||||
AddSheet file_path, "Sales Analysis Product Category"
|
||||
calc_result = CalcSalesAnalysisFileSalesAmount(CombinedSalesMeta)
|
||||
SAProdCatGraph.SalesAmountTable calc_result, file_path, 1
|
||||
SAProdCatGraph.SalesAmountGraph calc_result, file_path, 1
|
||||
|
||||
calc_result = CalcSalesAnalysisFileSalesUnit(CombinedSalesMeta)
|
||||
SAProdCatGraph.SalesUnitTable calc_result, file_path, 1
|
||||
SAProdCatGraph.SalesUnitGraph calc_result, file_path, 1
|
||||
End If
|
||||
|
||||
If frmMain.chkAgentPerformanceAnalysis.Value = True Then
|
||||
' Agent performance analysis(Comm
|
||||
AddSheet file_path, "Agent performance analysis"
|
||||
calc_result = APAnalysis_Calc(CombinedSalesMeta)
|
||||
APAnalysisGraph.TeamATotalSalesCommisionPerformanceTable calc_result, file_path
|
||||
APAnalysisGraph.TeamATotalSalesCommisionPerformanceGraph calc_result, file_path
|
||||
|
||||
APAnalysisGraph.TeamBTotalSalesCommisionPerformanceTable calc_result, file_path
|
||||
APAnalysisGraph.TeamBTotalSalesCommisionPerformanceGraph calc_result, file_path
|
||||
|
||||
' Rank of agent's sales commission (monthly)
|
||||
APAnalysisGraph.RankOfAgentSalesCommMonthlyTable calc_result, file_path
|
||||
APAnalysisGraph.RankOfAgentSalesCommMonthlyGraph calc_result, file_path
|
||||
End If
|
||||
|
||||
If frmMain.chkCasePersistency.Value = True Then
|
||||
' Case persistency
|
||||
AddSheet file_path, "Case persistency"
|
||||
calc_result = NoOfCasesTable_Calc(CombinedSalesMeta)
|
||||
CasePersistencyGraph.TeamACaseDistributionTable calc_result, file_path
|
||||
CasePersistencyGraph.TeamACaseDistributionGraph calc_result, file_path
|
||||
|
||||
CasePersistencyGraph.TeamBCaseDistributionTable calc_result, file_path
|
||||
CasePersistencyGraph.TeamBCaseDistributionGraph calc_result, file_path
|
||||
End If
|
||||
|
||||
wb.Save
|
||||
wb.Close
|
||||
|
||||
MsgBox "generate report done"
|
||||
Debug.Print "done"
|
||||
|
||||
End Sub
|
||||
|
||||
Function DeleteFileIfExist(file_path As String)
|
||||
On Error GoTo eh
|
||||
|
||||
If Dir(file_path) <> "" Then
|
||||
Kill file_path
|
||||
End If
|
||||
|
||||
Done:
|
||||
Exit Function
|
||||
|
||||
eh:
|
||||
Debug.Print "DeleteFileIfExist:Error: " & Err.Description
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Function createNewXlsx(file_path As String)
|
||||
|
||||
Dim wb As Workbook
|
||||
Set wb = Workbooks.Add
|
||||
wb.SaveAs file_path
|
||||
wb.Close
|
||||
|
||||
End Function
|
||||
|
||||
Function SortArray(ByRef arr() As Double) As Double()
|
||||
Dim i As Long, j As Long
|
||||
Dim temp As Variant
|
||||
|
||||
For i = LBound(arr) To UBound(arr) - 1
|
||||
For j = i + 1 To UBound(arr)
|
||||
If arr(i) < arr(j) Then
|
||||
temp = arr(i)
|
||||
arr(i) = arr(j)
|
||||
arr(j) = temp
|
||||
End If
|
||||
Next j
|
||||
Next i
|
||||
|
||||
SortArray = arr
|
||||
End Function
|
||||
|
||||
|
||||
Function AddSheet(ByVal file_path As String, ByVal sheet_name As String)
|
||||
Dim wb As Workbook
|
||||
Dim ws As Worksheet
|
||||
|
||||
' Open the workbook
|
||||
Set wb = Workbooks.Open(file_path)
|
||||
|
||||
' Check if the sheet exists
|
||||
On Error Resume Next
|
||||
Set ws = wb.Sheets(sheet_name)
|
||||
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 = sheet_name
|
||||
Else
|
||||
' Empty the entire sheet
|
||||
ws.UsedRange.ClearContents
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Function GetQuarterFromMonth(ByVal month As Integer) As Integer
|
||||
GetQuarterFromMonth = Int((month - 1) / 3) + 1
|
||||
End Function
|
||||
|
||||
|
||||
Function ConvLetterMonthToIntMonth(str_letter_month As String)
|
||||
Select Case str_letter_month
|
||||
Case "Jan"
|
||||
ConvLetterMonthToIntMonth = "1"
|
||||
Case "Feb"
|
||||
ConvLetterMonthToIntMonth = "2"
|
||||
Case "Mar"
|
||||
ConvLetterMonthToIntMonth = "3"
|
||||
Case "Apr"
|
||||
ConvLetterMonthToIntMonth = "4"
|
||||
Case "May"
|
||||
ConvLetterMonthToIntMonth = "5"
|
||||
Case "Jun"
|
||||
ConvLetterMonthToIntMonth = "6"
|
||||
Case "Jul"
|
||||
ConvLetterMonthToIntMonth = "7"
|
||||
Case "Aug"
|
||||
ConvLetterMonthToIntMonth = "8"
|
||||
Case "Sep"
|
||||
ConvLetterMonthToIntMonth = "9"
|
||||
Case "Oct"
|
||||
ConvLetterMonthToIntMonth = "10"
|
||||
Case "Nov"
|
||||
ConvLetterMonthToIntMonth = "11"
|
||||
Case "Dec"
|
||||
ConvLetterMonthToIntMonth = "12"
|
||||
End Select
|
||||
|
||||
End Function
|
||||
|
||||
Sub ShowLogin()
|
||||
frmLogin.Show
|
||||
End Sub
|
||||
|
||||
' get the value from cell for a given address
|
||||
Function readCell(sheet_name as string, cell_addr As String)
|
||||
readCell = Worksheets(sheet_name).Range(cell_addr).Value
|
||||
End Function
|
||||
|
||||
Sub initAccountFromAccountSheet()
|
||||
|
||||
Dim i As Integer
|
||||
|
||||
Dim account_ws As Worksheet
|
||||
Set account_ws = Worksheets("account")
|
||||
|
||||
i = 0
|
||||
For i = 1 To 99
|
||||
Var.usernames(i) = readCell("account", "A" & CStr(i + 1))
|
||||
Var.passwords(i) = readCell("account", "B" & CStr(i + 1))
|
||||
Var.teams(i) = readCell("account", "C" & CStr(i + 1))
|
||||
Var.ages(i) = readCell("account", "D" & CStr(i + 1))
|
||||
Next i
|
||||
|
||||
End Sub
|
||||
Reference in New Issue
Block a user