
EXCELVBA出现运行时错误: 30
EXCELVBA文档出现行时错误,弹出一个窗口“系统错误,&H80010108(-2147417848)。被调用的对象已与其客户端断开连接”文档代码是我自己编写的,这个步...
EXCELVBA文档出现行时错误,弹出一个窗口“系统错误,&H80010108(-2147417848)。被调用的对象已与其客户端断开连接”
文档代码是我自己编写的,这个步骤运行的程序是在一个窗体中单击一个按钮把窗体中的一些数据分别输入到另外两个工作表的列表中,加到列表的最后位置。该文档已经使用一段时间,一直正常,最近运行时出现这个问题。
有哪位高手知道出错原因的请不吝赐教,还请详细说下解决方法。 展开
文档代码是我自己编写的,这个步骤运行的程序是在一个窗体中单击一个按钮把窗体中的一些数据分别输入到另外两个工作表的列表中,加到列表的最后位置。该文档已经使用一段时间,一直正常,最近运行时出现这个问题。
有哪位高手知道出错原因的请不吝赐教,还请详细说下解决方法。 展开
2个回答
展开全部
应该是这样:
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,但是下面完全没有用到,我看没啥意义就删了。
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,但是下面完全没有用到,我看没啥意义就删了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询