Добавление Sparkline в ячейку

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

Ошибка Run-Time Error'13 ': несоответствие типов Показывает ошибку для этой строки кода:

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

Пожалуйста, помогите !!

Answer 1

Получил это, работая с приведенным ниже кодом, ссылаясь на «адрес» переменной sparkrange.Я полагаю, что аргумент «Исходные данные» должен быть типом данных String, который должен давать «.Address».

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)