Archive for '代码'

VBA创建嵌套目录

VBA中如果需要创建嵌套目录必需逐级创建,而无法一次就完成,使得创建具有较深层次的目录时比较麻烦,这里水文工具集给出一个VBA过程MakeMultiStepDirectory实现创建嵌套目录的功能,使用这一VBA过程可以直接创建具有任意深度的文件夹,
阅读全文 >

VBA实现数据结构中的双向链表类

数据结构中双向链表(Double Linked List)是一类很重要的数据结构,这里水文工具集介绍一个使用VBA实现的双向链表的类模块,代码的一些说明如下:
阅读全文 >

VBA复制非连续选择区域

Excel中你是无法多重选定区域进行复制的,于是水文工具集介绍一个采用VBA宏过程突破这一限制来完成对非连续选择区域的复制粘贴,具体VBA实现代码如下:
阅读全文 >

2种Excel自定义工具栏命令按钮图标的方式

Excel中当你使用自定义工具栏时,也许希望不仅仅是使用内建的图标(FaceID属性),还更想用其它的自定义图片来作为图标,这里水文工具集给出两种自定义工具栏命令按钮的方式,其一是使用外部图片文件,其二是使用Excel工作表中嵌入的图片。具体VBA实现代码如下:
阅读全文 >

VBA实现数组Array与集合Collection互换

数组和集合在VBA中是常用的数据类型,这里水文具工集在VBA中实现数组Array与集合Collection的相互转换,编写了两个通用的过程ArrayToCollection与CollectionToArray,方便程序中调用,具体源代码如下:
阅读全文 >

VBA中使用计时器的两种方法

VBA程序运行中,你可能需要自动执行某些代码或者定时执行某些计划任务,如自动保存,这就要使用定时器来完成。这里水文工具集给出VBA中使用计时器的两种方法,其一是使用Application对象的OnTime方法来运行任务,其二是通过Windows API函数来完成,具体实例如下:
阅读全文 >

VBA播放多媒体文件的类模块源代码

VBA中实现的播放WAV、播放MID、播放MP3、播放AVI文件的类模块,采用mciSendString这个API函数完成多媒体文件的播放控制,类模块具体源代码如下:

阅读全文 >