当前位置：文档之家 › vba帖

vba帖

  • 格式：doc
  • 大小：350.00 KB
  • 文档页数：67

VBA教程-2(转贴)2007-04-25 13:154.1 代码存在的位置：模块VBA代码必须存放在某个位置，这个地方就是模块。

有两种基本类型的模块：标准模块和类模块。

模块中的每个过程或者是函数过程，或者是子程序概念.本课的最后部分将讨论函数过程和子程序的区别。

新术语：模块：它是作为一个单元保存在一起的VBA定义和过程的集合。

类模块：VBA允许你创建自己的对象，对象的定义包含在类模块中。

你的大部分工作集中在标准模块中（简称为模块）当录制宏时如果不存在模块，EXCEL 自动创建一个。

EXCEL和VBA不关心代码存放在哪一个模块中，只要代码存在于打开的工作簿中即可。

4.2 对模块的概览过程被定义为VBA代码的一个单元，过程中包括一系列用于执行某个任务或是进行某种计算的语句。

工作簿的每个过程都有唯一的名字加以区分。

有两种不同的过程：子程序和函数过程。

子程序只执行一个或多个操作，而不返回数值。

当录制完宏查看代码时，所看到的就是子程序。

宏只能录制子程序，而不能录制函数过程。

一个子程序的例子如清单4-1所示。

程序清单4-1 子程序的例子Sub cmdSmallFont_Click()With Selection.Font.Name="Arial".FontStyle="Regular".Size=16End WithEnd sub上面列出的过程实际上是一个事件过程。

通过它的名字，就可以知道这是一个事件过程。

这个过程的名字是由一个对象的名字CmdSmallFont和一个事件的名字Click组成的，两者之间用下划线分开。

如果还不明白，可以告诉你，CmdSmallFont是一个命令按钮的名字。

也就是说，当单击这个命令按钮时，就会运行这个事件过程。

函数过程通常情况下称为函数，要返回一个数值。

这个数值通常是计算的结果或是测试的结果，例如False 或True.正如前面所说，可以用VBA创建自定义函数。

实际上可以在工作表上使用你创建的函数。

程序清单4-2是一个计算价格的10%为运费的简单例子。

程序清单4-2 简单的用户定义函数示例。

Public Function Shipping(Price)Shipping = Price * 0.1End Function请注意，这个函数使用一个参数（Price).子程序和函数都可以使用参数。

不论Price的值是多少，它都将决定运费额。

Price可以是数字和单元格引用。

函数返回计算出来的运费，这个函数可以用在单元格中。

A B1 Price 1002 Shipping =shipping(B1)4.2.1 创建过程创建第一个过程需要两个基本步骤。

首先，需要向工作簿中添加一个模块。

接着需要向模块中添加一个工程。

对于创建的每一个应用程序，只需添加一次模块。

可以使用多个模块，但这是不必要的。

某些开发者喜欢使用多个模块，以便根据他们的目的或者窗体对过程进行组织。

在本练习中，创建的过程只显示一个消息框。

在本练习中创建的过程只显示一个消息框。

在本练习中使用Msgbox是为了提供一个可见的例子，虽然我们还没有介绍过Msgbox语句，但是在本例中将使用它。

要创建该过程，请按如下步骤进行：1）打开一个新工作簿。

2）选择"工具"-"宏"-"Visual Basic编辑器"，打开VBA编辑器窗口。

3）在`VBA编辑器的左面，可以看到“工程资源管理器”窗口。

在工程资源管理器窗口的“Thisworkbook"上单击鼠标右键，选择“插入”-“模块”，这样就将一个模块添加到应用程序中了。

(如果你没有看见“工程资源管理器”窗口，可以按Ctrl+R) 4）选择“插入”“过程”，显示“添加过程”对话框。

5）输入“第一个工程”作为过程名字。

在“类型”分组框中，确认选择了“子程序”。

单击“确定”按钮。

这样一个新的过程就添加到模块中了。

可以在模块中看到以Public Sub 第一个过程（）开始，以End Sub结束的语句结构。

6）在过程中插入光标，输入以下语句并回车：Msgbox "这是我的第一个过程"在输入Msgbox后，会自动弹出一个消息框告诉你有关这条命令的信息，称之为自动列表技术。

输入完成的过程如下所示：Public Sub 第一个过程（）Msgbox "这是我的第一个过程"End SubVBA对子程序和函数有如下的命名规则：* 名字中可以包含字母数字和下划线。

* 名字中不能包含空格句号惊叹号，也不能包含字符@ & $ #.* 名字最多可以包含255个字符。

4.2.2 运行宏创建这个过程后，可以运行一下。

运行一个过程有几种方法：可以直接使用“运行”菜单，“运行子程序/用户窗体”工具栏按钮或按下F5键。

要运行一个过程，可以按照如下步骤：1）单击“运行子程序/用户窗体”工具栏按钮，过程执行并显示一个消息框。

2）单击消息框之中的“确定”按钮，关闭该消息框。

4.3 保存对模块所做的改变要保存新过程,需要保存过程所驻留的工作簿.可以用VBA编辑器保存工作簿.具体步骤如下:1)选择"文件"-"保存工作簿".因为本工作簿还没有保存过,所以要给它命名.2)输入"HOUR4"作为文件名并按回车键,则工作簿和模块与过程都保存下来了.4.4 变量变量是用于临时保存数值的地方.每次应用程序运行时,变量可能包含不同的数值,而在程序运行时,变量的数值可以改变.为了说明为什么需要变量,可以按照如下步骤创建一个简单的过程:1)创建一个名为"你叫什么名字"的过程.2)在过程中输入如下代码:Inputbox "输入你的名字:"现在不要担心inputbox语句的语法,将在第六学时中了解到有关这条命令的更多信息.3)按下F5键运行过程,这时会显示一个输入框,要求输入你的名字.4)输入你的名字并按"确定"按钮,则结束该过程.你输入的名字到那里去了?如何找到用户在输入框中输入的信息?在这种情况下,需要使用变量来存储用户输入的结果.4.4.1 变量的数据类型使用变量的第一步是了解变量的数据类型.变量的数据类型控制变量允许保存何种类型的数据.表4-1列出了VBA支持的数据类型,还列出了各种类型的变量所需要的存储空间和能够存储的数值范围.数据类型存储空间数值范围Byte 1字节0 - 255Booleam 2字节True或者FalseInteger 2字节-32768 - 32767Long(长整型) 4字节-2147483648 - 2147483647Single 4字节负值范围:-3.402823E38 - -1.401298E-45正值范围:1.401298E-45 - 3.402823E38Double 8字节负值范围:-1.79769313486232E308 - -494065645841247E-324正值范围:4.94065645841247E-324 - 1.79769313486232E308Currency 8字节-922337203685477 - 922337203685477Decimal 14字节不包括小数时:+/-79228162514264337593543950335包括小数时:+/7.9228162514264337593543950335Date 8字节1000年1月1日- 9999年12月31日Object 4字节任何引用对象String(长字符串）10字节+1字节/字符0 - 约20亿String(固定长度）字符串的长度1 - 约65400V arient（数字）16字节Double范围内的任何数值V arient（文本）22字节+1字节/字符数据范围和变长字符串相同表4-1 VBA数据类型作为ABV程序员，一个目标是选择需要存储空间尽量小的数据类型来保存所需要的数据，这正是表4-1提供各种数据类型存储空间的原因。

例如，要保存诸如班级学生总数这样的小数字，那么Byte数据类型就足够了。

在这种情况下，使用Single数据类型只是对计算机存储空间的浪费。

4.4.2 用Dim语句创建变量(声明变量)现在,你对变量可以使用的数据类型已经比较熟悉了,以下我们将创建变量.创建变量可以使用Dim语句,创建变量通常成为"声明变量" Dim语句的基本语法如下:Dim 变量名AS 数据类型这条语法中的变量名代表将要创建的变量名.对变量的命名规则和对过程的命名规则相同.这条语句中的数据类型部分可以是表4-1中的任何一种数据类型.变量名必须以字母开始,并且只能包含字母数字和特定的特殊字符,不能包含空格句号惊叹号,也不能包含字符@ & $ #.名字最大长度为255个字符在接下来的练习中将说明如何在VBA中使用变量,你将要输入你的名字,并用一个消息框将其显示出来.具体步骤如下:1)创建一个名为"显示你的名字"的子程序.2)输入以下代码:Public Sub 显示你的名字()Dim s名字As Strings名字= Inputbox("请输入你的名字:")Msgbox "你好"& s名字End Sub3)将鼠标放到过程中的任何地方,按下F5键运行过程,会显示一个输入框.4)输入你自己的名字并按回车键,会显示一个消息框,显示的文字中包含你自己的名字.5)单击"确定"按钮,返回过程中.在Dim语句中不必提供数据类型.如果没有数据类型,变量将被定义为V ariant类型,因为VBA中默认的数据类型是V ariant.你知道这一点后,最初的反应也许是觉得应该不用自己决定数据类型,而将一切抛给VBA.这种观念是完全错误的.你必须决定选择使用何种数据类型。

因为V ariant数据类型占用存储空间较大（16或22字节）而且它将影响程序的性能。

VBA 必须辨别V ariant类型的变量中存储了何种类型的数据。

4.4.3 变量命名的惯例下表给出了推荐的变量命名惯例数据类型短前缀长前缀Array a aryBoolean f binByte b bitCurrency c curDouble d dblDate/Time dt dtm/datInteger i intLong l lngObject o objSingle sngString s strV ariant v var表4-2 变量命名的前缀4.4.4 使用数组如果你使用过其他编程序语言,可能对数组已经比较熟悉了.数组是具有相同数据类型并共同享有一个名字的一组变量的集合.数组中的元素通过索引数字加以区分,定义数组的方法如下:Dim array_name(n) As type (其中n是数组元素的个数)例如,如果要创建保存10个学生名字的数组,可以用以下语句:Dim s学生名字(9) As Integer注意,括号中的数字是9而不是10.这是因为在默认的情况下,第一个索引数字是0.数组在处理相似信息时非常有用.假设要处理15门考试成绩,可以创建15个独立的变量,这意味着要使用15个Dim语句。

合集下载

几句小白都会的VBA代码，让工作效率提升百倍！（附常用代码）

几句小白都会的VBA代码，让工作效率提升百倍！（附常用代码）

几句小白都会的VBA代码，让工作效率提升百倍！（附常用代码）接昨天的自定义函数，今天就教大家几个常用的 VBA 代码！相信不少小伙伴一听到VBA，立马纷纷后退，将它视作洪水猛兽。

其实，VBA 代码并不可怕，只是因为我们接触得不多不了解，又总听到厉害的人说起它，所以才觉得它又神秘又可怕。

而今天，小 E 就要来揭开 VBA 代码的神秘面纱，并且介绍几个常用的简单代码，能够让大家非常方便地运用到工作中去，大大提升工作效率。

那首先就跟着小 E 了解下相关操作的基础常识吧~- 1 -认识 VBA 编辑器大家都知道 Excel 中数据存放在单元格里，可你们知道 VBA 代码要存放在什么地方？答案就是 VBA 编辑器，如下图所示：那要如何打开 VBA 编辑器呢？下面教大家三种方法。

方法一通过选项卡打开单击【开发工具】选项卡，找到【Visual Basic】命令，单击即可进入 VBA 编辑器，如下图所示：如果菜单栏里没有【开发工具】选项卡，按照这个步骤把它调出来——点击【文件】-【选项】，然后点击【自定义功能区】，在「主选项卡」中勾选「开发工具」，点击【确定】即可。

方法二通过右键工作表标签查看代码打开右键单击任意一个工作表标签，在弹出的菜单中单击【查看代码】，即可进入 VBA 编辑器，如下图所示：方法三通过快捷键打开在任意一个工作表中，使用快捷键【Alt+F11】，即可进入VBA 编辑器，不过有些笔记本可能需要再同时按下【Fn】键才可以。

- 2 -如何运行 VBA 代码我们大多数的VBA 代码都是存放在VBA 编辑器的模块中，那模块又是如何添加的呢？在左侧的工程资源管理器中，右键单击【Thisworkbook】或者上面的任意一个工作表的标签均可弹出一个菜单，在菜单中单击【插入】，在弹出的下一级菜单中选择【模块】，单击即可插入1 个模块，如下图所示：我们知道存放 VBA 代码的地方了，那如何运行 VBA 代码呢？单击【开发工具】选项卡，找到【宏】命令，单击即可，如下图所示：在弹出的【宏】对话框中可以看到我们已经写好的 VBA 宏的名称，单击选中要执行的宏名称，单击【执行】即可执行 VBA 代码了，如下图所示：- 3 -常用的 VBA 代码相信现在你已经掌握了 VBA 代码相关的基础操作，那接下来小 E 就给大家贴上几个常用的简单 VBA 代码~只有短短几行，但却能帮我们节约不少时间！批量保护/取消保护工作表有时候为了防止别人误操作，需要给工作表加保护密码，但是工作表数量太多，一个个地设置保护也是个体力活儿，这个时候如果用了下面的 VBA 代码就方便快捷多了！Sub 保护工作表()Dim i As LongFor i = 1 To Sheets.Count Sheets(i).Protect '123'NextEnd Sub给大家大致解释下代码——❶第一行是定义宏的名称，比如这个宏的名称叫做「保护工作表」，最后一行是结束，这两行是固定用法。

VBA中的复制粘贴技巧与实用方法

VBA中的复制粘贴技巧与实用方法

VBA中的复制粘贴技巧与实用方法复制粘贴是我们在日常工作中经常使用的操作之一，而在VBA编程中，掌握一些复制粘贴的技巧和实用方法能够提高效率，使代码更加简洁和灵活。

本文将介绍一些VBA中的复制粘贴技巧与实用方法，帮助读者更好地应用于自己的VBA编程工作。

1. 基本的复制粘贴方法在VBA中，我们可以使用Worksheet对象上的Copy方法和Paste 方法来实现基本的复制粘贴操作。

例如，要复制一个单元格的值并粘贴到另一个单元格，可以使用以下代码：```VBAWorksheets("Sheet1").Range("A1").CopyDestination:=Worksheets("Sheet1").Range("B1")```在上述代码中，我们先选择了要复制的单元格A1，然后使用Copy 方法将其复制到剪贴板，最后使用Paste方法将其粘贴到目标单元格B1。

2. 值复制和格式复制在复制粘贴操作中，有时候我们只需要复制单元格的值，而不需要复制其格式。

VBA提供了两种方式来实现这一点。

第一种方式是使用PasteSpecial方法，并指定要粘贴的内容类型。

例如，要只粘贴单元格的值可以使用以下代码：```VBAWorksheets("Sheet1").Range("A1").CopyWorksheets("Sheet1").Range("B1").PasteSpecial Paste:=xlPasteValues ```在上述代码中，我们先复制单元格A1的值，然后使用PasteSpecial 方法并设置Paste参数为xlPasteValues，将只粘贴单元格的值。

第二种方式是使用Value属性来直接赋值。

例如，以下代码实现了同样的效果：```VBAWorksheets("Sheet1").Range("B1").Value =Worksheets("Sheet1").Range("A1").Value```在上述代码中，我们直接将单元格A1的值赋值给了单元格B1，从而实现了值的复制。

用VBA封装DLL

用VBA封装DLL

用VBA封装DLLVBA封装为DLL及调用1、MicrooftOfficeE某cel20032、MicrooftViualBaic6.0案例：在工作表的C1单元格得出A1单元格+B1单元格的值。

设计的VBA代码：SubTet()OnErrorReumeNe某tRange(\EndSub第一部分、使用VB6.0制作DLL文件一、启动VB6.0，新建一个Active某DLL工程：二、引用：在VB中对E某cel的引用不同版本的E某CEL在“引用”窗口里显示的版本号也不同：E某CEL2000（MicrooftOffice9.0）E某CEL2002（MicrooftOffice10.0），即E某cel某PE某CEL2003（MicrooftOffice11.0）E某CEL2007（MicrooftOffice12.0）E某CEL2022（MicrooftOffice14.0）E某CEL2022（MicrooftOffice15.0）三、修改Active某DLL的工程名称和类模块名称四、编写代码：在代码窗口输入代码，过程名称为Tet：SubTet()OnErrorReumeNe某tDimVBt,YB'定义变量VBtSetVBt=GetObject(,\使VBt表示为E某CEL对象SetYB=VBt.ActiveSheet'使YB表示为E某CEL的当前工作表'注意要在对象前加上YB变量以表示是E某CEL当前工作表的对象YB.Range(\EndSub五、设置工程属性(为使开发的程序更规范，可以对工程属性加以描述【非必要设置，可以省略】)：六、保存工程、测试、生成DLL文件：1、保存工程：保存本工程以作为将来修改代码和升级程序的需要；2、测试工程：执行快捷工具栏上的“启动”按钮，检查是否存在错误；3、生成DLL文件：制作DLL文件。

第二部分、调用DLL文件一、在VBE中调用DLL文件调用DLL文件，要分两步走：先注册DLL，再引用DLL。

VBA比较常用共通方法(一)写文本文件续

VBA比较常用共通方法(一)写文本文件续

VBA比较常用共通方法（一）写文本文件续VBA（Visual Basic for Applications）是一种常用的微软开发工具，用于在Office应用程序（如Excel，Word等）中编写宏和自定义功能。

在VBA中，可以使用各种方法来处理文本文件，包括读取、写入、追加和修改文本。

下面是一些常用的VBA方法来继续写文本文件的示例。

1. 使用FileSystemObject（FSO）对象：FSO对象是VBA中处理文件和文件夹的常用工具之一、使用FSO对象的CreateTextFile方法可以创建一个新的文本文件，并使用WriteLine方法写入文本内容。

如果想追加内容到已存在的文本文件中，可以将OpenTextFile方法的第二个参数设置为True。

下面是使用FSO对象继续写文本文件的示例代码：```vbaSub WriteToFileUsingFSODim fso As ObjectDim file As ObjectDim filePath As StringDim text As String'文件路径filePath = "C:\test.txt"'要追加的文本内容text = "This is some additional text."'创建FSO对象Set fso = CreateObject("Scripting.FileSystemObject")'打开文本文件，并设定追加模式Set file = fso.OpenTextFile(filePath, 8, True)'写入文本内容file.WriteLine text'关闭文件file.Close'释放对象Set file = NothingSet fso = NothingEnd Sub```2. 使用FileNum和Print命令：VBA中另一种常用的方法是使用FileNum与Print命令。