把我写一个vba代码，读取sheet1中C2:C10的数据，在sheet1中的B2中绘制sparkline折线图

以下是VBA代码实现：

Sub DrawSparkline()
    Dim rngData As Range
    Dim sparklineLocation As Range
    
    '设置数据范围
    Set rngData = ThisWorkbook.Worksheets("Sheet1").Range("C2:C10")
    '设置Sparkline绘制位置
    Set sparklineLocation = ThisWorkbook.Worksheets("Sheet1").Range("B2")
    
    '绘制Sparkline
    sparklineLocation.SparklineGroups.Add Type:=xlSparkLine, SourceData:=rngData
End Sub

将此代码复制到VBA编辑器中，然后运行即可。运行后，将在Sheet1的B2单元格中绘制Sparkline折线图，该图显示Sheet1的C2:C10单元格范围内的数据。

相关问题

帮我写一个vba在excel中绘制sparkline的代码，读取sheet2中B2:B100的数据，随后在sheet1中的B2单元格进行绘制

以下是一个简单的 VBA 代码示例，可以在 Excel 中绘制 Sparkline：

Sub DrawSparkline()
    Dim sparkRange As Range
    Dim sparkLocation As Range
    
    ' 设置范围和位置
    Set sparkRange = Worksheets("Sheet2").Range("B2:B100")
    Set sparkLocation = Worksheets("Sheet1").Range("B2")
    
    ' 绘制 Sparkline
    sparkLocation.SparklineGroups.Add Type:=xlSparkLine, SourceData:=sparkRange
End Sub

这个代码会在 Sheet1 的 B2 单元格中绘制一个 Sparkline，它的数据来自 Sheet2 的 B2:B100 范围。你可以将这段代码复制到 VBA 编辑器中，并将其保存到你的工作簿中。在需要绘制 Sparkline 的时候，只需运行这个宏即可。

把我写一个vba代码，从sheet2读取数据，在sheet1的B2单元格绘制sparkline，同时要用标记处出最大值和最小值

以下是一个简单的VBA代码来实现您的要求：

Sub DrawSparkline()
    Dim dataRange As Range
    Dim sparklineRange As Range
    Dim maxVal As Variant, minVal As Variant
    Dim maxIdx As Long, minIdx As Long
    
    '设置数据范围和Sparkline范围
    Set dataRange = Sheets("Sheet2").Range("A1:A10") '这里假设数据范围是A1:A10
    Set sparklineRange = Sheets("Sheet1").Range("B2")
    
    '绘制Sparkline
    sparklineRange.SparklineGroups.Add Type:=xlLineMarkers, SourceData:=dataRange
    
    '获取最大值和最小值
    maxVal = Application.WorksheetFunction.Max(dataRange)
    minVal = Application.WorksheetFunction.Min(dataRange)
    
    '获取最大值和最小值在数据中的索引
    maxIdx = Application.WorksheetFunction.Match(maxVal, dataRange, 0)
    minIdx = Application.WorksheetFunction.Match(minVal, dataRange, 0)
    
    '在Sparkline上标记最大值和最小值
    sparklineRange.SparklineGroups(1).Points(maxIdx).MarkerStyle = xlMarkerStyleTriangle
    sparklineRange.SparklineGroups(1).Points(minIdx).MarkerStyle = xlMarkerStyleTriangle
End Sub

这个代码假设您的数据范围是Sheet2的A1:A10，Sparkline范围是Sheet1的B2。您可以根据自己的实际情况修改这些范围。此外，代码会使用内置函数`Max`和`Min`来获取最大值和最小值，并使用`Match`函数来获取它们在数据中的索引。最后，代码会在Sparkline上标记最大值和最小值。