ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 6521|回复: 9

[已解决] 关于inputbox中的取消按钮

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-8-5 01:27 | 显示全部楼层 |阅读模式
本帖最后由 feng16888 于 2012-8-5 14:19 编辑

在写的过程中,使用到inputbox这个东西,我的想法是点击上面的取消后,直接退出程序,而不是msgbox中返回数值的那些,inputbox好像没有返回数值,暂时没有查找到相关资料,如果谁有的话,给个链接,或者提供好的方法,不甚感激。谢谢大家

TA的精华主题

TA的得分主题

发表于 2012-8-5 01:43 | 显示全部楼层
  inputbox 方法:就是前面加了application.inputbox,使用 InputBox 可以显示一个简单的对话框,以便输入宏所需要的的信息。此对话框有一个“确定”按钮和一个“取消”按钮。如果选取了“确定”按钮,则 InputBox 将返回对话框中输入的值。如果单击“取消”按钮,则 InputBox 的值为 False。

inputbox函数:前面不加application.如果用户单击 OK 或按下ENTER ,则 InputBox 函数返回文本框中的内容。如果用户单击 Cancel,则此函数返回一个长度为零的字符串 ("")。

一个是方法,一个是函数,是两个不同的东东。

TA的精华主题

TA的得分主题

发表于 2012-8-5 07:57 | 显示全部楼层
自己写个  inputbox   ,再测试一下点确定,取消、上面的叉,看看分别返回什么值就行了。

TA的精华主题

TA的得分主题

发表于 2012-8-5 08:49 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-8-5 08:53 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-8-5 11:42 | 显示全部楼层
wyqzm 发表于 2012-8-5 08:53
点击取消是返回一个长度为0的字符串

谢谢,感谢分享

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-8-5 11:43 | 显示全部楼层
xsy我可以很好 发表于 2012-8-5 08:49
建一个仿inputbox样子的窗体更简单

谢谢,感谢分享,我试试看

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-8-5 11:50 | 显示全部楼层
maditate 发表于 2012-8-5 07:57
自己写个  inputbox   ,再测试一下点确定,取消、上面的叉,看看分别返回什么值就行了。

谢谢,感谢分享,我再测试看看

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-8-5 11:51 | 显示全部楼层
杨小军 发表于 2012-8-5 01:43
inputbox 方法:就是前面加了application.inputbox,使用 InputBox 可以显示一个简单的对话框,以便输入宏 ...

感谢分享,说的很明白。我再试试看

TA的精华主题

TA的得分主题

发表于 2014-6-12 17:51 | 显示全部楼层
feng16888 发表于 2012-8-5 11:51
感谢分享,说的很明白。我再试试看

定义MyValue为String字符串可避免点取消按扭弹出错误的提示框
试试下段代码

Sub 纠错证明()
    Dim Msg$, bt$, Default$, aa
    Dim MyValue As String     '定义MyValue为String字符串可避免点取消按扭弹出错误的提示框
    Msg = "请按下面第1和第2的二种纠错原因" & Chr(13) & Chr(13) & "在文本框内选择保留一种,清除一种不留空格:" & Chr(13) & Chr(13) & "1、逾期托收" & Chr(13) & Chr(13) & "2、背书人填错或印章模糊(其他错误证明)"  '文本说明
    bt = "银行承兑汇票纠错证明"               '标题项
    Default = "延期托收证明  其他错误证明"     '文本框显示内容
    MyValue = InputBox(Msg, bt, Default)      '文本框关健词(由Msg文本说明,bt标题,Default文本框显示内容三项组合后形成)
    If StrPtr(MyValue) <> 0 Then
        If MyValue = "其他错误证明" Or MyValue = "延期托收证明" Then
            MsgBox "你选取了" & MyValue
        Else
            MsgBox "你选取了“" & MyValue & "”,不能同时选取多种错误类型,请清除其中一种!"
            Exit Sub
        End If
    Else
        Exit Sub
    End If
End Sub

评分

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

查看全部评分

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

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,高效办公专列,每天发车

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

GMT+8, 2019-8-26 15:40 , Processed in 0.092216 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

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

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

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