Excel中用VBAWorksheet基本操作应用示例.docx

Excel中用VBAWorksheet基本操作应用示例.docx

《Excel中用VBAWorksheet基本操作应用示例.docx》由会员分享，可在线阅读，更多相关《Excel中用VBAWorksheet基本操作应用示例.docx（54页珍藏版）》请在冰点文库上搜索。

Excel中用VBAWorksheet基本操作应用示例

Application对象与其常用方法根本操作应用示例

Application对象代表整个MicrosoftExcel应用程序，带有175个属性和52个方法，可以设置整个应用程序的环境或配置应用程序。

示例01-01：

体验开/关屏幕更新（ScreenUpdating属性）

Sub关闭屏幕更新（）

 MsgBox"顺序切换工作表Sheet1→Sheet2→Sheet3→Sheet2，先开启屏幕更新，然后关闭屏幕更新"

 Worksheets

（1）.Select

 MsgBox"目前屏幕中显示工作表Sheet1"

 Application.ScreenUpdating=True

 Worksheets

（2）.Select

 MsgBox"显示Sheet2了吗？

"

 Worksheets（3）.Select

 MsgBox"显示Sheet3了吗？

"

 Worksheets

（2）.Select

 MsgBox"下面与前面执行的程序代码一样,但关闭屏幕更新功能"

 Worksheets

（1）.Select

 MsgBox"目前屏幕中显示工作表Sheet1"&Chr（10）&"关屏屏幕更新功能"

 Application.ScreenUpdating=False

 Worksheets

（2）.Select

 MsgBox"显示Sheet2了吗？

"

 Worksheets（3）.Select

 MsgBox"显示Sheet3了吗？

"

 Worksheets

（2）.Select

 Application.ScreenUpdating=True

EndSub

示例说明：

ScreenUpdating属性用来控制屏幕更新。

当运行一个宏程序处理涉与到多个工作表或单元格中的大量数据时，假设没有关闭屏幕更新，那么会占用CPU的处理时间，从而降低程序的运行速度，而关闭该属性那么可显著提高程序运行速度。

示例01-02：

使用状态栏（StatusBar属性）

SubtestStatusBar（）

 Application.DisplayStatusBar=True'开启状态栏显示

 '赋值状态栏显示的文本

 Application.StatusBar=""

EndSub

示例说明：

StatusBar属性用来指定显示在状态栏上的信息。

假设不想再显示状态栏文本，可使用Application.StatusBar=False语句关闭状态栏显示，也可以在程序开始将原先的状态栏设置存储，如使用语句oldStatusBar=Application.DisplayStatusBar将状态栏原来的信息存储在变量oldStatusBar，在程序运行完成或退出时，将变量重新赋值给状态栏，如使用语句Application.DisplayStatusBar=oldStatusBar，以恢复状态栏原状。

示例01-03：

处理光标（Cursor属性）

SubViewCursors（）

 Application.Cursor=xlNorthwestArrow

 MsgBox"您将使用箭头光标,切换到Excel界面查看光标形状"

 Application.Cursor=xlIBeam

 MsgBox"您将使用工形光标,切换到Excel界面查看光标形状"

 Application.Cursor=xlWait

 MsgBox"您将使用等待形光标,切换到Excel界面查看光标形状"

 Application.Cursor=xlDefault

 MsgBox"您已将光标恢复为缺省状态"

EndSub

示例01-04：

获取系统信息

SubGetSystemInfo（）

 MsgBox"Excel版本信息为:

"&Application.CalculationVersion

 MsgBox"Excel当前允许使用的存为:

"&Application.MemoryFree

 MsgBox"Excel当前已使用的存为:

"&Application.MemoryUsed

 MsgBox"Excel可以使用的存为:

"&Application.MemoryTotal

 MsgBox"本机操作系统的名称和版本为:

"&Application.OperatingSystem

 MsgBox"本产品所登记的组织名为:

"&Application.OrganizationName

 MsgBox"当前用户名为:

"&Application.UserName

 MsgBox"当前使用的Excel版本为:

"&Application.Version

EndSub

示例说明：

可以使用给UserName属性赋值以设置用户名称。

示例01-05：

退出复制/剪切模式（CutCopyMode属性）

SubexitCutCopyMode（）

 Application.CutCopyMode=False

EndSub

示例说明：

退出复制/剪切模式后，在程序运行时所进展的复制或剪切操作不会在原单元格区域留下流动的虚框线。

需要提醒的是，在程序运行完后，应使用Application.CutCopyMode=False语句恢复该属性的默认设置。

示例01-06：

禁止弹出警告信息（DisplayAlerts属性）

SubtestAlertsDisplay（）

 Application.DisplayAlerts=False

EndSub

示例说明：

在程序运行过程中，有时由于Excel本身设置的原因，会弹出对话框，从而中断程序的运行，您可以在程序之前加上Application.DisplayAlerts=False语句以禁止弹出这些对话框而不影响程序正常运行。

需要注意的是，在程序运行完毕前，应使DisplayAlerts属性恢复为缺省状态，即使用语句Application.DisplayAlerts=True。

该属性的默认设置为True，当将该属性设置为False时，Excel会使直接使用对话框中默认的选择，从而不会因为弹出对话框而影响程序运行。

示例01-07：

将Excel全屏幕显示

SubtestFullScreen（）

 MsgBox"运行后将Excel的显示模式设置为全屏幕"

 Application.DisplayFullScreen=True

 MsgBox"恢复为原来的状态"

 Application.DisplayFullScreen=False

EndSub

[NextPage]示例01-08：

Excel启动的文件夹路径

SubExcelStartfolder（）

 MsgBox"Excel启动的文件夹路径为：

"&Chr（10）&Application.StartupPath

EndSub

示例01-09：

打开最近使用过的文档

SubOpenRecentFiles（）

 MsgBox"显示最近使用过的第三个文件名,并打开该文件"

 MsgBox"最近使用的第三个文件的名称为:

"&Application.RecentFiles（3）.Name

 Application.RecentFiles（3）.Open

EndSub

示例01-10：

打开文件（FindFile方法）

SubFindFileOpen（）

 OnErrorResumeNext

 MsgBox"请打开文件",vbOKOnly+vbInformation,"打开文件"

 IfNotApplication.FindFileThen

   MsgBox"文件未找到",vbOKOnly+vbInformation,"打开失败"

 EndIf

EndSub

示例说明：

本示例将显示“打开〞文件对话框，假设用户未打开文件（即点击“取消〞按钮），那么会显示“打开失败〞信息框。

示例中使用了FindFile方法，用来显示“打开〞对话框并让用户打开一个文件。

如果成功打开一个新文件，那么该值为True。

如果用户取消了操作并退出该对话框，那么该值为False。

示例01-11：

文件对话框操作（FileDialog属性）

SubUseFileDialogOpen（）

 DimlngCountAsLong

 '开启"打开文件"对话框

 WithApplication.FileDialog（msoFileDialogOpen）

   .AllowMultiSelect=True

   .Show

   '显示所选的每个文件的路径

   ForlngCount=1To.SelectedItems.Count

     MsgBox.SelectedItems（lngCount）

   NextlngCount

 EndWith

EndSub

示例说明：

本示例显示“打开文件〞对话框，当用户在其中选择一个或多个文件后，将依次显示每个文件的路径。

其中，FileDialog属性返回打开和保存对话框中一系列对象的集合，您可以对该集合对象的属性进展进一步的设置，如上例中的AllowMultiSelect属性设置为True将允许用户选择多个文件。

示例01-12：

保存Excel的工作环境

Sub保存Excel的工作环境（）

 MsgBox"将Excel的工作环境保存到D:

\ExcelSample\中"

 Application.SaveWorkspace"D:

\ExcelSample\Sample"

EndSub

示例说明：

运行本程序后，将工作簿以带后缀名.xlw保存到D盘的ExcelSample文件夹中，生成的文件全名为Sample.xlw。

当改变工作簿并保存时，Excel会询问是覆盖原文件还是保存副本。

示例01-13：

改变Excel工作簿名字（Caption属性）

SubSetCaption（）

 Application.Caption="MyExcelBook"

EndSub

示例说明：

运行本程序后，将工作簿左上角Excel图标右侧的“MicrosoftExcel〞改为“MyExcelBook〞。

示例01-14：

使用InputBox方法

SubSampleInputBox（）

 DimvInput

 vInput=InputBox（"请输入用户名:

","获取用户名",Application.UserName）

 MsgBox"您好!

"&vInput&".很高兴能认识您.",vbOKOnly,"打招呼"

EndSub

[NextPage]示例01-15：

设置页边距（CentimetersToPoints方法）

SubSetLeftMargin（）

 MsgBox"将工作表Sheet1的左页边距设为5厘米"

 Worksheets（"Sheet1"）.PageSetup.LeftMargin=Application.CentimetersToPoints（5）

EndSub

示例01-16：

使用Windows的计算器（ActivateMicrosoftApp方法）

SubCallCalculate（）

 Application.ActivateMicrosoftAppIndex:

=0

EndSub

示例说明：

运行本程序后，将调用Windows的计算器。

示例01-17：

在程序中运行另一个宏（Run方法）

SubrunOtherMacro（）

 MsgBox"本程序先选择A1至C6单元格区域后执行DrawLine宏"

 ActiveSheet.Range（"A2:

C6"）.Select

 Application.Run"DrawLine"

EndSub

示例01-18：

在指定的时间执行宏（OnTime方法）

SubAfterTimetoRun（）

 MsgBox"从现在开始,10秒后执行程序「testFullScreen」"

 Application.OnTimeNow+TimeValue（"00:

00:

10"）,"testFullScreen"

EndSub

示例说明：

运行本程序后，在10秒后将执行程序testFullScreen。

示例01-19：

暂时停止宏运行（Wait方法）

SubStop5sMacroRun（）

 DimSetTimeAsDate

 MsgBox"按下「确定」,5秒后执行程序「testFullScreen」"

 SetTime=DateAdd（"s",5,Now（））

 Application.WaitSetTime

 CalltestFullScreen

EndSub

示例说明：

运行本程序后，按下弹出的提示框中的“确定〞按钮，等待5秒后执行另一程序testFullScreen。

示例01-20：

按下指定的按键后执行程序（OnKey方法）

[示例01-20-1]

SubPressKeytoRun（）

 MsgBox"按下Ctrl+D后将执行程序「testFullScreen」"

 Application.OnKey"^{d}","testFullScreen"

EndSub

[示例01-20-2]

SubResetKey（）

 MsgBox"恢复原来的按键状态"

 Application.OnKey"^{d}"

EndSub

示例说明：

Onkey方法的作用主要是指定特定的键，当按下指定的键时运行相应的宏程序，或者按下指定的键时，使Excel屏蔽特定的功能。

示例01-21：

重新计算工作簿

[示例01-21-1]

SubCalculateAllWorkbook（）

 Application.Calculate

EndSub

示例说明：

当工作簿的计算模式被设置为手动模式后，运用Calculate方法可以重新计算所有打开的工作簿、工作簿中特定的工作表或者工作表中指定的单元格区域。

[示例01-21-2]

SubCalculateFullSample（）

 IfApplication.CalculationVersion<>Workbooks

（1）.CalculationVersionThen

   Application.CalculateFull

 EndIf

EndSub

示例说明：

本示例先将当前MicrosoftExcel的版本与上次计算该工作簿的Excel版本进展比拟，如果两个版本不同，那么对所有打开工作簿中的数据进展一次完整计算。

其中，CalculationVersion属性返回工作簿的版本信息。

[NextPage]示例01-22：

控制函数重新计算（Volatile方法）

FunctionNonStaticRand（）

 '当工作表中任意单元格重新计算时本函数更新

 Application.VolatileTrue

 NonStaticRand=Rnd（）

EndFunction

示例说明：

本示例摸仿Excel中的Rand（）函数，当工作表单元格发生变化时，都会重新计算该函数。

在例子中，使用了Volatile方法，强制函数进展重新计算，即无论何时重新计算工作表，该函数都会重新计算。

示例01-23：

利用工作表函数（WorksheetFunction属性）

SubWorksheetFunctionSample（）

 DimmyRangeAsRange,answer

 SetmyRange=Worksheets（"Sheet1"）.Range（"A1:

C10"）

 answer=Application.WorksheetFunction.Min（myRange）

 MsgBoxanswer

EndSub

示例说明：

本示例获取工作表Sheet1中单元格区域A1:

C10中的最小值，使用了工作表函数Min（）。

一般，使用WorksheetFunction属性引用工作表函数，但如果VBA自带有实现一样功能的函数，那么直接使用该函数，否那么会出现错误。

示例01-24：

获取重叠区域（Intersect方法）

SubIntersectRange（）

 DimrSectAsRange

 Worksheets（"Sheet1"）.Activate

 SetrSect=Application.Intersect（Range（"rg1"）,Range（"rg2"））

 IfrSectIsNothingThen

   MsgBox"没有交叉区域"

 Else

   rSect.Select

 EndIf

EndSub

示例说明：

本示例在工作表Sheet1中选定两个命名区域rg1和rg2的重叠区域，如果所选区域不重叠，那么显示一条相应的信息。

其中，Intersect方法返回一个Range对象，代表两个或多个围重叠的矩形区域。

示例01-25：

获取路径分隔符（PathSeparator属性）

SubGetPathSeparator（）

 MsgBox"路径分隔符为"&Application.PathSeparator

EndSub

示例说明：

本示例使用PathSeparator属性返回路径分隔符（“\〞）。

示例01-26：

快速移至指定位置（Goto方法）

SubGotoSample（）

 Application.GotoReference:

=Worksheets（"Sheet1"）.Range（"A154"）,_

   scroll:

=True

EndSub

示例说明：

本示例运行后，将当前单元格移至工作表Sheet1中的单元格A154。

示例01-27：

显示置对话框（Dialogs属性）

SubDialogSample（）

 Application.Dialogs（xlDialogOpen）.Show

EndSub

示例说明：

本示例显示Excel的“打开〞文件对话框。

其中，Dialogs属性返回的集合代表所有的Excel置对话框。

示例01-28：

退出Excel（SendKeys方法）

SubSendKeysSample（）

 Application.SendKeys（"%fx"）

EndSub

示例说明：

本示例使用SendKeys方法退出Excel，假设未保存，那么会弹出提示对话框并让用户作出相应的选择。

SendKeys方法的作用是摸拟键盘输入，如例中的“%fx〞表示在Excel中同时按下Alt、F和X三个键。

示例01-29：

关闭Excel

Sub关闭Excel（）

 MsgBox"Excel将会关闭"

 Application.Quit

EndSub

示例说明：

运行本程序后，假设该工作簿未保存，那么会弹出对话框询问是否保存。

Window对象代表一个窗口，约有48个属性和14个方法，能对窗口特性进展设置和操作。

Window对象是Windows集合中的成员，对于Application对象来说，Windows集合包含该应用程序中的所有窗口；对于Workbook对象来说，Windows集合只包含指定工作簿中的窗口。

下面介绍一些示例，以演示和说明Window对象与其属性和方法的运用。

示例02-01：

激活窗口（Activate方法）

SubSelectWindow（）

 DimiWinAsLong,iAsLong,bWin

 MsgBox"依次切换已打开的窗口"

 iWin=Windows.Count

 MsgBox“您已打开的窗口数量为：

〞&iWin

 Fori=1ToiWin

   Windows（i）.Activate

   bWin=MsgBox（"您激活了第"&i&"个窗口，还要继续吗？

",vbYesNo）

   IfbWin=vbNoThenExitSub

 Nexti

EndSub

示例02-02：

窗口状态（WindowState属性）

[示例02-02-01]

SubWindowStateTest（）

 MsgBox"当前活动工作簿窗口将最小化"

 Windows

（1）.WindowState=xlMinimized

 MsgBox"当前活动工作簿窗口将恢复正常"

 Windows

（1）.WindowState=xlNormal

 MsgBox"当前活动工作簿窗口将最大化"

 Windows

（1）.WindowState=xlMaximized

EndSub

示例说明：

使用WindowState属性可以返回或者设置窗口的状态。

示例中，常量xlMinimized、xlNormal和xlMaximized分别代表窗口不同状态值，Windows

（1）表示当前活动窗口。

可以使用Windows（index）来返回单个的Window对象，其中的index为窗口的名称或编号，活动窗口总是Windows

（1）。

[示例02-02-02]

SubtestWindow（）

 '测试Excel应用程序窗口状态

 MsgBox"应用程序窗口将最大化"

 Application.WindowState=xlMaximized

 CalltestWindowState

 MsgBox"应用程序窗口将恢复正常"

 Application.WindowState=xlNormal

 MsgBox"应用程序窗口已恢复正常"

   '测试活动工作簿窗口状态

   MsgBox"当前活动工作簿窗口将最小化"

   ActiveWindow.WindowState=xlMinimized

   CalltestWindowState

   MsgBox"当前活动工作簿窗口将最大化"

   ActiveWindow.WindowState=xlMaximized

   CalltestWindowState

   MsgBox"当前活动工作簿窗口将恢复正常"

   ActiveWindow.WindowState=xlNormal

   CalltestWindowState

 MsgBox"应用程序窗口将最小化"

 Application.WindowState=xlMinimized

 CalltestWindowState

EndSub

‘*********************************************************

SubtestWindowState（）

 SelectCaseApplication.WindowState

   Case