VBA中使用计时器的两种方法
VBA程序运行中，你可能需要自动执行某些代码或者定时执行某些计划任务，如自动保存，这就要使用定时器来完成。这里水文工具集给出VBA中使用计时器的两种方法，其一是使用Application对象的OnTime方法来运行任务，其二是通过Windows API函数来完成，具体实例如下：
阅读全文 >
Tag Archives: VBA
VBA播放多媒体文件的类模块源代码
VBA中实现的播放WAV、播放MID、播放MP3、播放AVI文件的类模块，采用mciSendString这个API函数完成多媒体文件的播放控制，类模块具体源代码如下：
阅读全文 >
VBA检测网络是否已连接
VBA中调用API函数InternetGetConnectedState，用很简单的方法就能在你的VBA代码中实现判断本地机器网络是否已连接，具体源代码如下：
阅读全文 >
VBA巧用split函数完成度分秒到经纬度转换
今接到几个水文站站点信息表，Excel表中的经纬度采用的是度分秒的格式填写的，格式如下：123°34′45″，而实际中使用的是采用十进制格式表达的经纬度样式，如：123.5791667。转换公式如下：经纬度=度+分/60+秒/3600。由于站点数量较多，显然每个都手动的方式把度分秒格式的几个部分分别取出来是繁杂且容易出错的，因此巧妙采用VBA中的split函数与val函数，
阅读全文 >
VBA实现数据结构中的栈类
数据结构中栈(stack)是一种比较重要的数据结构，这里给出一个使用VBA实现的栈的类模块，代码的一些说明如下：
StackItem类：类似于关联节点，包含了元素数据和一个另一节点的引用(类似于指针)
Stack类：包含了一些栈操作函数
阅读全文 >
VBA实现的马斯京根推流示例
马斯京根模型是一种有效的河道推流方法，在水文预报中有着广泛的应用，这一模型参数较少(c1,c2,c3)，而且实现简单，这里水文工具集给出一个VBA实现的马斯京根模型的一个示例，如果需要对不同数据进行推流，可以更改里面的河道入流过程及模型参数，具体源代码如下：
阅读全文 >
VBA检测Excel工作表区域中是否有隐藏行或列
Excel工作表中，有时为了方便操作会临时隐藏某些行或者列，到再次使用时需要检测某选择区域是否包含有隐藏的行或列，这里给出一个VBA函数RangeHasHiddenRowsOrCols可以完成这个功能，具体源代码如下：
阅读全文 >
