excel vba常用代码实战大全

VBA常用技巧代码解析yuanzhuping

VBA常用技巧

目录

VBA常用技巧------------------------------------------------------------------------------------------------------- 1 第1章Range（单元格）对象 -------------------------------------------------------------------- 10 技巧1 单元格的引用方法---------------------------------------------------------------------- 10 1-1 使用Range属性----------------------------------------------------------------------- 10

1-2 使用Cells属性 ------------------------------------------------------------------------ 11

1-3 使用快捷记号 ------------------------

1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.

删除重复行 ....................................................................................................................................................... 1 ActiveX控件的相关操作 ................................................................................................................................. 2 单元格内容匹配 ............................................................................................................................................... 2 单元格填充公式 ................

用过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 = \

' 声明 Private Integer 常数。 Private Const MyInt As Integer

前言

我们平时在工作表单元格的公式中常常使用函数，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声明为整型变量。

14

也可以写为 Dim myNum1 As Integer 。Integer 变量存储为 16位（

EXCEL 常用的宏代码大全

本示例为设置密码窗口 (1)

If Application.InputBox(\请输入密码：\[A1] = 1 '密码正确时执行

Else: MsgBox \密码错误，即将退出！\此行与第2行共同设置密码 End If

本示例为设置密码窗口 (1)

X = MsgBox(\是否真的要结帐？\If X = vbYes Then Close

本示例为设置工作表密码

ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码 ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码 '本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容。

For Each w In Workbooks

If w.Name <> ThisWorkbook.Name Then w.Close SaveChanges:=True End If Next w

'每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。 Application.WindowState = xlMaximiz

Excel中的VBA常用图表类指令代码

ActiveSheet.UsedRange.Rows.Count

获取工作表的行数(注：考虑向前兼容性) Cells.Item(5,\ 引单元格 C5 Cells.Item(5,3) 引单元格 C5

Application.WorksheetFunction.IsNumber(\ 使用工作表函数检查 A1单元格中的数据是否为数字

Range(\ 激活单元格区域 A 列中最大值的单元格

Cells(8,8).FormulaArray=\ 在单元格中输入数组公式。注意必须使用 R1C1 样式的表达式 ActiveSheet.ChartObjects.Count 获取当前工作表中图表的个数

ActiveSheet.ChartObjects(\ 选中当前工作表中图表 Chart1

ActiveSheet.ChartObjects(\ 选中当前图表区域

ActiveChart.ChartArea.Select 选中当前图表区域

WorkSheets(\ 更改工作表中图表的图表区的背景颜色

Sheets(\ 更改图表工作表中图表区的颜色 Charts.Add

添加新的图表工作表

ActiveChart.SetSo

Excel-VBA操作文件四大方法之一__利用Excel对象来处理文件

在我们日常使用Excel的时候，不仅会用到当前Excel文件的数据，还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文件或数据库

文件等。经常有朋友会问如何在vba代码里操作这些数据文件？本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。

本文主要介绍四种常用的方法：

1、利用Excel对象来处理文件；

2、利用VBA文件处理语句来处理文件；

3、利用FileSystemObject对象来处理文件；

4、利用API函数来处理文件。

当然对于数据库文件，还可以利用ADO＋SQL的方法操作，不过论坛已经有前辈详细介绍过此类方法，本文就不再重复了。

一、利用Excel对象来处理文件

利用Excel对象自带的方法来操作文件是最方便，也是最简单的。

我们主要利用Workbooks集合和Workbook对象的方法来操作文件。

1、打开Excel文件

我们可以用Workbooks.Open方法打开一个Excel工作簿。

Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPasswor

Application Excel 方法属性

Application对象是Excel对象模型中最高层级的对象，代表Excel应用程序自身，也包含组成工作簿的许多部分，包括工作簿、工作表、单元格集合以及它们包含的数据。

Application对象包含：

应用程序设置和选项，许多选项与“选项”对话框中的选项相同。 返回顶级对象的方法，例如ActiveCell、ActiveSheet，等等。

本文使用VBA代码示例简要介绍了与Application对象相关的经常使用的对象、方法和属性，其中一些成员能够改变用户与Excel应用程序交互的方式，还能够改变应用程序的外观和式样。

熟悉Application对象能够让您扩展和调整Excel的功能，以满足自已的需求。 本文主要介绍的内容如下： 从Application对象中引用对象 Application对象相关的集合

? ? ? ?

AddIns集合

Columns集合和Rows集合 Dialogs集合 Sheets集合

Application对象相关的属性 ActiveCell属性 ActiveChart属性 ActiveSheet属性 ActiveWindow属性 ActiveWorkbook属性

Excel VBA的常用命令举例

本示例为设置密码窗口 (1)

If Application.InputBox(\请输入密码：\ [A1] = 1 '密码正确时执行

Else: MsgBox \密码错误，即将退出！\此行与第2行共同设置密码 End If

本示例为设置密码窗口 (1)

X = MsgBox(\是否真的要结帐？\ If X = vbYes Then Close

本示例为设置工作表密码

ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码

ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码

'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容 。

For Each w In Workbooks

If w.Name ThisWorkbook.Name Then w.Close SaveChanges:=True End If Next w

'每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。 Application.WindowState = xlMaxi

这里给大家提供一些比较常用的WORD VBA代码，可以提高大家的办公效率，如果不知道怎么使用这些代码，请自行上网查询WORD如何运行VBA。 1、删除空行 Sub 删除空行()

Dim I As Paragraph, n As Integer Application.ScreenUpdating = False

For Each I In ActiveDocument.Paragraphs If Len(Trim(I.Range)) = 1 Then I.Range.Delete n = n + 1 End If Next

MsgBox \共删除空白段落\个\Application.ScreenUpdating = True End Sub

2、奇偶页打印 Sub 奇偶页打印()

Dim x, j, i As Integer On Error Resume Next

x = ExecuteExcel4Macro(\For i = 1 To Int(x / 2) + 1

ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1 Next i

If x = 1 The