选择擅长的领域继续答题？
{@each tagList as item}
${item.tagName}
{@/each}
手机回答更方便，互动更有趣，下载APP
提交成功是否继续回答问题？
手机回答更方便，互动更有趣，下载APP
展开全部自动生成数据步骤:首先，需要在excel中添加加载项--数据分析库，然后就可以进行数据自动生成了，以专业的术语叫做“随机数发生器”。依次点击：excel选项-加载项-用VBA也可以根据数据源批量填充模板生成新表一个简单情况的示例：示例里的代码：Sub根据数据源批量填充。这个宏的作用是：把当前文件夹下每一个excel文件的每一行（共8行）复制到总表的每一个sheet工作表中去，即把一个文件里的那1张表的8行复制转换成另一个文件的8张表里的8行，主要用于汇总工作。如何将excel表里的数据提取到word文档里的解决方法如下：1、复制法。即将原来的数据直接复制后，在word中进行粘贴，这样数据就直接导入到word文档中了。2、邮件合并法。在word中启用邮件合并，按向导的过程分别制作好需要插入的需要，数据源，对应关系，最后执行合并就可以了。3、程序法。在word中插入合并域（如果是有规律的表格，可以不用这一步），然后编写vba程序，从excel文件中读取数据，然后写入到word中指定的位置。上面三个方法中，方法1简单快捷，但是每次都需要操作，如果数据不是连续的块，需要复制粘贴多次，相对来说麻烦一点。方法2，一次设置可以多次使用，但不够灵活。方法3方便可以多次重复使用，但需要有一定的编程基础，可以根据工作的实际选择一个最适合的完成这个工作。已赞过已踩过你对这个回答的评价是？评论
收起
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
为你推荐：
下载百度知道APP，抢鲜体验使用百度知道APP，立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。扫描二维码下载
×个人、企业类侵权投诉
违法有害信息,请在下方选择后提交
类别色情低俗
涉嫌违法犯罪
时政信息不实
垃圾广告
低质灌水
我们会通过消息、邮箱等方式尽快将举报结果通知您。说明
做任务开宝箱累计完成0
个任务
10任务
50任务
100任务
200任务
任务列表加载中...
}

按开始按钮后即启动，依次抽到9，8，。。。1，0.类似于倒计时。谢谢大虾们，急呀...
按开始按钮后即启动，依次抽到9，8，。。。1，0.类似于倒计时。谢谢大虾们，急呀
展开选择擅长的领域继续答题？
{@each tagList as item}
${item.tagName}
{@/each}
手机回答更方便，互动更有趣，下载APP
提交成功是否继续回答问题？
手机回答更方便，互动更有趣，下载APP
展开全部下面的例子是随机抽取数字1至3，并根据抽取到的数字选择对应的单元格A1至A3，你可以根据实际需要更改抽取数的范围和更改选取的单元格。PublicSubRndNum1_3()DimNAsLongRandomizeN=Int(3*Rnd+1)抽取随机数1⑶Range(A根据抽取结果，选订单元格A1至A3中的1个EndSub',getTip:function(t,e){return t.renderTip(e.getAttribute(t.triangularSign),e.getAttribute("jubao"))},getILeft:function(t,e){return t.left+e.offsetWidth/2-e.tip.offsetWidth/2},getSHtml:function(t,e,n){return t.tpl.replace(/\{\{#href\}\}/g,e).replace(/\{\{#jubao\}\}/g,n)}},baobiao:{triangularSign:"data-baobiao",tpl:'{{#baobiao_text}}',getTip:function(t,e){return t.renderTip(e.getAttribute(t.triangularSign))},getILeft:function(t,e){return t.left-21},getSHtml:function(t,e,n){return t.tpl.replace(/\{\{#baobiao_text\}\}/g,e)}}};function a(t){return this.type=t.type
"defaultTip",this.objTip=s[this.type],this.containerId="c-tips-container",this.advertContainerClass=t.adSelector,this.triangularSign=this.objTip.triangularSign,this.delaySeconds=200,this.adventContainer="",this.triangulars=[],this.motherContainer=i.createDom("div"),this.oTipContainer=i.getDom(this.containerId),this.tip="",this.tpl=this.objTip.tpl,this.init()}a.prototype={constructor:a,arrInit:function(){for(var t=0;t0&&function(t,e,n,r){var i=document.getElementsByClassName(t);if(i.length>0)for(var o=0;o展开全部
问题描述得不清不楚的话 再急人家也不知道这是我做的 不知道对你有用没Sub 开始抽签()For i = 9 To 0 Step -1wt = 1Do While wt > 0.1ra = Int(Rnd() * 10)Select Case raCase 0Cells(1, 2).SelectCase 1Cells(1, 1).SelectCase 2Cells(2, 1).SelectCase 3Cells(3, 1).SelectCase 4Cells(3, 2).SelectCase 5Cells(3, 3).SelectCase 6Cells(3, 4).SelectCase 7Cells(2, 4).SelectCase 8Cells(1, 4).SelectCase 9Cells(1, 3).SelectEnd SelectApplication.Wait (Now + TimeValue("0:00:01") * wt)wt = wt * 0.8Loopc = 11 - iCells(c, 6) = "第" & (10 - i) & "次抽签结果"Cells(c, 7) = iMsgBox "第" & (10 - i) & "次抽签结果为:
" & iNextEnd SubSub 新建抽签表()'' Macro2 Macro''Sheets.Add After:=Sheets(Sheets.Count)Cells.SelectSelection.RowHeight = 48Range("A1").SelectActiveCell.FormulaR1C1 = "1"Range("A2").SelectActiveCell.FormulaR1C1 = "2"Range("A3").SelectActiveCell.FormulaR1C1 = "3"Range("B3").SelectActiveCell.FormulaR1C1 = "4"Range("C3").SelectActiveCell.FormulaR1C1 = "5"Range("D3").SelectActiveCell.FormulaR1C1 = "6"Range("D2").SelectActiveCell.FormulaR1C1 = "7"Range("D1").SelectActiveCell.FormulaR1C1 = "8"Range("C1").SelectActiveCell.FormulaR1C1 = "9"Range("B1").SelectActiveCell.FormulaR1C1 = "0"Range("A1:D3").SelectWith Selection.Font.Name = "Arial Unicode MS".Size = 36.Strikethrough = False.Superscript = False.Subscript = False.OutlineFont = False.Shadow = False.Underline = xlUnderlineStyleNone.ColorIndex = xlAutomatic.TintAndShade = 0.ThemeFont = xlThemeFontNoneEnd WithSelection.Font.Bold = TrueWith Selection.Font.Color = -16776961.TintAndShade = 0End WithWith Selection.Interior.Pattern = xlSolid.PatternColorIndex = xlAutomatic.Color = 49407.TintAndShade = 0.PatternTintAndShade = 0End WithRange("B2:C2").SelectWith Selection.Interior.Pattern = xlSolid.PatternColorIndex = xlAutomatic.ThemeColor = xlThemeColorDark1.TintAndShade = 0.PatternTintAndShade = 0End WithRange("A1:D3").SelectSelection.Borders(xlDiagonalDown).LineStyle = xlNoneSelection.Borders(xlDiagonalUp).LineStyle = xlNoneWith Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous.ColorIndex = 0.TintAndShade = 0.Weight = xlThinEnd WithWith Selection.Borders(xlEdgeTop).LineStyle = xlContinuous.ColorIndex = 0.TintAndShade = 0.Weight = xlThinEnd WithWith Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous.ColorIndex = 0.TintAndShade = 0.Weight = xlThinEnd WithWith Selection.Borders(xlEdgeRight).LineStyle = xlContinuous.ColorIndex = 0.TintAndShade = 0.Weight = xlThinEnd WithWith Selection.Borders(xlInsideVertical).LineStyle = xlContinuous.ColorIndex = 0.TintAndShade = 0.Weight = xlThinEnd WithWith Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous.ColorIndex = 0.TintAndShade = 0.Weight = xlThinEnd WithRange("F1").SelectActiveCell.FormulaR1C1 = "抽签结果"With ActiveCell.Characters(Start:=1, Length:=4).Font.Name = "宋体".FontStyle = "常规".Size = 12.Strikethrough = False.Superscript = False.Subscript = False.OutlineFont = False.Shadow = False.Underline = xlUnderlineStyleNone.ColorIndex = xlAutomatic.TintAndShade = 0.ThemeFont = xlThemeFontNoneEnd WithRange("F2").SelectSheets("Sheet3").SelectActiveSheet.Buttons.Add(219, 5.25, 45, 133.5).SelectSelection.OnAction = "Sheet3.开始抽签"ActiveSheet.Shapes("Button 1").SelectSelection.Characters.Text = "开始"With Selection.Characters(Start:=1, Length:=2).Font.Name = "宋体".FontStyle = "常规".Size = 12.Strikethrough = False.Superscript = False.Subscript = False.OutlineFont = False.Shadow = False.Underline = xlUnderlineStyleNone.ColorIndex = xlAutomatic.TintAndShade = 0.ThemeFont = xlThemeFontNoneEnd WithRange("G1").SelectEnd Sub
本回答被提问者采纳
收起
1条折叠回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
为你推荐：
下载百度知道APP，抢鲜体验使用百度知道APP，立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。扫描二维码下载
×个人、企业类侵权投诉
违法有害信息,请在下方选择后提交
类别色情低俗
涉嫌违法犯罪
时政信息不实
垃圾广告
低质灌水
我们会通过消息、邮箱等方式尽快将举报结果通知您。说明
做任务开宝箱累计完成0
个任务
10任务
50任务
100任务
200任务
任务列表加载中...
}

如何创建VBA进入开发工具窗口
2.选择插入模块，然后插入过程，选择子程序VBA语法规则在Excel中，数据只有文本，数值，日期值，逻辑值和错误值五种类型。但是在VBA中，数据类型跟Excel不完全相同。根据数据的特点，VBA将数据分为布尔型（boolean），字节型(byte)，整数型(integer)，单精度浮点型(single)，双精度浮点型(double)，货币型(currency)，小数型(decimal)，字符串型（string），日期型（date）,对象型等等声明变量声明变量，其实就是指定该变量的名称及其可存储的数据类型，要在VBA中声明一个变量，有以下几种方法：Dim 变量名 as 数据类型
Private 变量名 as 数据类型，用private声明变量，该变量将会变成私有变量
Public 变量名 as 数据类型，用public变量定义的变量是公有变量
static 变量名 as 数据类型，如果使用static声明变量，这个变量将会变成静态变量，当程序结束后，静态变量会保持其原值不变。
给变量赋值给数据类型的变量赋值，应该要使用这个语句：let 变量名称 = 要存储的数据
给对象类型的变量赋值，应该使用下面的语句：“set 变量名称 = 要存储的对象名称”
让变量存储的数据参与运算数据型变量参与运算
2. 对象型变量参与运算关于声明变量的其他知识如果要声明多个变量可以将代码写成下面形式：
2. 可以使用变量类型声明符定义变量类型数据类型
类型声明字符
Integer
%
Long
&
Single
！
Double
#
currency
@
string
$
声明变量可以不指定变量类型：在VBA中声明变量是，如果不确定会将类型的数据存储在变量中，可以在声明变量时，只定义变量的名字，而不是变量的类型。如果声明变量时，只指定变量的名称而不指定变量的数据类型，VBA默认将该变量定义为Variant类型，如果一个变量被声明为variant类型，俺么它能够存储任何数据类型
强制声明所有变量：如果担心自己忘记在程序中忘记声明变量，可以在模块开头，输入“Option Explicit”
变量的作用域按作用域划分，VBA中的变量可以划分为本地变量，模块变量和公共变量。作用域
描述
单个过程
在一个过程中使用dim或者static语句声明的变量，作用域为本过程，即只有声明变量的语句所在的过程能够使用它，这样的变量，称为本地变量
单个模块
在模块的第一个过程之前使用dim或者private语句声明的变量，作用域为声明变量的语句所在模块中的所有过程，即该模块中所有的过程都可以使用它，这样的边框称为模块级变量
所有模块
在一个模块的第一个过程之前使用public语句声明的变量，作用域为所有模块，即所有模块中的过程都可以使用它，这样的变量称为公共变量
特殊的变量——数组数组就是同种类型的多个变量的集合
数组中的元素可以通过索引值取出
声明数组时应该声明数组的大小“public dim 数组名称 （a to b）as 数据类型”
给数组赋值就是给数组的每个元素分别赋值
声明多维数组Dim arr(a,b) as Integer
这里是声明一个叫arr数组，其形状为a行b列声明动态数组当声明数组时，不知道要在这个数组中填入多少个数据时，可以使用动态数组。将数组声明为动态数组时，不能直接使用变量，需要之后使用redim 重新制定数组大小Sub test()
a = Application.WorksheetFunction.CountA(rang("A:A"))
Dim arr() As String
ReDim arr(1 To a)
End Sub
其他创建数组的方法使用array函数声明数组
Sub arraytest()
Dim arr As Variant
arr = Array(1, 2, 3, 4)
MsgBox "arr数组的第2个元素为：" & arr(1)
End Sub
2. 使用是split函数声明数组Sub arraytest()
Dim arr As Variant
arr = Split("叶枫，空空，小月，老祝", "，")
MsgBox "arr数组的第2个元素为：" & arr(1)
End Sub
通过单元格区域直接创建数组
Sub arraytest()
Dim arr As Variant
Range("A1:C3").Value = 5
arr = Range("A1:C1").Value
Range("e1:G1").Value = arr
End Sub
数组函数利用UBound求数组的最大索引号Sub arraytest()
Dim arr As Variant
Range("A1:C3").Value = 5
arr = Range("A1:C1").Value
MsgBox "数组的最大索引号是：" & UBound(arr)
End Sub
利用LBound函数求最小索引号Sub arraytest()
Dim arr As Variant
Range("A1:C3").Value = 5
arr = Range("A1:C1").Value
MsgBox "数组的最小索引号是：" & LBound(arr)
End Sub
求多维数组的最大和最小索引号Sub arraytest()
Dim arr(10, 100) As Integer
Dim a As Integer, b As Integer
a = UBound(arr, 1)
b = UBound(arr, 2)
MsgBox "第一维的最大索引是：" & a & Chr(13) & "第二维的最大索引是：" & b
End Sub
用join函数将一维数组合并成字符串Sub arraytest()
Dim arr As Variant
arr = Array(1, 2, 3, 4)
Text = Join(arr)
MsgBox Text
End Sub
将数组内容写入工作表中Sub arraytest()
Dim arr As Variant
arr = Array(1, 2, 3, 4, 5, 6, 7)
Range("A4:A11").Value = Application.WorksheetFunction.Transpose(arr)
End Sub
其中transpose是对数组进行列转换。数组内容如果不够填充单元格长度，超出的数据会以NA值填充。若需要填充的单元格数目不够数组长度，那么会按照顺序依次填充。数组的存取当将Excel表中的数据传递给数组时，默认建立的是一个二维数组，因此在取数组的值时，需要传递两个数值进去，如果只传入一个数组，会出现下标越界的警告。数组的第一个数指定行，第二个数指定列arr = range("B1:C1").value
msgbox arr(1,2)
特殊数据的专用容器——常量常量常常用来存储一些固定不变的数据，如利率，税率和圆周率等。**声明常量时，英同时定义常量的名称，可存储的数据类型以及存储在其中的数据。语句为：const 常量名称 as 数据类型 = 存储在常量中的数据
同定义变量一样，在过程内部使用const语句定义的常量称为本地常量，只可以在声明常量的过程中使用；如果在模块的第一个过程之前使用const语句声明常量，该常量被称为模块级常量，该模块中的所有过程都可以使用它；如果想让声明的常量在所有模块中都可以使用它，那么应该在模块的第一个过程之前使用public语句将它声明为公共常量。对象，集合及对象的属性和方法对象就是东西，使用VBA代码操作和控制的东西，属于名词。在VBA中，Excel的工作簿，工作表，单元格等都是对象，图表，透视表，图片等也都是对象，甚至于单元格的边框线，插入的批注都是对象…集合也是对象，它是对多个相同类型对象的统称。每个对象都有属性，对象的属性可以理解为这个对象包含的内容或者具有的特征。对象和属性是相对而言的。单元格相对于字体来说的对象，但是单元格相对于工作表而言是属性方法是在对象上执行的某个动作或者操作，每个对象都有其对应的一个或者多个方法。方法和属性的区别是属性返回对象包含的内容或者具有的特点，如子对象、颜色、大小等；方法是对对象的一种操作，如选中，激活等VBA中的运算符算数运算符运算符
作用
示例
+
求两个数的和
5+9=14
-
求两个数的差，或者求一个数的相反数
8-3=5
*
求两个数的积
/
求两个数的商
\
求连个数相处后所得的商的整数
5\2=2
^
求某个数的次方
Mod
求两个数相除后的余数
12 mod 9 =3
比较运算符运算符
作用
语法
返回结果
=
比较两个数据是否相等
expression1=expression2
相等返回TRUE，不相等返回false
<>
不等于
expression1<> expression2
与上相反
>
比较两个数的大小
expression1> expression2
>=
比较两个数的大小
expression1>= expression2
<
比较两个数的大小
expression1<expression2
<=
比较两个数的大小
expression1<=expression2
is
比较两个对象的引用变量
对象1 is 对象2
当对象1和对象2 引用相同的对象时返回TRUE，否则返回false
like
比较两个字符串是否匹配
字符串1 like 字符串2
当字符串1与字符串2匹配时返回TRUE，否则返回false
通配符通配符
作用
代码举例
*
代替任意多个字符
“李家俊” like “李*”
?
代替任意单个字符
“李家俊” like “李??”
#
代替任意单个数字
“商品5” like “商品#”
[charlist]
代替位于charlist中的任意一个字符
“I” like “[A-Z]”
[!charlist]
代替不位于charlist中的任意一个字符
“I” like “[!A-Z]”
逻辑运算符运算符
作用
语句形式
计算规则
and
执行逻辑“与”运算
表达式1 and 表达式2
当表示式1和表达式2的值都为TRUE时，返回TRUE，否则返回false
or
执行逻辑 “或”运算
表达式1 or 表达式2
二者之一为真返回TRUE，同时为false，返回false
not
执行逻辑“非”运算
not 表示
取反运算
xor
执行逻辑“异或”运算
表达式1 xor 表达式2
当表达式1和表达式2返回的值不相同时返回TRUE，否则返回false
eqv
执行逻辑“等价”运算
表达式1 eqv 表达式2
当表达式1和表达式2返回的值相同时返回TRUE，反之false
Imp
执行逻辑“蕴含”运算
表达式1 imp 表达式2
当表示1的值为TRUE，表达式2的值为false时返回false，否则返回TRUE
VBA内置函数函数虽然很多，但是我们不需要很精确的记住它们。**如果记得某个函数大致拼写，在编写代码时只要在【代码窗口】中输入“VBA.”，就可以在系统显示的函数列表中选择需要使用的函数。执行程序执行的基本语句结构if语句在VBA中，if语句的规则如下：if 条件 then 语句 else 条件
select case语句尽管使用if语句可以解决“多选一”的问题，但当判断的选择条件过多时，使用多个elseif语句或多个if语句，就像一句话里用了太多的如果，会为理解代码逻辑带来困难。通常，当需要在三种或以上的策略中做出选择时，我们会选择使用select case 语句来解决问题Sub test()
Select Case Range("B2").Value
Case Is >= 90
Range("C2").Value = "优秀"
Case Is >= 80
Range("C2").Value = "良好"
Case Is >= 60
Range("C2").Value = "及格"
Case Is < 60
Range("c1").Value = "不及格"
End Select
End Sub
for 循环在VBA中定义for循环的语法规则如下：for 循环变量=初值 to 终值 step 步长值
循环体
next 循环变量名
for循环都要以next结尾Sub test()
Dim irow As Byte
Dim i As Byte
For i = 1 To 10 Step 1
Select Case Range("B" & i).Value
Case Is > 100
Range("C" & i).Value = "信息错误"
Case Is >= 90
Range("C" & i).Value = "优秀"
Case Is >= 80
Range("C" & i).Value = "良好"
Case Is >= 60
Range("C" & i).Value = "及格"
Case Is < 60
Range("C" & i).Value = "不及格"
End Select
Next i
End Sub
for each…next语句循环处理集合或数组中的成员当需要循环处理一个数组的每个元素或者集合中的每个成员时，使用for each……next语句Sub test()
Dim i As Byte
j = 1
For Each sht In Worksheets
Range("D" & j).Value = sht.Name
j = j + 1
Next sht
End Sub
do while循环do while语句可以分为两种，按照设置循环条件的位置区分，可以分为开头判断式和截尾判断式。其语句结构如下：开头判断式
do [while 循环条件]
循环体
exit do
循环体
loop
截尾判断式
do
循环体
exit do
循环体
loop [while 循环条件]
每个do语句都必须以loop结尾，当循环进行到loop处时，会重新回到do语句判断条件是否成立Sub test()
Dim i As Byte
i = 1
Do
Worksheets.Add
i = i + 1
Loop While i < 5
End Sub
使用Goto语句，让程序转到另一条语句去执行要让goto语句清楚的知道要转向的目标语句，可在目标语句之前加上一个带冒号的文本字符创，或者不带带冒号的数字标签，然后在goto的后面写上标签名Sub test()
Dim i As Integer
Dim sum As Long
i = 1
x:
mysum = mysum + i
i = i + 1
If i <= 100 Then GoTo x
MsgBox "1到100的和为：" & mysum
End Sub
with语句，简写代码当需要对相同的对象进行多次操作时，往往会编写一些重复的代码。如果不想重复多次的录入相同的语句，可以用with语句简化Sub fontest()
With Worksheets("Sheet1").Range("A1").Font
.Name = "仿宋"
.ColorIndex = 3
.Bold = True
.Size = 12
End With
End Sub
sub过程，基本的程序单元sub过程的基本结构[private|public|static] sub 过程名([参数列表])
语句块
[exit sub]
语句块
end sub
private或public用来声明过程的作用域，同时只能使用一个，可以省略，如果省略，默认使用public。如果选用static，过程执行结束后，会继续保存过程中变量的值在过程中调用过程直接使用过程名调用过程，过程名与参数之间用英文逗号隔开
subname,arg1,arg2
sub runsub()
subadd
end sub
使用call关键字调用过程，参数写在过程小括号中，不同参数之间用逗号隔开
call 过程名(args,arg2)
sub runsub()
call subadd
end sub
使用application对象的run方法调用过程
application.run "subname,arg1,arg2"
sub runsub()
application.run "subadd"
sub过程中的参数传递在VBA中，过程的参数传递主要有两种形式：按引用传递和按值传递。默认情况下，过程是按照引用的方式传递参数的。如果程序通过引用的方式传递参数，只会传递保存数据的内存地址，在过程中对参数的任何修改都会影响原始的数据。Sub shtadd(shtcount As Integer)
Worksheets.Add Count:=shtcount
shtcount = 8
MsgBox "shtcount的值：" & shtcount
End Sub
Sub test()
Dim c As Integer
c = 2
Call shtadd(c)
MsgBox "参数过程中的值为：" & c
End Sub
自定义函数，function过程声明一个自定义函数public function 函数名([参数])
函数体
函数名= 结果
end function
无论function过程包含多少代码，要执行多少计算，都应该将最后的计算结果保存在过程名称中，这相当于其他语言中的函数return内容使用自己定义的函数在Excel中使用：如果定义的函数没有被定义为私有过程，那么我们可以通过【插入函数】在Excel中使用我们自定义的函数。
Public Function fun()
fun = Int(Rnd() * 10) + 1
End Function
在VBA过程中使用
Sub test()
MsgBox fun()
End Sub
function examplePublic Function count_color(arr As Range, c As Range)
Dim rng As Range
For Each rng In arr
If rng.Interior.Color = c.Interior.Color Then
count_color = 1 + count_color
End If
Next rng
End Function
设置函数为易失性函数，让自定义函数也能重复计算有时，当工作表重新计算后，自定义函数并不会重新计算。如果想让工作表重新计算后，自定义的函数也能随之重新计算，就应该讲自定义函数定义为易失性函数。要将一个自定义函数定义为易失性函数，只需要在function过程开始时添加下面一行代码：application.voliatile true
example
Public Function fun()
application.voliatile true
fun = Int(Rnd() * 10) + 1
End Function
操作对象VBA中常用的对象对象
对象说明
Application
代表Excel应用程序（如果在word中使用VBA，就代表word应用程序）
Workbook
代表Excel工作簿，一个workbook对象代表一个工作簿文件
worksheet
代表Excel的工作表，一个worksheet对象代表工作簿中的一个普通工作表
range
代表Excel中的单元格，可以是单个单元格，也可以是单元格区域
application对象操作使用ScreenUpdating属性设置更新屏幕application对象的ScreenUpdating属性是控制屏幕更新的开关。如果设置其为false，那么屏幕将不会更新，我们将不会看到每一步的执行结果Sub test()
Application.ScreenUpdating = False
Range("A1:A10").Value = 10
MsgBox "刚才输入的结果是10，你看到了吗？"
Range("A1:A10").Value = 100
MsgBox "刚才的输入是100，你看到了吗"
Application.ScreenUpdating = True
End Sub
设置DisplayAlerts属性禁止显示警告对话框当我们在Excel中执行某些操作时，Excel会显示一个警告框，让我们确定是否执行这些操作。由于很多原因，我们都希望Excel在程序执行中不显示类似的警告对话框，这样可以通过设置application对象的displayalerts属性为false来实现Sub sheettest()
Worksheets.Add Count:=5
Application.DisplayAlerts = False
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> ActiveSheet.Name Then
sht.Delete
End If
Next sht
Application.DisplayAlerts = True
End Sub
借助worksheetfunction属性使用工作表函数VBA中有许多的内置函数，合理使用函数可有效减少工作中的许多难题，减少编写代码的工作量。但是VBA中没有Excel的内置函数，使用worksheetfunction可以调用Excel中的内置函数。Sub cunt()
Dim mycount As Integer
Range("A1:B10").Value = 101
mycount = Application.WorksheetFunction.CountIf(Range("A1:B10"), ">100")
MsgBox "这片区域大于100的单元格是：" & mycount
End Sub
如果VBA中已经有了相同功能的函数，就不能再通过worksheetfunction属性引用工作表中的函数。并且并不是所有的工作表函数都可以通过worksheetfunction属性来调用设置属性，更改Excel的工作界面设置application对象的属性来修改Excel的界面在【立即窗口】执行的代码
修改的区域
application.caption = “我的Excel”
标题栏
application.caption “miscrosoft excel”
标题栏
application.displayformulabar = false
编辑栏
application.displaystatusbar = false
状态栏
application.statusbar = “正在编辑。。。。”
状态栏
application.statusbar = false
状态栏
activewindow.displayheadings = false
行标和列标
application的子对象application对象的常用属性属性
返回的对象
ActiveCell
当前活动单元格
ActiveChart
当前活动工作簿中的活动图表
Activesheet
当前活动工作簿中的活动工作表
ActiveWindow
当前活动窗口
ActiveWorkbook
当前活动工作簿
Charts
当前活动工作簿中的所有的图表工作表
selection
当前活动工作簿中所有选中的对象
sheets
当前活动工作簿中的所有sheet对象，包括普通工作表，图表工作表，Excel4.0宏工作表和5.0对话框工作表
worksheets
当前活动工作簿的所有worksheet对象（普通工作表）
workbooks
当前所有打开的工作簿
workbook对象引用workbook对象通过文件索引引用
通过文件名引用
sub test()
workbooks(3)
workbooks("sheet1")
end sub
访问workbook对象属性Sub info()
Range("c1") = ThisWorkbook.Name
Range("C2") = ThisWorkbook.Path
Range("C3") = ThisWorkbook.FullName
End Sub
创建工作簿——add创建空白工作簿：如果直接调用workbook对象的add方法，而不设置任何参数，excel将创建一个只含普通工作表的新工作簿
指定用来创建工作簿的模板： 如果想将某个工作簿文件作为新建工作簿的模板，可以使用add方法的template参数指定该文件的名称及其所在的所在目录
指定新建工作簿包含的工作簿类型
workbooks.add
workbooks.add template:="D:\file\template.xlsm"
workbooks.add template := xlWBATChart '让新建的工作簿包含图表工作表
用add方法的参数指定新建的工作簿包含的工作表类型参数值
工作簿包含的工作表类型
xlWBATWorksheet
普通工作表
xlWBATChart
图表工作表
xlWBATExcel4Macrosheet
4.0宏工作表
xlWBATExcel4IntlMacrosheet
5.0对话框工作表
用open方法打开工作簿workbooks.open filename := "path"
activate激活工作簿workbooks("workbooks_name").activate
保存工作簿save方法保存已存在的文件
saveas方法将工作簿另存为新文件
另存为新文件后不关闭原文件
thisworkbooks.save
thisworkbooks.saveas filename:="path"
thisworkbooks.savecopyas filename :="path"
close——关闭工作簿workbooks.close
'关闭当前打开的所有工作簿
workbooks("workbooks_name").close '关闭指定名称的工作簿
workbooks.close savechanges := true '关闭并保存对工作簿的修改
worksheet对象add方法新建工作表在活动工作表前插入一张工作表
用before|after参数指定要插入工作表的位置
用count 参数指定要插入的工作表数量
worksheets.add
worksheets.add before|after := worksheet_name
worksheets.add count:=number
设置name属性，更改工作表的标签名称worksheets("worksheet_name").name = name
用delete方法删除工作表worksheets('worksheet_Name').delete
激活工作表的两种方法worksheets("worksheet_name").avtivate
worksheets("worksheet_name").select
用copy方法复制工作表将工作表复制到指定位置
将工作表复制到新工作簿中
worksheets('worksheet_name').copy before|after :=worksheet_name
worksheets("worksheet_name").copy
使用move移动工作表将工作表移动到指定位置
将工作表移动到新工作簿中
worksheets('worksheet_name').move before|after :=worksheet_name
worksheets("worksheet_name").move
设置visible属性，隐藏或者显示工作表worksheets("worksheet_name").visible =False or True
访问count属性，获得工作簿中工作表的数目worksheets.count
range对象用range属性引用单元格引用单个固定的单元格区域：这种方法实际上就是通过单元格地址来引用单元格
引用多个不连续的单元格：将range属性的参数设置为一个用逗号分成多个单元格地址组成的字符串
引用多个区域的公共区域：将range属性设置成为一个用空格分割的多个单元格地址组成的字符串
引用两个区域围成的矩形区域
range("A1:C1")
range("A1:A10,E6,E7:C12").select
range("B1:B10 A4:D6").value
range("B6:B10","D2:D8")
用cell属性引用单元格引用工作表中指定行列交叉的单元格
引用单元格区域中的某个单元格
将cells属性的返回结果设置为range属性的参数
使用索引号引用单元格
activesheet.cells(3,4) ‘选中第三行和第四列的交叉单元格D3’
range("B3:F9").cells(2,3)=10 '在B3:F9区域的第2行与第3列交接处输入100'
range(cells(1,1),cells(5,14)).select '指定A1：D5区域'
activesheet.cells(2).value=200 '指定工作表的第二个单元格为200'
引用整行单元格在VBA中，rows表示工作表或某个区域中所有行组成的集合，要引用工作表汇总指定的行，可以使用行号或者索引号两种方式activesheet.rows("3:3").select '选中活动工作表中的第三行'
activesheet.rows("3:5").select '选中活动工作表的3-5行'
activesheet.rows(3) '选中活动工作表的第三行'
引用整列单元格在VBA中，columns表示工作表或某个区域中所有行组成的集合，要引用工作表汇总指定的行，可以使用行号或者索引号两种方式activesheet.columns("F:G").select '选中活动工作表中的第F-G列'
activesheet.columns(3) '选中活动工作表的第6列'
使用union方法合并多个单元格区域application对象的union方法返回参数指定的多个单元格区域的合并区域，使用该方法可以将多个range对象组合在一起，进行批量操作。application.union(range("A1:A10"),range("D1:D5")).select '同时选中两个区域'
range对象的offset属性使用offset属性，可以获得相对于指定单元格区域一定偏移量位置上的单元格区域。offset有两个参数，分别用来设置该属性的父对象在上下或者左右方向上偏移的行列数range("B2:C3").offset(5,3).value=200 '将B2:C3区域右移3个单元格，下移5个单元格'
range对象的resize属性使用range对象的resize属性可以将指定的单元格区域有目的地扩大或者缩小，得到一个新的单元格区域。range("B2").resize(4,5) '将B2区域扩大成了一个4行5列的区域'
range("B2:E6").resize(2,1) '将原区域缩小为一个两行一列的区域'
worksheet对象的usedrange属性worksheet对象的usedrange属性返回工作表中已经使用的单元格围城的矩形区域.usedrange属性返回的总是一个矩形区域，无论这些区域是否存在空行，空列或者空单元格activesheet.usedrange.select '选中活动工作表中已经使用的单元格区域'
range对象的currentregion属性range对象的currentregion属性返回包含指定单元格在内的一个连续的矩形区域,空行及下面的区域以及空列及右面的区域不包含在currentregion区域内range("B5").currentregion.select
range对象的end属性range对象的end属性返回包含指定单元格的区域最尾端的单元格，返回结果等同于在单元格中按【enter+方向键】得到的单元格range("C5").end(xlUP).address
end参数及说明可设置的参数
参数说明
xlToLeft
等同于在单元格中按【end+左方向键】
xlToRight
等同于在单元格中按【end+右方向键】
xlUp
等同于在单元格中按【end+上方向键】
xlDown
等同于在单元格中按【end+下方向键】
value属性——单元格中的内容range("A1:B2").value="abc"
count属性，获得区域中包含的单元格个数range("B4:F10").count
range("B4:F10").rows.count
range("B4:F10").columns.count
通过address属性获取单元格地址msgbox "当前选中单元格的地址为"&selection.address
用activate和select方法选中单元格activesheet.range("A1:F5").activate
activesheet.range("A1:F5").select
copy方法复制单元格区域无论复制多少单元格，destination参数只需要指定左上角单元格坐标就好range('region').copy destination：=range("other_region")
cut方法剪切单元格区域无论剪切多少单元格，destination参数只需要指定左上角单元格坐标就好range('region').cut destination:=range("other_region")
用delete方法删除指定的单元格调用range对象的delete方法可以删除指定的单元格，但与手动删除单元格不同，通过VBA代码删除单元格，excel不会显示【删除】对话框。想让excel在删除指定的单元格后，按自己的意愿处理其他单元格，我们需要编写VBA代码将自己的意图告诉excel。如想删除B3所在的整行单元格，应将代码写为：range("B3").entirerow.delete
操作对象的一些例子根据需求创建工作簿利用VBA创建一个符合自己需求的工作簿，并将其保存到指定的目录中Sub wbadd()
Dim wb As Workbook
Dim sht As Worksheet
Set wb = Workbooks.Add
Set sht = wb.Worksheets(1)
With sht
.Name = "员工花名册"
End With
wb.SaveAs ThisWorkbook.Path & "员工花名册.xlsx"
ActiveWorkbook.Close
End Sub
判断某个工作簿是否已经打开Sub isopen()
Dim i As Integer
For i = 1 To Workbooks.Count
If Workbooks(i).Name = "成绩表.xlsx" Then
MsgBox "成绩表文件已打开"
Exit Sub
End If
Next
MsgBox "文件未打开"
End Sub
判断文件夹中是否存在指定名称的工作簿文件Sub isexist()
Dim fil As String
fil = ThisWorkbook.Path & "\员工花名册.xlsx"
If Len(Dir(fil)) > 0 Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If
End Sub
向未打开的工作簿中输入数据Sub wbinput()
Dim wb As String, xrow As Integer, arr
wb = ThisWorkbook.Path & "\员工花名册.xlsx"
Workbooks.Open (wb)
With ActiveWorkbook.Worksheets(1)
xrow = .Range("A1").CurrentRegion.Rows.Count + 1
arr = Array(xrow - 1, "马军", "男", #7/8/1987#, #9/1/2010#, "10年新招")
.Cells(xrow, 1).Resize(1, 6) = arr
End With
ActiveWorkbook.Close savechanges:=True
End Sub
隐藏活动工作表外的所有工作表Sub shtvisible()
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> ActiveSheet.Name Then
sht.Visible = xlSheetVeryHidden
End If
Next
End Sub
批量新建指定名称的工作表Sub shtadd()
Dim i As Integer
Dim sht As Worksheet
i = 1
Set sht = Worksheets("Sheet11")
Do While sht.Cells(i, "E") <> ""
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = sht.Cells(i, "E").Value
i = i + 1
Loop
End Sub
批量对数据进行分离，并保存到不同的工作表中Sub fenlie()
Dim i As Long, bj As String, rng As Range
i = 1
bj = Worksheets("Sheet11").Cells(i, "C").Value
Do While bj <> ""
Set rng = Worksheets(bj).Range("A1048576").End(xlUp).Offset(1, 0)
Worksheets("Sheet11").Cells(i, "A").Resize(1, 7).Copy rng
i = i + 1
bj = Worksheets("Sheet11").Cells(i, "C").Value
Loop
End Sub
将多张工作表中的数据合并到一张工作表中Sub hebing()
Dim sht As Worksheet
Set sht = Worksheets("Sheet11")
sht.Rows.Clear
Dim wt As Worksheet, xrow As Integer, rng As Range
For Each wt In Worksheets
If wt.Name <> "Sheet11" Then
Set rng = sht.Range("A1048576").End(xlUp)
xrow = wt.Range("A1").CurrentRegion.Rows.Count
wt.Range("A1").Resize(xrow, 7).Copy rng
End If
Next
End Sub
将工作簿中的每张工作表都保存为单独的工作簿文件Sub savetofile()
Application.ScreenUpdating = False
Dim folder As String
folder = ThisWorkbook.Path & "\班级成绩表"
If Len(Dir(folder, vbDirectory)) = 0 Then
MkDir folder
End If
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> "Sheet11" Then
sht.Copy
ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xlsx"
ActiveWorkbook.Close
End If
Next
Application.ScreenUpdating = True
End Sub
将多个工作簿中的数据合并到同一张工作表中Sub hzwb()
Dim bt As Range, r As Long, c As Long
r = 1
c = 7
Dim wt As Worksheet
Set wt = ThisWorkbook.Worksheets(1)
wt.Rows(r & ":1045876").ClearContents
Application.ScreenUpdating = False
Dim filename As String, sht As Worksheet, wb As Workbook
Dim erow As Long, fn As String, arr As Variant
filename = Dir(ThisWorkbook.Path & "\*.xlsx")
Do While filename <> ""
If filename <> ThisWorkbook.Name Then
erow = wt.Range("A1").CurrentRegion.Rows.Count
fn = ThisWorkbook.Path & "\" & filename
Set wb = GetObject(fn)
Set sht = wb.Worksheets(1)
arr = sht.Range(sht.Cells(r, "A"), sht.Cells(1048576, "B").End(xlUp).Offset(0, 5))
wt.Cells(erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
wb.Close savechanges:=True
End If
filename = Dir
Loop
Application.ScreenUpdating = True
End Sub
为同一工作簿中的工作表建一个带链接的目录Sub mulu()
Dim wt As Worksheet
Set wt = Worksheets("Sheet11")
wt.Rows("1:1048576").ClearContents
Dim sht As Worksheet, irow As Integer
irow = 1
For Each sht In Worksheets
If sht.Name <> "Sheet11" Then
wt.Cells(irow - 1, "A").Value = irow - 1
wt.Hyperlinks.Add anchor:=wt.Cells(irow - 1, "B"), Address:="", SubAddress:="'" & sht.Name & "'!A1", TextToDisplay:=sht.Name
End If
irow = 1 + irow
Next
End Sub
其中参数anchor指定建立超链接的位置，address指定超链接的地址，subaddress指定超链接的子地址，TexttoDisplay指定用于显示超链接的文字执行程序的自动开关——对象的事件让excel自动相应我们的操作打开thisworkbook的代码窗口
选择workbook对象，在声明中选择open
编写子程序
当某个事件放生后自动运行的过程，称为事件过程，事件过程也是sub过程 。与sub过程不同的是，时间过程的作用域，过程名称及参数都不需要我们设置，也不能随意设置。时间过程的过程名称总是由对象名称及时间名称组成的，对象在前，事件在后，二者之间用下划线连接。使用工作表事件工作表事件就是发生在worksheet对象中的事件，一个工作簿中可能包含多个worksheet对象，而worksheet事件过程必须写在相应的worksheet中，只有过程所在的worksheet对象中的操作才能触发相应的事件。worksheet对象的change事件worksheet对象的change事件告诉VBA：当过程所在工作表中的单元格被更改时自动运行程序。编写事件过程，通常我们都采用这种方式：依次在【代码窗口】的【对象】列表框和【事件】列表框中选择相应的对象及事件名称，让VBA自动替我们设置事件过程的作用域、过程名称以及参数信息更改单元格时自动执行
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Target.Address & "被更改为" & Target.Value
End Sub
更改部分单元格时自动执行
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then
Exit Sub
End If
MsgBox Target.Address & "被更改为" & Target.Value
End Sub
禁用事件，让事件过程不再自动执行禁用事件就是执行操作后不让事件发生。在VBA中，可以设置application对象的EnableEvents属性为false来禁用事件Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Offset(0, 1).Value = "测试一下"
Application.EnableEvents = True
End Sub
selectionchange事件：当选中的单元格改变时发生worksheet对象的selectionchange时间告诉VBA：当更改工作表中选中的单元格区域时自动执行该事件的事件过程。Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "你当前所选中的单元格是：" & Target.Address
End Sub
高亮选择区域的相同值Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A3:I66").Interior.ColorIndex = xlNone
If Application.Intersect(Target, Range("A3:I66")) Is Nothing Then
Exit Sub
End If
If Target.Count > 1 Then
Set Target = Target.Cells(1)
End If
Dim rng As Range
For Each rng In Range("A3:I66")
If rng.Value = Target.Value Then
rng.Interior.ColorIndex = 6
End If
Next
End Sub
用批注记录单元格中数据的修改情况Dim rngvalue As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then
Exit Sub
End If
Dim cvalue As String
If Target.Formula = "" Then
cvalue = "空"
Else
cvalue = Target.Text
End If
If rngvalue = cvalue Then
Exit Sub
End If
Dim rngcom As Comment
Dim comstr As String
Set rngcom = Target.Comment
If rngcom Is Nothing Then Target.AddComment
comstr = Target.Comment.Text
Target.Comment.Text Text:=comstr & Chr(10) & Format(Now(), "yyyy-mm-ddhh:mm") & _
"原内容：" & rngvalue & "修改为：" & cvalue
Target.Comment.Shape.TextFrame.AutoSize = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then
Exit Sub
End If
If Target.Formula = "" Then
rngvalue = "空"
Else
rngvalue = Target.Text
End If
End Sub
常用的worksheet事件worksheet对象一共有17个时间，可以在【代码窗口】的【事件】列表框或VBA帮助中查看这些事件常用的worksheet事件事件名称
时间说明
activate
激活工作表时发生
beforeDelete
在删除工作表之前发生
beforeDoubleClick
双击工作表之后，默认的双击操作之前发生
beforeRightClick
右击工作表之后，默认的右击操作发生之前
calculate
重新计算工作表之后发生
change
工作表中的单元格发生更改时发生
deactivate
工作表由活动工作表变为不活动工作表时发生
followHyperlink
单击工作表中的任意超链接时发生
PivotTableUpdate
在工作表中更新数据透视表后发生
selectionchange
工作表中所选内容发生更改时发生
使用工作簿事件工作簿事件是发生在workbook对象中的事件，一个workbook对象代表一个工作簿，workbook对象的事件过程必须写在ThisWorkbook模块中，可以在【工程资源管理器】中找到这个模块open事件：当打开工作簿时发生open事件是最常用的workbook事件之一，同国外吗会使用该事件对excel进行初始化设置，如设置想打开工作簿看到的excel窗口或工作界面，显示我们自定义的用户窗体等beforeclose事件： 在关闭工作簿之前发生private sub workbook_beforeclose(cancel as boolean)
if msgbox("你确定要关闭工作簿吗？",vbyesno) =vbno then
cancel =true
end if
end sub
sheetchange事件：更改任意工作表中的单元格时发生Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox "你正在更改的是：" & Sh.Name & "工作表中的" & Target.Address & "单元格"
End Sub
常用的workbook事件事件名称
事件说明
activate
当激活工作簿时发生
AddinInstall
当工作簿作为加载宏安装时发生
AddinUninstall
当工作簿作为加载宏卸载时发生
AfterSave
当保存工作簿之后发生
BeforeClose
当关闭工作簿之前发生
BeforePrint
在打印指定工作簿之前发生
beforesave
在保存工作簿之前发生
Deavtivate
在工作簿状态作为非活动状态时发生
NewChart
在工作簿新建一个图表时发生
Newsheet
在工作簿新建一个工作表时发生
open
打开工作簿时发生
sheetavtivate
激活任意工作表时发生
sheetBeforeDoubleClick
在双击任意工作表之前发生
sheetBeforeRightClick
在右击任意工作表之前发生
sheetCalculate
在重新计算工作表之后发生
SheetChange
当更改了任意工作表的单元格之后发生
sheetDeactivate
当任意工作表转为非活动状态时发生
sheetFollowHyperLink
当单击工作簿中的任意超链接时发生
SheetPivotTableUpdate
当更新任意数据透视表时发生
sheetSelectionchange
当任意工作表中的选定区域发生更改时发生
WindowActivate
在激活任意工作簿窗口时发生
windowdeactivate
当任意窗口变为不活动窗口时发生
windowresize
在调整任意工作簿窗口大小时发生
不是事件的事件application对象的onkey方法OnKey方法告诉excel，当按下键盘上指定的键或者组合键时，自动执行指定的程序Sub test()
Application.OnKey "+e", "Hello"
End Sub
Sub Hello()
MsgBox "我在学习onkey方法"
End Sub
在onkey中可以设置的按键及其对应代码要使用的键
应设置的代码
Backspace
{backspace} or {BS}
Break
{Break}
Caps Lock
{CAPSLOCK}
Delete or Del
{DELETE} OR {DEL}
向下箭头
{DOWN}
End
{END}
Enter(数字小键盘)
{ENTER}
ENTER
~
Esc
{ESCAPE} OR {ESC}
Home
{HOME}
Ins
{INSERT}
向左箭头
{LEFT}
Num Lock
{NUMLOCK}
PageDown
{PGDN}
PageUp
{PGUP}
向右箭头
{RIGHT}
Scroll Lock
{SCROLLLOCK}
Tab
{TAB}
向上箭头
{UP}
F1到F15
{F1}到{F15}
Shift
+
Crtl
^
Alt
%
Application对象的OnTime方法Ontime方法告诉VBA，在指定的时间自动执行指定的过程Sub test()
Application.OnTime TimeValue("14:07:00"), "Hello"
End Sub
Sub Hello()
MsgBox "我在学习ontime方法"
End Sub
Ontime的DateSerial参数可以设置指定的年月日；Scheduled的值如果为TRUE，会新设置一个Ontime过程，如果为False，就会清除之前设置的过程，默认值为TRUE让文件自动保存Sub test()
Application.OnTime Now() + TimeValue("00:05:00"), "AutoSave"
End Sub
Sub AutoSave()
ThisWorkbook.Save
Call test
End Sub
设置自定义的操作界面控件，搭建操作界面必不可少的零件excel中有两种类型的控件：表单控件和ActiveX控件。可以在excel的【功能区】中找到它们表单控件
控件名称
控件说明
按钮
用于执行宏命令
组合框
提供可选择的多个选项，用户可以选择其中一个项目
复选框
用于选择的控件，可以多项选择
数值调节按钮
通过单击控件的箭头来选择数值
列表框
显示多个选项的列表，用户可以从中选择一个选项
选项按钮
用于选择的控件，通常几个选项按钮用组合框组合在一起使用，在一组中只能同时选择一个选项按钮
分组框
用于组合其他多个控件
标签
用于输入和显示静态文本
滚动条
包括水平滚动条和垂直滚动条
ActiveX控件：excel中有11中可用的ActiveX控件，但是工作表总使用的ActiveX控件不止这些，可以单击其中的【其他控件】按钮，在弹出的对话框中选择其他控件
在工作表中使用控件添加表单控件
2. 绘制表单控件3. 设置相应区域在工作表中使用ActiveX控件添加ActiveX控件
2. 设置属性编写控件代码
Private Sub xb2_Click()
If xb2.Value = True Then
Range("D2").Value = "女"
xbl.Value = False
End If
End Sub
Private Sub xbl_Click()
If xbl.Value = True Then
Range("D2").Value = "男"
xb2.Value = False
End If
End Sub
显示内容
不需设置，使用现成的对话框用InputBox函数创建一个可输入数据的对话框Input函数共有5个参数：prompt参数用于设置在对话框中显示的提示消息
title用于设置对话框的标题
default用于设置默认的输入值
xpos用于设置对话框与左端与屏幕左端的距离
ypos用于设置对话框的顶端与屏幕顶端的距离
Sub inbox()
Dim c As Variant
c = InputBox("你要在A1单元格输入什么数据？", Title:="提示", Default:="叶飞", xpos:=200, ypos:=250)
Range("A1").Value = c
End Sub
用input方法创建交互对话框用application对象的inputbox方法也可以创建于程序互动的对话框，但要注意与Inputbox函数相比，Input方法的参数有些许不同application.inputbox(prompt:="内容",title:= “标题”
default := "默认值", left := "与屏幕左端距离"
top := “与屏幕右端距离”, type := "输入数据的类型")
type参数的可设置项及说明可设置的参数值
方法返回结果的类型
0
公式
1
数字
2
文本（字符串）
4
逻辑值（true or false）
8
单元格引用（range对象）
16
错误值
64
数值数组
Sub rngpinput()
Dim rng As Variant
On Error GoTo cancel
Set rng = Application.InputBox("请选择需要输入数值的单元格", Type:=8)
rng.Value = 100
cancel:
End Sub
使用msgbox函数创建输出对话框Sub msg()
MsgBox "你正在编辑的是：" & ThisWorkbook.Name, Buttons:=vbOKOnly + vbInformation, Title:="提示"
End Sub
设置在对话框中显示的按钮样式常数
值
说明
vbOkonly
0
只显示【确定】按钮
vbOkcancel
1
只显示【确定】和【取消】按钮
vbAbortRetryIgnore
2
显示【终止】，【重试】，【忽略】三个按钮
vbYesNoCancel
3
显示是，否，取消三个按钮
vbYesNo
4
显示是，否两个按钮
vbRetryCancel
5
显示重试，取消两个按钮
不同图标的参数设置常数
值
说明
vbCritical
16
显示【关键信息】图标
vbQuestion
32
显示【警告询问】图标
vbExclamation
48
显示【警告消息】图标
vbInformation
64
显示【通知消息】图标
设置对话框中的默认按钮常数|值|说明vbDefaultButton1
0
第一个按钮为默认值vbDefaultButton2
256
第二个按钮为默认值vbDefaultButton3
512
第三个按钮为默认值vbDefaultButton4
768
第四个按钮为默认值指定对话框的类型常数
值
说明
vbApplicationModel
0
应用程序强制返回；应用程序暂停执行，直到用户消息框做出响应才继续
vbSystemModel
4096
系统强制返回；全部应用程序都暂停执行，直到用户对消息框做出响应才继续工作
buttons参数的其他设置常数
值
说明
vbMsgBoxHelpButton
16384
在对话框中添加帮助按钮
vbMsgBoxForeground
65536
设置显示的对话框窗口为前景窗口
vbMsgBoxRight
524288
设置对话框中显示的文本为右对齐
vbMsgBoxRtlReading
1048576
指定文本英在希伯来文和Alibaba系统中显示为从右到左阅读
MsgBox函数的返回值常数
值
说明
vbOk
1
单击【确定】按钮时
vbCancel
2
单击【取消】按钮时
vbAbort
3
单击【终止】按钮时
vbRetry
4
单击【重试】按钮时
vbIgnore
5
单击【忽略】按钮时
vbYes
6
单击【是】按钮时
vbNo
7
单击【否】按钮时
Sub msgbut()
Dim yn As Integer
yn = MsgBox("你确定要在A1单元格输入今天的日期吗？", vbYesNo + vbQuestion)
If yn = vbYes Then
Range("A1").Value = Now()
End If
End Sub
使用FindFile方法显示【打开】对话框使用application对象的FindFile方法可以显示【打开】对话框，在对话框中选择并打开某个文件Sub openfile()
If Application.FindFile = True Then
MsgBox "the file you chosed has benn open"
Else
MsgBox "你单击了【取消按钮】，操作未完成"
End If
End Sub
用GetOpenFileName方法显示【打开】对话框与findfile方法不同，使用GetOpenFileName方法是获得在对话框中选中的文件的文件名称（包含路径），而findfile是打开在对话框中选中的文件选择任意文件
Sub getopen()
Dim fil
fil = Application.GetOpenFilename
If fil = False Then
MsgBox "没有任何文件"
Exit Sub
Else
Range("E6").Value = fil
End If
End Sub
只在对话框中显示某种类型的文件
Sub getopen()
Dim fil
fil = Application.GetOpenFilename(filefilter:="图片文件,*.jpg")
If fil = False Then
MsgBox "没有任何文件"
Exit Sub
Else
Range("E6").Value = fil
End If
End Sub
让对话框同时显示多种扩展名文件
Sub getopen()
Dim fil
fil = Application.GetOpenFilename(filefilter:="图片文件,*.jpg;*png")
If fil = False Then
MsgBox "没有任何文件"
Exit Sub
Else
Range("E6").Value = fil
End If
End Sub
让对话框能选择显示多种类型的文件
Sub getopen()
Dim fil
fil = Application.GetOpenFilename(filefilter:="图片文件,*.jpg;*png,Excel工作簿文件,*xls;*xlsx")
If fil = False Then
MsgBox "没有任何文件"
Exit Sub
Else
Range("E6").Value = fil
End If
End Sub
通过FilterIndex参数设置默认显示的文件类型如果在【文件类型】下拉列表中设置了多种可选择的文件类型，就可以通过GetOpenFileName方法的FiterIndex参数，设置对话框中默认显示的文件类型
Sub getopen()
Dim fil
fil = Application.GetOpenFilename(filefilter:="图片文件,*.jpg;*png, Excel工作簿文件, *xls;*xlsx", FilterIndex:=2)
If fil = False Then
MsgBox "没有任何文件"
Exit Sub
Else
Range("E6").Value = fil
End If
End Sub
设置允许同时选择多个文件默认情况下，在通过GetOpenFileName方法显示的【打开】对话框中，只能同时选中一个文件，如果希望同时选中多个文件，可以将MultiSelect参数设置为TRUE
Sub getopen()
Dim fil
fil = Application.GetOpenFilename(filefilter:="图片文件,*.jpg;*png, Excel工作簿文件,*xls;*xlsx", FilterIndex:=2, MultiSelect:=True)
Range("E6").Value = fil
End Sub
修改对话框标题
Sub getopen()
Dim fil
fil = Application.GetOpenFilename(filefilter:="图片文件,*.jpg;*png, Excel工作簿文件,*xls;*xlsx", FilterIndex:=2, MultiSelect:=True, Title:="请选择你要获取名称的文件")
Range("E6").Value = fil
End Sub
用GetSaveAsFilename方法显示【另存为】对话框要想获得选中的文件名称，还可以调用application对象的GetSaveAsFilename方法打开【另存为】对话框，在对话框文中选择文件，获得该文件包含路径信息的文件名称Sub getsaveas()
Dim fil As String, filename As String, filter As String, tile As String
filename = "例子"
filter = "Excel工作簿,*xls;*xlsx,Word文档,*.doc;*.docx"
Title = "请选择要获取信息的文件"
fil = Application.GetSaveAsFilename(InitialFileName:=filename, fileFilter:=filter, Title:=Title, FilterIndex:=2)
Range("A10") = fil
End Sub
使用application对象的FileDialog属性获取目录名称如果想要获得的不是文件名，而是指定目录的路径及名称，可以使用application对象的FileDialog属性。Sub getfolder()
With Application.FileDialog(filedialogtype:=msoFileDialogFilePicker)
.InitialFileName = "D:\"
.Title = "请选择一个目录"
.Show
If .SelectedItems.Count > 0 Then
Range("A1").Value = .SelectedItems(1)
End If
End With
End Sub
msoFileDialogType参数可以设置的常量常量
说明
msoFileDialogFilePicker
允许选择一个文件
msoFileDialogFolderPicker
允许选择一个文件夹
msoFileDialogOpen
允许打开一个文件
msoFileDialogSaveAs
允许保存一个文件
使用窗体对象设置交互界面很多时候，我们都希望自己能够设计一个交互界面，定义其中的控件及控件的功能，这就需要用到VBA中的另一类常用对象——Userform对象。一个用户窗体就是一个Userform对象，也就是大家常说的窗体对象。当在工程中添加一个窗体后，就可以在窗体上自由的添加ActiveX控件，只要通过编写VBA代码为这些控件指定功能，就能利用这些控件与excel互动在工程中添加一个用户窗体
设置属性，改变窗体的外观
在窗体中添加和设置控件的功能
用代码操作自己设计的窗体显示窗体手动显示窗体
在VBE窗口中选中窗体，依次执行【运行】——>【运行子过程/窗体】命令，即可显示选中的窗体在程序中用代码显示窗体
sub showform()
load inputform
inputform.show
end sub
将窗体显示为无模式窗体模式窗体不能操作窗体之外的对象
要将窗体显示为模式窗体，可以使用代码InputForm.show
或者省略show方法的参数，或者将参数设置为vModal，VBA都会讲窗口见识为模式窗体2. 无模式窗体允许进行窗体外的其他操作要将窗体显示为无模式窗体，必须通过show方法制定参数Inputform.show vmodeless
如果将窗体显示为无模式窗体，当窗体显示后，系统会继续执行程序余下的代码，也允许我们操作窗体之外的其他对象关闭或隐藏已显示的窗体用unload命令关闭窗体
unload Inputform
使用Hide方法隐藏窗体
inputform.hide
用户窗体的事件应用借助Initialize事件初始化窗体Initialize事件发生在显示窗体之前，当我们在程序中使用load语句加载窗体，或者使用show显示窗体时，都会引发该时间Private Sub UserForm_Initialize()
性别.List = Array("男", "女")
End Sub
借助QueryClose事件让窗体自带的【关闭】按钮失效Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> vbFormCode Then Cancel = True
End Sub
queryclose事件过程是一个带两个参数的sub过程，其中的cancel参数确定是否响应我们关闭窗体的操作。当值为TRUE时，程序将不响应我们关闭窗体的操作。如果cancel的值为false，程序将关闭窗体。其中CloseMode参数是我们关闭窗体的方式，不同的关闭方式返回的值也不相同CloseMode参数的返回值说明常数
值
说明
vbFormControlMenu
0
在窗体中单击【关闭】按钮关闭窗体
vbFormCode
1
通过unload语句关闭窗体
vbAppWindows
2
正在结束当前Windows操作环境的过程
vbAppTaskManagee
3
windows的【任务管理器】正在关闭整个应用
为窗体的控件设置功能为【确定】按钮添加事件过程Private Sub cmd_OK_Click()
Dim xrow As Long
xrow = Range("A1").CurrentRegion.Rows.Count + 1
Cells(xrow, "A").Value = 姓名.Value
Cells(xrow, "B").Value = 性别.Value
Cells(xrow, "C").Value = birth.Value
姓名.Value = ""
性别.Value = ""
birth.Value = ""
End Sub
给控件设置快捷键给按钮设置了快捷键后，显示窗体时，当按下对应的快捷键就等于在窗体中用鼠标单击了该按钮。Private Sub UserForm_Initialize()
性别.List = Array("男", "女")
cmd_OK.Accelerator = "N"
End Sub
更改控件的Tab键顺序只有对象被激活时，才能几首键盘输入。控件的Tab键顺序决定用户按下【Tab】或【Shift+Tab】组合键后控件激活的顺序。在设计窗体时，系统会按照添加控件的先后顺序确定控件的Tab顺序。但是这个顺序是可以更改的。在VBE中选中窗体，依次执行【视图】——>【Tab键顺序】命令。调出Tab键顺序对话框，即可在其中调整控件的Tab键顺序用窗体设计一个简易的登陆窗体设计窗体显示
2. 添加代码，为控件指定功能
Private Sub cmd_cacel_Click()
Unload 用户登录
ThisWorkbook.Close savechanges:=False
End Sub
Private Sub cmd_ok_Click()
Application.ScreenUpdating = False
Static i As Integer
If CStr(username.Value) = Right(Names("username").RefersTo, Len(Names(username).RefersTo) - 1) And CStr(pwd.Value) = Right(Names("userword").RefersTo, Len(Names("userword").RefersTo) - 1) Then
Unload 用户登录
Else
i = i + 1
If i = 3 Then
MsgBox "你无权打开工作簿"
ThisWorkbook.Close savechanges:=False
Else
msg "输入错误，你还有" & (3 - i) & "次机会输入"
username.Value = ""
pwd.Value = ""
End If
End If
Application.ScreenUpdating = True
End Sub
Private Sub pwd_set_Click()
Dim old As String, new1 As String, new2 As String
old = InputBox("请输入密码：", "提示")
If old <> Right(Names("userword").RefersTo, Len(Names("userword").referto) - 1) Then
MsgBox "原密码输入错误，不能修改", vbCritical, "错误"
Exit Sub
End If
new1 = InputBox("请输入新密码：", "提示")
If new1 = "" Then
MsgBox "新密码不能为空，修改没有完成", vbCritical, "错误"
Exit Sub
End If
new2 = InputBox("请再次输入新密码：", "提示")
If new1 = new2 Then
Names("userword").RefersTo = "=" & new1
ThisWorkbook.Save
MsgBox "密码修改完成"
Else
MsgBox "两次密码输入不一致，修改未完成", vbCritical, "错误"
End If
End Sub
Private Sub user_set_Click()
Dim old As String, new1 As String, new2 As String
old = InputBox("请输入用户名：", "提示")
If old <> Right(Names("username").RefersTo, Len(Names("username").referto) - 1) Then
MsgBox "原用户名输入错误，不能修改", vbCritical, "错误"
Exit Sub
End If
new1 = InputBox("请输入新用户名：", "提示")
If new1 = "" Then
MsgBox "新用户名不能为空，修改没有完成", vbCritical, "错误"
Exit Sub
End If
new2 = InputBox("请再次输入新用户名：", "提示")
If new1 = new2 Then
Names("username").RefersTo = "=" & new1
ThisWorkbook.Save
MsgBox "用户名修改完成"
Else
MsgBox "两次用户名不一致，修改未完成", vbCritical, "错误"
End If
End Sub
调试与优化编写的代码On Error GoTo标签On Error GoTo 标签实际就是在“on error”的后面加了一个GoTo语句，其中的“标签”就是替goto语句设置的标签，是一个数字或者带冒号的文本。标签告诉VBA，当程序运行过程中晕倒运行时错误时，跳转到标签所在行的代码继续执行程序，实际上就是让程序跳过出错的代码，从另一个地方重新开始执行程序。Sub test()
On Error GoTo a
Worksheets("abc").Select
Exit Sub
a: MsgBox "没有要选择的工作表"
End Sub
on error resume nextResume Next告诉VBA，如果程序发生错误，则忽略存在错误的代码，接着执行错误行之后的代码。如果程序一开始加入On Error Resume Next语句，运行程序时，及时程序中存在运行时错误，VBA也不会中断程序，而是忽略所有存在错误的语句，继续执行出错语句后的代码Sub test()
On Error Resume Next
Worksheets("abc").Select
Exit Sub
MsgBox "没有要选择的工作表"
End Sub
On Error GoTo 0使用On Error GoTo 0语句后，将关闭对程序中运行时错误的捕捉，如果程序在On Error GoTo 0语句后出现运行错误，将不会被捕捉到Sub test()
On Error GoTo 0
Worksheets("abc").Select
Exit Sub
MsgBox "没有要选择的工作表"
End Sub
}