大家好,今天我们来认识一些VBA的基础函数。
InputBox函数
InputBox函数显示一个信息提示用户输入数据,这个对话框有两个按钮——“确定”和“取消”,当你点击确定时,InputBox函数返回用户输入在信息框里的信息;当你点击取消时,函数则返回空字符串(” ”)。InputBox函数的语法显示如下:
InputBox(prompt [, title] [, default] [, xpos] [, ypos] _ [, helpfile, context])
第一个参数,prompt,是你想要显示在对话框上的信息,你可以使用函数Chr(13)或Chr(10)将长文本打断为几行(参见本章中使用MsgBox函数的例子)。剩下所有的参数都是可选的。
第二个参数,title,让你改变对话框的默认标题,默认的标题是Mictosoft Excel。InputBox函数的第三个参数,default,让你在文本框里显示一个默认值,如果你忽略这个参数的话,显示的将是空白编辑框。
接下来的两个参数,xpos和ypos,允许你设置该对话框在屏幕上出现的位置,如果你忽略这两个参数,对话框就会出现了当前窗口的中央,xpos参数决定对话框在屏幕上从左起的水平位置,忽略它时,对话框显示在水平中央,而ypos参数决定对话框在屏幕从上而下的竖直位置,忽略它,对话框就在竖直大约三分之一的位置。xpos和ypos都使用一个叫twips的专门单位衡量,1twip大约等于0.0007英寸。最后两个参数,helpfile和context,和在本章前期讨论的MsgBox函数相应的参数使用方法一样。
Format函数
函数第一个参数为传入的日期,第二个参数为需要格式化的格式
代码示例:
Sub date_and_time()
'获取现在的日期
date_test = Now()
'返回 20/06/15
Range("A1") = Format(date_test, "yy/mm/dd")
'返回 2020/06/15
Range("A2") = Format(date_test, "yyyy/mm/dd")
'返回 2020/6/15 19:39:00
Range("A3") = Format(date_test, "mm/dd hh:mm")
'返回 19:41:53
Range("A6") = Format(date_test, "hh:nn:ss")
End Sub
Weekday函数
WeekDay()
函数返回一个从1
到7
的整数,表示指定日期的星期几。
语法
Weekday(date[,firstdayofweek])
Vb
参数
- date - 必需的参数。星期几将返回指定的日期。
- Firstdayofweek - 一个可选参数。指定一周中的第一天。它可以采取以下值。
- 0 = vbUseSystemDayOfWeek - 使用国家语言支持(NLS)API设置.
- 1 = vbSunday - 星期日
- 2 = vbMonday - 星期一
- 3 = vbTuesday - 星期二
- 4 = vbWednesday - 星期三
- 5 = vbThursday - 星期四
- 6 = vbFriday - 星期五
- 7 = vbSaturday - 星期六
WeekdayName函数
WeekDayName()
函数返回指定日期的工作日名称。
语法
WeekdayName(weekday[,abbreviate[,firstdayofweek]])
Vb
参数
- weekday - 必需的参数。 周日的数字值。
- Firstdayofweek - 一个可选参数。指定一周中的第一天。它可以采取以下值。
- 0 = vbUseSystemDayOfWeek - 使用国家语言支持(NLS)API设置.
- 1 = vbSunday - 星期日
- 2 = vbMonday - 星期一
- 3 = vbTuesday - 星期二
- 4 = vbWednesday - 星期三
- 5 = vbThursday - 星期四
- 6 = vbFriday - 星期五
- 7 = vbSaturday - 星期六
Year函数
Year()
函数返回一个表示指定日期的年份的整数。
语法
Year(date)
Private Sub Constant_demo_Click()
msgbox(Year("2018-06-30"))
End sub
执行上面示例代码,得到以下结果 -
2018
Month函数
Month()
函数返回1
到12
之间的数字,表示指定日期的月份。
语法
Month(date)
Private Sub Constant_demo_Click()
msgbox("当前的月份的值是:"&Month("2018-06-30"))
End Sub
执行上面示例代码,得到以下结果 -
Day函数
Day()
函数返回1
到31
之间的数字,表示指定日期的一天。
语法
Day(date)
Private Sub Constant_demo_Click()
msgbox(Day("2018-06-30"))
End Sub
执行上面示例代码,得到以下结果 -
30