excel vba常用代码

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

VBA常用技巧代码解析yuanzhuping

VBA常用技巧

目录

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

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

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

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自带的常用的函数多达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 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

EXCEL VBA常用语句100句 定制模块行为

(1) Option Explicit '强制对模块内所有变量进行声明

Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示

Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为1

(2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 (3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置 (4) On Error GoTo 0 '恢复正常的错误提示

(5) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示 (6) Application.ScreenUpdating=False '关闭屏幕刷新 Application.ScreenUpdating=True '打开屏幕刷新

(7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏运行的功能

Excel VBA用户窗体常用的方法

2009-06-20 23:40

1、显示用户窗体

用于以编程方式显示用户窗体的语法是：

若要显示用户窗体名为 UserForm1，使用以下代码：

时可以加载到内存用户窗体而不实际显示它。可能需要复杂的用户窗体几秒钟才显示。可以预用户窗体加载到内存中，因为您可以决定何时引发此开销。但不显示加载到内存的 UserForm1，使用以下代码：

Load UserForm1

您必须使用 Show 方法时以前显示的。

2、如何临时隐藏用户窗体

如果想要临时隐藏用户窗体，请使用隐藏方法。可以隐藏用户窗体，如果您的应用程序涉及用户窗体之间移动。若要隐藏用户窗体，使用以下代码：

3、如何从内存中删除用户窗体

要从内存中删除用户窗体使用在卸载语句。若要卸载一个名为 UserForm1 用户窗体，使用以下代码：Unload UserForm1

如果卸载与用户窗体或与用户窗体上的控件相关联的事件过程中用户窗体（例如，您单击CommandButton 控件)，您可以使用"Me"关键字而不是用户窗体的名称。要使用"Me"关键字卸载用户窗体，使用以下代码：

Unload Me

4、如何使用用户窗体事件

用户窗体支持许多预定义的事件，您可以将附加 VBA 过程。在

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