|
①ActiveWorkbook的常见属性
ActiveWorkbook.Sheets.Count ’获取活动工作薄中工作表数
ActiveWorkbook.LinkSources(xlExcelLinks)(1) ‘返回当前工作簿中的第一条链接
ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetHidden ‘隐藏工作表，与在Excel菜单中执行“格式—工作表—隐藏”操作一样
ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVeryHidden ‘隐藏工作表，不能通过在Excel菜单中执行“格式—工作表—取消隐藏”来重新显示工作表
ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVisible ‘显示被隐藏的工作表
ThisWorkbook.Sheets(1).ProtectContents ‘检查工作表是否受到保护
②ActiveSheet对象常见属性
ActiveSheet.Columns("B").Cut '剪切B列
ActiveSheet.Columns("F").Insert ‘以上两句将B列数据移至F列，原C列后的数据左移
ActiveSheet.Range(“A:A”).EntireColumn.AutoFit ‘自动调整当前工作表A列的列宽
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) ‘选中当前工作表中常量和文本单元格
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues) ‘选中当前工作表中常量和文本及错误值单元格
ActiveSheet.UsedRange.Rows.Count ‘当前工作表中已使用的行数
ThisWorkbook.Worksheets.Add ThisWorkbook.Worksheets(3), , 2 ‘在第3张工作表之前添加2个新的工作表
ActiveSheet.Move After:=ActiveWorkbook. _
Sheets(ActiveWorkbook.Sheets.Count) ’将当前工作表移至工作表的最后
Worksheets(Array(“sheet1”,”sheet2”)).Select ’同时选择工作表sheet1和sheet2
ActiveSheet.UsedRange.FormatConditions.Delete ‘删除当前工作表中应用的条件格式
Cells.Hyperlinks.Delete ‘取消当前工作表中所有单元格的超链接
ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName ‘在页脚显示文件的路径
ActiveSheet.PrintPreview Enablechanges:=False ‘禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮。
ActiveSheet.UsedRange.Row ‘获取已使用的单元格区域的第一行的行号。
[办公软件]Excel隐私问题警告：此文档中包含宏，activx控件，… [办公软件]ActiveCell和Range对象属性介绍
[办公软件]此工作薄已丢失了其VBA项目、ActiveX控件及其他任… [办公软件]Word编程之WindowActivate、DocumentOpen和Docume…
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
