1、开启状态栏显示 赋值状态栏显示的文本 Application.StatusBar = StatusBar属性用来指定显示在状态栏上的信息。若不想再显示状态栏文本,可使用Application.StatusBar = False语句关闭状态栏显示,也可以在程序开始将原先的状态栏设置存储,如使用语句oldStatusBar = Application.DisplayStatusBar将状态栏原来的信息存储在变量oldStatusBar,在程序运行完成或退出时,将变量重新赋值给状态栏,如使用语句Application.DisplayStatusBar = oldStatusBar,以恢复状态栏原状。
2、示例01-03:处理光标(Cursor属性)Sub ViewCursors() Application.Cursor = xlNorthwestArrow您将使用箭头光标,切换到Excel界面查看光标形状 Application.Cursor = xlIBeam您将使用工形光标,切换到Excel界面查看光标形状 Application.Cursor = xlWait您将使用等待形光标,切换到Excel界面查看光标形状 Application.Cursor = xlDefault您已将光标恢复为缺省状态示例01-04:获取系统信息Sub GetSystemInfo()Excel版本信息为: Ap
3、plication.CalculationVersionExcel当前允许使用的内存为: Application.MemoryFreeExcel当前已使用的内存为: Application.MemoryUsedExcel可以使用的内存为: Application.MemoryTotal本机操作系统的名称和版本为: Application.OperatingSystem本产品所登记的组织名为: Application.OrganizationName当前用户名为: Application.UserName当前使用的Excel版本为: Application.Version可以使用给UserNam
4、e属性赋值以设置用户名称。示例01-05:退出复制/剪切模式(CutCopyMode属性)Sub exitCutCopyMode() Application.CutCopyMode = False退出复制/剪切模式后,在程序运行时所进行的复制或剪切操作不会在原单元格区域留下流动的虚框线。需要提醒的是,在程序运行完后,应使用Application.CutCopyMode = False语句恢复该属性的默认设置。示例01-06:禁止弹出警告信息(DisplayAlerts属性)Sub testAlertsDisplay() Application.DisplayAlerts = False在程序运
5、行过程中,有时由于Excel本身设置的原因,会弹出对话框,从而中断程序的运行,您可以在程序之前加上Application.DisplayAlerts = False语句以禁止弹出这些对话框而不影响程序正常运行。需要注意的是,在程序运行结束前,应使DisplayAlerts属性恢复为缺省状态,即使用语句Application.DisplayAlerts = True。该属性的默认设置为True,当将该属性设置为False时,Excel会使直接使用对话框中默认的选择,从而不会因为弹出对话框而影响程序运行。示例01-07:将Excel全屏幕显示Sub testFullScreen()运行后将Exce
6、l的显示模式设置为全屏幕 Application.DisplayFullScreen = True恢复为原来的状态 Application.DisplayFullScreen = FalseEnd Sub示例01-08:Excel启动的文件夹路径Sub ExcelStartfolder()Excel启动的文件夹路径为: Application.StartupPath示例01-09:打开最近使用过的文档Sub OpenRecentFiles()显示最近使用过的第三个文件名,并打开该文件最近使用的第三个文件的名称为: Application.RecentFiles(3).Name Applicat
7、ion.RecentFiles(3).Open示例01-10:打开文件(FindFile方法)Sub FindFileOpen() On Error Resume Next请打开文件, vbOKOnly + vbInformation, 打开文件 If Not Application.FindFile Then文件未找到打开失败 End If本示例将显示“打开”文件对话框,若用户未打开文件(即点击“取消”按钮),则会显示“打开失败”信息框。示例中使用了FindFile方法,用来显示“打开”对话框并让用户打开一个文件。如果成功打开一个新文件,则该值为True。如果用户取消了操作并退出该对话框,则
8、该值为False。示例01-11:文件对话框操作(FileDialog属性)Sub UseFileDialogOpen() Dim lngCount As Long开启对话框 With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Show显示所选的每个文件的路径 For lngCount = 1 To .SelectedItems.Count MsgBox .SelectedItems(lngCount) Next lngCount End With本示例显示“打开文件”对话框,当用户在其中选择一个或多
9、个文件后,将依次显示每个文件的路径。其中,FileDialog属性返回打开和保存对话框中一系列对象的集合,您可以对该集合对象的属性进行进一步的设置,如上例中的AllowMultiSelect属性设置为True将允许用户选择多个文件。示例01-12:保存Excel的工作环境Sub 保存Excel的工作环境()将Excel的工作环境保存到D:ExcelSample中 Application.SaveWorkspace D:ExcelSampleSample运行本程序后,将工作簿以带后缀名.xlw保存到D盘的ExcelSample文件夹中,生成的文件全名为Sample.xlw。当改变工作簿并保存时,
10、Excel会询问是覆盖原文件还是保存副本。示例01-13:改变Excel工作簿名字(Caption属性)Sub SetCaption() Application.Caption = My ExcelBook运行本程序后,将工作簿左上角Excel图标右侧的“Microsoft Excel”改为“My ExcelBook”。示例01-14:使用InputBox方法Sub SampleInputBox() Dim vInput vInput = InputBox(请输入用户名:, 获取用户名, Application.UserName)您好! vInput &.很高兴能认识您., vbOKOnly,
11、 打招呼End Sub示例01-15:设置页边距(CentimetersToPoints方法)Sub SetLeftMargin()将工作表Sheet1的左页边距设为5厘米 Worksheets(Sheet1).PageSetup.LeftMargin = Application.CentimetersToPoints(5)示例01-16:使用Windows的计算器(ActivateMicrosoftApp方法)Sub CallCalculate() Application.ActivateMicrosoftApp Index:=0运行本程序后,将调用Windows的计算器。示例01-17:在
12、程序中运行另一个宏(Run方法)Sub runOtherMacro()本程序先选择A1至C6单元格区域后执行DrawLine宏 ActiveSheet.Range(A2:C6).Select Application.Run DrawLine示例01-18:在指定的时间执行宏(OnTime方法)Sub AfterTimetoRun()从现在开始,10秒后执行程序testFullScreen Application.OnTime Now + TimeValue(00:10), testFullScreen运行本程序后,在10秒后将执行程序testFullScreen。示例01-19:暂时停止宏运行
13、(Wait方法)Sub Stop5sMacroRun() Dim SetTime As Date按下确定,5秒后执行程序testFullScreen SetTime = DateAdd(s, 5, Now() Application.Wait SetTime Call testFullScreen运行本程序后,按下弹出的提示框中的“确定”按钮,等待5秒后执行另一程序testFullScreen。示例01-20:按下指定的按键后执行程序(OnKey方法)示例01-20-1Sub PressKeytoRun()按下Ctrl+D后将执行程序testFullScreen Application.OnK
14、ey d示例01-20-2Sub ResetKey()恢复原来的按键状态Onkey方法的作用主要是指定特定的键,当按下指定的键时运行相应的宏程序,或者按下指定的键时,使Excel屏蔽特定的功能。示例01-21:重新计算工作簿示例01-21-1Sub CalculateAllWorkbook() Application.Calculate当工作簿的计算模式被设置为手动模式后,运用Calculate方法可以重新计算所有打开的工作簿、工作簿中特定的工作表或者工作表中指定的单元格区域。示例01-21-2Sub CalculateFullSample() If Application.Calculati
15、onVersion Workbooks(1).CalculationVersion Then Application.CalculateFull本示例先将当前Microsoft Excel的版本与上次计算该工作簿的Excel版本进行比较,如果两个版本不同,则对所有打开工作簿中的数据进行一次完整计算。其中,CalculationVersion属性返回工作簿的版本信息。示例01-22:控制函数重新计算(Volatile方法)Function NonStaticRand()当工作表中任意单元格重新计算时本函数更新 Application.Volatile True NonStaticRand = R
16、nd()End Function本示例摸仿Excel中的Rand()函数,当工作表单元格发生变化时,都会重新计算该函数。在例子中,使用了Volatile方法,强制函数进行重新计算,即无论何时重新计算工作表,该函数都会重新计算。示例01-23:利用工作表函数(WorksheetFunction属性)Sub WorksheetFunctionSample() Dim myRange As Range, answer Set myRange = Worksheets().Range(A1:C10) answer = Application.WorksheetFunction.Min(myRange)
17、 MsgBox answer本示例获取工作表Sheet1中单元格区域A1:C10中的最小值,使用了工作表函数Min()。一般,使用WorksheetFunction属性引用工作表函数,但如果VBA自带有实现相同功能的函数,则直接使用该函数,否则会出现错误。示例01-24:获取重叠区域(Intersect方法)Sub IntersectRange() Dim rSect As Range).Activate Set rSect = Application.Intersect(Range(rg1), Range(rg2) If rSect Is Nothing Then没有交叉区域 Else rS
18、ect.Select本示例在工作表Sheet1中选定两个命名区域rg1和rg2的重叠区域,如果所选区域不重叠,则显示一条相应的信息。其中,Intersect方法返回一个Range对象,代表两个或多个范围重叠的矩形区域。示例01-25:获取路径分隔符(PathSeparator属性)Sub GetPathSeparator()MsgBox 路径分隔符为 Application.PathSeparator本示例使用PathSeparator属性返回路径分隔符(“”)。示例01-26:快速移至指定位置(Goto方法)Sub GotoSample() Application.Goto Referenc
19、e:=Worksheets(A154), _ scroll:=True本示例运行后,将当前单元格移至工作表Sheet1中的单元格A154。 示例01-27:显示内置对话框(Dialogs属性)Sub DialogSample() Application.Dialogs(xlDialogOpen).Show本示例显示Excel的“打开”文件对话框。其中,Dialogs属性返回的集合代表所有的Excel内置对话框。示例01-28:退出Excel(SendKeys方法)Sub SendKeysSample() Application.SendKeys (%fx本示例使用SendKeys方法退出Excel,若未保存,则会弹出提示对话框并让用户作出相应的选择。SendKeys方法的作用是摸拟键盘输入,如例中的“%fx”表示在Excel中同时按下Alt、F和X三个键。示例01-29:关闭ExcelSub 关闭Excel()Excel将会关闭 Application.Quit运行本程序后,若该工作簿未保存,则会弹出对话框询问是否保存。
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1