一个“优雅”的Excel进度条实现方法

声明:此篇中的代码是引用,出处:Progress bar in VBA Excel--stackoverflow

有时候我们在用vba处理excel中的大量计算时,由于程序在后台运行时间比较长,这期间没有任何反馈也无法和Excel交互,用户常常不知道Excel是否还“活着”,这时我们就想给用户显示一个进度条。虽然不管有没有进度条,程序运行的时间不会有变化,但至少能减少用户的焦虑。进度条实现的方式有很多种,网上搜索就可以找到一大把,通常见到的实现方法是使用窗体控件,用图片来模拟进度条。今天想和大家分享的是一个我认为非常优雅别致的方法,一图胜千言,先来看张图:

- 阅读剩余部分 -

VBA获取文件的创建、访问和最后修改时间

在论坛上帮人解决一个问题时,需要在Excel中使用vba提取指定文件的最后修改时间,参考文档写了一个函数,增加了“创建时间”、“最后访问时间”,记录在此备查:

Function FileInfo(fileDir)
    Dim ofile, myfile, info
    Set ofile = CreateObject("Scripting.FileSystemObject")
    Set myfile = ofile.GetFile(fileDir)
    info = "创建时间:" & myfile.DateCreated & vbCrLf
    info = info & "最后访问:" & myfile.DateLastAccessed & vbCrLf
    info = info & "最后修改:" & myfile.DateLastModified
    FileInfo = info
End Function

详解 WEBSERVICE 与 FILTERXML 函数提取 XML 数据

Office 2013版中,微软为Excel 增加了50个函数,不过由于大部分函数功能过于冷门,很少见到关于这些新增函数的讨论和用例。不过其中有两个函数还是比较引人注意的,就是WEBSERVICE和FILTERXML。近年来随着云计算、云应用的兴起,需要与web服务进行数据交互的情境也越来越多,微软也与时俱进地为Excel增加了相应的功能。那么这两个函数是做什么用的呢?

- 阅读剩余部分 -

Parker 51 真空墨囊维修笔记

昨天一支Parker 51突然吸不进墨了,拆开一瞧,发现墨囊居然裂开了。这支笔大约3年前才刚刚更换过新的墨囊,难道是配件质量太差的原因?要知道这支51虽是我的日常用笔之一,但从学校毕业后平时书写量很少,工作文档几乎都用电脑完成,况且还有几支笔分担日常书写,不应该这么快耗损掉。用手一摸破掉的墨囊,发现橡胶已经发粘,才想到或许是蓝黑墨水惹的祸,蓝黑墨水有比较强的酸性,而墨囊所用的橡胶不耐酸性腐蚀。看来以后使用蓝黑墨水要更加小心了。幸好手里还有备用的墨囊,今天赶紧找出来更换。想到当初自己刚刚尝试维修Parker 51的真空墨囊时,由于能找到的资料很少,又不懂注意事项,还拆毁过多支。所以特别整理一下手头的资料,结合自己的一点经验,写下来给别人做个参考。

- 阅读剩余部分 -