查看: 3348|回复: 6
运行时错误‘13’：类型不匹配
新鲜人, 积分 2, 距离下一级还需 8 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
Range(&i2:i796&).Value = Range(&i2:i796&).Value + Range(&h2:h796&).Value
总是报错，不知怎么回事啊？
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
Range(&i2:i796&).Value = Range(&i2:i796&).Value + Range(&h2:h796&).Value
肯定有错误了。明显是区域的计算
学office，哪能不关注全网最大的Office类微博（新浪）
高级二, 积分 2188, 距离下一级还需 262 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
Range(&i2:i796&).Value = Range(&i2:i796&).Value + Range(&h2:h796&).Value
总是报错，不知怎么回事啊？
duld 发表于
是这样的，虽然在VBA中，我们经常使用&&Range()=Range() 的形式进行“复制”内容，
但是，却不可以直接对区域进行运算的，跟Excel中的数组公式不一样，
也就是说，你的Range(&i2:i796&).Value + Range(&h2:h796&).Value 是不合法的。
如果你要实现这个效果，那只能使用循环的方式，比较直观，但速度会有点慢的写法如下，如果要高效一点的，那就用数组循环的方式。
For i = 2 To 796
& & Cells(i, &I&) = Cells(i, &I&) + Cells(i, &H&)
Next
复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
是这样的，虽然在VBA中，我们经常使用&&Range()=Range() 的形式进行“复制”内容，
但是，却不可以直接对区域进行运算的，跟Excel中的数组公式不一样，
也就是说，你的Range(&i2:i796&).Value + Range(&h2:h79 ...
zzmxy 发表于
解释的真明白，需要学习
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
[i2:i796]=[i2:i796+h2:h796]复制代码这个试下
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
kevinchengcw 发表于
学office，哪能不关注全网最大的Office类微博（新浪）
高级二, 积分 2188, 距离下一级还需 262 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
本帖最后由 zzmxy 于
14:18 编辑
kevinchengcw 发表于
K版不厚道啊，扔下代码就算了？
我啰嗦一下吧：
这里的中括号，相当于VBA中的Evaluate()函数，而Evaluate()的参数，表示的是Excel函数公式或者表达式，因此VBA代码放括号里无效，
用了这个函数或者中括号，有点像Application.WorksheetFunction()一样，是一种类型的声明，
这样就可以直接使用Excel的函数公式或者表达式，而K版这个就是Excel中最普通的数组公式……
同样的，平时的[A1]=[A1]+[B1] 也是同样的道理……
z班，还是教教我VBA把
学office，哪能不关注全网最大的Office类微博（新浪）
站长推荐 /1
关注 微信号：exceltip_net
回复“教程”二字，即可下载。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered byEXcel vba 运行时总是提示：运行时错误‘13’，类型不匹配_百度知道
EXcel vba 运行时总是提示：运行时错误‘13’，类型不匹配
显示错误代码如下If .Range(&C3:C& & i) = str Then请高手指点，如何改
提问者采纳
I的值必须大于等于3.不能小于3.否则肯定访问失败。另外你的.Range(&C3:C& & i)写法还是写清楚If Trim(ActiveSheet.Range(&C3:C& & I).Value) = Str Then
调试过，还是不对呢。这是看见书上写的，现在在学习。请帮忙看看！谢谢With Sheets(&记账凭证汇总表&)
b = .Range(&B& & Rows.Count).End(xlUp).Row + 1
'记录B列的行数即工作表的总行数，然后向上查找第一个非空单元格所在的行数，再加&1&
For i = 3 To b
If .Range(&C3:C& & i) = str Then
MsgBox (&凭证号重复&)
报啥错误？哪一句代码报错的？
就是 If .Range(&C3:C& & i) = str Then这句报错了，改了之后还是继续报错
你修改成If Trim(.Range(&C3:C& & I).Value) = Str Then还报？报啥错误？错误内容发发看看
继续报一样的错误的啊 ，也是运行时错误13什么的但是我之前做完并没有出现这个问题，后来莫名奇妙就这样了。而且书上配套做好的系统也出现一样的问题呢
Range是一个范围。当范围是一个单元格的时候，没有问题可以直接将值进行比较运算。但是当是多个单元格的时候，就无法读取具体的值。Range（C3：C3）一个单元格可以过去。但是Range（C3：C4），这是2个单元格的访问。返回对象是多个单元格。不是一个。不能直接作为一个单元格内容直接进行比较运算。格式不同就应报类型不正。你试验用Cell来取得单元格内容再度进行合并再比较就可以了。
提问者评价
Set Itm =ListView1 .ListItems.Add() 改成这样试试 如果这句对了，那么Itm.Text = .Cells(i, 1)这句也没问题了。 实在不行就改成这样：
ListView1.ListItems.Clear
For i = 2 To r2
Set Itm = ListView1.ListItems.Add()
With Sheet2
Itm.Text = .Cells(i, 1)
其他类似问题
为您推荐：
类型不匹配的相关知识
其他1条回答
你有定义 i 的类型吗?就是 Dim i as integer, 如果没有,你确定 i
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用友软件登录时提示运行错误13,类型不匹配_百度知道
用友软件登录时提示运行错误13,类型不匹配
提问者采纳
一般是实际操作时出现此错误提示，例如：问题原因应该是，月末处理时，因为是全月平均，会弹出成本计算表，用户在该窗口中点击“取消”，然后手工修改了月末处理标志，造成明细帐中的出库记录的出库成本全部为NULL值。先执行下面的脚本，再执行恢复期末处理红色部分为不能恢复期末处理仓库编码，自己手工调整该条件即可。updateia_subsidiary set ioutcost=0 , iaoutprice=0 where iMonth=6 and cWhCode='03' and bMoneyflag=0 and brdflag=0
提问者评价
来自：求助得到的回答
其他类似问题
为您推荐：
其他1条回答
重做系统，再安装数据库再安装用友，最后再恢复数据，试一下
用友软件的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用友T+主要应用于中小商贸企业、工业企业与工贸企业财务业务一体化管理
产品分类：
软件名称：
您现在所在位置： > > 学习资料
用友U8录入期初余额保存时提示“实时错误13，类型不匹配”
来源：.cn&作者：类型不匹配&发表时间: 17:14:27
850SP库存管理录入期初余额保存时提示“实时错误13，类型不匹配”，问题原因：改帐套是新增帐套，而录入期初的客户端已经打上了850SPHotfix补丁和kcglsql.exe补丁，因为该补丁要和库存管理的脚本补丁相结合才不会出错，所以同时要把库存管理的脚本补丁也打上。
解决方法：在查询分析器把库存管理的脚本补丁打上。
& & & & & & && & & & &
用友产品推荐
%77企业选择该软件
产品简介：
%65企业选择该软件
用友T6-中小企业管理软..
产品简介：}