INPUTBOX 延迟输入

prince

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

prince

刚刚发现，发放汉字会出现错误！

改为：

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

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

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

dhy125512

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

 

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

northwolves

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兄高见。这种方法能否实现延迟输入？

prince

QUOTE:

以下是引用northwolves在2006-8-31 23:26:26的发言：

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

我认为stanleypan的提供的方法是恰当合适的。

hhzjxss

谢谢分享，就是看不太懂！

guojianlin1985

很好的学习资料，收藏学习。