作者:乔山办公网日期:
返回目录:excel表格制作
应该没有问题呀。
关闭EXCEL后再试试吧
宏启动出现400错误 Excel是设置错误造成的,解决方法为:
1、录入相关的数据。抄
2、单袭击OFFICE按钮,再单击EXCEL选项。
3、选择在功能区显示:“开发工具”选项卡,复选框,再单击确定。
4、单击开发工具选项卡。
5、再单击宏安全性选项。
6、选择“禁用zd无线数字签署的所有宏”选项。
7、再单击确定即可。
哪一句错了?
截图
应该是这样:
Sub 填充颜色百()
Dim i As Integer
For i = 0 To 19
Range("E1").Offset(i).Interior.Color = RGB(Range("B1").Offset(i).Value, Range("C1").Offset(i).Value, Range("D1").Offset(i).Value)
Next
End Sub
我也不是很懂VBA,所以可以最浅显地帮你解释一下。
在Excel中,OFFSET函数的功能为以指定的引用为度参照系,通过给定偏移量得到新的引用。这个offset的含义百问度下就有,嘿嘿。
你原来代码的问题主要是Range( )这种里面没有加引号。加上就好了,答用法问题。
另外如果想要E列都填充的话,偏移值应该从0开始。就是For i = 0 To 19,不知道你为什么原来是内For i = 2 To 19,如果这样定义的话,E1和E2是没有颜色的。
顺便再补充一下,你原来的代码多定义了G和B,但是下面容完全没有用到,我看没啥意义就删了。