Question

Excell运行显示“VBA方法'range'作用于对象'_global'时失败”，如何调试？

Sub fill_color()

Application.ScreenUpdating = False '暂停刷新屏幕

For i = 212 To 254 '为数据源的起始和结束行号

ActiveSheet.Shapes(Range("Data-analysis!AR" & i).Value).Fill.ForeColor.RGB = Range(Range("Data-analysis!AY" & i).Value).Interior.Color

'对各省的图形使用其颜色栏的值作为名称所指向的单元格的颜色填充
Next i

Application.ScreenUpdating = True '恢复刷新屏幕

End Sub

Private Sub Workbook_Open()

End Sub
这段代码，运行显示“VBA方法'range'作用于对象'_global'时失败”，如何修改？

Answer 1

Range("Data-analysis!AY" & i).Value这个出来的是不带双引号的
你要加上，如下
Range("""" & Range("Data-analysis!AY" & i).Value & """").Interior.Color

追问

能否完整修改贴给我呢，我属于菜鸟级别的！

我在用不同的值赋予不同的颜色，然后苏州各板块图里面填上相应的颜色，点击填充（按钮以指定“fillcolor”的动作，就是上面代码），出现这个问题。