ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 8358|回复: 10

[求助] 【VBA】Msgbox可以显示文本内容,但无法显示单元格内容

[复制链接]

TA的精华主题

TA的得分主题

发表于 2013-5-3 09:55 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
各位高手,我有一个msgbox的问题无法解决,想要请教一下。

【代码(非全部)】:
    On Error GoTo b
    Workbooks.Open (wp & dep1 & "\" & wb)   

    Sheets(yer1).Range("A1").Select
    Selection.AutoFilter
        If typ1 = "ALL" Then
        On Error GoTo a
        Sheets(yer1).Range("a2").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy ThisWorkbook.Worksheets("approval search").Cells(17, 2)

        Else
        Worksheets(yer1).Cells(1, 1).AutoFilter Field:=2, Criteria1:=typ1
        On Error GoTo a
        Sheets(yer1).Range("a2").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy ThisWorkbook.Worksheets("approval search").Cells(17, 2)
        End If
    Exit Sub

a:  MsgBox ([V2].Value)
Exit Sub

b: MsgBox ([V3].Value)
End Sub


【问题】:on error goto a时,a: msgbox有窗口弹出,但显示内容为空白(※V2单元格内容:无法打开文件)。但on error goto b时,弹出窗口可以显示出所引用单元格V3的内容(※V3单元格内容:没有权限)
我试过将a:  MsgBox ([V2].Value)改写成a:  MsgBox ("无法打开文件"),修改后可以显示。但引用单元格时,无论是哪个单元格都无法显示。

请问有何解决方法?{:soso_e132:}

TA的精华主题

TA的得分主题

发表于 2013-5-3 10:06 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-5-3 10:14 | 显示全部楼层
wj2368 发表于 2013-5-3 10:06
MsgBox [V3].Value

谢谢闪电回复!
但是我刚才试了下,还是同样情况,和括号没有关系。

TA的精华主题

TA的得分主题

发表于 2013-5-3 10:16 | 显示全部楼层
seansailings 发表于 2013-5-3 10:14
谢谢闪电回复!
但是我刚才试了下,还是同样情况,和括号没有关系。

应该可以的,要不指定你要显示的工作表,如:Sheets(yer1).[v2]

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-5-3 10:40 | 显示全部楼层
wj2368 发表于 2013-5-3 10:16
应该可以的,要不指定你要显示的工作表,如:Sheets(yer1).[v2]

还是同样情况。

高手麻烦看下我问题中描述的情况,很奇怪b: MsgBox ([V3].Value)的内容就可以显示出来,但a就不行。。。

TA的精华主题

TA的得分主题

发表于 2013-5-3 10:59 | 显示全部楼层
seansailings 发表于 2013-5-3 10:40
还是同样情况。

高手麻烦看下我问题中描述的情况,很奇怪b: MsgBox ([V3].Value)的内容就可以显示出来 ...

你将文件上传,看看

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-5-3 13:24 | 显示全部楼层
wj2368 发表于 2013-5-3 10:59
你将文件上传,看看

只有a: msgbox有问题。
如果单纯引用文本(如:msgbox(“xxx”))没有问题,但引用单元格,无论哪个单元格都不行。


※其他msgbox没有问题。

Tool.zip

39.7 KB, 下载次数: 14

TA的精华主题

TA的得分主题

发表于 2013-5-3 19:05 | 显示全部楼层
seansailings 发表于 2013-5-3 13:24
只有a: msgbox有问题。
如果单纯引用文本(如:msgbox(“xxx”))没有问题,但引用单元格,无论哪个单元 ...

你这个附件不全

TA的精华主题

TA的得分主题

发表于 2013-5-3 19:09 | 显示全部楼层
seansailings 发表于 2013-5-3 13:24
只有a: msgbox有问题。
如果单纯引用文本(如:msgbox(“xxx”))没有问题,但引用单元格,无论哪个单元 ...

看了一下代码,你是错误处理跳转,只能一个,谁先就是跳到那个,你明白吗

TA的精华主题

TA的得分主题

 楼主| 发表于 2013-5-6 10:01 | 显示全部楼层
wj2368 发表于 2013-5-3 19:09
看了一下代码,你是错误处理跳转,只能一个,谁先就是跳到那个,你明白吗

明白,我想要达到的是这个效果。附件是被查询文件,麻烦一起参考下。

问题举例:在查询框中分别选择“IT”、“CK”、“2013”,点查询后跳出空白窗口。 但如果代码改成a:msgbox(“无法找到文件”),就可以显示。




Databk.zip

41.45 KB, 下载次数: 24

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-24 17:34 , Processed in 0.045553 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表