Excel VBA 语句解释（3）

(18) ActiveSheet.UsedRange.Rows.Count ‘当前工作表中已使用的行数

(19) Rows.Count ‘获取工作表的行数(注：考虑向前兼容性)

(20) Sheets(Sheet1).Name= “Sum” '将Sheet1命名为Sum

(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一个新工作表在第一工作表前

(22) ActiveSheet.Move After:=ActiveWorkbook. _

Sheets(ActiveWorkbook.Sheets.Count) '将当前工作表移至工作表的最后

(23) Worksheets(Array(“sheet1”,”sheet2”)).Select '同时选择工作表1和工作表2

(24) Sheets(“sheet1”).Delete或 Sheets(1).Delete '删除工作表1

(25) ActiveWorkbook.Sheets(i).Name '获取工作表i的名称

(26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines '切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮

(27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings ‘切换工作表中的行列边框显示

(28) ActiveSheet.UsedRange.FormatConditions.Delete ‘删除当前工作表中所有的条件格式

(29) Cells.Hyperlinks.Delete ‘取消当前工作表所有超链接

(30) ActiveSheet.PageSetup.Orientation=xlLandscape

或ActiveSheet.PageSetup.Orientation=2 '将页面设置更改为横向

(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName ‘在页面设置的表尾中输入文件路径

ActiveSheet.PageSetup.LeftFooter=Application.UserName ‘将用户名放置在活动工作表的页脚