Dzwebs.Net

撰写电脑技术杂文十余年

ActiveWorkbook和ActiveSheet对象属性介绍

Admin | 2010-4-13 13:35:32 | 被阅次数 | 42003

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  ①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杂文

上一篇:Excel编程VBA之Application对象篇

下一篇:ActiveCell和Range对象属性介绍

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计