发现近阶段特喜欢写宏。 早几天写了两篇关于时间间隔的博文，分享了几个间隔宏代码。 今天在看书的时候，又萌发了一个主意。 指定一个时间，快速往前或往后推算指定的日期？ 凭着我那三脚猫的VBA基础，凑了个宏，基本能实现输出，满足需要。 上代码： Sub 获取指定时间日期() ‘ 获取指定时间日期 Macro ‘ 宏由 Kael.Z 录制，时间:&nbs
年度归档： 2011 年
获取指定时间的间隔-补充
昨天晚上写了个利用DATEDIFF函数计算间隔天数的宏。 今天发现有一点太不方便了，为了一时的计算方便，将指定日期直接固化在宏代码上了，这样一想要想重新计算别的日期还得改代码。 不方便！ 本想写点日记的，没思路。那就继续写点补充代码吧。 这次补充完全实现个性化定义。 上2个代码。 Sub 获取指定时间间隔1() ' 获取指定时间间隔 Macro ' 宏由 Kael.
获取指定时间的间隔
在很早的时间写过关于今天是今年的第几天一篇文章。 利用的是函数公式=TEXT(TODAY()-DATE(YEAR(NOW()),MONTH(1),DAY(1))+1,"0") 今天在看VBA，看到一个函数DATEDIFF，就是计算两个时间的差的。 比如今天与2011-1-1差距多少天。 所以就顺手了写了个宏。 上代码： Sub 获取指定时间间隔() ‘ 获取指定时间间隔 Macro
记烂账一篇-0916
森海塞尔的耳机寄出已经好几天了。 6-2买来的，用了2个月，左侧耳麦出现不发声的现象。 9月12日将包装和耳麦寄回上海（淘宝商城）。 这几天事情多，也没取关注进程，今天下班后上旺旺问了下对方。 告知返修（返厂）需要1~3个月的时间，也就意味着可能要到12月份才有音讯，这是第一次淘宝购物返修。想不到返修时间要么长。 本来不想返修的，想想好几百的耳麦就这样扔掉有点浪费，凭着拼一把的态度将东西寄回上海。 现在已经有了AKG的耳麦（又买了一个），森海的耳麦就不急着用了，但是我会写下此篇记账，3个月若没有
VBA破解工作表密码
在日常工作中，难免忘记工作表的密码，眼巴巴的看着数据却不能改动。 前阶段分享过一个破解工作表密码的VBA，代码相当长。 今天分享个简短的代码。 原理是利用Excel的BUG破除密码。 新建模块并输入如下代码： Sub 清空密码() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True &nbs
普通打印机实现双面打印
普通的打印机打印报表往往只能单面打印。 为了节约纸张，有没办法实现双面打印呢？ 有~ VBA模块实现。 上代码： Sub 双面打印() On Error Resume Next If VBA.IsEmpty(ActiveSheet.UsedRange) Then MsgBox "当前工作表为空！
WIN7常用快捷键
WIN7用习惯了始终不喜欢再一板一眼去执行操作，总希望简便操作，分享几个常用快捷键吧。 来源：互联网。 窗口控制快速键 Win+Home：将所有使用中窗口以外的窗口最小化（和摇动使用中窗口一样意思） Win+Space：将所有桌面上的窗口透明化（和鼠标移到工作列的最右下角一样意思） Win+上方向键：最大化使用中窗口（和将窗口用鼠标拖到屏幕上缘一样意思） Shift+Win+上方向键：垂直最大化使用中窗口（但水平宽度不变） Win+下方向键：最小化窗口／还原先前最大化的