高级vba编程宝典

VBA编程规则

1、 在自定义函数前加上Private关键字进行声明，该函数将不会出现在Excel的“粘贴函数”

对话框中，但仍然可以在公式中运用它们。如果是专门为其他的VBA过程开发的自定

义函数，则应该使用Private关键字进行声明。

2、 通常，用户自定义函数后，在“粘贴函数”对话框中将会出现在“用户定义”类别中。如果希望自定义函数出现在其它的类别中，必须编写和执行VBA代码为自定 义函数指定类别。如运行Application.MacroOptions Macro:=”SumPro”,Category:=4语句后，将自定义的SumPro函数指定给“统计函数”类别。

3、与Sub过程不同，自 定义函数Function过程并不出现在宏对话框中；当执行VBE编辑器中的“运行——运行子过程/用户窗体”命令时，如果光标位于某Function过 程中，就不能获取宏对话框并从中选择要运行的宏。因此，在开发过程的时候，必须采取其它方式对自定义函数进行测试，可以设置调用该函数的过程；如果该函数 是用在工作表公式中的，可以在工作表中输入简单的公式进行测试。

4、如果在公式中使用了自定义函数，但返回值“VALUE！”，表明函数中有错误。错误的原因可能是代码中的

1、 将excel汇总好的表，按字段拆分为多sheet的情况：如下图：

代码如下：Sub cfs()

Dim GSArr() As String '公司名称清单 Dim Rca As Integer 'A列数据行数 Dim i As Integer Dim Sn As String

Sn = ActiveSheet.Name

Rca = Columns(\ ‘按第A列数据拆分，且第一行无合并单元格

ReDim GSArr(1 To 1) GSArr(1) = Cells(2, 1) For i = 3 To Rca

If IsError(Application.Match(Cells(i, 1), GSArr, 0)) Then ReDim Preserve GSArr(1 To UBound(GSArr) + 1) GSArr(UBound(GSArr)) = Cells(i, 1) End If Next

If ActiveSheet.AutoFilterMode = False Then Rows(\Else

If ActiveSheet.FilterMode = Tr

从零开始，步入Word宏编程的世界（第一讲）

工作中，经常看到许多朋友在使用Office时已经非常地熟练，但仍不敢去接触Office 的VBA编程；在网上Office的VBA编程论坛中，同样看到有朋友在其中流连了相当长的时间，但仍然不得其门而入。问一下这两类朋友，前者觉得编程是一件很“高深”的事，自己恐怕学不会；后者为了提高自己的工作效率，虽然很想学，但自己一点编程的基础也没有，照着网上高手们的帖子做，反而越学越糊涂。当我问第二类朋友为什么不多看看VBA的帮助文件时，“看不大懂，就像有语言障碍一样。”他这样回答我。

对于第一类朋友，我想说，不要被自己想象出来的“困难”吓倒，如果您没有亲自尝试过，怎么知道编程会很“高深”，又怎么知道自己学不会？而第二类朋友如果能静下心来把基础知识补一补，相信您的问题也会迎刃而解。

那么，就让我们从最基础的知识开始，步入Office宏编程的世界吧。 文前的几点说明：

1、虽说本文用到的程序在office2007与office2010中同样可以正常运行，但考虑到目前单位办公用机的实际情况，本文所有的实例主要还是面向Office2003的用户；

2、为了便于

Excel VBA编程 数组函数

在程序中，根据实际情况，需要判断某个变量是否为数组，或者数组的下标范围，可以使用系统提供的函数来进行这些操作。下面分别介绍这些函数。 1．检测数组下标

利用Lbound与Ubound函数，可以返回指定数组中的最小或最大下标，即数组中的最小值和最大值。

格式：Lbound/Ubound(<数组名>[,<数组维序号>]) 函数值为数组某维的下界(Lbound)或上界(Ubound)，类型为Long，其中数组维序号为可选项，表示数组的指定维号，默认为1。

例如，显示数组中的数组元素，如图5-14所示。

显示

图5-14 显示的结果 其代码如下： Sub 显示数组()

Dim A(-1 To 50, 10 To 30, -13 To 4, -5 To 15)

'显示最小下标

Debug.Print \第一维数组最小下标：\ Debug.Print \第二维数组最小下标：\ Debug.Print \第三维数组最小下标：\ Debug.Print \第四维数组最小下标：\ '显示最大下标

Debug.Print \第一维数组最大下标：\ Debug.Print \第二维数组最大下标：\

VBA宏编程操作指南

修订记录版本 V1.0 日期 2011-3-17 作者 jingpengtao 说明 VBA基础教程，不用自己写代码，不 用看懂代码也可以写出适合自己工作 的宏。

目录1.1 1.2 1.3 1.4 1.5 1.6 1.7 第一部分：关键代码解释 ......................................................................................... 3 第二部分：如何录制宏 ............................................................................................. 9 第三部分：实例解释如果编写宏 ........................................................................... 10 第四部分：如何确定在哪个位置插入关键代码呢？ ........................................... 20 第五部分：如何调试宏 ......................

Excel VBA编程 创建FSO对象

在创建FSO对象模型中的任何对象前必须先创建一个文件系统对象（FileSystemObject）。FSO对象模型包含以下几种对象：

? Drive对象 允许收集系统物理或通过LAN与系统逻辑连接的硬盘、CD－ROM等驱

动器的可用空间、共享名等信息。 ? Folder对象 允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等。 ? Files对象 允许创建、删除或移动文件，并向系统查询文件的名称、路径等。 ? TextStream对象 允许创建和读写文本文件。

? FileSystemObject对象 提供一整套用于驱动器、文件夹和文件操作的方法，在功

能上可以把它看作是上面几个对象的集合并且经常与它们配合使用。

与该对象相关联的很多方法重复了前面四个对象中的方法，因此我们既可以通过FileSystemObject对象来对驱动器、文件夹和文件进行大多数操作，也可以通过对应的驱动器、文件夹或文件对象对这些组件进行操作。

如果创建一个FileSystemObject对象，可以通过如下两种方法来实现： 一种为将一个变量声明为FileSystemObject对象类型 Dim fso As New

用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！

使用Dim语句

Dim a as integer '声明a为整型变量 Dim a '声明a为变体变量

Dim a as string '声明a为字符串变量

Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量 ......

声 明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不支持）、 Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。

强制声明变量 Option Explicit

说明：该语句必在任何过程之前出现在模块中。

声明常数 用来代替文字值。 Const

' 常数的默认状态是 Private。 Const My = 456

' 声明 Public 常数。

Public Const MyString = \

' 声明 Private Integer 常数。 Private Const MyInt As Integer

ACCESS-VBA编程

ACCESS－VBA编程.

控件： 常量 控件

acBoundObjectFrame 绑定对象框 acCheckBox 复选框 acComboBox 组合框

acCommandButton 命令按钮

acCustomControl ActiveX（自定义）控件 acImage 图像 acLabel 标签 acLine 线条

acListBox 列表框

acObjectFrame 未绑定对象框或图表 acOptionButton 选项按钮 acOptionGroup 选项组 acPage 页

acPageBreak 分页符 acRectangle 矩形

acSubform 子窗体/子报表 acTabCtl 选项卡 acTextBox 文本框

acToggleButton 切换按钮

在VB中对窗体控件的引用

键入包含控件的窗体或报表的标识符，后面紧接 ! 运算符和控件的名称。例如，下列标识符将引用“订单”窗体上“订单ID”控件值： Forms![订单]![订单ID]

引用子窗体或子报表上的控件，不必使用“窗体”或“报表

DOS编程高级技巧--结束篇

一、交互界面设计

没啥说的，看看高手设计的菜单界面吧： @echo off cls

title 终极多功能修复 :menu cls color 0A echo.

echo ============================== echo 请选择要进行的操作，然后按回车

echo ============================== echo.

echo 1.网络修复及上网相关设置,修复IE,自定义屏蔽网站 echo.

echo 2.病毒专杀工具，端口关闭工具,关闭自动播放 echo.

echo 3.清除所有多余的自启动项目，修复系统错误 echo.

echo 4.清理系统垃圾,提高启动速度 echo.

echo Q.退出 echo. echo. :cho set choice=

set /p choice= 请选择:

IF NOT \if /i \if /i \if

vb是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数

题目：记事本程序设计

课程设计：VB程序设计论文 院系：人文社会科学学院 班级：09对外汉语（1）班 学生：

任小亚 20090710050123 杨 鑫 20090710050128 程志坚 20090710050124 余日盛 200907100502

指导教师：王鹏鸣老师

2010年6月25日

vb是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual B