《VBA之Excel应用》(版权10178983)是非常经典的,是我推出的第七套教程,定位于初级,目前是第一版修订。这套教程从简单的录制宏开始讲解,一直到窗体的搭建,内容丰富,实例众多。大家可以非常容易的掌握相关的知识,这套教程共三册,十七章,都是我们在利用EXCEL工作过程中需要掌握的知识点,希望大家能掌握利用。今日讲解的内容是:VBA之Excel应用第二章第三节:InputBox函数对话框
【分享成果,随喜正能量】时间是刹那刹那的过,刹那刹那的催人老。勿待老来方学道,孤坟多是少年人。用功的人要善于调和身心,务使心平气和,无挂无碍,
无我无人,行住坐卧,妙合玄机。。
第二章 MsgBox与InputBox对话框的应用
大家好,我们今日开始第二章的学习,在第一章中我们初步认识了VBA代码,知道了VBA代码写在哪里,如何运行VBA代码,以及如何录制宏,如何保护我们的代码,这些都是最基本的知识,我们要好好掌握。这章的内容我们要讲解一个对话框的应用,就是MsgBox。这个对话框是非常重要的,可以说在VBA代码应用中随处可见。我们要理解这个对话框的应用,并应用到我们自己的代码中。
第三节 InputBox函数对话框
大家好,我们继续VBA的学习,在前两节我们讲解了MsgBox的相关知识,我们这讲讲解另外一个对话框InputBox函数。Excel VBA中的InputBox函数提示用户输入某些值。
1函数
1)语法 InputBox(prompt, [ title ], [ default ], [ xpos ], [ ypos ], [ helpfile, context ])
参数:
① prompt 必需项。字符串表达式在对话框中显示为消息。
② title 可选。对话框标题栏中显示的字符串表达式。如果省略
③ default可选。文本框中显示的字符串表达式,在未提供其他输入时作为默认响应。如果省略了 default,文本框将显示为空。
④ xpos可选。指定对话框的左边缘与屏幕的左边缘的水平距离(以缇为单位)的数值表达式。 如果省略了 xpos,对话框将水平居中。
⑤ ypos可选。指定对话框的上边缘与屏幕的顶部的垂直距离(以缇为单位)的数值表达式。 如果省略了 ypos,对话框将位于屏幕垂直方向往下大约三分之一的位置。
⑥ helpfile可选。用于标识帮助文件的字符串表达式,前者用于为对话框提供上下文相关的帮助。如果提供 helpfile,则也必须提供 context。
⑦ contex 可选。帮助上下文数值的数值表达式,该数值由帮助作者为相应的帮助主题分配。如果提供
2 利用InputBox函数输入信息
我们看看如何利用这个函数输入些信息。下面先看代码:
Sub mynzD()
请输入些任意的符号或数字!")
Range("A1").Value = myValue
End Sub
代码截图:
代码讲解:
1)myValue = InputBox("请输入些任意的符号或数字!") 我们利用一个变量myValue来存储我们将要录入的信息。
InputBox("请输入些任意的符号或数字!") 这个函数将弹出一个对话框,这个对话框将提示用户"请输入些任意的符号或数字!"。
2)Range("A1").Value = myValue 将刚录入的信息放到工作表的"A1"单元格中。
我们看下面的代码运行结果:
点击确定:
3函数参数选择示例
如我们在语法中的讲解,InputBox函数有很多可选参数。下面的代码行显示了一个输入框,其标题显示在标题栏中,并具有默认值。如果没有提供其他输入,将使用默认值。
我们修正一下代码:
Sub mynzE()
请输入些任意的符号或数字!", "提示", 1)
Range("A1").Value = myValue
End Sub
代码截图:
我们看代码的运行:
今日内容回向:
1)InputBox函数的语法了解吗?
2)InputBox函数在应用时是否有返回值?
3) 如何将录入的信息回填到工作表中?
本讲内容参考程序文件:工作簿02.xlsm
我20多年的VBA成果全在下面的资料中: