EXCELVBA出现运行时错误: 30

EXCELVBA文档出现行时错误,弹出一个窗口“系统错误,&H80010108(-2147417848)。被调用的对象已与其客户端断开连接”文档代码是我自己编写的,这个步... EXCELVBA文档出现行时错误,弹出一个窗口“系统错误,&H80010108(-2147417848)。被调用的对象已与其客户端断开连接”
文档代码是我自己编写的,这个步骤运行的程序是在一个窗体中单击一个按钮把窗体中的一些数据分别输入到另外两个工作表的列表中,加到列表的最后位置。该文档已经使用一段时间,一直正常,最近运行时出现这个问题。
有哪位高手知道出错原因的请不吝赐教,还请详细说下解决方法。
展开
 我来答
手机用户32915
2011-09-05 · TA获得超过271个赞
知道答主
回答量:490
采纳率:66%
帮助的人:333万
展开全部
应该是这样:
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,但是下面完全没有用到,我看没啥意义就删了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
宝贝天使玩具
2011-09-04 · TA获得超过706个赞
知道小有建树答主
回答量:673
采纳率:33%
帮助的人:194万
展开全部
excel帮助文件里没有相关信息吗,像office帮助文件很多,可以从里面看看
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式