Archive for '博客'

如何使用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函数

ExcelVBA编程中,很常用到的是通过字符串返回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)发布

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


阅读全文 >