【VBA入门点滴】InputBox专题之一：InputBox 函数

hhzjxss · 发表于 2007-7-14 17:05

十五、自动输入部分内容                  让InputBox中默认选项不处于选择状态，如"高"字，可直接在后面输入或一或二或三,。              Sub 示例8_自动输入部分内容()                 Dim InputA As String                     Application.SendKeys "{RIGHT}", True '{RIGHT}打开不选择状态                    InputA = InputBox("" & Chr(13) _                      & "   请输入【年级】" & Chr(13) _                  & "    高一、高二、高三" & Chr(13) & Chr(13) _                      & "提示：", Default:="高")             End Sub

[此贴子已经被作者于2007-7-14 17:41:58编辑过]

hhzjxss · 发表于 2007-7-14 17:05

十六、自动关闭并延迟显示                    示例9: 延迟5秒钟后显示输入内容

ublic Declare Function SetTimer Lib "user32" ( _                   ByVal hWnd As Long, _                    ByVal nIDEvent As Long, _                    ByVal uElaspe As Long, _                 ByVal lpTimerFunc As Long) As Long

ublic Declare Function KillTimer Lib "user32" ( _                  ByVal hWnd As Long, _                    ByVal nIDEvent As Long) As Long                Dim TID As Long                 Const Sec = 5    ' seconds                             Sub 示例9_自动关闭并延迟显示()               Dim s                   TID = SetTimer(0, 0, Sec * 1000, AddressOf CloseTest)                   s = InputBox("

lease Enter a nubmer" & Chr(13) & Sec & "  Seconds Auto Close", "Information", 123)                  KillTimer 0, TID                    MsgBox s                End Sub                                Sub CloseTest(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idevent As Long, _                     ByVal Systime As Long)                        Application.SendKeys "~", True                         KillTimer 0, TID             End Sub

[此贴子已经被作者于2007-7-14 17:42:28编辑过]

hhzjxss · 发表于 2007-7-14 17:06

十七、设置输入格式                    Sub 示例10_设置输入内容格式()                   Dim da As Date      '定义变量是日期型          da = InputBox("结算日期： 注意输入格式，例如<chsdate wst="on" isrocdate="False" islunardate="False" day="1" year="2005">2005-2-1</chsdate>", "输入", Default)                   [d196] = da             End Sub         <chsdate wst="on" isrocdate="False" islunardate="False" day="18" year="2006">2006-5-18</chsdate>

[此贴子已经被作者于2007-7-14 17:43:13编辑过]

hhzjxss · 发表于 2007-7-14 17:06

十八、查找数据                       代码见模块，这里从略！                       搜索我发的那个《excel词典》！    十九、限制输入内容格式                  Sub 示例12_限制输入内容为英文()                     Dim a$                  a = InputBox("input a-iv")                 On Error Resume Next                Debug.Print Cells(1, a).Column                   Do While Err.Number > 0                 Err.Clear                     a = InputBox("input a-iv,pls input again!")                    Debug.Print Cells(1, a).Column                   <place wst="on">Loop</place>            End Sub

[此贴子已经被作者于2007-7-14 17:44:51编辑过]

hhzjxss · 发表于 2007-7-14 17:06

二十、限制输入数据范围                  Sub 示例13_限制输入数据范围()                   Dim Message, Title, Default                   Dim MyValue As Variant                   Message = "请输入数值<有效数值1-20>."    ' 设置提示信息。                     Title = "VBA"    ' 设置标题。                     Default = 6    ' 设置缺省值。                 ' 显示信息、标题及缺省值。                  MyValue = InputBox(Message, Title, Default)                    If MyValue = "" Then Exit Sub                     If MyValue > 20 Or MyValue < 1 Then                        MsgBox "警告！请注意输入范围。", vbCritical                         Exit Sub                    Else                     MsgBox MyValue                End If                End Sub

[此贴子已经被作者于2007-7-14 17:45:11编辑过]

hhzjxss · 发表于 2007-7-14 17:06

二十一、限制输入数据范围                    输入11，则选定A列中值为11的单元格，输入15,则选定A列中值为15的单元格。                 Sub 示例14_1_查找包含值的某单元格()         110         Dim a As Integer          <chmetcnv wst="on" tcsc="0" numbertype="1" negative="False" hasspace="True" sourcevalue="120" unitname="a">120         </chmetcnv>a = InputBox("请输入欲查找的数值：")          130         Range("a:a").Find(a).Activate           140     End Sub         150     输入234，则选定A234单元格，输入248,则选定A248单元格。           160     Sub 示例14_2_查找输入行号的A列单元格()           170         Dim a As Variant          <chmetcnv wst="on" tcsc="0" numbertype="1" negative="False" hasspace="True" sourcevalue="180" unitname="a">180         </chmetcnv>a = InputBox("请输入数值(235-248之间)：")      190         If a <> "" Then        200              Cells(a, 1).Select          210         Else       220            MsgBox "请输入数据，不能为空！", 0 + 48, "警告"           230         End If          240     End Sub

[此贴子已经被作者于2007-7-14 17:45:31编辑过]

hhzjxss · 发表于 2007-7-14 17:07

二十二、输入序号得到地址                    '通过 InputBox 返回如下地名信息，为减少用户输入时的麻烦，只让用户选择地名前的代码，即达到输入地名的目的。'              用split函数分开即可，请看：               Sub 示例15_输入序号得到地址()                     Dim Message, Title, Default, MyTest                    Message = "1:乌鲁木齐;    2:呼和浩特;    3:齐齐哈尔;    4:二连浩特"                     Title = "    请 输 入 代 码 ……"                       Default = "1"                  MyTest = InputBox(Message, Title, Default)                    MsgBox Replace(<city wst="on"><place wst="on">Split</place></city>(Message, ";")(MyTest - 1), " ", "")              "      [d262] = Replace(<city wst="on"><place wst="on">Split</place></city>(Message, "";"")(MyTest - 1), "" "", """")"                End Sub

[此贴子已经被作者于2007-7-14 17:45:54编辑过]

hhzjxss · 发表于 2007-7-14 17:07

二十三、输入数值累加                      Sub 示例16_输入数值累加()                On Error Resume Next                Dim x As Integer                    x = InputBox("请输入数值：", "填写")                   [D270] = [D270] + x                 End Sub

[此贴子已经被作者于2007-7-14 17:46:14编辑过]

hhzjxss · 发表于 2007-7-14 22:23

我晕，竟然没有感兴趣，算了，剩下的不发了！

hhzjxss · 发表于 2007-7-15 10:25

哎！[em03][em13]

		自动登录	找回密码
密码			注册

[习题] 【VBA入门点滴】InputBox专题之一：InputBox 函数

浏览过的版块