update,

2025-01-31 21:36:48 +08:00
parent 8ee1ccbebc
commit 2e592cb561
248 changed files with 11958 additions and 0 deletions
--- a/jimmycheung93/task4/1/CasePersistencyGraph.bas
+++ b/jimmycheung93/task4/1/CasePersistencyGraph.bas
@@ -0,0 +1,127 @@
+Attribute VB_Name = "CasePersistencyGraph"
+
+Function TeamACaseDistributionTable(ByVal calc_result As Variant, ByVal file_path As String)
+  Const HEADER_ROW As Long = 1
+  Const START_CELL As String = "A1"
+  Dim wb As Workbook
+  Dim ws As Worksheet
+  Dim startCell As Range
+
+  Dim case_team_a_meta As Variant
+  Dim case_team_b_meta As Variant
+
+  case_team_a_meta = calc_result(5)
+  case_team_b_meta = calc_result(6)
+
+  ' Open the workbook
+  Set wb = Workbooks.Open(file_path)
+  Set ws = wb.Sheets("Case persistency")
+
+  ' Write headers
+  Set startCell = ws.Range(START_CELL)
+  startCell.Value = "Team A Case Distribution"
+  startCell.Offset(1, 0).Value = "State"
+  startCell.Offset(1, 1).Value = "Case"
+
+  startCell.Offset(1 + 1, 0).Value = "Collapse"
+  startCell.Offset(1 + 2, 0).Value = "New Case"
+
+  startCell.Offset(1 + 1, 1).Value = case_team_a_meta(0)
+  startCell.Offset(1 + 2, 1).Value = case_team_a_meta(1)
+
+  ' Save and close the workbook
+  ' wb.Close SaveChanges:=True
+End Function
+
+Function TeamACaseDistributionGraph(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("Case persistency")
+
+  ' insert graph
+  ActiveSheet.Shapes.AddChart2(251, xlPie).Select
+  ActiveChart.SetSourceData Source:=Range("$A$2:$B$4")
+  ActiveChart.SetElement (msoElementLegendNone)
+  ActiveChart.SetElement (msoElementDataLabelCallout)
+  ActiveChart.ChartTitle.Select
+  ActiveChart.ChartTitle.Text = "Team A case Distribution"
+  Selection.Format.TextFrame2.TextRange.Characters.Text = "Team A case Distribution"
+
+  Set cho = ws.ChartObjects(ws.ChartObjects.Count)
+  Set cht = cho.Chart
+  cho.Top = 0
+  cho.Left = 0
+  cho.Width = 400
+  cho.Height = 300
+
+End Function
+
+
+Function TeamBCaseDistributionTable(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 case_team_a_meta As Variant
+  Dim case_team_b_meta As Variant
+
+  case_team_a_meta = calc_result(5)
+  case_team_b_meta = calc_result(6)
+
+  ' Open the workbook
+  Set wb = Workbooks.Open(file_path)
+  Set ws = wb.Sheets("Case persistency")
+
+  ' Write headers
+  Set startCell = ws.Range(START_CELL)
+  startCell.Value = "Team B Case Distribution"
+  startCell.Offset(1, 0).Value = "State"
+  startCell.Offset(1, 1).Value = "Case"
+
+  startCell.Offset(1 + 1, 0).Value = "Collapse"
+  startCell.Offset(1 + 2, 0).Value = "New Case"
+
+  startCell.Offset(1 + 1, 1).Value = case_team_b_meta(0)
+  startCell.Offset(1 + 2, 1).Value = case_team_b_meta(1)
+
+End Function
+
+Function TeamBCaseDistributionGraph(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("Case persistency")
+
+  ' insert graph
+  ActiveSheet.Shapes.AddChart2(251, xlPie).Select
+  ActiveChart.SetSourceData Source:=Range("F2:G4")
+  ActiveChart.SetElement (msoElementLegendNone)
+  ActiveChart.SetElement (msoElementDataLabelCallout)
+  ActiveChart.ChartTitle.Select
+  ActiveChart.ChartTitle.Text = "Team B case Distribution"
+  Selection.Format.TextFrame2.TextRange.Characters.Text = "Team B case Distribution"
+
+  Set cho = ws.ChartObjects(ws.ChartObjects.Count)
+  Set cht = cho.Chart
+  cho.Top = 0
+  cho.Left = 400
+  cho.Width = 400
+  cho.Height = 300
+
+End Function
+
+
+
+
+
+Function Helloworld()
+  Debug.Print "helloworld CasePersistency"
+End Function
+
+
+