Exodus"出微信记"——我为什么逃离微信

不时有朋友或同事要加我微信,我都会礼貌的表示手机上没有微信,对方常常会露出讶异的表情,毕竟现在微信是连退休大爷大妈都人手一个的通讯app,一个90后竟如此落伍? 也许别人会认为我是个怪人,或者觉得我在说谎。实际上,我同微信一直保持一种若即若离的关系,毕竟关系网络的绑架有时候是摆脱不掉的。很长一段时间里,我都会在必要时安装和登录微信,使用后删除。推动我远离微信的因素有很多,一并写在这里。

- 阅读剩余部分 -

Debian 8 安装xrdp和KDE进行远程桌面连接

今天用VPS折腾了一下远程桌面,桌面环境(DE)选择的是KDE,连接方式个人偏好rdp(Remote Desktop Protocol),因为rdp效率要比vnc高,画面也更流畅(虽然Linux下的rdp底层也是通过vnc实现,但还是要快一点儿),再者rdp从Windows连接无需另外客户端,直接使用Win原生的远程桌面连接十分方便。

- 阅读剩余部分 -

一个“优雅”的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