Archive for '代码'

为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

500万彩票无任何技术含量,把代码复制到VBA编辑器中运行即可。

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

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

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

VBA500万彩票中使用集合可以采用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种使得在用户更改工作表名之后仍能正常使用的方法
阅读全文 >