[问答] excel启用宏时显示方法Range作用于对象Global时失败？ [推广有奖]

2关注
7粉丝

已卖：156份资源

讲师

49%

还不是VIP/贵宾

-

0%

威望: 0 级
论坛币: 7818 个
通用积分: 8.6505
学术水平: 8 点
热心指数: 11 点
信用等级: 9 点
经验: 12798 点
帖子: 277
精华: 0
在线时间: 706 小时
注册时间: 2011-5-13
最后登录: 2024-7-9

楼主

CQU_qzq 发表于 2012-11-4 10:47:31 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题，在利用论坛上传的一个给中国地图填色的EXCEL工具时，启用宏后出现了如上错误，大家有会的能帮我解答一下吗？我把EXCEL和出现错误的程序都上传，请高手支招。
错误的程序（红色部分为显示错误的部分）：
Sub 按钮35_单击()
For i = 8 To 39
Range("ActReg").Value = Range("datamap!C" & i).Value
ActiveSheet.Shapes(Range("ActReg").Value).Select
Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("ActRegCode").Value).Interior.Color
' Selection.ShapeRange.Fill.Patterned Range(Range("ActRegCode").Value).Interior.Pattern

Next i
Range("s11").Select

End Sub