excelvba编程代码⼤全_值得收藏的VBA编程常⽤代码
分享成果，随喜真能量。⼤家好，今天继续和⼤家分享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 nu
mber 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。注意此时的代开对话框并不是真的打开这个⽂件。
看板：
下⾯是我根据我⾃⼰20多年的VBA实际利⽤经验，编写的⼏部经验教程，全是满满的"⼲货"，欢迎有需要的朋友联络
vba编程免费教程(WeChat:NZ9668)，分享。
1 《VBA代码解决⽅案》是VBA中各个知识点的讲解，覆盖了绝⼤多数的知识点。
2 《VBA数据库解决⽅案》是数据处理的利器；
3 《VBA数组与字典解决⽅案》中讲解VBA的精华----字典。
4 ⾯向初学及中级以下学员的视频《VBA代码解决⽅案》正在录制。看视频，"每天20分钟，半年精进VBA"活动正在⽕热进⾏中，越早报
名，回馈越多。现在第⼀册48讲内容已经录制完成，第⼀阶段的优惠活动即将结束。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。