Question

我正在尝试自动化跟踪各种指标的滚动日历电子表格。我想编写的脚本会在每次运行时将选定范围更改为一个名称。

我确实使用此宏成功增加了火花线：

If Sheet2.Range("E5").SparklineGroups.Count > 0 Then
    With Sheet2.Range("E5").SparklineGroups.Item(1)
        .SourceData = "'" & Range(.SourceData).Parent.Name & "'!" & Range(.SourceData).Offset(, 1).Address
    End With
End If

但是，我仍然使用下面的类似宏来引用定义的名称Hzrange。我是VBA的新手，任何帮助一如既往。

If ActiveWorkbook.Names("Hzrange").RefersToR1C1 > 0 Then
    With ActiveWorkbook.Names("Hzrange")
        .RefersToR1C1 = "'" & Range(.RefersToR1C1).Parent.Name & "'!" & Range(.RefersToR1C1).Offset(, 1).Address
    End With
End If

Answer 1

为什么不

If ActiveWorkbook.Names("Hzrange").RefersToR1C1 > 0 Then
    With ActiveWorkbook.Names("Hzrange")
        .RefersToR1C1 = Range("Hzrange").Offset(, 1)
    End With
End If

如何使用Excel VBA移动定义的名称？

1 个答案: