Microsoft技术社区联盟成员,全球领先的Excel2003/2007/2010门户,Office培训学习的最佳社区
设为首页收藏本站|繁體中文 切换到窄版

Excel Home论坛

 找回密码
 免费注册

用新浪微博连接

一步搞定

QQ登录

只需一步,快速开始

魔方网表,Excel终结者,永久免费 Excel服务器2010软件和教程下载 培训课券免费大放送啦!
Excel不给力? 何不试试FoxTable! 2012年Excel免费培训班2-6月开课计划 新人必读:ExcelHome最佳学习方法 免费下载Excel行业应用视频教程
精粹:成为Excel高手的捷径 免费下载39集新Excel精粹视频教程 免费学习Excel数据透视表视频教程 入门必看《循序渐进学Excel》视频
超过100个Excel工具 免费学习Excel 2007精粹视频教程 新Office外观-不可思议 搞不定老板要的报表?我们来帮您
楼主: northwolves - 

INPUTBOX 延迟输入

查看: 3295|回复: 18| 收藏 :0
  • 2166财富
  • 0鲜花
  • 16技术
    • 等级 5EH铁杆
    积分排行
    452
    帖子
    1113
    精华
    0
    分享
    0
    发表于 2006-8-31 10:34:21 |显示全部楼层
    QUOTE:
    以下是引用dhy125512在2006-8-31 10:01:52的发言:

    请问贵宾和版主

    如何让InputBox中默认选项不处于选择状态

     Dim InputA As String
        InputA = InputBox("" & Chr(13) _
         & "   请输入【年级】" & Chr(13) & "    高一、高二、高三" & Chr(13) _
          & "提示:", Default:="高")

    我想让"高"在运行时不处于选择状态,即我不需按方向右键,直接输入或一或二或三,先表示感谢了.

    可以这样改,让默认的值为空。先向它发送“高”。

    Dim InputA As String
          Application.SendKeys "高",True

        InputA = InputBox("" & Chr(13) _
         & "   请输入【年级】" & Chr(13) & "    高一、高二、高三" & Chr(13) _
          & "提示:", Default:="")

    End Sub

  • 2166财富
  • 0鲜花
  • 16技术
    • 等级 5EH铁杆
    积分排行
    452
    帖子
    1113
    精华
    0
    分享
    0
    发表于 2006-8-31 10:45:47 |显示全部楼层

    刚刚发现,发放汉字会出现错误!

    改为:

    Dim InputA As String
          Application.SendKeys "{RIGHT}",True

        InputA = InputBox("" & Chr(13) _
         & "   请输入【年级】" & Chr(13) & "    高一、高二、高三" & Chr(13) _
          & "提示:", Default:="高")

    [此贴子已经被northwolves于2006-8-31 23:25:20编辑过]

  • 54财富
  • 0鲜花
  • 0技术
    • 等级 2EH初级
    积分排行
    3000+
    帖子
    13
    精华
    0
    分享
    0
    发表于 2006-8-31 11:51:56 |显示全部楼层

    谢谢prince老兄,你太高了。我想通过InputBox函数向工作表连续输入数据,每次都要按方向右键,再输入数据,所以你的方法太好了。再次感谢。

     

    [此贴子已经被作者于2006-8-31 12:06:01编辑过]

  • 29752财富
  • 78鲜花
  • 63技术
  • 积分排行
    17
    帖子
    12351
    精华
    1
    分享
    0
    发表于 2006-8-31 23:26:26 |显示全部楼层
    QUOTE:
    以下是引用prince在2006-8-31 10:45:47的发言:

    刚刚发现,发放汉字会出现错误!

    改为:

    Dim InputA As String
          Application.SendKeys "{RIGHT}",True

        InputA = InputBox("" & Chr(13) _
         & "   请输入【年级】" & Chr(13) & "    高一、高二、高三" & Chr(13) _
          & "提示:", Default:="高")


    Prince兄高见。这种方法能否实现延迟输入?

  • 2166财富
  • 0鲜花
  • 16技术
    • 等级 5EH铁杆
    积分排行
    452
    帖子
    1113
    精华
    0
    分享
    0
    发表于 2006-9-1 01:45:32 |显示全部楼层
    QUOTE:
    以下是引用northwolves在2006-8-31 23:26:26的发言:

    Prince兄高见。这种方法能否实现延迟输入?

    我认为stanleypan的提供的方法是恰当合适的。
  • 7065财富
  • 0鲜花
  • 0技术
    • 等级 6EH能手
    积分排行
    265
    帖子
    3070
    精华
    0
    分享
    0
    发表于 2007-6-29 21:42:53 |显示全部楼层
    谢谢分享,就是看不太懂!
  • 6490财富
  • 7鲜花
  • 0技术
    • 等级 5EH铁杆
    积分排行
    355
    帖子
    2122
    精华
    0
    分享
    0
    发表于 2011-2-16 09:34:55 |显示全部楼层
    很好的学习资料,收藏学习。

    发表回复

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

    发帖时请遵守我国法律,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任。
    回顶部