宏代码 – 印象派

指定时间运行指定宏

2011-09-262015-04-14 • 宏代码 • 6 条评论 • Aar0n •5,363 次查阅

本文又是一篇折腾文。纯属乱写代码。构思就是代码运行后倒计时执行关闭操作。上代码： Sub AfterTimetoRun() MsgBox "从现在开始,10秒后执行关闭Excel程序" Application.OnTime Now + TimeValu

获取指定间隔数的日期

2011-09-212011-09-21 • 宏代码 • 5 条评论 • Aar0n •5,477 次查阅

发现近阶段特喜欢写宏。早几天写了两篇关于时间间隔的博文，分享了几个间隔宏代码。今天在看书的时候，又萌发了一个主意。指定一个时间，快速往前或往后推算指定的日期？凭着我那三脚猫的VBA基础，凑了个宏，基本能实现输出，满足需要。上代码： Sub 获取指定时间日期() ‘ 获取指定时间日期 Macro ‘ 宏由 Kael.Z 录制，时间:&nbs

获取指定时间的间隔-补充

2011-09-192015-07-16 • 宏代码 • 9 条评论 • Aar0n •9,316 次查阅

昨天晚上写了个利用DATEDIFF函数计算间隔天数的宏。今天发现有一点太不方便了，为了一时的计算方便，将指定日期直接固化在宏代码上了，这样一想要想重新计算别的日期还得改代码。不方便！本想写点日记的，没思路。那就继续写点补充代码吧。这次补充完全实现个性化定义。上2个代码。 Sub 获取指定时间间隔1() ' 获取指定时间间隔 Macro ' 宏由 Kael.

获取指定时间的间隔

2011-09-182011-09-18 • 宏代码 • 3 条评论 • Aar0n •5,322 次查阅

在很早的时间写过关于今天是今年的第几天一篇文章。利用的是函数公式=TEXT(TODAY()-DATE(YEAR(NOW()),MONTH(1),DAY(1))+1,"0") 今天在看VBA，看到一个函数DATEDIFF，就是计算两个时间的差的。比如今天与2011-1-1差距多少天。所以就顺手了写了个宏。上代码： Sub 获取指定时间间隔() ‘ 获取指定时间间隔 Macro

借助宏实现截图功能

2011-09-032011-09-03 • 宏代码 • 3 条评论 • Aar0n •4,690 次查阅

由于给笔记本重装系统，出现这样那样的问题，好几天没更新博客了，最近工作事情还是比较多。呼呼~ 写写也没有什么思路。但在书上看到一则宏代码比较实用。截图代码！不需要借助其他软件，只要选择好需要截图的区域，运行代码即可截图，还可以选择格式。不敢独享特分享给大家吧！上代码： Sub 将选区转为图片存到桌面() Dim ans As Byte, Pic As St

数值与文本格式快速切换

2011-08-052011-08-13 • 宏代码 • 3 条评论 • Aar0n •5,553 次查阅

平时在输入数据时,有些数值格式要转为文本，有些文本需要转换成数值用来统计下。今天分享个数值与文本的互相转换的宏。代码如下： Sub 文本与数值转换() Dim ans As VbMsgBoxResult ‘让用户选择转换方式 &nbs

输入重复值时提示

2011-08-022011-08-13 • 宏代码 • 8 条评论 • Aar0n •6,820 次查阅

平时在输入大量数据时，在同一列中自上往下输入，一不注意可能会输入重复项。有没方案能提示输入重复呢？有2种方案：一个是函数countif在数据有效性中定义，另一个是VBA宏代码。先来写写函数方法：比如我们是在B列中输入数据的那范围就是B1~B65536，在数据有效性中使用自定义，在公式中输入：=COUNTIF($B$1:$B$65536,B1)=1,随之向下填充，当输入重复值会提示，并清空当前输入值。 VBA代码： Private Sub Workbook

登录