值得收藏的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。注意此时的代开对话框并不是真的打开这个文件。

看板:

(0)

相关推荐

  • 怎么设置按住一个键另一个键也按着

    用多线程 这里为了让大家知道多线程在按键精灵中的用法把一个键设置,我写了个简单的小例子 BeginThread ms1 BeginThread ms2 Sub ms1 MsgBox "线程1 ...

  • 值得收藏!lookup函数常用套路合集

    昨天写了一篇vlookup函数各种用法合集的文章,有个小伙伴给打赏了.很感谢这位小伙伴,因为这是对我的一种认可,感觉自己写的东西对你们是有价值的.也感谢其他帮忙点赞转发的小伙伴,我会尽力发一些对大家有 ...

  • 堪舆砂法要诀值得收藏,八种常用砂详解,及人盘消砂方法

    堪舆中的砂是指穴地四周的山峰.丘垅等,来龙左右起伏,错落而下的砂山,不仅能护卫穴场,还能藏风聚气.所以砂峰是龙穴不可缺少的要素. 夫地理之道龙固为主砂,实为从砂若不收,则孤立无辅不成局也.况凶砂高峙, ...

  • 最全CNC数控编程常用代码

    UG编程 186篇原创内容 公众号 数控程序中的字母含义 O:程序号,设定程序号 N:程序段号,设定程序顺序号 G:准备功能 X/Y/Z :尺寸字符,轴移动指令 A/B/C/U/V/W:附加轴移动指令 ...

  • 值得收藏的盆景养护常用技法

    值得收藏的盆景养护常用技法 荐文|盆艺 本文由"盆艺"整理推荐,版权归原创作者所有 盆景由于在有限的盆土中生长,根部无法像自然树自由地伸展,且无自然界的水源供给水分,并在创作过程中 ...

  • 【值得收藏】PLC中常用数制及各进制的转换方法

    数制也称计数制,是用一组固定的符号和统一的规则来表示数值的方法. 任何一个数制都包含两个基本要素:基数和位权. 基数:数制所使用数码的个数. 例如,二进制的基数为2:十进制的基数为10. 位权: 数制 ...

  • 1560个常用汉字的草书字体,这是会动的字帖,非常值得收藏备用

    1560个常用汉字的草书字体,这是会动的字帖,非常值得收藏备用

  • Excel VBA编程中有哪些常用的英文词汇儿

    --HI,大家好,我是星光,总有朋友问学习VBA和英语好坏有关系吗? 这问题让俺怎么回答呢,说没关系也有关系,说有关系其实也没多大关系-- VBA只是一个非常初级的编程语言,甚至在很多人眼里算不上编程 ...

  • 99个常用俗语,有解释,有例句,值得收藏

    反映人民生活经验.智慧和愿望. 恰当地运用俗语,可以点缀话语.活跃气氛, 甚至可以指点迷津.令人警醒. 99个常用俗语, 仔细读来真是一点也不俗呢! 1.鞍不离马背,甲不离将身. 马不卸鞍,人不解甲, ...

  • 七种中成药常用于脑梗塞后遗症调理,值得收藏备用

    龟龙中风丸---具有滋补肝肾,熄风活血化痰的功效. 主要成份由熟地黄.白芍.当归.川芎.牛膝.龙骨.龟甲.丹参.桃仁.赤芍.地龙.石菖蒲.天竺黄.木瓜.伸筋草.薏苡仁.桑枝.丝瓜络.全蝎.杜仲炭20味 ...