VBA错误信息:类型不匹配（错误 13）
:类型不匹配（错误 13）当前 Visual Basic为了完成数据类型的赋值，能够对许多数值进行转换，而较早的版本则做不到。然而，此错误仍可能发生并且有 下列几种原因和解决方法：变量或属性类型错误。例如，一个整型值的变量不能赋给字符串值，除非整个字符串可识别成为整型。尽量在兼容的数据类型间赋值。例如，Integer可以被赋给Long，Single可以被赋给Double，而任何类型（除了用户类型）可以赋给Variant。将对象传给了需要单一属性或值的过程。传递正确的单一属性或调用给工程的方法。使用了表达式所要的模块或工程名称，例如：Debug.Print MyModule指定可以显示的表达式。将传统 Basic 错误处理例程与拥有Error子类型 (10,vbError) 的Variant值混合，例如：Error CVErr(n)识别一个错误，要将其映射到 Visual Basic 或用户错误，然后产生错误。CVErr值不能转换成Date。例如：MyVar = CDate(CVErr(9))使用Select Case语句或一些类似的结构映射返回的CVErr。在运行时，此错误通常说明在无效子类型的表达式中使用了Variant，或包含数组的Variant中出现了Print #语句。可用循环显示每个元素以打印数组，。详细信息，可选取有问题的项目，并按下 F1 （在Windows中）或HELP（在Macintosh中）键。
· 您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任
· 留言板管理人员有权保留或删除其管辖留言中的任意内容
· 本站提醒：不要进行人身攻击与无聊谩骂。谢谢配合。
最新PPT模板
最新PPT教程
最新PPT背景图片素材各位老师，单击单据录入表中的计算单价按钮，出现“运行时错误13，数据类型不匹配”的问题，不知怎么回事，请帮忙看一下，谢谢
23:19 上传
下载次数: 9
249.23 KB, 下载次数: 9
半生碌碌 一事无成
在线时间2251 小时经验1385 威望0 最后登录注册时间阅读权限50UID921906积分1385帖子精华0分享0
EH高级, 积分 1385, 距离下一级还需 615 积分
积分排行749帖子精华0微积分0
本帖最后由 yygpd500 于
23:57 编辑
是下方这句代码：
Sheets(&库存表&).Range(&a4:a& & Sheets(&库存表&).Range(&a65536&).End(3).Row).NumberFormatLocal = &@&
以及下方这句代码：
If arr1(i, 1) = crr1(j, 1)
有矛盾？“库存表”为文本，“单据录入”表为数值，类型不同，无法比较！
上述仅是猜测，不曾运行代码。若是上述错误，试着修改为：
If arr1(i, 1) = Val(crr1(j, 1))
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&第1.2行能够正常运行，从第3行开始就会出现上述提示。导出来的应该已经是日期格式了，第2、3例的类型是一样的，为什么都要双击单元格后才能正常。望高手能够以解燃眉之急。
(9.33 KB, 下载次数: 14)
16:21 上传
下载次数: 14
求助：运行时错误‘13’，类型不匹配
猜你喜欢看
在线时间32 小时经验15339 威望18 性别男最后登录注册时间阅读权限50UID54513积分16389帖子精华3分享0
积分排行20帖子精华3微积分0
选择B列，数据》分列，默认完成即可。你3行之后的数据属于文本型数据，不能计算的
在线时间25 小时经验32 威望0 性别男最后登录注册时间阅读权限20UID166632积分32帖子精华0分享0
EH初级, 积分 32, 距离下一级还需 318 积分
积分排行3000+帖子精华0微积分0
不能转换吗，有什么操作可以使这两单元格可以进行直接运算的
在线时间0 小时经验14074 威望19 性别女最后登录注册时间阅读权限50UID65202积分14624帖子精华3分享0
积分排行28帖子精华3微积分0
Private Sub CommandButton1_Click()&&& Dim i%, j%&&& Dim t, TemCol$&&& For i = 1 To 3&&&&&&& TemCol = Chr(65 + i)&&&&&&& Columns(TemCol).TextToColumns Destination:=Range(TemCol & "1"), DataType:=xlDelimited, _&&&&&&& TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _&&&&&&& Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& :=Array(1, 1), TrailingMinusNumbers:=True&&& Next&&& For j = 2 To 13&&&&&&& t = (Sheets("明细表").Cells(j, 1))&&&&&&& If t = "b" Then&&&&&&&&&&& Sheets("明细表").Cells(j, 5).Value = Sheets("明细表").Cells(j, 4).Value - Sheets("明细表").Cells(j, 2).Value&&&&&&& Else&&&&&&&&&&& If t = "a" Then&&&&&&&&&&&&&&& Sheets("明细表").Cells(j, 5).Value = Sheets("明细表").Cells(j, 3).Value - Sheets("明细表").Cells(j, 2).Value&&&&&&&&&&& End If&&&&&&& End If&&& NextEnd Sub
祝愿：哥哥弟弟更加潇洒，姐姐妹妹天天年轻!
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=4527.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间25 小时经验32 威望0 性别男最后登录注册时间阅读权限20UID166632积分32帖子精华0分享0
EH初级, 积分 32, 距离下一级还需 318 积分
积分排行3000+帖子精华0微积分0
&For i = 1 To 3&&&&&&& TemCol = Chr(65 + i)&&&&&&& Columns(TemCol).TextToColumns Destination:=Range(TemCol & "1"), DataType:=xlDelimited, _&&&&&&& TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _&&&&&&& Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& :=Array(1, 1), TrailingMinusNumbers:=True&&& Next请问上面这段语句是什么意思，能详解一下吗？
在线时间0 小时经验14074 威望19 性别女最后登录注册时间阅读权限50UID65202积分14624帖子精华3分享0
积分排行28帖子精华3微积分0
对B、C、D列做分列处理。
在线时间25 小时经验32 威望0 性别男最后登录注册时间阅读权限20UID166632积分32帖子精华0分享0
EH初级, 积分 32, 距离下一级还需 318 积分
积分排行3000+帖子精华0微积分0
谢谢，感激不尽！
积分≥4700即可申请
优秀会员奖章No.1
优秀会员奖章No.2
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&excel vba 提示：类型不匹配，该如何改？
excel vba 提示：类型不匹配，该如何改？
这个是录入代码。
这个是我要运行的窗口。
你表格A3里的值是 0001，“看上去”象个文本，实际就是数字 1（可以通过右键设置单元格格式，自定义0000实现），因此，当r_row不为2时，strygh赋值为1，而1是没法做Right(1,4)的，总共才1位数。修改为：strygh = "Y" & format(strygh + 1, "0000")
你好，我按你说的把代码改了，确实也能运行，但是他是直接从41行显示，而且我增加员工输入员工号2，3 都没有用，直接全部显示Y0001,请问这是怎么回事呢？
你的设计我不清楚。用这句r_row =Activesheet.Range("A65000").end(xlup).row替代你Usedrange那句。且继续用strygh = "Y" & format(right(strygh,4) + 1, "0000")但自己手动把A3的0001改为Y0001试试吧，我得下班了。
谢谢你& ：）
我弄好了 ~~
提问者 的感言：非常感谢！
等待您来回答
微软专区领域专家文件中运行录入功能的时候，总是提示类型不匹配。向高手求教！谢谢！
16:21 上传
下载次数: 13
47.33 KB, 下载次数: 13
在线时间6032 小时经验12873 威望8 性别男最后登录注册时间阅读权限95UID379554积分13323帖子精华0分享0
积分排行41帖子精华0微积分0
上个E附件来啊.& && && && &
在线时间75 小时经验47 威望0 性别男最后登录注册时间阅读权限20UID1915705积分47帖子精华0分享0
EH初级, 积分 47, 距离下一级还需 303 积分
积分排行3000+帖子精华0微积分0
不好意思，我不明白您的意思？
在线时间75 小时经验47 威望0 性别男最后登录注册时间阅读权限20UID1915705积分47帖子精华0分享0
EH初级, 积分 47, 距离下一级还需 303 积分
积分排行3000+帖子精华0微积分0
李兴德 发表于
上个E附件来啊.
不好意思，我不太明白您的意思
在线时间6032 小时经验12873 威望8 性别男最后登录注册时间阅读权限95UID379554积分13323帖子精华0分享0
积分排行41帖子精华0微积分0
谈尚炯 发表于
不好意思，我不明白您的意思？
附件里要有数据的.还有,是如何提示的? 最好有截图什么的.这样才利于问题的解决.
在线时间75 小时经验47 威望0 性别男最后登录注册时间阅读权限20UID1915705积分47帖子精华0分享0
EH初级, 积分 47, 距离下一级还需 303 积分
积分排行3000+帖子精华0微积分0
李兴德 发表于
附件里要有数据的.还有,是如何提示的? 最好有截图什么的.这样才利于问题的解决.
重新上传了文件，加了一行数据。
功能区中的加载项，里面有录入功能，是我编的代码，但是现在录入完了点确定添加的时候，出现了“类型不匹配的提示”，请问怎么解决？谢谢！
16:59 上传
下载次数: 2
50.65 KB, 下载次数: 2
积分≥4700即可申请
金牌优秀会员
金牌优秀会员奖章No.3
金牌优秀会员
金牌优秀会员奖章No.2
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.2
优秀会员奖章No.1
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&