vba常用代码大全

格式：doc
大小：152.50 KB
文档页数：41

K2MG-EHSWI++04-001 环境、健康安全、企业社会责任目标指标

1 前言

我们平时在工作表单元格的公式中常常使用函数，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代码。

语法

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单元格。 K2MG-EHSWI++04-001 环境、健康安全、企业社会责任目标指标

2 7、End Sub：程序的结束语句，和“Sub示例_1_01（）”相对应。

第1.2例 Chr函数

一、题目""：

要求编写一段代码，运用Chr函数将ASCII值转换为对应的字符。

二、代码：

Sub 示例_1_02()

Dim myChar1$, myChar2$

myChar1 = Chr(69) ' 返回 E。

myChar2 = Chr(101) ' 返回 e。

[a1] = "myChar1= ": [b1] = myChar1

[a2] = "myChar2= ": [b2] = myChar2

End Sub

三、代码详解

1、Sub 示例_1_02()：宏程序的开始语句。

2、Dim myChar1$, myChar2$：变量myChar1和myChar2声明为字符串变量。

也可以写为 Dim myChar1 As String 。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、End Sub：程序的结束语句，和“Sub示例_1_02（）”相对应。

第1.3例 Choose函数 K2MG-EHSWI++04-001 环境、健康安全、企业社会责任目标指标

3 一、题目：

要求编写一段代码，运用Choose函数根据指定数字选择对应的字符串。

二、代码：

Sub 示例_1_03()

Dim Num%

Num=2

MsgBox Choose(Num, "一月", "二月", "三月")

End Sub

三、代码详解

1、Sub 示例_1_03()：宏程序的开始语句。宏名为示例_1_03。

2、Dim Num% ：变量Num声明为整型变量。

3、Num=2 ：把2赋给变量Num。

4、MsgBox Choose(Num, "一月", "二月", "三月") ：

Choose函数从参数列表中选择并返回一个值。

语法

Choose(index, choice-1[, choice-2, ... [, choice-n]])

Choose 会根据 index 的值来返回选择项列表中的某个值。如果 index 是 1，则 Choose会返回列表中的第 1 个选择项。如果 index 是 2，则会返回列表中的第 2 个选择项，以此类推。

Index是必要参数，数值表达式或字段，它的运算结果是一个数值，且界于 1 和可选择的项目数之间。当 index小于 1 或大于列出的选择项数目时，Choose 函数返回 Null。如果 index 不是整数，则会先四舍五入为与其最接近的整数。

第1.4例 Cos函数

一、题目：

要求编写一段代码，运用Cos函数根据指定角度的余弦计算其正割的值。

二、代码：

Sub 示例_1_04()

Dim jiaodu, zenge

jiaodu = 1.3

zenge = 1 / Cos(jiaodu)

MsgBox “角度为 ” & jiaodu & “的正割的值＝ ” & zenge

End Sub

三、代码详解

1、Sub 示例_1_04()：宏程序的开始语句。宏名为示例_1_04。

2、Dim jiaodu, zenge ：两个变量都被指定为可变型数据类型。当声明常数、变量或参数时，若无指定数据类型则会自动的指定成 Variant（可变型）数据类型。声明成 Variant数据类型的变量可以为字符串、日期、时间、Boolean或数值。 K2MG-EHSWI++04-001 环境、健康安全、企业社会责任目标指标

4 3、jiaodu = 1.3 ：把以“弧度”为单位的角度1.3赋给变量jiaodu。

4、zenge = 1 / Cos(jiaodu) ：利用1/余弦算得正割（sec()）的值，赋给变量zenge。

Cos函数返回一个角的余弦值。其参数是表示一个以弧度为单位的角。

5、MsgBox “角度为 ” & jiaodu & “的正割的值＝ ” & zenge ：利用MsgBox函数显示算得的正割（sec()）的值。

第1.5例 Date函数

一、题目：

要求编写一段代码，运用Date函数显示系统日期的值。

二、代码：

Sub 示例_1_05()

Dim myDate

myDate = Date

MsgBox “系统日期为 ” & myDate

End Sub

三、代码详解

1、Sub 示例_1_05()：宏程序的开始语句。宏名为示例_1_05。

2、Dim myDate ：变量myDate被指定为可变型数据类型。

3、myDate = Date ：把系统日期的值赋给变量myDate。

Date函数返回系统当前的日期。

4、MsgBox “系统日期为 ” & myDate ：利用MsgBox函数显示系统日期的值。

第1.6例 DateAdd函数

一、题目：

要求编写一段代码，运用DateAdd函数显示返回一定间隔后的日期。

二、代码：

Sub 示例_1_06()

Dim dyrq As Date

Dim jglx As String

Dim n As Integer

Dim Msg

jglx = "m"

dyrq = InputBox("请输入一个日期")

n = InputBox("输入增加月的数目：") K2MG-EHSWI++04-001 环境、健康安全、企业社会责任目标指标

5 Msg = "新日期: " & DateAdd(jglx, n, dyrq)

MsgBox Msg

End Sub

三、代码详解

1、Sub 示例_1_06()：宏程序的开始语句。宏名为示例_1_06。

2、Dim dyrq As Date ：变量dyrq声明为日期对象型数据类型。其余几个变量分别是字符串型、整型和可变型变量。

3、jglx = "m" ：用字符m来指定以“月份”作为间隔。

4、dyrq = InputBox("请输入一个日期") ：用InputBox函数来让用户输入一个日期，并把用户输入的日期赋给变量dyrq。

5、n = InputBox("输入增加月的数目：") ：用InputBox函数来让用户输入间隔月的数目，并把用户输入的值赋给变量n。

6、Msg = "新日期: " & DateAdd(jglx, n, dyrq) ：用DateAdd函数计算得到的新的日期和字符串“新日期： ”连接起来赋给变量Msg。

DateAdd函数返回一个日期，这一日期加上了一个时间间隔。

VBA常用代码

VBA常用代码：

Application.EnableEvents= True/ False ’启用/禁用所有事件

Application.DisplayAlerts=True/False ’显示/关闭警告框提示框

Application.ScreenUpdating= True/False ’显示/关闭屏幕刷新

Application.StatusBar = "软件报专用" ’在地址栏中显示文本，标题栏用Caption属性

Application.Cursor = xlIBeam ‘设置光标形状为Ⅰ字形，xlWait为沙漏(等待)形，xlNormal为正常

Application.WindowState = xlMinimized ‘窗口最小化，xlMaximized最大化，xlNormal为正常

Application.ActivateMicrosoftApp xlMicrosoftWord ’开启Word应用程序

Application.TemplatesPath ‘获取工作簿模板的位置

Application.CalculateFull ’重新计算所有打开的工作簿中的数据

Application.RecentFiles.Maximum = 2 ’将最近使用的文档列表数设为2

Application.RecentFiles(3).Open ’打开最近打开的文档中的第3个文档

Application.AutoCorrect.AddReplacement "sweek", "软件报" ’自动将输入的"sweek"更正为"软件报"

Application.Dialogs(xlDialogPrint).Show ‘显示打印文档的对话框

Application.OnTime Now + TimeValue("00:00:45"), "process" ’45分钟后执行指定过程

Application.OnTime TimeValue("14:00:00"), " process " ’下午2点执行指定过程

excel vba常用代码

Excel VBA是一种用于编写宏的编程语言，它可以帮助我们在Excel中进行自动化操作。在VBA中，有一些常用的代码，可以帮助我们快速完成一些常见的任务。本文将介绍一些常用的Excel VBA代码，帮助读者更好地理解并运用它们。

一、数据处理

1.1 数据筛选

在Excel中，我们经常需要根据某些条件筛选数据。使用VBA可以实现自动筛选，代码如下：

```

ActiveSheet.Range("A1:D10").AutoFilter Field:=1,

Criteria1:=">10"

```

以上代码将自动筛选出范围为A1:D10的数据，其中第一列大于10的数据。

1.2 数据排序

有时候，我们需要对数据进行排序。使用VBA可以实现自动排序，代码如下：

```

ActiveSheet.Range("A1:D10").Sort Key1:=Range("A1"),

Order1:=xlAscending ```

以上代码将自动对范围为A1:D10的数据根据第一列进行升序排序。

1.3 数据透视表

数据透视表可以帮助我们对数据进行汇总和分析。使用VBA可以自动生成数据透视表，代码如下：

```

ActiveSheet.PivotTableWizard

```

以上代码将自动生成一个数据透视表。

二、单元格操作

2.1 单元格赋值

在VBA中，我们可以使用代码将某个值赋给指定的单元格，代码如下：

```

Range("A1").Value = "Hello World"

```

以上代码将把"Hello World"赋值给A1单元格。

2.2 单元格格式设置

使用VBA可以设置单元格的格式，例如设置字体、颜色、边框等，代码如下：

``` Range("A1").Font.Bold = True

Range("A1").Interior.Color = RGB(255, 0, 0)

VBA代码汇总

Sub 批量超链接word文档()

' 宏1 宏

' 超链接

Dim p$, f$, i As Integer

i = 1

p = "C:\Users\Administrator\Desktop\国创撰写\" & ""

f = Dir(p & "*.docx") '取得第一个pdf文件名

Do While f <> "" ' 循环语句

ThisWorkbook.Activate

Sheets(1).Cells(i, 1).Value = f 'Range("a1").Value = p & f

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:=p

& f, _

TextToDisplay:=f

'MsgBox p & f 显示路径加文件名

f = Dir '第二个文件名

i = i + 1

Loop

End Sub

Private Sub CommandButton1_Click() 随机选择器

Dim a, b, c, d As String

Dim shu As Integer

Dim arr(1 To 4)

shu = Int((4 * Rnd) + 1)

arr(1) = TextBox1.Value

arr(2) = TextBox2.Value

arr(3) = TextBox3.Value

arr(4) = TextBox4.Value

MsgBox "excel推荐你今天应该吃" & arr(shu) End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Sub 批量新建指定名称工作簿()

Application.DisplayAlerts = False

For i = 1 To 54 ' 个数减一

Dim Rng As String

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。

下载提示

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

vba常用代码大全

合集下载

VBA常用代码

excel vba常用代码

VBA代码汇总

VBA常用代码大全

文档推荐

最新文档