教你封装VBA代码的方法

教你封装VBA代码

Visual Basic for Applications（简称VBA）是新一代标准宏语言，是基于Visual Basic for Windows 发展而来的。VBA 提供了面向对象的程序设计方法，提供了相当完整的程序设计语言。VBA 易于学习掌握，用户可以容易地将日常工作转换为VBA程序代码，使工作自动化。

但是VBA在代码的保护上却存在着缺陷。如果不对VBA工程设置密码保护，代码很容易被人浏览乃至窃取。而且即使设置了密码保护，也很容易被人破解。笔者就曾用破解工具officekey轻松地破解了他人设置的密码保护，不费吹灰之力便浏览了其中的代码，而且从中发现了文档保护密码。可见，要想保护自己的VBA代码，仅仅设置密码保护是不够的。

但是VBA在代码的保护上却存在着缺陷。如果不对VBA工程设置密码保护，代码很容易被人浏览乃至窃取。而且即使设置了密码保护，也很容易被人破解。笔者就曾用破解工具officekey轻松地破解了他人设置的密码保护，不费吹灰之力便浏览了其中的代码，而且从中发现了文档保护密码。可见，要想保护自己的VBA代码，仅仅设置密码保护是不够的。

我们知道，Visual C++、Visual Basic和C++ Builder以及Delphi 等编译器所编译出来的程序不容易被人破解（相对来说）,这是因为代码被编译成了可执行文件或者动态链接库文件。那么，我们是否可以将VBA代码封装到动态链接库文件中，然后用Word调用呢？回答是肯定的。而且这样做还有一个好处，即可以加快代码的运行速度。

一、将VBA代码封装成动态链接库

假如我们已经写好了一个VBA工程，而且运行无误。

1.建立VB工程及一般性操作

首先，我们需要两种工具，其中当然包括Microsoft Word，另外一种是Microsoft Basic 6.0。

打开Microsoft Basic 6.0，在“新建工程”中选取“ActiveX DLL”，新建一个工程。在属性窗口中将工程名改为VBAPrj，类模块名改为VBACls。然后在“工程”菜单下打开“引用”，选取“Microsoft Office 11.0 Object

Library”——这一步很是关键，切不可遗漏，然后保存工程。下面我们所做的是向工程内添加代码。

将VBA工程中的一个名为Test过程的代码选定后复制，然后切换到VB编辑器，选中VB的工程管理器中的类模块VBACls，将代码粘贴至代码编辑窗口中，于是这段代码便成了类模块VBACls一个方法，然后将工程编译生成dll文件（如果编译成功的话）。在Word中，我们就可以通过类模块VBACls 建立的对象来调用此方法（具体怎么调用，我们将后面介绍）。当然，我们可以继续向工程里添加代码。

2.修改代码

虽然VBA源于VB，但是两者毕竟存在着一些差异。因此，需要对转移到VB中的VBA代码做一些必要的修改。

(1)修改VBA代码中所特有类型的对象。

如果我们所添加的代码里有VBA所特有类型——如Document、Rang、BookMark等所建立的对象，编译时会提示错误，因为VB不能够识别这些对象。此时修改的方法是，将这些对象作为过程或函数的参数进行传递。需要注意的是，这些参数的类型都一律设为Object。

例如，我们在过程Test中要访问对象ThisDocument，但是VB无法识别ThisDocument，于是我们就为过程test添加一个参数Doc来传递ThisDocument，即Test可定义为Test(Doc As Object)。

(2)修改VBA所特有一般变量。

VB也无法识别VBA特有的一般变量，如ProtectType，同样，我们也将其作为过程后函数的参数进行传递，不过其类型名都一律设为Variant。

(3)修改VBA所特有常量。

如果在VBA代码中出现了这样的语句:

ProtectionType = wdNoProtection

很明显，wdNoProtection是Word所独有的常量，不为VB所能识别，因而无法通过编译。怎样解决这个问题呢？当然，我们可以用修改变量的方法予以修改。但是聪明的读者会想到：如果我们知道了wdNoProtection的值，就可以直接将值赋给ProtectionType。但是接下来的一个问题是：我们怎样才

能获得wdNoProtection的值呢？方法很简单，就是让Word“开口”告诉我们。

在Word一个事件中添加以下语句：

MsgBox CStr (wdNoProtection)

其中CStr是类型转换函数，返回参数相应的字符串。只要在Word中触发此事件，会弹出一个对话窗，显示“-1”，这就是Word所告诉我们的：wdNoProtection 的值是-1。于是我们就可以将语句 ProtectionType = wdNoProtection 改为 ProtectionType = -1，问题到此就迎刃而解了。

3.封装用户窗体

我们也可以将用户窗体封装到动态链接库文件里。首先打开Word的VBA 编辑器，选中工程资源管理器中的用户窗体，点击右键，选择“导出文件”，选定路径后，将窗体文件保存。然后切换到VB编辑器，在“工程”菜单中选择“添加文件”命令，添加保存的窗体文件。添加结束后，我们会发现VB编辑器中的工程资源管理器中的设计器出现了刚添加的窗体名，选中后双击，在窗体编辑器中就会显现所添加的用户窗体。

到了这里，读者会问：窗体还有代码呢，怎么办？先别急，试一试下面的操作，你就会明白，问题早已不再是问题了。选中工程资源管理器中的用户窗体，点击右键，选择“查看代码”，你就会高兴发现，在代码编辑框中出现了窗体所对应的代码。原来，在我们导入窗体文件的同时也导入了窗体的代码！当然高兴之余，不要忘了还要对这些代码按照我们上述的方法进行必要修改，以保证代码顺利地通过编译。这样Word就可以通过类模块VBACls间接地调用窗体。

二、在Word中引用动态链接库

假如经过我们编译已生成了一个动态链接库文件VBAPrj.dll，其中有一类模块VBACls，此类模块有一个方法Test(Doc As Object)。

接下来我们所要做的是用Word调用Test，有三种方法可供选择：

1.打开Word的VBA编辑器中ThisDocument代码窗口，点"工具"菜单下的"引用"命令，在引用对话框中引用该动态链接库。

调用代码如下:

Dim VBACls As New VBAPrj.VBACls

VBACls.Test(ThisDocument)

2.如果知道该动态链接库文件的位置，可以在ThisDocument代码窗口以代码形式引用, 代码如下:

Private Sub Document_Open()

On Error Resume Next

Me.VBProject.References.AddFromFile

"D:\VBAPrj.dll"

End Sub

3.将动态链接库文件拷贝到Word文档同一目录下，可在ThisDocument 代码窗口中建立如下引用函数：

Private Function GetProjectDoc() As Object

On Error Resume Next

Dim VBACls As Object

Set VBACls = CreateObject("VBAPrj.VBACls")

If VBACls Is Nothing Then

MsgBox "VBAPrj.dll必须和文档在同一目录下！"

Exit Function

End If

Set GetProjectDoc = VBACls

End Function

然后以以下代码形式调用Test：

Dim objPrjDoc As Object

Set objPrjDoc = GetProjectDoc

Call objPrjDoc.Test(ThisDocument)

Set objPrjDoc = Nothing

笔者更倾向使用第三种方法，虽然这种方法相对麻烦，但是只要动态链接库与Word文档处于同一目录下，可保证程序的可移植性。

到目前为止，我们已完成了我们所要达的目的。此时，即便我们不对VBA工程设置密码保护，别人也将很难窥视到我们的代码。

2.如果知道该动态链接库文件的位置，可以在ThisDocument代码窗口以代码形式引用, 代码如下:

Private Sub Document_Open()

On Error Resume Next

Me.VBProject.References.AddFromFile

"D:\VBAPrj.dll"

End Sub

3.将动态链接库文件拷贝到Word文档同一目录下，可在ThisDocument 代码窗口中建立如下引用函数：

Private Function GetProjectDoc() As Object

On Error Resume Next

Dim VBACls As Object

Set VBACls = CreateObject("VBAPrj.VBACls")

If VBACls Is Nothing Then

MsgBox "VBAPrj.dll必须和文档在同一目录下！"

Exit Function

End If

Set GetProjectDoc = VBACls

End Function

然后以以下代码形式调用Test：

Dim objPrjDoc As Object

Set objPrjDoc = GetProjectDoc

Call objPrjDoc.Test(ThisDocument)

Set objPrjDoc = Nothing

笔者更倾向使用第三种方法，虽然这种方法相对麻烦，但是只要动态链接库与Word文档处于同一目录下，可保证程序的可移植性。

到目前为止，我们已完成了我们所要达的目的。此时，即便我们不对VBA工程设置密码保护，别人也将很难窥视到我们的代码。

VBA常用代码大全

.、八、- 刖言 我们平时在工作表单元格的公式中常常使用函数，EGcel自带的常用的函数多达300多个, 功能强大，丰富多彩，但是在 VBA中不能直接应用，必须在函数名前面加上对象，比如：Applicatio n. WorksheetF un ctio n.Sum(arg1,arg2,arg3) 。 而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数, 以供大家学习参考。 第1.1例ASC函数 一、题目： 要求编写一段代码，运行后得到字符串”EGcel”的首字母和” e”的ASCII值。 二、代码： Sub 示例_1_01() DimmyNum1%,myNum2% myNum仁Asc("EGcel")'返回 69 myNum2=Asc("e")' 返回 101 [a1]="myNum 1=":[b1]=myNum1 [a2]="myNum2=":[b2]=myNum2 En dSub 三、代码详解 1、Sub示例_1_01():宏程序的开始语句。 2、DimmyNum1%,myNum2% :变量 myNum1 和 myNum2 声明为整型变量。 也可以写为DimmyNum1AsInteger 。Integer变量存储为16位(2个字节)的数值形式，

其范围为-32,768到32,767之间。Integer的类型声明字符是百分比符号(％)。 3、myNum1=Asc("EGcel"):把 Asc 函数的值赋给变量 myNum1 。 Asc函数返回一个Integer，代表字符串中首字母的字符的 ASCII代码。 语法 Asc(stri ng) 必要的string (字符串)参数可以是任何有效的字符串表达式。如果string中没有包含任何字符，则会产生运行时错误。 4、myNum2=Asc("e"):把Asc函数的值赋给变量myNum2。这里返回小写字母e的ASCII 代码101。 5、 [a1]="myNum仁":[b1]=myNum1 :把字符串“ myNum仁“赋给A1单元格，把变量myNum1的值赋给B1单元格。 6、 [a2]="myNum2=":[b2]=myNum2 :把字符串“ myNum2= “赋给 A2 单元格，把变量myNum2的值赋给B2单元格。 7、 EndSub :程序的结束语句，和“ Sub示例_1_01 ()”相对应。 第1.2例Chr函数 一、题目"": 要求编写一段代码，运用 Chr函数将ASCII值转换为对应的字符 二、代码： Sub 示例_1_02() DimmyChar1$,myChar2$ myChar仁Chr(69)'返回 E。 myChar2=Chr(101)' 返回 e。 [a1]="myChar1=":[b1]=myChar1 [a2]="myChar2=":[b2]=myChar2

[实用参考]VBA常用代码大全.doc

前言 我们平时在工作表单元格的公式中常常使用函数，EGcel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。 而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。 第1.1例ASC函数 一、题目： 要求编写一段代码，运行后得到字符串”EGcel”的首字母和”e”的ASCII值。二、代码： Sub示例_1_01() DimmyNum1%,myNum2% myNum1=Asc("EGcel")'返回69 myNum2=Asc("e")'返回101 [a1]="myNum1=":[b1]=myNum1 [a2]="myNum2=":[b2]=myNum2 EndSub 三、代码详解 1、Sub示例_1_01()：宏程序的开始语句。 2、DimmyNum1%,myNum2%：变量myNum1和myNum2声明为整型变量。 也可以写为DimmyNum1AsInteger。Integer变量存储为16位（2个字节）的数值形式，其范围为-32,768到32,767之间。Integer的类型声明字符是百分比符号(%)。 3、myNum1=Asc("EGcel")：把Asc函数的值赋给变量myNum1。

Asc函数返回一个Integer，代表字符串中首字母的字符的ASCII代码。 语法 Asc(string) 必要的string（字符串）参数可以是任何有效的字符串表达式。如果string中没有包含任何字符，则会产生运行时错误。 4、myNum2=Asc("e")：把Asc函数的值赋给变量myNum2。这里返回小写字母e的ASCII代码101。 5、[a1]="myNum1=":[b1]=myNum1：把字符串“myNum1=“赋给A1单元格，把变量myNum1的值赋给B1单元格。 6、[a2]="myNum2=":[b2]=myNum2：把字符串“myNum2=“赋给A2单元格，把变量myNum2的值赋给B2单元格。 7、EndSub：程序的结束语句，和“Sub示例_1_01（）”相对应。 第1.2例Chr函数 一、题目""： 要求编写一段代码，运用Chr函数将ASCII值转换为对应的字符。 二、代码： Sub示例_1_02() DimmyChar1$,myChar2$ myChar1=Chr(69)'返回E。 myChar2=Chr(101)'返回e。 [a1]="myChar1=":[b1]=myChar1 [a2]="myChar2=":[b2]=myChar2 EndSub 三、代码详解

Excel VBA常用代码VSTO版20150425

21-1 使用工作表的名称 this.Application.Worksheets["工作表2"].Activate(); 21-2 使用工作的索引号 this.Application.Worksheets[2].Activate(); 21-3 使用工作表的代码名称 MessageBox.Show(this.Application.ActiveSheet.CodeName); 21-4 用ActiveSheet属性引用活动工作表 this.Application.Worksheets[2].Select(); MessageBox.Show(https://www.doczj.com/doc/b747411.html,); 22-1 选择工作表的方法 this.Application.Worksheets[2].Select(); this.Application.Worksheets[2].Activate(); 23-1 使用For遍历工作表 intwkCount = this.Application.Worksheets.Count; string s = string.Empty; for (inti = 1; i<= wkCount; i++) { s = s + this.Application.Worksheets[i].Name + "\n"; } MessageBox.Show("工作簿中含有以下工作表:" + "\n" + s); 23-2 使用ForEach语句 string s = string.Empty; foreach (Excel.Worksheetwk in this.Application.Worksheets) { s = s + https://www.doczj.com/doc/b747411.html, + "\n"; } MessageBox.Show("工作簿中含有以下工作表:" + "\n" + s); 24-1 在工作表中向下翻页 Excel.Sheetsshs=Globals.ThisWorkbook.Worksheets; Excel.WorksheetwkThis = shs.Application.ActiveSheet; Excel.WorksheetwkNext; intwkIndex = wkThis.Index; intwkCount = shs.Count; if (wkIndex

Excel VBA编程的常用代码

用过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 = "HELP" ' 声明 Private Integer 常数。 Private Const MyInt As Integer = 5 ' 在同一行里声明多个常数。 Const MyStr = "Hello", MyDouble As Double = 3.4567 选择当前单元格所在区域 在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就

可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。 Sub My_Select Selection.CurrentRegion.Select End sub 返回当前单元格中数据删除前后空格后的值 sub my_trim msgbox Trim(ActiveCell.Value) end sub 单元格位移 sub my_offset ActiveCell.Offset(0, 1).Select'当前单元格向左移动一格 ActiveCell.Offset(0, -1).Select'当前单元格向右移动一格 ActiveCell.Offset(1 , 0).Select'当前单元格向下移动一格 ActiveCell.Offset(-1 , 0).Select'当前单元格向上移动一格 end sub 如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往 sub my_offset 之下加一段代码 on error resume next 注意以下代码都不再添加sub “代码名称” 和end sub请自己添加! 给当前单元格赋值 ActiveCell.Value = "你好！！！" 给指定单元格赋值 例如：Ａ１单元格内容设为"ＨＥＬＬＯ" Range("a1").value="hello" 又如：你现在的工作簿在sheet1上，你要往sheet2的Ａ１单元格中插入"ＨＥＬＬＯ" 1. sheets("sheet2").select

Excel VBA编程的常用代码

Excel VBA编程的常用代码 用过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 = "HELP" ' 声明Private Integer 常数。 Private Const MyInt As Integer = 5 ' 在同一行里声明多个常数。 Const MyStr = "Hello", MyDouble As Double = 3.4567 选择当前单元格所在区域 在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。 Sub My_Select Selection.CurrentRegion.Select End sub 返回当前单元格中数据删除前后空格后的值 sub my_trim msgbox Trim(ActiveCell.Value)

Excel VBA 常用代码50例

Excel VBA 常用代码50例 001。用命令按扭打印一个sheet1中B2:M30区域中的内容? 我想在Sheet2中制件一个命令按扭, 打印表Sheet1中的[B2:M30] 区域中的内容? 解答：可以将打印区域设为b2：m30，然后打印，如：sheets("sheet1").printarea="b2:m30" sheets("sheet1").printout 随手写的，你可以试试看。最简单的方法是：你先录制宏，在录制宏过程中，跑到页面设臵里面，把打印范围设臵到你想要的范围。 然后退出，停止录制宏，你就可以得到一些代码！ 002。能否对一列中的文字统一去掉最后一个字?这些文字不统一,有些字数多,有些字数少。如何处理?我用{"&-}不行 解答：=REPLACE(A1,LEN(A1),1," ")(在过渡列进行) 003.能否根据单元格数值自动标记序号？ 各位大佬，一工作表有两列，“序号”及“金额”，能否将金额不等于0的行自动标上序号呢？如无现成的函数，应怎样设臵？ 解答：Dim xuhao As Integer xuhao = 1

Range("b2").Select Do While Selection <> "" If Selection <> 0 Then ActiveCell.Previous.Value = xuhao xuhao = xuhao + 1 End If ActiveCell.Offset(1, 0).Range("a1").Select Loop 004.求教自定义函数 查询了一些自定义函数的例子都是单变量的。自定义函数能否建立“(As Range) As Interger”的函数，应该可以的，请各位大师赐教！请以“∑x2”为例，万分感谢！(该用"For Each ...Next"，就是还不知道如何引用Range中的每个值，请高手指点。) 解答：参数使用Range而函数值为Integer是可以的 用for each next循环思路也是对的，应该这样作： dim rg as range dim ivalue as integer for each rg in 参数区域 ivalue=ivalue+rg.value next

excelvba编程的常用代码

强制声明变量 Option Explicit 说明：该语句必在任何过程之前出现在模块中。 声明常数 用来代替文字值。 Const ' 常数的默认状态是 Private。 Const My = 456 ' 声明 Public 常数。 Public Const MyString = "HELP" ' 声明 Private Integer 常数。 Private Const MyInt As Integer = 5 ' 在同一行里声明多个常数。 Const MyStr = "Hello", MyDouble As Double = 选择当前单元格所在区域 在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。Sub My_Select End sub 返回当前单元格中数据删除前后空格后的值 sub my_trim msgbox Trim end sub

单元格位移 sub my_offset (0, 1).Select'当前单元格向左移动一格 (0, -1).Select'当前单元格向右移动一格 (1 , 0).Select'当前单元格向下移动一格 (-1 , 0).Select'当前单元格向上移动一格 end sub 如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往 sub my_offset 之下加一段代码 on error resume next 注意以下代码都不再添加sub “代码名称” 和end sub请自己添加! 给当前单元格赋值 = "你好！！！" 给指定单元格赋值 例如：Ａ１单元格内容设为"ＨＥＬＬＯ" Range("a1").value="hello" 又如：你现在的工作簿在sheet1上，你要往sheet2的Ａ１单元格中插入"ＨＥＬＬＯ" 1. sheets("sheet2").select range("a1").value="hello" 或 2. Sheets("sheet1").Range("a1").Value = "hello" 说明： 被选中，然后在将“HELLO"赋到A1单元格中。 不必被选中，即可“HELLO"赋到sheet2 的A1单元格中。

Excel VBA编程常用代码

Excel VBA编程常用代码 时间:2009-12-05 22:36:04 来源:本站作者:未知我要投稿我要收 藏投稿指南 用过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 = "HELP" ' 声明 Private Integer 常数。 Private Const MyInt As Integer = 5 ' 在同一行里声明多个常数。 Const MyStr = "Hello", MyDouble As Double = 3.4567 选择当前单元格所在区域 在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。 Sub My_Select Selection.CurrentRegion.Select End sub 返回当前单元格中数据删除前后空格后的值 sub my_trim msgbox Trim(ActiveCell.Value) end sub 单元格位移 sub my_offset ActiveCell.Offset(0, 1).Select'当前单元格向左移动一格

VBA宏编程示例集50个常用代码(下载)

VBA宏编程示例集50个常用代码（下载）加入收藏 网站地图 网站搜索 简繁默 excel资源下载首页 excel教程下载专区 excel函数、VBA、技巧视频教程 excel 函数学习资料 excel财务会计报表模板 返回excel论坛 VBA学习资料 Excel图表专区 excel在线学习 Excel技巧全接触 excel办公常用表格 Excel在线帮助 VBA在线帮助 excel2007精华教程 Excel电子表格问题解答 Excel函数应用手册 excel → VBA学习资料 阅读新闻 VBA宏编程示例集50个常用代码（下载） [日期：2007-07-25]来源：作者：蓝桥玄霜[字体：大中小] VBA示例集1内容: 1，从数据源匹配取数的问题 2，部分字符地址查找 3，多表查询汇总和重复值问题（相同行删除、循环比较） 4，工作表的名称和index号 5，重复值加色 6，统计 7，最大或最小 8，最后一记录（定义动态区域名称、不重复值公式宏、不重复值个数和行数公式宏、加边框宏） 9，大港表格转换 10，筛选尾数 11，对比数据 12，修改批注字体 13，删除合并单元格 14，物品领用报表 15，条件格式设置 16，多表查询，自动筛选法 17，多条件查询累计汇总 18，和值 19，教师安排汇总（循环比较、不重复值） 20，自动着色（不同个数、不同颜色）

21，不重复值的个数及所在行的行数（各个值的个数、行数） 22，分表自动字体格式化 23，自动填充数字 24，导入文本文件 25，累计不变化（内部循环） 26，同结构多表统计汇总（Consolidate方法） 27，资产负债表汇总（多工作簿汇总） 28，导出到文本文件 29，角度求和的自定义公式 30，表单输入模板 31，两表间复制与核对 VBA示例集2内容: 1，页眉用指定单元格内容 2，转存到另一工作簿（指定路径、文件名） 3，数字转美元和沙特里亚尔(阿拉伯数字转英文写法) 4，三表合一(多表数据复制至一表) 5，按尾数排序 6，按周汇总 7，百位分析图表 8，分光捉影 9，补缴保险 10，转置数据 11，提取斜体字符 12，另类格式 13，新林电话 14，图形有条件复制 15，总表拆分 16，另表汇总 17，统计排列变色 18，导出到多文本文件 19，多工作簿提取数据汇总 upload/07072516059510.rar 阅读：5687 次 录入：admin 【评论】【推荐】【打印】 上一篇：VBA方法、属性参考资料大全（下载） 下一篇：EXCEL加载宏制作攻略

VBA常用代码

1.遍历所有已打开的word文档 For Each docOpened In Documents …… Next docOpened 2.Word 将目录下所有文档转换为txt，并删除原文档 Sub 目录下doc转txt() '目录下所有word文档转为txt，并删除word文档 '保存在原目录 '遍历所有文件夹，把带路径的文件名存入字典 On Error Resume Next Dim Path As String, t 'Path为路径,t用于计算程序执行花费的时间 Set objshell = CreateObject("Shell.Application") Set objfolder = objshell.BrowseForFolder(0, "选择文件夹", 0, 0) If Not objfolder Is Nothing Then Path = objfolder.sel f.Path & "\" Set objfolder = Nothing Set objshell = Nothing '创建字典用于存储路径和文件名 Dim DicPath, DicFile, i As Integer, Ke, ContentName A s String, FileName As String, MsgTxt Set DicPath = CreateObject("Scripting.Dictionary")

Set DicFile = CreateObject("Scripting.Dictionary") DicPath.Add Path, "" i = 0 '存所有路径 Do While i < DicPath.count Ke = DicPath.keys ContentName = Dir(Ke(i), vbDirectory) Do While ContentName <> "" '若有子文件夹，则添加 '跳过当前的目录及上层目录 If ContentName <> "." And ContentName < > ".." Then If GetAttr(Ke(i) & ContentName) = vbDirectory Then DicPath.Add (Ke(i) & Conte ntName & "\"), "" End If End If ContentName = Dir Loop i = i + 1 Loop '存所有doc文件名 For Each Ke In DicPath.keys FileName = Dir(Ke & "*.doc")

EXCEL VBA常用代码集

EXCEL VBA常用代码集 1.显示活动工作簿名称 MsgBox "当前活动工作簿是" & https://www.doczj.com/doc/b747411.html, 2.保存活动工作簿 Activeworkbook.Save 3.保存所有打开的工作簿关闭EXCEL For Each W in Application.Workbooks W.Save Next W Application.Quit 4.将网格线设置为蓝色 ActiveWindow.GridlineColorIndex = 5 5.将工作表sheet1隐藏 Sheet1.Visible = xlSheetV eryHidden 6.将工作表Shtte1显示 Sheet1.Visible = xlSheetVisible 7.单击某单元格,该单元格所在的行以蓝色背景填充,字体颜色为白色 Private Sub Worksheet_SelectionChange(ByV al Target As Excel.Range) If Target.Row >= 2 Then’第二行以下的区域 On Error Resume Next [ChangColor_With1].FormatConditions.Delete https://www.doczj.com/doc/b747411.html, = "ChangColor_With1" With [ChangColor_With1].FormatConditions .Delete .Add xlExpression, , "TRUE" .Item(1).Interior.ColorIndex = 5 .Item(1).Font.ColorIndex = 2 End With End If End Sub 8.使窗体在启动的时候自动最大化 Private Sub UserForm_Initialize() Application.WindowState = xlMaximized With Application Me.Top = .Top Me.Left = .Left Me.Height = .Height Me.Width = .Width End With End Sub 9.不保存工作簿退出EXCEL Application.DisplayAlerts = False Application.Quit

excelvba常用代码总结1

Excel VBA常用代码总结1 改变背景色 Range("A1"). = xlNone ColorIndex一览 改变文字颜色 Range("A1"). = 1 获取单元格 Cells(1, 2) Range("H7") 获取范围 Range(Cells(2, 3), Cells(4, 5)) Range("a1:c3") '用快捷记号引用单元格Worksheets("Sheet1").[A1:B5]

选中某sheet Set NewSheet = Sheets("sheet1") 选中或激活某单元格 '“Range”对象的的Select方法可以选择一个或多个单元格，而Activate方法可以指定某一个单元格为活动单元格。 '下面的代码首先选择A1:E10区域，同时激活D4单元格： Range("a1:e10").Select Range("d4:e5").Activate '而对于下面的代码： Range("a1:e10").Select Range("f11:g15").Activate '由于区域A1:E10和F11:G15没有公共区域，将最终选择F11:G15，并激活F11单元格。 获得文档的路径和文件名 '路徑 '名稱 '路徑＋名稱 '或将ActiveWorkbook换成thisworkbook 隐藏文档 = False 禁止屏幕更新 = False 禁止显示提示和警告消息 = False

文件夹做成 strPath = "C:\temp\" MkDir strPath 状态栏文字表示 = "计算中" 双击单元格内容变换 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If >= 5And <= 8) Then If = "●"Then = "" Else = "●" End If Cancel = True End If End Sub 文件夹选择框方法1 Set objShell = CreateObject("") Set objFolder = (0, "文件", 0, 0) If Not objFolder Is Nothing Then path= & "\" end if Set objFolder = Nothing Set objShell = Nothing

VBA常用代码

VBA编程常用代码 用过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 = "HELP" ' 声明 Private Integer 常数。 Private Const MyInt As Integer = 5 ' 在同一行里声明多个常数。 Const MyStr = "Hello", MyDouble As Double = 3.4567 选择当前单元格所在区域 在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。 Sub My_Select Selection.CurrentRegion.Select End sub 返回当前单元格中数据删除前后空格后的值 sub my_trim msgbox Trim(ActiveCell.Value) end sub 单元格位移 sub my_offset ActiveCell.Offset(0, 1).Select'当前单元格向左移动一格 ActiveCell.Offset(0, -1).Select'当前单元格向右移动一格 ActiveCell.Offset(1 , 0).Select'当前单元格向下移动一格 ActiveCell.Offset(-1 , 0).Select'当前单元格向上移动一格

VBA编程中常用代码.doc

Excel 与 VBA编程中的常用代码 用过 VB 的人都应该知道如何声明变量，在VBA 中声明变量和VB 中是完全一样的！ 使用 Dim 语句 Dim a as integer '声明 A 为整形变量 Dim a '声明 A 为变体变量 Dim a as string '声明 A 为字符串变量 Dim a,b,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 = "HELP"

' 声明Private Integer常数。 Private Const MyInt As Integer = 5 '在同一行里声明多个常数。 Const MyStr = "Hello", MyDouble As Double = -------------------------------------------------------------------------------- 在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。 Sub My_Select End sub -------------------------------------------------------------------------------- 删除当前单元格中数据的前后空格。 sub my_trim Trim end sub -------------------------------------------------------------------------------- 使单元格位移 sub my_offset (0, 1).Select'当前单元格向左移动一格 (0, -1).Select'当前单元格向右移动一格

ExcelVBA常用代码总结1

Excel VBA常用代码总结1 ?改变背景色 Range("A1").Interior.ColorIndex = xlNone ColorIndex一览 ?改变文字颜色 Range("A1").Font.ColorIndex = 1 ?获取单元格 Cells(1, 2) Range("H7") ?获取围 Range(Cells(2, 3), Cells(4, 5)) Range("a1:c3") '用快捷记号引用单元格 Worksheets("Sheet1").[A1:B5] ?选中某sheet Set NewSheet = Sheets("sheet1") NewSheet.Select ?选中或激活某单元格 '“Range”对象的的Select方法可以选择一个或多个单元格，而Activate方法可以指定某一个单元格为活动单元格。 '下面的代码首先选择A1:E10区域，同时激活D4单元格： Range("a1:e10").Select

Range("d4:e5").Activate '而对于下面的代码： Range("a1:e10").Select Range("f11:g15").Activate '由于区域A1:E10和F11:G15没有公共区域，将最终选择F11:G15，并激活F11单元格。 ?获得文档的路径和文件名 ActiveWorkbook.Path '路徑 https://www.doczj.com/doc/b747411.html, '名稱 ActiveWorkbook.FullName '路徑＋名稱 '或将ActiveWorkbook换成thisworkbook ?隐藏文档 Application.Visible = False ?禁止屏幕更新 Application.ScreenUpdating = False ?禁止显示提示和警告消息 Application.DisplayAlerts = False ?文件夹做成 strPath = "C:\temp\" MkDir strPath ?状态栏文字表示 Application.StatusBar = "计算中" ?双击单元格容变换 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If (Target.Cells.Row >= 5And Target.Cells.Row <= 8) Then If Target.Cells.Value = "●"Then Target.Cells.Value = "" Else Target.Cells.Value = "●" End If Cancel = True End If End Sub ?文件夹选择框方法1 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "文件", 0, 0) If Not objFolder Is Nothing Then path= objFolder.self.Path & "\" end if

EXCEL VBA编程的常用代码

Excel VBA编程的常用代码 时间:2009-11-2721:18:01来源:本站作者:未知我要投稿我要收藏投稿指南 具体的步骤是，代码从活动工作表上活动单元格周围的当前单元格区域中读取数据。宏将这些数据存储在一个数组中，计算每一行和每一列中的单元格总数，然后将输出显示在工作表中。数组的大小由当前区域中的单元格数量决定。 注意：此宏不会在工作表中添加任何公式，因此如果该范围内的单元格总数有变化，则必须重新运行宏。 使用以下示例之前，请执行以下步骤： 1.打开一个新工作簿。 2.在“工具”菜单中，指向“宏”，然后单击“Visual Basic编辑器”（或者简单地按下ALT+F11组合键）。在“Visual Basic编辑器”中的“插入”菜单中，单击“模块”。 将以下示例代码键入或粘贴到模块中： Sub TotalRowsAndColumns() '此宏假定您已从 '要计算单元格总数的矩形区域内 '选择了一个单元格或一组单元格。行和列的单元格总数将出现在 '当前区域下面的行和右侧的列中。 Dim r As Integer Dim c As Integer Dim i As Integer Dim j As Integer Dim myArray As Variant '将myArray声明为变量将使数组可以接收 '一组单元格。此时，数组将自动转换为 '以下标myArray(1,1)开始的数组。 '指当前所选单元格周围的区域。 With Selection.CurrentRegion r=.Rows.Count c=.Columns.Count '重新计算总行数和总列数并将结果存储到数组中。 myArray=.Resize(r+1,c+1) '在下面的嵌套循环中，变量i跟踪 '行号，变量j跟踪 '列号。j在可用列中每循环一次， 'i就递增一，而j '则重新从一到c循环一次。 For i=1To r For j=1To c '行i的总数