ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

    高级搜索
数据收集和协作,只需一张超级表格 魔方网表,Excel终结者,永久免费 Excel服务器学习和下载-做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 诚征Excel高手,共掘企业管理商机 Excel追价宝-用Excel追踪心仪商品价格 免费下载Excel行业应用视频
300集 易学宝-Office 2010微视频教程 免费阅读《Excel函数其实很简单》 Excel函数实战技巧精粹 - 招生进行中 Excel透视表实战秘技 - 免费公开课
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 535|回复: 4

[求助] 判断如果满足某各条件输出提示“XXX”

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-10-20 20:08 | 显示全部楼层 |阅读模式
本帖最后由 henry3w4t 于 2012-10-20 20:25 编辑

判断如果满足某各条件输出提示“XXX”
VBA代码怎么写?
双按钮确定=继续     取消=结束       提示“XXX”标红色

Sub aaa()
IF a=b
跳出提示框按钮    确定=继续执行下一条       取消=跳转到End Sub
Else
。。。。。
End If

End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-10-20 20:26 | 显示全部楼层
求解答,求大侠帮忙啊!

TA的精华主题

TA的得分主题

发表于 2012-10-20 20:31 | 显示全部楼层
Sub aaa()
  a = b
If a = b Then
rr = MsgBox("确定=继续执行下一条,取消=跳转到", vbOKCancel + 16)
If rr = vbCancel Then End Sub
Else
'?????
End If

End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-10-20 21:07 | 显示全部楼层
maditate 发表于 2012-10-20 20:31
Sub aaa()
  a = b
If a = b Then

语法错误。。。

TA的精华主题

TA的得分主题

发表于 2012-10-20 21:11 | 显示全部楼层
Sub aaa()
  a = b
If a = b Then
rr = MsgBox("确定=继续执行下一条,取消=跳转到", vbOKCancel + 16)
If rr = vbCancel Then Exit Sub
Else
'?????
End If

End Sub

评分

参与人数 1鲜花 +1 收起 理由
henry3w4t + 1 感谢帮助

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册 新浪微博登陆

本版积分规则

手机版|Archiver|关于我们|联系我们|ExcelHome ( 沪ICP备11019229号 )  
本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!
本站特聘法律顾问:徐怀玉律师 李志群律师

GMT+8, 2015-5-24 23:00 , Processed in 0.231013 second(s), 18 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2017 Wooffice Inc.

征信       

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