为WordPress统计插件CyStats增加对百度的支持

近日WordPress运行甚慢，而且出现的问题是“未登录网站打开速度很慢，而登录之后网站打开速度很快”，最后分析原因是使用的统计插件StatpressCN引进的故障，停用此插件之后，未登录用户也可以很快打开页面。然后采用了CyStats这一统计插件，不过这个插件已经有段时间未更新了，而且未能支持百度搜索过来关键词，因此增加一些代码，使得CyStats支持百度引导过来的关键词。
阅读全文 >

如何使用VBA获取已安装字体

VBA编程中，也许会遇到需要显示一个字体列表以供用户选择，或者有时需要检测指定字体是否已安装。这里水文工具集给出一个实用的VBA过程GetInstalledFonts，它通过Excel格式化工具条上的字体控件来获取字体列表。

这一过程主要使用到了FindControl方法，具体代码如下：
阅读全文 >

如何在VBA中获取临时文件名

使用VBA开发应用程序时,可能会需要在磁盘上创建一个临时目录或文件,本文提供一个在VBA中创建临时文件的函数Get_Temp_File_Name。它使用到了Windows API函数中的GetTempFileName函数，同时支持对返回的文件名的前缀及扩展名设置。
阅读全文 >

VBA删除当前工作簿中的无效名称

通过Excel自定义名称Name的RefersTo属性，可以快速的通过VBA清除无效的自定义名称，具体代码如下：

Sub DeleteBadRefs()
    Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        If InStr(1, nm.RefersTo, "#REF!") > 0 Then
            'List the name before deleting
            Debug.Print nm.Name & ": deleted"
            nm.Delete
        End If
    Next nm
End Sub

无任何技术含量，把代码复制到VBA编辑器中运行即可。

从字符串返回Range的一个很实用的VBA Range函数

Excel的VBA编程中，很常用到的是通过字符串返回Range的功能，然后进一步对Range操作，这里水文工具集介绍一个实用的VBA Range函数RangeFromAddress，具体源代码如下：
阅读全文 >

VBA中巧用枚举Enum类型模拟集合

VBA中使用集合可以采用Collection，其实我们也可以巧妙运用枚举(Enum)类型来模拟集合(Set)，这样可以合并多个枚举(Enum)类型元素来表示用户的多选意图。如下面的例子：

Public Enum FontStyle
    Normal = 0
    Bold = 1
    Italics = 2
    Underline = 4
    Strikethrough = 8
End Enum

你就可以组合多个值来指定字体的样式。
阅读全文 >

VBA中有效防止更改表名后无法访问相应工作表的2种方法

VBA中通常我们都会直接使用显示在工作表标签栏中的名称(Name属性)来访问相应的工作表，如果你使用了硬编码如Worksheets(“Sheet1″)，当用户对工作表重命名之后，这样的代码将会出现访问越界的错误，因为以原来的工作表名无法访问到相应的工作表了。这里水文工具集介绍VBA中2种使得在用户更改工作表名之后仍能正常使用的方法。
阅读全文 >