Option Explicit' 常量定义Const DATA_SHEET As String = "原始数据"Const PIVOT_SHEET As String = "小时统计"Const CHART_SHEET As String = "趋势图表"Const TIME_COLUMN As String = "开始时间"  ' 时间列名Const CALL_COLUMN As String = "通话ID"    ' 计数列名Const DATE_FILTER As String = "2023-05-15"  ' 分析日期Sub GenerateHourlyTrendChart()    ' 生成小时级通话趋势图    Dim startTime As Double    startTime = Timer    Application.ScreenUpdating = False    Application.DisplayAlerts = False    Application.Calculation = xlCalculationManual    On Error GoTo ErrorHandler    ' 1. 准备数据    If Not PrepareData() Then        MsgBox "数据准备失败，请检查数据源！", vbCritical        Exit Sub    End If    ' 2. 创建数据透视表    If Not CreatePivotTable() Then        MsgBox "创建透视表失败！", vbCritical        Exit Sub    End If    ' 3. 创建图表    If Not CreateTrendChart() Then        MsgBox "创建图表失败！", vbCritical        Exit Sub    End If    ' 4. 格式化和美化    FormatChartAndTables    ' 5. 保存和导出    SaveAndExportResults    Dim endTime As Double    endTime = Timer    MsgBox "趋势图生成完成！" & vbCrLf & _           "处理时间：" & Format(endTime - startTime, "0.00") & "秒", _           vbInformation, "完成"    Exit SubErrorHandler:    MsgBox "错误 " & Err.Number & ": " & Err.Description, vbCritical    Application.ScreenUpdating = True    Application.DisplayAlerts = True    Application.Calculation = xlCalculationAutomaticEnd SubFunction PrepareData() As Boolean    ' 准备原始数据    On Error GoTo ErrorHandler    Dim wsData As Worksheet    Dim lastRow As Long, lastCol As Long    Dim i As Long    ' 检查数据表是否存在    On Error Resume Next    Set wsData = ThisWorkbook.Worksheets(DATA_SHEET)    On Error GoTo ErrorHandler    If wsData Is Nothing Then        MsgBox "找不到工作表：" & DATA_SHEET, vbExclamation        PrepareData = False        Exit Function    End If    ' 检查数据范围    lastRow = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row    lastCol = wsData.Cells(1, wsData.Columns.Count).End(xlToLeft).Column    If lastRow <= 1 Or lastCol < 5 Then        MsgBox "数据量不足或格式不正确！", vbExclamation        PrepareData = False        Exit Function    End If    ' 检查必要的列    Dim timeCol As Long, callCol As Long    timeCol = 0    callCol = 0    For i = 1 To lastCol        Select Case Trim(wsData.Cells(1, i).Value)            Case TIME_COLUMN                timeCol = i            Case CALL_COLUMN                callCol = i        End Select    Next i    If timeCol = 0 Or callCol = 0 Then        MsgBox "找不到必要的数据列！", vbExclamation        PrepareData = False        Exit Function    End If    ' 转换时间格式    Dim rngTime As Range    Set rngTime = wsData.Range(wsData.Cells(2, timeCol), wsData.Cells(lastRow, timeCol))    rngTime.NumberFormat = "yyyy-mm-dd hh:mm:ss"    ' 添加小时辅助列    wsData.Cells(1, lastCol + 1).Value = "小时"    Dim hourCell As Range    For i = 2 To lastRow        If IsDate(wsData.Cells(i, timeCol).Value) Then            wsData.Cells(i, lastCol + 1).Value = Hour(wsData.Cells(i, timeCol).Value)        Else            wsData.Cells(i, lastCol + 1).Value = ""        End If    Next i    ' 添加日期辅助列    wsData.Cells(1, lastCol + 2).Value = "日期"    For i = 2 To lastRow        If IsDate(wsData.Cells(i, timeCol).Value) Then            wsData.Cells(i, lastCol + 2).Value = DateValue(wsData.Cells(i, timeCol).Value)        Else            wsData.Cells(i, lastCol + 2).Value = ""        End If    Next i    PrepareData = True    Exit FunctionErrorHandler:    PrepareData = FalseEnd FunctionFunction CreatePivotTable() As Boolean    ' 创建数据透视表    On Error GoTo ErrorHandler    Dim wsData As Worksheet, wsPivot As Worksheet    Dim pc As PivotCache    Dim pt As PivotTable    Dim lastRow As Long, lastCol As Long    Dim pr As PivotField, pf As PivotField    ' 获取数据表    Set wsData = ThisWorkbook.Worksheets(DATA_SHEET)    ' 删除已有的透视表工作表    On Error Resume Next    Application.DisplayAlerts = False    ThisWorkbook.Worksheets(PIVOT_SHEET).Delete    Application.DisplayAlerts = True    On Error GoTo ErrorHandler    ' 创建新的透视表工作表    Set wsPivot = ThisWorkbook.Worksheets.Add    wsPivot.Name = PIVOT_SHEET    ' 确定数据范围    lastRow = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row    lastCol = wsData.Cells(1, wsData.Columns.Count).End(xlToLeft).Column    Dim dataRange As String    dataRange = wsData.Name & "!R1C1:R" & lastRow & "C" & lastCol    ' 创建透视缓存    Set pc = ThisWorkbook.PivotCaches.Create( _        SourceType:=xlDatabase, _        SourceData:=dataRange, _        Version:=xlPivotTableVersion15)    ' 创建透视表    Set pt = pc.CreatePivotTable( _        TableDestination:=wsPivot.Range("A3"), _        TableName:="HourlyPivot")    ' 添加行字段 - 小时    Set pr = pt.PivotFields("小时")    pr.Orientation = xlRowField    pr.Position = 1    ' 添加列字段 - 日期（如果需要多天对比）    ' Set pc = pt.PivotFields("日期")    ' pc.Orientation = xlColumnField    ' pc.Position = 1    ' 添加值字段 - 通话量计数    Set pf = pt.PivotFields("通话ID")    pf.Orientation = xlDataField    pf.Function = xlCount    pf.NumberFormat = "#,##0"    pf.Name = "通话量"    ' 设置透视表格式    With pt        .RowAxisLayout xlTabularRow        .RepeatAllLabels xlRepeatLabels        .NullString = "0"        ' 显示所有小时（0-23）        .PivotFields("小时").ShowDetail = False        ' 排序：按小时升序        .PivotFields("小时").AutoSort xlAscending, "小时"        ' 添加计算项：合计        .ColumnGrand = True        .RowGrand = True        ' 应用表格样式        .TableStyle2 = "PivotStyleMedium9"    End With    ' 确保显示所有24小时    Dim i As Integer    For i = 0 To 23        On Error Resume Next        pt.PivotFields("小时").PivotItems(i).Visible = True        On Error GoTo ErrorHandler    Next i    ' 格式化透视表    With wsPivot        ' 设置列宽        .Columns("A:B").ColumnWidth = 12        ' 添加标题        .Range("A1").Value = "小时级通话量统计"        .Range("A1").Font.Bold = True        .Range("A1").Font.Size = 14        .Range("A2").Value = "统计日期：" & DATE_FILTER        .Range("A2").Font.Size = 10        .Range("A2").Font.Color = RGB(100, 100, 100)        ' 格式化数值        .Range("B4:B100").NumberFormat = "#,##0"        ' 添加条件格式        Dim rngValues As Range        Set rngValues = .Range("B4:B100")        ' 清除旧的条件格式        rngValues.FormatConditions.Delete        ' 数据条        With rngValues.FormatConditions.AddDatabar            .BarColor.Color = RGB(99, 190, 123)            .BarFillType = xlDataBarFillSolid            .Direction = xlContext            ' 设置最小值            With .MinPoint                .Type = xlConditionValueLowestValue            End With            ' 设置最大值            With .MaxPoint                .Type = xlConditionValueHighestValue            End With        End With        ' 高亮峰值        Dim maxVal As Double        maxVal = Application.WorksheetFunction.Max(rngValues)        With rngValues.FormatConditions.Add( _            Type:=xlCellValue, _            Operator:=xlEqual, _            Formula1:="=" & maxVal)            .Font.Bold = True            .Font.Color = RGB(192, 0, 0)            .Interior.Color = RGB(255, 235, 156)        End With    End With    CreatePivotTable = True    Exit FunctionErrorHandler:    CreatePivotTable = FalseEnd FunctionFunction CreateTrendChart() As Boolean    ' 创建趋势图表    On Error GoTo ErrorHandler    Dim wsPivot As Worksheet, wsChart As Worksheet    Dim pt As PivotTable    Dim cht As Chart    Dim lastRow As Long    ' 获取透视表    Set wsPivot = ThisWorkbook.Worksheets(PIVOT_SHEET)    Set pt = wsPivot.PivotTables("HourlyPivot")    ' 确定数据范围    lastRow = wsPivot.Cells(wsPivot.Rows.Count, 1).End(xlUp).Row    Dim chartData As Range    Set chartData = wsPivot.Range("A4:B" & lastRow)    ' 删除已有的图表工作表    On Error Resume Next    Application.DisplayAlerts = False    ThisWorkbook.Worksheets(CHART_SHEET).Delete    Application.DisplayAlerts = True    On Error GoTo ErrorHandler    ' 创建新的图表工作表    Set wsChart = ThisWorkbook.Worksheets.Add    wsChart.Name = CHART_SHEET    ' 创建图表    Set cht = ThisWorkbook.Charts.Add    cht.Name = "小时通话趋势图"    With cht        ' 设置图表位置        .SetSourceData Source:=chartData        .ChartType = xlLineMarkers        ' 移动到图表工作表        .Location Where:=xlLocationAsObject, Name:=wsChart.Name        ' 设置图表大小和位置        With .Parent            .Top = wsChart.Range("A1").Top            .Left = wsChart.Range("A1").Left            .Width = 800            .Height = 400        End With        ' 设置图表标题        .HasTitle = True        .ChartTitle.Text = DATE_FILTER & " 通话量小时趋势"        .ChartTitle.Font.Size = 16        .ChartTitle.Font.Bold = True        ' 设置图例        .HasLegend = False        ' 设置X轴（小时）        With .Axes(xlCategory)            .HasTitle = True            .AxisTitle.Text = "小时"            .TickLabels.NumberFormat = "0"            .MajorUnit = 1            .MaximumScale = 23            .MinimumScale = 0            ' 设置刻度线            .MajorTickMark = xlOutside            .MinorTickMark = xlNone        End With        ' 设置Y轴（通话量）        With .Axes(xlValue)            .HasTitle = True            .AxisTitle.Text = "通话量"            .AxisTitle.Orientation = xlUpward            .TickLabels.NumberFormat = "#,##0"            ' 自动调整刻度            .MinimumScaleIsAuto = True            .MaximumScaleIsAuto = True            .MajorUnitIsAuto = True            .MinorUnitIsAuto = True            ' 添加网格线            .HasMajorGridlines = True            .MajorGridlines.Format.Line.ForeColor.RGB = RGB(217, 217, 217)            .HasMinorGridlines = False        End With        ' 设置数据系列        With .SeriesCollection(1)            .Name = "通话量"            ' 线条格式            With .Format.Line                .ForeColor.RGB = RGB(79, 129, 189)                .Weight = 2.5                .DashStyle = msoLineSolid            End With            ' 标记点格式            .MarkerStyle = xlMarkerStyleCircle            .MarkerSize = 7            .MarkerBackgroundColor = RGB(255, 255, 255)            .MarkerForegroundColor = RGB(79, 129, 189)            ' 数据标签            .HasDataLabels = True            .DataLabels.ShowValue = True            .DataLabels.Position = xlLabelPositionAbove            .DataLabels.Font.Size = 9            .DataLabels.NumberFormat = "#,##0"            ' 添加趋势线            .Trendlines.Add            With .Trendlines(1)                .Type = xlLinear                .DisplayEquation = False                .DisplayRSquared = False                .Border.LineStyle = xlDash                .Border.Color = RGB(192, 80, 77)                .Border.Weight = 1.5            End With        End With        ' 设置图表区格式        With .ChartArea.Format.Fill            .ForeColor.RGB = RGB(255, 255, 255)            .Transparency = 0        End With        ' 设置绘图区格式        With .PlotArea.Format.Fill            .ForeColor.RGB = RGB(248, 248, 248)            .Transparency = 0        End With        ' 添加平均线        Dim avgLine As Shape        Dim avgVal As Double        avgVal = Application.WorksheetFunction.Average(chartData.Columns(2))        ' 计算平均线的位置        Dim yRatio As Double        yRatio = (avgVal - .Axes(xlValue).MinimumScale) / _                (.Axes(xlValue).MaximumScale - .Axes(xlValue).MinimumScale)        ' 添加形状作为平均线        Set avgLine = wsChart.Shapes.AddLine( _            BeginX:=.PlotArea.InsideLeft, _            BeginY:=.PlotArea.InsideTop + (.PlotArea.InsideHeight * (1 - yRatio)), _            EndX:=.PlotArea.InsideLeft + .PlotArea.InsideWidth, _            EndY:=.PlotArea.InsideTop + (.PlotArea.InsideHeight * (1 - yRatio)))        With avgLine.Line            .ForeColor.RGB = RGB(192, 80, 77)            .Weight = 1.5            .DashStyle = msoLineDash        End With        ' 添加平均线标签        Dim avgLabel As Shape        Set avgLabel = wsChart.Shapes.AddTextbox( _            Orientation:=msoTextOrientationHorizontal, _            Left:=.PlotArea.InsideLeft + .PlotArea.InsideWidth - 60, _            Top:=.PlotArea.InsideTop + (.PlotArea.InsideHeight * (1 - yRatio)) - 20, _            Width:=50, Height:=20)        With avgLabel            .TextFrame.Characters.Text = "平均：" & Format(avgVal, "#,##0")            .TextFrame.HorizontalAlignment = xlCenter            .TextFrame.VerticalAlignment = xlCenter            .Fill.ForeColor.RGB = RGB(255, 255, 255)            .Line.ForeColor.RGB = RGB(192, 80, 77)            .TextFrame.Characters.Font.Size = 8            .TextFrame.Characters.Font.Color = RGB(192, 80, 77)        End With        ' 添加峰值标注        Dim maxVal As Double, maxHour As Long        maxVal = Application.WorksheetFunction.Max(chartData.Columns(2))        maxHour = Application.WorksheetFunction.Match(maxVal, chartData.Columns(2), 0) - 1        Dim maxPoint As Shape        Set maxPoint = wsChart.Shapes.AddShape( _            Type:=msoShapeOval, _            Left:=.PlotArea.InsideLeft + (.PlotArea.InsideWidth * (maxHour / 23)) - 5, _            Top:=.PlotArea.InsideTop + (.PlotArea.InsideHeight * (1 - ((maxVal - .Axes(xlValue).MinimumScale) / _            (.Axes(xlValue).MaximumScale - .Axes(xlValue).MinimumScale)))) - 5, _            Width:=10, Height:=10)        With maxPoint.Fill            .ForeColor.RGB = RGB(255, 0, 0)            .Transparency = 0.5        End With        With maxPoint.Line            .ForeColor.RGB = RGB(255, 0, 0)            .Weight = 1.5        End With        ' 添加峰值标签        Dim maxLabel As Shape        Set maxLabel = wsChart.Shapes.AddTextbox( _            Orientation:=msoTextOrientationHorizontal, _            Left:=maxPoint.Left - 40, _            Top:=maxPoint.Top - 25, _            Width:=80, Height:=20)        With maxLabel            .TextFrame.Characters.Text = maxHour & "时：" & Format(maxVal, "#,##0")            .TextFrame.HorizontalAlignment = xlCenter            .TextFrame.VerticalAlignment = xlCenter            .Fill.ForeColor.RGB = RGB(255, 235, 156)            .Line.ForeColor.RGB = RGB(192, 0, 0)            .TextFrame.Characters.Font.Size = 8            .TextFrame.Characters.Font.Color = RGB(192, 0, 0)            .TextFrame.Characters.Font.Bold = True        End With        ' 设置图表边框        .ChartArea.Format.Line.Weight = 1.5        .ChartArea.Format.Line.ForeColor.RGB = RGB(191, 191, 191)    End With    ' 添加统计摘要    Dim summaryRow As Long    summaryRow = 25    With wsChart        .Range("A" & summaryRow).Value = "统计摘要"        .Range("A" & summaryRow).Font.Bold = True        .Range("A" & summaryRow).Font.Size = 12        .Range("A" & summaryRow + 1).Value = "日期："        .Range("B" & summaryRow + 1).Value = DATE_FILTER        .Range("A" & summaryRow + 2).Value = "总通话量："        .Range("B" & summaryRow + 2).Value = Application.WorksheetFunction.Sum(chartData.Columns(2))        .Range("B" & summaryRow + 2).NumberFormat = "#,##0"        .Range("A" & summaryRow + 3).Value = "平均通话量："        .Range("B" & summaryRow + 3).Value = avgVal        .Range("B" & summaryRow + 3).NumberFormat = "#,##0"        .Range("A" & summaryRow + 4).Value = "峰值时段："        .Range("B" & summaryRow + 4).Value = maxHour & "时"        .Range("A" & summaryRow + 5).Value = "峰值通话："        .Range("B" & summaryRow + 5).Value = maxVal        .Range("B" & summaryRow + 5).NumberFormat = "#,##0"        .Range("A" & summaryRow + 6).Value = "低谷时段："        .Range("B" & summaryRow + 6).Value = Application.WorksheetFunction.Match( _            Application.WorksheetFunction.Min(chartData.Columns(2)), _            chartData.Columns(2), 0) - 1        .Range("B" & summaryRow + 6).Value = .Range("B" & summaryRow + 6).Value & "时"        ' 格式化统计区域        With .Range("A" & summaryRow & ":B" & summaryRow + 6)            .Borders.LineStyle = xlContinuous            .Borders.Color = RGB(191, 191, 191)            .Interior.Color = RGB(248, 248, 248)        End With        ' 设置列宽        .Columns("A:B").ColumnWidth = 15    End With    CreateTrendChart = True    Exit FunctionErrorHandler:    CreateTrendChart = FalseEnd FunctionSub FormatChartAndTables()    ' 格式化和美化    Dim wsChart As Worksheet    Set wsChart = ThisWorkbook.Worksheets(CHART_SHEET)    ' 自动调整列宽    wsChart.Columns.AutoFit    ' 设置保护    ThisWorkbook.Worksheets(DATA_SHEET).Protect Password:="", _        DrawingObjects:=True, Contents:=True, Scenarios:=True    ThisWorkbook.Worksheets(PIVOT_SHEET).Protect Password:="", _        DrawingObjects:=True, Contents:=True, Scenarios:=True    ' 设置滚动区域    wsChart.ScrollArea = "A1:J30"End SubSub SaveAndExportResults()    ' 保存和导出结果    Dim savePath As String    Dim fileName As String    ' 生成文件名    fileName = "通话量小时趋势_" & Format(Date, "yyyy-mm-dd") & ".xlsx"    savePath = ThisWorkbook.Path & "\" & fileName    ' 创建新工作簿保存结果    Dim newWb As Workbook    Set newWb = Workbooks.Add    ' 复制图表工作表    ThisWorkbook.Worksheets(CHART_SHEET).Copy Before:=newWb.Worksheets(1)    ' 删除默认工作表    Application.DisplayAlerts = False    While newWb.Worksheets.Count > 1        newWb.Worksheets(2).Delete    Wend    Application.DisplayAlerts = True    ' 保存    newWb.SaveAs savePath    newWb.Close SaveChanges:=True    MsgBox "结果已保存到：" & vbCrLf & savePath, vbInformationEnd Sub

import pandas as pdimport matplotlib.pyplot as pltfrom datetime import datetimeimport numpy as npimport warningswarnings.filterwarnings('ignore')class CallTrendAnalyzer:    """通话趋势分析器 - Python版本"""    def __init__(self, data_path: str, date_column: str = '开始时间',                  call_id_column: str = '通话ID'):        """        初始化分析器        参数：            data_path: 数据文件路径            date_column: 时间列名            call_id_column: 通话ID列名        """        self.data_path = data_path        self.date_column = date_column        self.call_id_column = call_id_column        self.data = None        self.hourly_stats = None    def load_data(self) -> pd.DataFrame:        """        加载数据        返回：            加载的DataFrame        """        print(f"📂 加载数据: {self.data_path}")        # 支持多种数据格式        if self.data_path.endswith('.csv'):            self.data = pd.read_csv(self.data_path, encoding='utf-8')        elif self.data_path.endswith('.xlsx') or self.data_path.endswith('.xls'):            self.data = pd.read_excel(self.data_path)        else:            raise ValueError("不支持的文件格式")        print(f"  已加载 {len(self.data)} 行数据")        return self.data    def analyze_hourly_trend_basic(self, output_path: str = "通话趋势图.png") -> pd.DataFrame:        """        分析小时级趋势 - 基础版本        参数：            output_path: 输出图表路径        返回：            小时统计DataFrame        """        # 🎯 核心代码1：加载数据        if self.data is None:            self.load_data()        # 确保时间列是datetime类型        self.data[self.date_column] = pd.to_datetime(self.data[self.date_column])        # 🎯 核心代码2：按小时分组统计        self.data['小时'] = self.data[self.date_column].dt.hour        hourly_stats = self.data.groupby('小时')[self.call_id_column].count().reset_index()        hourly_stats.columns = ['小时', '通话量']        # 确保0-23小时完整        all_hours = pd.DataFrame({'小时': range(24)})        self.hourly_stats = pd.merge(all_hours, hourly_stats, on='小时', how='left')        self.hourly_stats['通话量'] = self.hourly_stats['通话量'].fillna(0).astype(int)        # 🎯 核心代码3：绘制图表        plt.figure(figsize=(12, 6))        plt.plot(self.hourly_stats['小时'], self.hourly_stats['通话量'],                 marker='o', linewidth=2, markersize=8,                 color='#4F81BD', label='通话量')        # 🎯 核心代码4：添加平均线        avg_calls = self.hourly_stats['通话量'].mean()        plt.axhline(y=avg_calls, color='#C0504D', linestyle='--',                    linewidth=1.5, label=f'平均值: {avg_calls:.0f}')        # 🎯 核心代码5：格式化和保存        plt.title('通话量小时趋势', fontsize=16, fontweight='bold', pad=20)        plt.xlabel('小时', fontsize=12)        plt.ylabel('通话量', fontsize=12)        plt.xticks(range(0, 24))        plt.grid(True, alpha=0.3)        plt.legend()        plt.tight_layout()        plt.savefig(output_path, dpi=300, bbox_inches='tight')        plt.show()        print(f"✅ 分析完成！图表已保存: {output_path}")        print(f"   峰值时段: {self.hourly_stats.loc[self.hourly_stats['通话量'].idxmax(), '小时']}时")        print(f"   总通话量: {self.hourly_stats['通话量'].sum():,}")        return self.hourly_stats