值得收藏的VBA编程常用代码

VBA过程代码36：返回系统的当前日期

Sub MyNZ()

Dim MyDate, MyDay

MyDate = Date

MyDay = Day(MyDate)

MsgBox MyDay

END SUB

代码的解析说明：上述代码过程在执行过程中，将弹出一个对话框提示当前的日期。其中Date是当前的日期，含年月日，Day(MyDate)是从上述的当前日期中提出日期。最后用MsgBox弹出对话框显示这个日期。

VBA过程代码37：返回系统的当前年份

Sub MyNZ()

Dim MyDate, MyYear

MyDate = Date

MyYear = Year(MyDate)

MsgBox MyYear

END SUB

代码的解析说明：上述代码过程在执行过程中，将弹出一个对话框，提示当前的年。其中Date是当前的日期，含年月日，Year(MyDate)是从上述的当前日期中提出年。最后用MsgBox弹出对话框显示这个年。

VBA过程代码38：返回系统的当前月份

Sub MyNZ()

Dim MyDate, MyMonth

MyDate = Date

MyMonth = month(MyDate)

MsgBox MyMonth

END SUB

代码的解析说明：上述代码过程在执行过程中，将弹出一个对话框，提示当前的月。其中Date是当前的日期，含年月日，month(MyDate)是从上述的当前日期中提出月。最后用MsgBox弹出对话框显示这个月。

VBA过程代码39：inputbox<输入框>

Sub MyNZ()

XX=InputBox ('Enter number to add！')

END SUB

代码的解析说明：上述代码过程在执行过程中，将弹出一个输入对话框，提示输入的信息：'Enter number to add！' 最后用变量XX记录这个输入。

VBA过程代码40：得到一个文件名

Sub MyNZ()

Dim kk As String

kk = Application.GetOpenFilename('EXCEL (*.XLSM), *.XLSM', Title:='提示：请打开一个EXCEL文件：')

msgbox kk

END SUB

代码的解析说明：上述代码过程在执行过程中，将弹出一个打开的对话框，让用户选择某个文件，并用变量KK记录这个文件名,这个文件名是包含地址的FULLNAME。注意此时的代开对话框并不是真的打开这个文件。

看板：