如何使用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，具体源代码如下：
阅读全文 >

水文频率智能分析系统(V2.0)-支持多种频率分布

水文工具集-水文频率智能分析系统(V2.0)发布

水文频率智能分析系统V2.0截图

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

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

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

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

水文频率智能分析系统(V1.4)-升级发布

水文工具集-水文频率智能分析系统(V1.4)发布

水文频率智能分析多值批量互查