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

《vba在excel中的使用之vba语句解释》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、vba在excel中的使用之vba语句解释(1)SetobjExcel=CreateObject("Excel.Application")objExcel.Workbooks.Add‘创建Excel工作簿(2)Application.ActivateMicrosoftAppxlMicrosoftWord'开启Word应用程序(3)Application.TemplatesPath‘获取工作簿模板的位置(4)Application.Calculation=xlCalculationManual‘设置工作簿手动计算

2、  Application.Calculation=xlCalculationAutomatic‘工作簿自动计算(5)Worksheets(1).EnableCalculation=False‘不对第一张工作表自动进行重算(6)Application.CalculateFull'重新计算所有打开的工作簿中的数据(7)Application.RecentFiles.Maximum=5'将最近使用的文档列表数设为5(8)Application.RecentFiles(4).Open'打开最近打开的文档中的第4个文档

3、(9)Application.OnTimeDateSerial(2006,6,6)+TimeValue(“16:16:16”),“BaoPo”‘在2006年6月6日的16:16:16开始运行BaoPo过程(10)Application.Speech.Speak("Hello"&Application.UserName)‘播放声音，并使用用户的姓名问候用户(11)MsgBoxApplication.PathSeparator'获取"/"号(12)MsgBoxApplication.International(xl

4、CountrySetting)'返回应用程序当前所在国家的设置信息(13)Application.AutoCorrect.AddReplacement"葛洲坝","三峡"'自动将在工作表中进行输入的"葛洲坝"更正为"三峡"(14)Beep'让计算机发出声音(15)Err.Number‘返回错误代码(16)MsgBoxIMEStatus'获取输入法状态(17)Date=#6/6/2006#Time=#6:16:16AM#'将系统时间更改为2006年6月6日上午6时16分16秒(18)Application.Rol

5、lZoom=NotApplication.RollZoom'切换是否能利用鼠标中间的滑轮放大/缩小工作表(19)Application.ShowWindowsInTaskba=True‘显示任务栏中的窗口,即各工作簿占用各自的窗口(20)Application.DisplayScrollBars=True‘显示窗口上的滚动条(21)Application.DisplayFormulaBar=NotApplication.DisplayFormulaBar'切换是否显示编辑栏(22)Application.Dia

6、logs(xlDialogPrint).Show‘显示打印内容对话框(23)Application.MoveAfterReturnDirection=xlToRight'设置按Enter键后单元格的移动方向向右(24)Application.FindFile'显示打开对话框(25)ThisWorkbook.FollowHyperlinkhttp://hi.baidu.com/vba123‘打开超链接文档(26)ActiveWorkbook.ChangeFileAccessMode:=xlReadOnly'将当前

7、工作簿设置为只读(27)ActiveWorkbook.AddToFavorites'将当前工作簿添加到收藏夹文件夹中(28)ActiveSheet.CheckSpelling'在当前工作表中执行"拼写检查"(29)ActiveSheet.Protectuserinterfaceonly:=True‘保护当前工作表(30)ActiveSheet.PageSetup.LeftHeader=ThisWorkbook.FullName‘在当前工作表的左侧页眉处打印出工作簿的完整路径和文件名(31)Worksheets(

8、"Sheet1").Range("A1:G37").Locked=FalseWorksheets("Sheet1").Protect'解除对工作表Sheet1中A1:G37区域单元格的锁定'以便当该工作表受保护时也可对这些单元格进行修改(32)Worksheets("Sheet1").PrintPreview'显示工作表sheet1的打印预览窗口(33)ActiveSheet.Prin