update,

jimmycheung93/task4/_poc/main_graph_xlsm/Config.bas

@@ -0,0 +1,82 @@
+Attribute VB_Name = "Config"
+
+Global NumOfSales As Integer
+
+Global SALES_ANALYSIS_COL_MONTH As String
+Global SALES_ANALYSIS_COL_QUARTER As String
+Global SALES_ANALYSIS_COL_PRODUCT_CATEGORY As String
+Global SALES_ANALYSIS_COL_SELLING_UNIT As String
+Global SALES_ANALYSIS_COL_MONTHLY_SALES As String
+Global SALES_ANALYSIS_COL_QUARTELY_SALES As String
+Global SALES_ANALYSIS_COL_COMMISSION As String
+Global SALES_ANALYSIS_COL_MONTHLY_MARGIN As String
+Global SALES_ANALYSIS_COL_QUATERLY_MARGIN As String
+Global SALES_ANALYSIS_COL_QUATERLY_COMMISSION_ As String
+
+'row
+Global SALES_ANALYSIS_ROW_JANUARY As String
+Global SALES_ANALYSIS_ROW_FEBURARY As String
+Global SALES_ANALYSIS_ROW_MARCH As String
+Global SALES_ANALYSIS_ROW_APRIL As String
+Global SALES_ANALYSIS_ROW_MAY As String
+Global SALES_ANALYSIS_ROW_JUNE As String
+Global SALES_ANALYSIS_ROW_JULY As String
+Global SALES_ANALYSIS_ROW_AUGEST As String
+Global SALES_ANALYSIS_ROW_SEPTEMBER As String
+Global SALES_ANALYSIS_ROW_OCTOBER As String
+Global SALES_ANALYSIS_ROW_NOVEMBER As String
+Global SALES_ANALYSIS_ROW_DECEMBER As String
+
+Global SALES_ARRAY As Variant
+
+Global monthly_commission_per_agent As Object
+
+Global STRING_SEPERATOR As String
+
+' Global YEAR_GRAPHS_TOP as variant
+' Global YEAR_GRAPHS_LEFT as variant
+
+Global MONTH_NAMES As Variant
+
+Sub init()
+    STRING_SEPERATOR = "#_STRING_SEPERATOR_#"
+
+    SALES_ANALYSIS_COL_MONTH = "A"
+    SALES_ANALYSIS_COL_QUARTER = "B"
+    SALES_ANALYSIS_COL_PRODUCT_CATEGORY = "C"
+    SALES_ANALYSIS_COL_SELLING_UNIT = "D"
+    SALES_ANALYSIS_COL_MONTHLY_SALES = "E"
+    SALES_ANALYSIS_COL_QUARTELY_SALES = "F"
+    SALES_ANALYSIS_COL_COMMISSION = "G"
+    SALES_ANALYSIS_COL_MONTHLY_MARGIN = "H"
+    SALES_ANALYSIS_COL_QUATERLY_MARGIN = "I"
+    SALES_ANALYSIS_COL_QUATERLY_COMMISSION_ = "J"
+
+    'row
+    SALES_ANALYSIS_ROW_JANUARY = "2"
+    SALES_ANALYSIS_ROW_FEBURARY = "3"
+    SALES_ANALYSIS_ROW_MARCH = "4"
+    SALES_ANALYSIS_ROW_APRIL = "5"
+    SALES_ANALYSIS_ROW_MAY = "6"
+    SALES_ANALYSIS_ROW_JUNE = "7"
+    SALES_ANALYSIS_ROW_JULY = "8"
+    SALES_ANALYSIS_ROW_AUGEST = "9"
+    SALES_ANALYSIS_ROW_SEPTEMBER = "10"
+    SALES_ANALYSIS_ROW_OCTOBER = "11"
+    SALES_ANALYSIS_ROW_NOVEMBER = "12"
+    SALES_ANALYSIS_ROW_DECEMBER = "13"
+
+    NumOfSales = 20
+    SALES_ARRAY = Array("Alex", "Ben", "Candy", "Danny", "Eason", "Filex", "Gary", "Henry", "Irene", "Jenny")
+
+    Dim top_comission(12, 3) As Double
+
+    Set monthly_commission_per_agent = CreateObject("Scripting.Dictionary")
+
+    MONTH_NAMES = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
+
+End Sub
+
+
+
+