Excel vba零基础学习实例拆分讲解Excel vba零基础学习实例拆分讲解vba代码一.docx

1、Excel vba零基础学习实例拆分讲解Excel vba零基础学习实例拆分讲解vba代码一Excel vba零基础学习实例拆分讲解vba语言（一）零基础的人，看代码就像看天书一样，感觉晦涩难懂。小编觉得，想学好vba，首先要先能看懂代码的含义。但是，单纯的代码讲解，对于没基础的人又很单调。所以，本书主要通过结合实例分析将个代码的释义一一讲解。注意：黑色字体为程序代码；蓝色字体为代码讲解；红色字体为重点理解；示例01-01：体验开/关屏幕更新(ScreenUpdating属性)Sub 关闭屏幕更新() MsgBox 顺序切换工作表Sheet1Sheet2Sheet3Sheet2，先开启屏幕更新

2、，然后关闭屏幕更新Msgbox 这是我的第一个过程 在输入 Msgbox 后，运行后，会自动弹出一个消息框告诉你有关这条命令的信息，称之为自动列表技术。MsgBox按钮设置 ：vbOKOnly 0 仅显示确定按钮，这是默认值 vbOKCancel 1 显示确定和取消按钮 vbAbortRetryIgnore 2 显示终止，重试和忽略按钮 vbYesNoCancel 3 显示是，否和取消按钮 vbYesNo 4 显示是和否按钮 vbRetryCancel 5 显示重试和取消按钮 图标设置 vbCritical 16 显示重要信息图标 vbQuestion 32 显示问号图标 vbExclamat

3、ion 48 显示警告信息图标 vbInformation 64 显示信息图标 默认按钮设置 vbDefaultButton1 0 第一个按钮是缺省值 vbDefaultButton2 256 第二个按钮是缺省值 vbDefaultButton3 512 第三个按钮是缺省值 vbDefaultButton4 768 第四个按钮是缺省值 信息框形式 vbApplicationModal 0 应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作。 vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。 MsgBox显示的其

4、它设置 vbMsgBoxHelpButton 16384 将Help按钮添加到消息框 vbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口 vbMsgBoxRight 524288 文本为右对齐 vbMsgBoxRtlReading 1048576 指定文本应为在希伯来和阿拉伯语系统中的从右到左显示 Worksheets(1).SelectSheets(XXX).Select、Range(XXX).Select:选择工作表、范围 MsgBox 目前屏幕中显示工作表Sheet1 Application.ScreenUpdating = True获取当前应用程序名称

5、?Application.Name 将Excel应用程序标题改为“My Application” Application.Caption = My Application 将Excel应用程序标题改回为“Microsoft Excel” Application.Caption = Microsoft Excel 获取你正在使用的操作系统 ?Application.OperatingSystem 获取该应用程序注册的人名或公司名 ?Application.OrganizationName 获取Excel.exe保存的文件夹路径 ?Application.Path 退出Excel Applicat

6、ion.Quit Application.Dialogs(xlDialogFont).Show 如果你在对象浏览器里面选择Excel库后，再输入xlDialog搜索的话，那些代表Excel内置对话框的Screenupdating是Application的一个属性,是Boolean 数据类型,意思是屏幕是否关闭。 Worksheets(2).Select MsgBox 显示Sheet2了吗？ Worksheets(3).Select MsgBox 显示Sheet3了吗？ Worksheets(2).Select MsgBox 下面与前面执行的程序代码相同,但关闭屏幕更新功能 Worksheets

7、(1).Select MsgBox 目前屏幕中显示工作表Sheet1 & Chr(10) & 关屏屏幕更新功能 Application.ScreenUpdating = FalseApplication.ScreenUpdating = false 关闭屏幕更新,以加快宏运行速度 Application.ScreenUpdating = True 打开屏幕更新,以加快宏运行速度 Worksheets(2).Select MsgBox 显示Sheet2了吗？ Worksheets(3).Select MsgBox 显示Sheet3了吗？ Worksheets(2).Select Applicat

8、ion.ScreenUpdating = TrueEnd Sub示例说明：ScreenUpdating属性用来控制屏幕更新。当运行一个宏程序处理涉及到多个工作表或单元格中的大量数据时，若没有关闭屏幕更新，则会占用CPU的处理时间，从而降低程序的运行速度，而关闭该属性则可显著提高程序运行速度。示例01-02：使用状态栏(StatusBar属性)Sub testStatusBar() Application.DisplayStatusBar = True 开启状态栏显示Application.DisplayStatusBar告诉VB打开状态栏的显示 赋值状态栏显示的文本 Application.S

9、tatusBar = 你好End Sub示例说明：StatusBar属性用来指定显示在状态栏上的信息。若不想再显示状态栏文本，可使用Application.StatusBar = False语句关闭状态栏显示，也可以在程序开始将原先的状态栏设置存储，如使用语句oldStatusBar = Application.DisplayStatusBar将状态栏原来的信息存储在变量oldStatusBar，在程序运行完成或退出时，将变量重新赋值给状态栏，如使用语句Application.DisplayStatusBar = oldStatusBar，以恢复状态栏原状。示例01-03：处理光标(Curso

10、r属性)Sub ViewCursors()Cursor 属性、Cursor 类和Cursors 类来更改鼠标光标。 Application.Cursor = xlNorthwestArrow MsgBox 您将使用箭头光标,切换到Excel界面查看光标形状 Application.Cursor = xlIBeam MsgBox 您将使用工形光标,切换到Excel界面查看光标形状 Application.Cursor = xlWait MsgBox 您将使用等待形光标,切换到Excel界面查看光标形状 Application.Cursor = xlDefault MsgBox 您已将光标恢复为缺

11、省状态End Sub示例01-04：获取系统信息Sub GetSystemInfo() MsgBox Excel版本信息为: & Application.CalculationVersion MsgBox Excel当前允许使用的内存为: & Application.MemoryFree MsgBox Excel当前已使用的内存为: & Application.MemoryUsed MsgBox Excel可以使用的内存为: & Application.MemoryTotal MsgBox 本机操作系统的名称和版本为: & Application.OperatingSystem MsgBox

12、本产品所登记的组织名为: & Application.OrganizationName MsgBox 当前用户名为: & Application.UserName MsgBox 当前使用的Excel版本为: & Application.VersionEnd Sub示例说明：可以使用给UserName属性赋值以设置用户名称。示例01-05：退出复制/剪切模式(CutCopyMode属性)Sub exitCutCopyMode() Application.CutCopyMode = FalseEnd Sub示例说明：退出复制/剪切模式后，在程序运行时所进行的复制或剪切操作不会在原单元格区域留下流动

13、的虚框线。需要提醒的是，在程序运行完后，应使用Application.CutCopyMode = False语句恢复该属性的默认设置。示例01-06：禁止弹出警告信息(DisplayAlerts属性)Sub testAlertsDisplay()alert() 方法用于显示带有一条指定消息和一个 OK 按钮的警告框 Application.DisplayAlerts = FalseEnd Sub示例说明：在程序运行过程中，有时由于Excel本身设置的原因，会弹出对话框，从而中断程序的运行，您可以在程序之前加上Application.DisplayAlerts = False语句以禁止弹出这些对

14、话框而不影响程序正常运行。需要注意的是，在程序运行结束前，应使DisplayAlerts属性恢复为缺省状态，即使用语句Application.DisplayAlerts = True。该属性的默认设置为True，当将该属性设置为False时，Excel会使直接使用对话框中默认的选择，从而不会因为弹出对话框而影响程序运行。示例01-07：将Excel全屏幕显示Sub testFullScreen() MsgBox 运行后将Excel的显示模式设置为全屏幕 Application.DisplayFullScreen = TrueDisplay n.展览，陈列;陈列品，展览品;显示器;炫耀 vt.显

15、示;陈列;展开，伸展;夸示，炫耀 vi.（计算机屏幕上）显示 MsgBox 恢复为原来的状态 Application.DisplayFullScreen = FalseEnd Sub示例01-08：Excel启动的文件夹路径Sub ExcelStartfolder()folder 是指用于文件柜的文件夹或单独的文件夹,用于电脑则是贮存器中的电脑文件夹。MsgBox Excel启动的文件夹路径为： & Chr(10) & Application.StartupPathstartup 1.启动 2.启动选项 3.启动数据库 4.在启动时打开进程计数End Sub示例01-09：打开最近使用过的文档

16、Sub OpenRecentFiles()FILE是在stdio.h定义的保存文件流信息的一个结构体类型(也可能是在其它文件中定义了另外的数据类型,然后通过typedef定义FILE MsgBox 显示最近使用过的第三个文件名,并打开该文件 MsgBox 最近使用的第三个文件的名称为: & Application.RecentFiles(3).Name字符&必须用于每次你要在前面的字符串后加新信息的时候字符&可以连接任何字符串字符串的连接字符（&）用来返回连接字符串的字符。 Application.RecentFiles(3).OpenEnd Sub示例01-10：打开文件(FindFile方

17、法)Sub FindFileOpen() On Error Resume Next MsgBox 请打开文件, vbOKOnly + vbInformation, 打开文件vbOKOnly 0 仅显示确定按钮，这是默认值 vbOK - 按确定vbCancel - 按取消vbAbort - 按放弃information是英文单词，基本词义：信息 If Not Application.FindFile ThenIfThenElse 语句 ：条件语句，如何符合条件，则返回什么，否则，则返回什么；If condition Then statementsElse elsestatements state

18、ment:声明;报告;陈述句如1：If AB And CD Then A=B+2 Else A=C+2 或If condition Then statements ElseIf condition-n Then elseifstatements . Else elsestatements End If MsgBox 文件未找到, vbOKOnly + vbInformation, 打开失败 End IfEnd Sub示例说明：本示例将显示“打开”文件对话框，若用户未打开文件(即点击“取消”按钮)，则会显示“打开失败”信息框。示例中使用了FindFile方法，用来显示“打开”对话框并让用户打开一

19、个文件。如果成功打开一个新文件，则该值为True。如果用户取消了操作并退出该对话框，则该值为False。示例01-11：文件对话框操作(FileDialog属性)Sub UseFileDialogOpen()Dialog会话，对话;问答，对白;问答题，对话体;“dialogue”的变体v.对话;用对话表达 Dim lngCount As LongDim 变量 as 类型 定义为局部变量，如 Dim xyz as integer Dim 变量名 AS 数据类型 这条语法中的变量名代表将要创建的变量名.对变量的命名规则和对过程的命名规则相同.这条语句中的数据类型部分可以是表 4-1 中的任何一种数

20、据类型. 变量名必须以字母开始,并且只能包含字母数字和特定的特殊字符,不能包含空格句号惊叹号,也不能包含字符 & $ #.名字最大长度为 255个字符 Dim s 考试成绩（14） As Integer 声明数组时的另一种方法是不给定大小。可以在程序运行时定义其大小。通过创建动态数组就可以做到。例如，你的程序要创建一表格，可以提示用户输入表格的行和列的数目。声明动态数组的语法如下： Dim dyn_array() As type 对数组声明后可以在程序运行时用：ReDim语句指定数组的大小： ReDim dyn_array()(array_size) 参数 array_size 代表数组的新大

21、小。如果要保留数组的数值，请在 ReDim 语句后使用保留Dim i 人数 As Integer Dim i 考试成绩 As Integer Dim i As Integer i 人数 = inputbox(输入学生的人数：) ReDim Preserve i 考试成绩(i 数量) For i = 1 to i 人数 i 考试成绩(i) = inputbox(输入考试成绩& i ) Next 开启打开文件对话框 With Application.FileDialog(msoFileDialogOpen)使用FileDialogFilters集合的Clear方法清除所有预设的过滤器。当你从文件打

22、开对话框里选择一个文件时，该被选择的文件名称和路径就会被放置在FileDialogSelectedItems集合里。 .AllowMultiSelect = True通过设定FileDialog对象的AllowMultiSelect属性为True，用户就可以同时按下Shift键或者Ctrl键和文件名称，选择一个或多个文件。 接下来的过程示范了如何使用上面提及的属性， 该过程打开一个新的工作簿并且插入一个列表框控件。 .Show 显示所选的每个文件的路径 For lngCount = 1 To .SelectedItems.Count使用SelectedItems属性可以返回FileDialog

23、SelectedItems集合。计算Excel工作表里总单元格数 ?Cells.Count 计算Excel工作表里总行数 ?Rows.Count 计算Excel工作表里总列数 ?Columns.Count 获得打开的工作簿数目 ?Workbooks.Count MsgBox .SelectedItems(lngCount) Next lngCount End WithEnd Sub示例说明：本示例显示“打开文件”对话框，当用户在其中选择一个或多个文件后，将依次显示每个文件的路径。其中，FileDialog属性返回打开和保存对话框中一系列对象的集合，您可以对该集合对象的属性进行进一步的设置，如上

24、例中的AllowMultiSelect属性设置为True将允许用户选择多个文件。示例01-12：保存Excel的工作环境Sub 保存Excel的工作环境() MsgBox 将Excel的工作环境保存到D:ExcelSample中 Application.SaveWorkspace D:ExcelSampleSampleEnd Sub示例说明：运行本程序后，将工作簿以带后缀名.xlw保存到D盘的ExcelSample文件夹中，生成的文件全名为Sample.xlw。当改变工作簿并保存时，Excel会询问是覆盖原文件还是保存副本。示例01-13：改变Excel工作簿名字(Caption属性)Sub

25、SetCaption() Application.Caption = My ExcelBookEnd Sub示例说明：运行本程序后，将工作簿左上角Excel图标右侧的“Microsoft Excel”改为“My ExcelBook”。示例01-14：使用InputBox方法Sub SampleInputBox()InputBox函数显示一个信息提示用户输入数据，这个对话框有两个按钮“确定”和“取消” ，当你点击确定时，InputBox函数返回用户输入在信息框里的信息；当你点击取消时，函数则返回空字符串（” ”） 。InputBox函数的语法显示如下： InputBox(prompt , tit

26、le , default , xpos , ypos _ , helpfile, context) 第一个参数，prompt，是你想要显示在对话框上的信息，你可以使用函数Chr(13)或Chr(10)将长文本打断为几行（参见本章中使用MsgBox函数的例子） 。剩下所有的参数都是可选的。 第二个参数，title，让你改变对话框的默认标题，默认的标题是Mictosoft Excel。 InputBox函数的第三个参数，default，让你在文本框里显示一个默认值，如果你忽略这个参数的话，显示的将是空白编辑框。 接下来的两个参数，xpos和ypos，允许你设置该对话框在屏幕上出现的位置，如果你忽略

27、这两个参数，对话框就会出现了当前窗口的中央，xpos参数决定对话框在屏幕上从左起的水平位置，忽略它时，对话框显示在水平中央，而ypos参数决定对话框在屏幕从上而下的竖直位置，忽略它，对话框就在竖直大约三分之一的位置。xpos和ypos都使用一个叫twips的专门单位衡量，1twip大约等于0.0007英寸。 helpfile和context， 帮助文件（helpfile）和上下文（context）。 参数helpfile指明某个包含你要显示给用户的附加信息的具体帮助文件的名称，当你明确了这个参数后，Help按钮就会在信息框上显示出来。当你使用helpfile参数时，你同时也使用context参

28、数。这个参数表明在帮助文件里你要显示的那个帮助主题。 Dim vInput vInput = InputBox(请输入用户名:, 获取用户名, Application.UserName) MsgBox 您好! & vInput & .很高兴能认识您., vbOKOnly, 打招呼End Sub示例01-15：设置页边距(CentimetersToPoints方法)Sub SetLeftMargin()margin 简写属性在一个声明中设置所有外边距属性 MsgBox 将工作表Sheet1的左页边距设为5厘米 Worksheets(Sheet1).PageSetup.LeftMargin = A

29、pplication.CentimetersToPoints(5)End Sub示例01-16：使用Windows的计算器(ActivateMicrosoftApp方法)Sub CallCalculate() Application.ActivateMicrosoftApp Index:=0End Sub示例说明：运行本程序后，将调用Windows的计算器。示例01-17：在程序中运行另一个宏(Run方法)Sub runOtherMacro() MsgBox 本程序先选择A1至C6单元格区域后执行DrawLine宏 ActiveSheet.Range(A2:C6).Select Applica

30、tion.Run DrawLineEnd Sub示例01-18：在指定的时间执行宏(OnTime方法)Sub AfterTimetoRun() MsgBox 从现在开始,10秒后执行程序testFullScreen Application.OnTime Now + TimeValue(00:00:10), testFullScreenEnd Sub示例说明：运行本程序后，在10秒后将执行程序testFullScreen。示例01-19：暂时停止宏运行(Wait方法)Sub Stop5sMacroRun() Dim SetTime As Date MsgBox 按下确定,5秒后执行程序testFullScreen SetTime = DateAdd(s, 5, Now() Application.Wait SetTime Call testFullScreenEnd Sub示例说明：运行本程序后，按下弹出的提示框中的“确定”按钮，等待5秒后执行另一程