VBA—EXCEL操作集合—06

大家好，今天我们来认识一些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