获取指定间隔数的日期

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

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

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

获取指定时间的间隔

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

借助宏实现截图功能

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

数值与文本格式快速切换

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

输入重复值时提示

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