[已解决]VBA 报错，1004 不能取得 求解决

试验资料

Private Sub Worksheet_Activate()
    Call test
End Sub
Sub test()
    Dim i As Integer
    Dim rng As Range
    With ActiveSheet.ChartObjects("图表 4").Chart
        .Axes(xlCategory).MaximumScale = [i33]
        For i = 1 To 10
            Set rng = Cells(15, i + 4)
            If VBA.IsNumeric(rng) Then .SeriesCollection(2).Points(i).DataLabel.Characters.Text = rng Else Exit For
        Next i
    End With
End Sub
按F8运行，第二排命令运行到第七次就出现错误了，.SeriesCollection(2).Points(i).DataLabel.Characters.Text = rng Else为黄字，什么原因啊

最佳答案

月排行榜 / 总排行榜

高

2016-1-21 23:31

在我的电脑中，未出现任何异常，不管是按f8还是一次性运行完程序，或者改变单元格内容触犯发程序，都没错误。你考虑换个电脑试试。

跳转到最佳答案楼层

高

在我的电脑中，未出现任何异常，不管是按f8还是一次性运行完程序，或者改变单元格内容触犯发程序，都没错误。你考虑换个电脑试试。

试验资料

高 发表于 2016-1-21 23:31
在我的电脑中，未出现任何异常，不管是按f8还是一次性运行完程序，或者改变单元格内容触犯发程序，都没错误 ...

你的是哪个版本？2003还是其他的？