office办公套件中的vba函数大全

《office办公套件中的vba函数大全》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Office办公套件中的VBA函数大全定制模块行为(1)OptionExplicit强制对模块内所有变量进行声明OptionPrivateModule标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示OptionCompareText字符串不区分大小写OptionBase1指定数组的第一个下标为1(2)_disibledevent=”宋体”〉工届(8)Workbooks.Add()创建一个新的工作簿(9)Workbooks(ubook1.xlsn).Activate激活名为bookl的工作簿(10)ThisWorkbook.Save保存工作簿

2、(11)ThisWorkbook.close关闭当前工作簿(12)ActiveWorkbook.Sheets.Count获取活动工作薄中工作表数(13)ActiveWorkbook.name返回活动工作薄的名称(14)ThisWorkbook.Name'返回当前工作簿名称ThisWorkbook.FullName'返冋当前工作簿路径和名称(15)ActiveWindow.EnableResize=False'禁止调整活动工作簿的大小(16)Application.Window.ArrangexlArrangeStyleTiled'将工作簿以平铺方式排列(

3、17)ActiveWorkbook.WindowState=xlMaximized'将当前工作簿最大化工作表(18)ActiveSheet.UsedRange.Rows.Count'当前工作表中已使用的彳亍数(19)Rows.Count，获取工作表的行数(注：考虑向前兼容性)(20)Sheets(Sheet1).Name=“Sum”将Sheetl命名为Sum(21)ThisWorkbook.Sheets.AddBefore:=Worksheets(1)添加一个新表在第一工作表前(22)ActiveSheet.MoveAfter:=ActiveWorkbo

4、ok._Sheets(ActiveWorkbook.Sheets.Count)将当前工作表移至工作表的最后(23)Worksheets(Array(Msheet1M,Msheet2M)).Select同时选择工作表1和工作表2(24)Sheetsfsheetl").Delete或Sheets(1).Delete删除工作表1(25)ActiveWorkbook.Sheets(i).Name获取工作表i的名称(26)ActiveWindow.DisplayGridlines=NotActiveWindow.DisplayGridlines切换工作表屮的网格线

5、显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮(27)ActiveWindow.DisplayHeadings=NotActiveWindow.DisplayHeadings'切换工作表屮的行列边框显示(28)ActiveSheet.UsedRange.Formatconditions.Delete'删除当前工表中所有的条件格式(29)Cells.Hyperlinks.Delete'取消当前工作表所有超链接(30)ActiveSheet.PageSetup.Orientation=xILandscape或ActiveSheet.PageS

6、etup.Orientation=2将页而设置更改为横向(8)ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName'在页而设置的表尾中输入文件路径ActiveSheet.PageSetup.LeftFooter=Application.UserName'将用户名放置在活动工作表的页脚单元格/单元格区域(9)ActiveCell.CurrentRegion.Select或Range(ActiveCell.End(xlllp),ActiveCell.End(xlDown)).Select选择当前活

7、动单元格所包含的范围，上下左右无空行(10)Cells.Select'选定当前工作表的所有单元格(11)RangeCAVyClearContents清除活动工作表上单元格A1中的内容Selection.ClearContents清除选定区域内容Range(uA1:D4n).CIear彻底清除A1至D4单元格区域的内容，包括格式(12)Cells.Clear清除工作表中所有单元格的内容(13)ActiveCell.Offset(1,0).Select活动单元格下移一行，同理，可下移一列(14)Range(MA1n).Offset(ColumnOffset:

8、=1)或Range(uA1n).Offset(,1)'偏移一列Range(uA1