[实用参考]VBA常用代码大全.doc
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代码。
vba编程代码大全
vba编程代码大全
VBA编程代码大全。
VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的编程语言。通过VBA，用户可以编写自定义的宏和程序，以实现自动化操作和定制功能。VBA编程在Excel、Word、PowerPoint等Office应用中都有广泛的应用，可以大大提高工作效率和数据处理的灵活性。本文将为大家详细介绍VBA 编程中常用的代码，帮助大家更好地掌握VBA编程技能。
一、基本操作。
1. 打开VBA编辑器。
在Office应用程序中，按下Alt + F11快捷键即可打开VBA编辑器。在VBA 编辑器中，可以编写和管理VBA代码。
2. 编写子程序。
使用Sub关键字定义一个子程序，然后在其中编写具体的VBA代码。例如：Sub HelloWorld()。
MsgBox "Hello, World!"
End Sub。
3. 运行宏。
在VBA编辑器中，可以直接运行编写好的宏程序。也可以在Office应用程序中，通过快捷键或菜单来运行宏。
二、常用代码。
1. 操作单元格。
在Excel中，可以使用VBA来操作单元格，例如：
Range("A1").Value = 100。
Range("A1").Interior.Color = RGB(255, 0, 0)。
2. 循环结构。
使用VBA可以编写各种类型的循环结构，例如For循环、Do While循环等，来实现对数据的遍历和处理。
3. 条件判断。
VBA中的If语句可以用来进行条件判断，根据不同的条件执行不同的操作，例如：
vba常用代码大全
前言
我们平时在工作表xx的公式xx常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBAxx不能直接应用，必须在函数名前面加上对象，比如：
Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBAxx直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1.1例ASC函数
一、题目：
要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码：
Sub 示例_1_01()
Dim myNum1%, myNum2%
myNum1 = Asc("Excel") '返回69
myNum2 = Asc("e") '返回101
[a1] = "myNum1= ": [b1] = myNum1
[a2] = "myNum2= ": [b2] = myNum2
End Sub
三、代码详解
1、Sub 示例_1_01()：宏程序的开始语句。
2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为Dim myNum1 As Integer 。Integer 变量存储为16位（2 个字节）的数值形式，其范围为-32,768 到32,767 之间。Integer 的类型声明字符是百分比符号(%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。
Asc函数返回一个Integer，代表字符串中首字母的字符的ASCII代码。
vba常用代码大全
前言
我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个, 功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如: Application.WorksheetF unction .Sum(argl,arg2,arg3)o
而能在VBA中直接应用的函数也有儿十个，下面将逐一详细介绍常用的40个VBA函数, 以供大家学习参考。
第1.1例ASC函数
一、题目：
要求编写一段代码，运行后得到字符串” Excel”的首字母和” e”的ASCII值。
二、代码：
Sub 示例—1_01()
Dim myNuml%, myNum2%
myNuml 二Asc("Exce门’返回69
myNum2 二Asc("e")'返回101
[al]二"myNuml二n: [bl] = myNuml
[a2] = "myNum2= ": [b2] = myNum2
End Sub
三、代码详解
1、S ub示例_1_010：宏程序的开始语句。
2、D im myNuml%, myNum2%：变量myNuml 和myNum2 声明为整型变量。
也可以写为Dim myNuml As Integer <> Integer变量存储为16位(2个字节)的数值
形式，其范围为-32,768到32,767之间。Integer的类型声明字符是白分比符号(％)。
3、m yNuml = Asc("Excel")：把Asc 函数的值赋给变量myNuml»
Asc函数返回一个Integer,代表字符串中首字母的字符的ASCD代码。
(完整word)VBA代码全集
目录
一、引用 (2)
二、Worksheet_Change事件： (2)
三、相乘 (4)
四、相减 (5)
五、高级筛选 (5)
六、双击事件 (7)
七．单位汇总（sumif），单条件汇总 (9)
八、多条件汇总（连接、sumif） (11)
九、多条件汇总、ado (13)
十、对账 (15)
十一、sql筛选 (18)
十二、sql连接、交叉汇总 (20)
十三、select语句总结 (22)
十四、报表(有层次) (23)
一、引用
相对引用B4
绝对引用$B$4
混合引用＄B4、B＄4
F4进行引用切换,$在字母前面则锁定列，在数字前面则锁定行。
二、
Workshe
et_Chan
ge 事
件：
1.在单元格中C4=VLOOKUP（B4，简码表!＄B＄4：$C＄1000，2，FALSE)
2。 Worksheet_Change事件代码：
Private Sub Worksheet_Change（ByVal Target As Range）
On error resume next
If Target.Row > 3 And Target。Column = 2 Then
i = Target.Row
Cells(i， 3） = Application.WorksheetFunction.VLookup(Cells（i, 2), Sheets(”简码表”）.Range（"b4:c100"）, 2, False)
End If
End Sub
备查代码：
Private Sub Worksheet_Change(ByVal Target As Range）
(word完整版)VBA代码汇总,推荐文档
1：打开所有隐藏工作表
Sub打开所有隐藏工作表()
Dim i As Integer
For i=1To Sheets.Count
Sheets(i).Visible=True
Next i
End Sub
2：循环宏
Sub循环()
AAA=Range("C2")
Dim i As Long
Dim times As Long
times=AAA
'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)
For i=1To times
Call过滤一行
If Range("完成标志")="完成"Then
Exit For
'假如名为'完成标志'的命名单元的值等于'完成',则退出循环,假如一开始就等于'完成',则只执行一次循环就退出
'If Sheets("传送参数").Range("A"&i).Text="完成"Then
Exit For
'假如某列出现"完成"内容则退出循环
Next i
End Sub
3：录制宏时调用“停止录制”工具栏
Sub录制宏时调用停止录制工具栏()
mandBars("Stop Recording").Visible=True
End Sub
4：高级筛选5列不重复数据至指定表
Sub高级筛选5列不重复数据至Sheet2()
Sheets("Sheet2").Range("A1:E65536")=""'清除Sheet2的A:D列
Range("A1:E65536").AdvancedFilter Action:=xlFilterCopy,CopyToRange:=Sheet2.Range(_
vba编程代码大全
vba编程代码大全
VBA编程代码大全。
VBA（Visual Basic for Applications）是一种用于应用程序开发的编程语言，它可以帮助用户在Microsoft Office软件中自动化任务，提高工作效率。在本文中，我们将为您介绍一些常用的VBA编程代码，帮助您更好地利用VBA来处理各种任务。
首先，让我们来看一些常用的VBA基础操作代码。在VBA中，您可以使用MsgBox函数来显示消息框，例如：
```vba。
MsgBox "Hello, World!"
```。
这段代码将会在屏幕上显示一个包含"Hello, World!"的消息框。除了MsgBox 函数，VBA还提供了InputBox函数来获取用户输入的数值或文本：```vba。
Dim userInput As String。
userInput = InputBox("Please enter your name:")。
```。
这段代码将会弹出一个输入框，等待用户输入姓名，并将用户输入的内容存储在userInput变量中。
接下来，让我们来看一些与Excel相关的VBA代码。在Excel中，VBA可以帮助您自动化各种数据处理任务。例如，您可以使用VBA来创建新的工作表，并向其中填充数据：
```vba。
Dim ws As Worksheet。
Set ws = ThisWorkbook.Sheets.Add。
= "NewSheet"
ws.Range("A1").Value = "Hello"
```。
这段代码将会在当前工作簿中创建一个名为"NewSheet"的新工作表，并在A1单元格中填入"Hello"。
EXCELWPS VBA宏代码大全
EXCEL/WPS VBA宏代码大全
Application.Dialogs(1).Show是调用打开对话框
Application.Dialogs(5或145).Show是调用另存为对话框，
Application.Dialogs(6).Show是删除文档
Application.Dialogs(7).Show是页面设置
Application.Dialogs(8).Show是打印对话框
Application.Dialogs(9).Show是选择打印机对话框
Application.Dialogs(12).Show是重排窗口设置对话框
Application.Dialogs(17).Show宏对话框
Application.Dialogs(23).Show设置打印标题
Application.Dialogs(26).Show字体设置对话框
Application.Dialogs(27).Show显示选项
Application.Dialogs(28).Show保护工作表
Application.Dialogs(32).Show重算选项
Application.Dialogs(39或192).Show排序
Application.Dialogs(40).Show序列选项
Application.Dialogs(41).Show模拟运算表
Application.Dialogs(42或111).Show单元格格式，选择单元格内容的格式Application.Dialogs(43).Show选择单元格字体的排列格式，横排或竖排等Application.Dialogs(44或134或190).Show字体选择
vba常用代码大全
前言
我们平时在工作表xx的公式xx常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBAxx不能直接应用，必须在函数名前面加上对象，比如：
Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBAxx直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1.1例ASC函数
一、题目：
要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码：
Sub 示例_1_01()
Dim myNum1%, myNum2%
myNum1 = Asc("Excel") '返回69
myNum2 = Asc("e") '返回101
[a1] = "myNum1= ": [b1] = myNum1
[a2] = "myNum2= ": [b2] = myNum2
End Sub
三、代码详解
1、Sub 示例_1_01()：宏程序的开始语句。
2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为Dim myNum1 As Integer 。Integer 变量存储为16位（2 个字节）的数值形式，其范围为-32,768 到32,767 之间。Integer 的类型声明字符是百分比符号(%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。
Asc函数返回一个Integer，代表字符串中首字母的字符的ASCII代码。
vba常用代码大全
前言
我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1.1例 ASC函数
一、题目：
要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码：
Sub 示例_1_01()
Dim myNum1%, myNum2%
myNum1 = Asc("Excel") '返回69
myNum2 = Asc("e") '返回101
[a1] = "myNum1= ": [b1] = myNum1
[a2] = "myNum2= ": [b2] = myNum2
End Sub
三、代码详解
1、Sub 示例_1_01()：宏程序的开始语句。
2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。Integer 的类型声明字符是百分比符
号 (%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。
Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。
vba常用代码大全
前言
我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1.1例 ASC函数
一、题目：
要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。二、代码：
Sub 示例_1_01()
Dim myNum1%, myNum2%
myNum1 = Asc("Excel") '返回69
myNum2 = Asc("e") '返回101
[a1] = "myNum1= ": [b1] = myNum1
[a2] = "myNum2= ": [b2] = myNum2
End Sub
三、代码详解
1、Sub 示例_1_01()：宏程序的开始语句。
2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。Integer 的类型声明字符是百分比符
号 (%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。
Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。
vba常用代码大全
前言
我们平时在工作表xx的公式xx常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBAxx不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBAxx直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1.1例 ASC函数
一、题目：
要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码：
Sub 示例_1_01()
Dim myNum1%, myNum2%
myNum1 = Asc("Excel") '返回69
myNum2 = Asc("e") '返回101
[a1] = "myNum1= ": [b1] = myNum1
[a2] = "myNum2= ": [b2] = myNum2
End Sub
三、代码详解
1、Sub 示例_1_01()：宏程序的开始语句。
2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。Integer 的类型声明字符是百分比符号 (%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNu
1。
Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。
vba常用代码大全
前言
我们平时在工作表xx的公式xx常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBAxx不能直接应用，必须在函数名前面加上对象，比如：
Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBAxx直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1.1例ASC函数
一、题目：
要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码：
Sub示例_1_01()
Dim myNum1%, myNum2%
myNum1 = Asc("Excel")'返回69
myNum2 = Asc("e")'返回101
[a1] = "myNum1= ": [b1] = myNum1
[a2] = "myNum2= ": [b2] = myNum2
End Sub
三、代码详解
1、Sub示例_1_01()：宏程序的开始语句。
2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为Dim myNum1 As Integer。Integer变量存储为16位（2个字节）的数值形式，其范围为-32,768到32,767之间。Integer的类型声明字符是百分比符号(%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。
Asc函数返回一个Integer，代表字符串中首字母的字符的ASCII代码。
vba常用代码大全
前言
我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1.1例ASC函数
一、题目：
要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码：
Sub 示例_1_01()
Dim myNum1%, myNum2%
myNum1 = Asc("Excel") '返回69
myNum2 = Asc("e") '返回101
[a1] = "myNum1= ": [b1] = myNum1
[a2] = "myNum2= ": [b2] = myNum2
End Sub
三、代码详解
1、Sub 示例_1_01()：宏程序的开始语句。
2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为Dim myNum1 As Integer 。Integer 变量存储为16位（2 个字节）的数值形式，其范围为-32,768 到32,767 之间。Integer 的类型声明字符是百分比符号(%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。
Asc函数返回一个Integer，代表字符串中首字母的字符的ASCII代码。
vba常用代码大全
前言
我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1.1例 ASC函数
一、题目：
要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码：
Sub 示例_1_01()
Dim myNum1%, myNum2%
myNum1 = Asc("Excel") '返回69
myNum2 = Asc("e") '返回101
[a1] = "myNum1= ": [b1] = myNum1
[a2] = "myNum2= ": [b2] = myNum2
End Sub
三、代码详解
1、Sub 示例_1_01()：宏程序的开始语句。
2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。Integer 的类型声明字符是百分比符号 (%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。
Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。
vba常用代码大全
前言
我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA函数，以供大家学习参考。
第1.1例 ASC函数
一、题目：
要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII值。
二、代码：
Sub 示例_1_01()
Dim myNum1%, myNum2%
myNum1 = Asc("Excel") '返回69
myNum2 = Asc("e") '返回101
[a1] = "myNum1= ": [b1] = myNum1
[a2] = "myNum2= ": [b2] = myNum2
End Sub
三、代码详解
1、Sub 示例_1_01()：宏程序的开始语句。
2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。Integer 的类型声明字符是百分比符
号 (%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。
Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
前言
我们平时在工作表单元格的公式中常常使用函数，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
三、代码详解
1、Sub示例_1_02()：宏程序的开始语句。
2、DimmyChar1$,myChar2$：变量myChar1和myChar2声明为字符串变量。
也可以写为DimmyChar1AsString。String之字符码的范围是0到255。字符集的前128个字符（0到127）对应于标准的U.S.键盘上的字符与符号。这前128个字符与ASCII字符集中所定义的相同。后128个字符（128到255）则代表特殊字符，例如国际字符，重音符号，货币符号及分数。String的类型声明字符为美元号($)。
3、myChar1=Chr(69)：把Chr(69)的值赋给变量myChar1。这里返回大写字母E。Chr函数根据字符代码返回一个字符。
语法
Chr(charcode)
必要的charcode（字符代码）参数是用来识别某字符的。
4、myChar2=Chr(101)：把Chr函数的值赋给变量myChar2。这里返回小写字母e。
5、[a1]="myChar1=":[b1]=myChar1：把字符串“myChar1=“赋给A1单元格，把变量myChar1的值赋给B1单元格。
6、[a2]="myChar2=":[b2]=myChar2：把字符串“myChar2=“赋给A2单元格，把变量myChar2的值赋给B2单元格。
7、EndSub：程序的结束语句，和“Sub示例_1_02（）”相对应。
第1.3例Choose函数
一、题目：
要求编写一段代码，运用Choose函数根据指定数字选择对应的字符串。
二、代码：
Sub示例_1_03()
DimNum%
Num=2
MsgBoGChoose(Num,"一月","二月","三月")
EndSub
三、代码详解
1、Sub示例_1_03()：宏程序的开始语句。宏名为示例_1_03。
2、DimNum%：变量Num声明为整型变量。
3、Num=2：把2赋给变量Num。
4、MsgBoGChoose(Num,"一月","二月","三月")：
Choose函数从参数列表中选择并返回一个值。
语法
Choose(indeG,choice-1[,choice-2,...[,choice-n]])
Choose会根据indeG的值来返回选择项列表中的某个值。如果indeG是1，则Choose 会返回列表中的第1个选择项。如果indeG是2，则会返回列表中的第2个选择项，以此类推。
IndeG是必要参数，数值表达式或字段，它的运算结果是一个数值，且界于1和可选择的项目数之间。当indeG小于1或大于列出的选择项数目时，Choose函数返回Null。如果indeG不是整数，则会先四舍五入为与其最接近的整数。
第1.4例Cos函数
一、题目：
要求编写一段代码，运用Cos函数根据指定角度的余弦计算其正割的值。
二、代码：
Sub示例_1_04()
Dimjiaodu,zenge
jiaodu=1.3
zenge=1/Cos(jiaodu)