当前位置：文档之家 › Excel VBA入门代码200例

Excel VBA入门代码200例

  • 格式：doc
  • 大小：71.50 KB
  • 文档页数：10

Excel VBA入门代码200例

1 Excel VBA入门代码200例

vba在excel中的使用之vba语句解释

(1) Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Add ‘创建Excel工作簿

(2) Application.ActivateMicrosoftApp xlMicrosoftWord '开启Word应用程序

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

(4) Application.Calculation = xlCalculationManual ‘设置工作簿手动计算

Application.Calculation = xlCalculationAutomatic ‘工作簿自动计算

(5) Worksheets(1).EnableCalculation = False ‘不对第一张工作表自动进行重算

(6) Application.CalculateFull '重新计算所有打开的工作簿中的数据

(7) Application.RecentFiles.Maximum = 5 '将最近使用的文档列表数设为5

(8) Application.RecentFiles(4).Open '打开最近打开的文档中的第4个文档

(9) Application.OnTime DateSerial(2006,6,6)+TimeValue(“16:16:16”),“BaoPo”

‘在2006年6月6日的16:16:16开始运行BaoPo过程

(10) Application.Speech.Speak ("Hello" & erName) ‘播放声音，并使用用户的姓名问候用户

(11) MsgBox Application.PathSeparator '获取"\"号

(12) MsgBox Application.International(xlCountrySetting) '返回应用程序当前所在国家的设置信息

(13) Application.AutoCorrect.AddReplacement "葛洲坝", "三峡" '自动将在工作表中进行输入的"葛洲坝"更正为"三峡"

(14) Beep '让计算机发出声音

(15) Err.Number ‘返回错误代码

(16) MsgBox IMEStatus '获取输入法状态

(17) Date = #6/6/2006#

Time = #6:16:16 AM# '将系统时间更改为2006年6月6日上午6时16分16秒

(18) Application.RollZoom = Not Application.RollZoom '切换是否能利用鼠标中间的滑轮放大/缩小工作表

(19) Application.ShowWindowsInTaskba = True ‘显示任务栏中的窗口,即各工作簿占用各自的窗口

(20) Application.DisplayScrollBars = True ‘显示窗口上的滚动条

(21) Application.DisplayFormulaBar = Not Application.DisplayFormulaBar '切换是否显示编辑栏

(22) Application.Dialogs(xlDialogPrint).Show ‘显示打印内容对话框

(23) Application.MoveAfterReturnDirection = xlToRight '设置按Enter键后单元格的移动方向向右

(24) Application.FindFile '显示打开对话框

(25) ThisWorkbook.FollowHyperlink /vba123 ‘打开超链接文档

(26) ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly '将当前工作簿设置为只读

(27) ActiveWorkbook.AddToFavorites '将当前工作簿添加到收藏夹文件夹中 Excel VBA入门代码200例

2 (28) ActiveSheet.CheckSpelling '在当前工作表中执行"拼写检查"

(29) ActiveSheet.Protect userinterfaceonly:=True ‘保护当前工作表

(30) ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName ‘在当前工作表的左侧页眉处打印出工作簿的完整路径和文件名

(31) Worksheets("Sheet1").Range("A1:G37").Locked = False

Worksheets("Sheet1").Protect

'解除对工作表Sheet1中A1:G37区域单元格的锁定

'以便当该工作表受保护时也可对这些单元格进行修改

(32) Worksheets("Sheet1").PrintPreview '显示工作表sheet1的打印预览窗口

(33) ActiveSheet.PrintPreview Enablechanges:=False ‘禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮

(34) ActiveSheet.PageSetup.PrintGridlines = True '在打印预览中显示网格线

ActiveSheet.PageSetup.PrintHeadings = True '在打印预览中显示行列编号

(35) ActiveSheet.ShowDataForm '开启数据记录单

(36) Worksheets("Sheet1").Columns("A").Replace _

What:="SIN", Replacement:="COS", _

SearchOrder:=xlByColumns, MatchCase:=True '将工作表sheet1中A列的SIN替换为COS

(37) Rows(2).Delete '删除当前工作表中的第2行

Columns(2).Delete '删除当前工作表中的第2列

(38) ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell '在当前单元格左侧插入一条垂直分页符

ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell '在当前单元格上方插入一条垂直分页符

(39) ActiveWindow.ScrollRow = 14 '将当前工作表窗口滚动到第14行

ActiveWindow.ScrollColumn = 13 '将当前工作表窗口滚动到第13列

(40) ActiveWindow.Close '关闭当前窗口

(41) ActiveWindow.Panes.Count '获取当前窗口中的窗格数

(42) Worksheets("sheet1").Range("A1:D2").CreateNames Top:=True '将A2至D2的单元格名称设定为A1到D1单元格的内容

(243) Application.AddCustomList listarray:=Range("A1:A8") '自定义当前工作表中单元格A1至A8中的内容为自动填充序列

(44) Worksheets("sheet1").Range("A1:B2").CopyPicture xlScreen, xlBitmap '将单元格A1至B2的内容复制成屏幕快照

(45) Selection.Hyperlinks.Delete ‘删除所选区域的所有链接

Columns(1).Hyperlinks.Delete ‘删除第1列中所有的链接

Rows(1).Hyperlinks.Delete ‘删除第1行中所有的链接

Range("A1:Z30").Hyperlinks.Delete ‘删除指定范围所有的链接

(46) ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, _

Address:="C:\Windows\System32\Calc.exe", ScreenTip:="按下我，就会开启Windows计算器", TextToDisplay:="Windows计算器" '在活动单元格中设置开启Windows计算器链接

(47) ActiveCell.Value = Shell("C:\Windows\System32\Calc.exe", vbNormalFocus) '开启Windows计算器

(48) ActiveSheet.Rows(1).AutoFilter ‘打开自动筛选。若再运行一次，则关闭自动Excel VBA入门代码200例

3 筛选

(49) Selection.Autofilter ‘开启/关闭所选区域的自动筛选

(50) ActiveSheet.ShowAllData ‘关闭自动筛选

(51) ActiveSheet.AutoFilterMode ‘检查自动筛选是否开启，若开启则该语句返回True

(52) ActiveSheet.Columns("A").ColumnDifferences(Comparison:=ActiveSheet. _

Range("A2")).Delete '在A列中找出与单元格A2内容不同的单元格并删除

(53) ActiveSheet.Range("A6").ClearNotes '删除单元格A6中的批注，包括声音批注和文字批注

(54) ActiveSheet.Range("B8").ClearComments '删除单元格B8中的批注文字

(55) ActiveSheet.Range("A1:D10").ClearFormats '清除单元格区域A1至D10中的格式

(56) ActiveSheet.Range("B2:D2").BorderAround ColorIndex:=5, _

Weight:=xlMedium, LineStyle:=xlDouble '将单元格B2至D2区域设置为蓝色双线

(57) Range("A1:B2").Item(2, 3)或Range("A1:B2")(2, 3) ‘引用单元格C2的数据

Range("A1:B2")(3) ‘引用单元格A2

(58) ActiveSheet.Cells(1, 1).Font.Bold = TRUE ‘设置字体加粗

ActiveSheet.Cells(1, 1).Font.Size = 24 ‘设置字体大小为24磅

ActiveSheet.Cells(1, 1).Font.ColorIndex = 3 ‘设置字体颜色为红色

ActiveSheet.Cells(1, 1).Font.Italic = TRUE ‘设置字体为斜体

合集下载

VBA常用代码大全

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。

vba常用代码大全

vba常用代码大全

14

前言

我们平时在工作表单元格的公式中常常使用函数，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、 Sub示例_1_010：宏程序的开始语句。

2、 Dim myNuml%, myNum2%：变量 myNuml 和 myNum2 声明为整型变量。

也可以写为Dim myNuml As Integer <> Integer变量存储为16位(2个字节)的 数值14

形式，其范围为-32,768到32,767之间。Integer的类型声明字符是白分比符 号(％)。

3、 myNuml = Asc("Excel")：把 Asc 函数的值赋给变量 myNuml»

Asc函数返回一个Integer,代表字符串中首字母的字符的ASCD代码。

语法

Asc(string)

必要的string (字符串)参数可以是任何有效的字符串表达式。如果string中没有包 含任何字符，则会产生运行时错误。

4、 myNum2 = Asc("e")：把Asc函数的值赋给变量myNum2。这里返回小写字母e

ExcelVBA编程实例(150例)

ExcelVBA编程实例(150例)

ExcelVBA编程实例（150例）

主要内容和特点

《ExcelVBA编程入门范例》主要是以一些基础而简短的VBA实例来对ExcelVBA中的常用对象及其属性和方法进行讲解，包括应用程序对象、窗口、工作簿、工作表、单元格和单元格区域、图表、数据透视表、形状、控件、菜单和工具栏、帮助助手、格式化操作、文件操作、以及常用方法和函数及技巧等方面的应用示例。这些例子都比较基础，很容易理解，因而，很容易调试并得以实现，让您通过具体的实例来熟悉ExcelVBA编程。

■ 分16章共14个专题，以具体实例来对大多数常用的ExcelVBA对象进行讲解；

■ 一般而言，每个实例都很简短，用来说明使用VBA实现Excel某一功能的操作；

■ 各章内容主要是实例，即VBA代码，配以简短的说明，有些例子可能配以必要的图片，以便于理解；

■ 您可以对这些实例进行扩充或组合，以实现您想要的功能或更复杂的操作。

VBE编辑器及VBA代码输入和调试的基本知识

在学习这些实例的过程中，最好自已动手将它们输入到VBE编辑器中调试运行，来查看它们的结果。当然，您可以偷赖，将它们复制/粘贴到代码编辑窗口后，进行调试运行。下面，对VBE编辑器界面进行介绍，并对VBA代码输入和调试的基本知识进行简单的讲解。

激活VBE编辑器

一般可以使用以下三种方式来打开VBE编辑器：

■ 使用工作表菜单“工具——宏——Visual Basic编辑器”命令，如图00-01所示；

■ 在Visual Basic工具栏上，按“Visual Basic编辑器”按钮，如图00-02所示；

■ 按Alt+F11组合键。

图00-01：选择菜单“工具——宏——Visual Basic编辑器”命令来打开VBE编辑器

图00-02：选择Visual Basic工具栏上的“Visual Basic编辑器”命令按钮来打开VBE编辑器

此外，您也可以使用下面三种方式打开VBE编辑器：

ExcelVBA编程150实例大全之欧阳家百创编

ExcelVBA编程150实例大全之欧阳家百创编

欧阳索引创编 2021.02.02

欧阳索引创编 2021.02.02 ExcelVBA编程实例150例

欧阳家百（2021.03.07）

VBE编辑器及VBA代码输入和调试的基本知识在学习这些实例的过程中，最好自已动手将它们输入到VBE编辑器中调试运行，来查看它们的结果。当然，您可以偷赖，将它们复制/粘贴到代码编辑窗口后，进行调试运行。下面，对VBE编辑器界面进行介绍，并对VBA代码输入和调试的基本知识进行简单的讲解。激活VBE编辑器一般可以使用以下三种方式来打开VBE编辑器：■ 使用工作表菜单“工具——宏——Visual Basic编辑器”命令，如图00-01所示；■ 在Visual Basic工具栏上，按“Visual

Basic编辑器”按钮，如图00-02所示；■ 按Alt+F11组合键。欧阳索引创编 2021.02.02

欧阳索引创编 2021.02.02 图00-01：选择菜单“工具——宏——Visual Basic编辑器”命令来打开VBE编辑器 图00-02：选择Visual Basic工具栏上的“Visual Basic编辑器”命令按钮来打开VBE编辑器此外，您也可以使用下面三种方式打开VBE编辑器： ■ 在任一工作表标签上单击鼠标右键，在弹出的菜单中选择“查看代码”，则可进入VBE编辑器访问该工作表的代码模块，如图00-03所示； ■ 在工作簿窗口左上角的Excel图标上单击鼠标右键，在弹出的菜单中选择“查看代码”，则可进入VBE编辑器访问活动工作簿的ThisWorkbook代码模块，如图00-04欧阳索引创编 2021.02.02