Question

我正在尝试为整个数据的最后四列中提到的数据的最后4周的平均值添加迷你图。

下面是我拥有的一段代码（仅与迷你图相关），但是它抛出错误

Set rng = Cells(6, Range("E5").End(xlToRight).Column + 3)
Set sparkrange = Range(Cells(6, Range("E5").End(xlToRight).Column - 3), Cells(6, Range("E5").End(xlToRight).Column))
rng.SparklineGroups.Add Type:=xlSparkLine, SourceData:=sparkrange

错误是运行时错误'13'：类型不匹配这行代码显示错误：

rng.SparklineGroups.Add Type:=xlSparkLine, SourceData:=sparkrange

请帮助!!

Answer 1

通过引用sparkrange变量的“地址”，使用下面的代码进行操作。我相信Source Data参数必须是“ .Address”应该提供的String数据类型。

Set rng = Cells(6, Range("E5").End(xlToRight).Column + 3)
Set sparkrange = Range(Cells(6, Range("E5").End(xlToRight).Column - 3), Cells(6, Range("E5").End(xlToRight).Column))
rng.SparklineGroups.Add Type:=xlSparkLine, SourceData:=CStr(sparkrange.Address)

将迷你图添加到单元格

1 个答案: