Question

想请教一下：EXCEL VBA中遇到：运行错误'1004'：方法'range'作用于对象"_global'时失败，是什么原因？

具体代码是：
Sub fillcolor()

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

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

ActiveSheet.Shapes(Range("B" & CStr(q)).Value).Fill.ForeColor.RGB = Range(Range("E" & CStr(q)).Value).Interior.Color
'对各省的图形使用其颜色栏的值作为名称所指向的单元格的颜色填充
Next i

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

End Sub

Answer 1

q未赋值，默认为0，CStr(q)是空值，Range("B" & CStr(q))就是Range("B" )

Answer 2

ActiveSheet.Shapes(Range("B" & i.Value)).Fill.ForeColor.RGB = Range(Range("E" & i.Value)).Interior.Color

追问

运行之后，又出现新的错误： 运行时错误“424” 要求对象，这又是啥意思？

Answer 3

CStr(q)-------------------这里边儿的q是个什么东西？