如何使用vba标记 xlSparkLine 的最大值和最小值

可以使用以下VBA代码来标记Sparkline的最大值和最小值：

Sub MarkSparklineMinMax()
    Dim sparklineRange As Range
    Dim cell As Range
    
    Set sparklineRange = Selection '选择包含Sparkline的单元格范围
    
    For Each cell In sparklineRange
        If cell.SparklineGroups.Count > 0 Then '检查单元格是否包含Sparkline
            Dim sparklineGroup As SparklineGroup
            Set sparklineGroup = cell.SparklineGroups(1) '获取第一个SparklineGroup
            
            Dim values As Variant
            values = sparklineGroup.Points '获取Sparkline的数据点
            
            Dim maxValue As Double
            Dim maxIndex As Integer
            maxValue = Application.WorksheetFunction.Max(values) '查找最大值
            maxIndex = Application.WorksheetFunction.Match(maxValue, values, 0) '查找最大值的索引
            
            Dim minValue As Double
            Dim minIndex As Integer
            minValue = Application.WorksheetFunction.Min(values) '查找最小值
            minIndex = Application.WorksheetFunction.Match(minValue, values, 0) '查找最小值的索引
            
            cell.FormatConditions.Delete '删除所有条件格式
            
            '标记最大值
            Dim maxRule As FormatCondition
            Set maxRule = cell.FormatConditions.Add(xlCellValue, xlEqual, maxValue)
            maxRule.Font.Color = vbRed
            maxRule.AppliesTo.Range("B1").Offset(maxIndex - 1).Font.Color = vbRed
            
            '标记最小值
            Dim minRule As FormatCondition
            Set minRule = cell.FormatConditions.Add(xlCellValue, xlEqual, minValue)
            minRule.Font.Color = vbBlue
            minRule.AppliesTo.Range("B1").Offset(minIndex - 1).Font.Color = vbBlue
        End If
    Next cell
End Sub

此代码将选择的单元格中的Sparkline的最大值和最小值标记为红色和蓝色。请注意，此代码假定Sparkline在B1单元格中，并且Sparkline的数据点存储在SparklineGroup的Points属性中。您可以根据您的情况修改代码。