当前位置:首页 > 办公 > Excel教程 > 正文内容

怎么使用VBA操控Excel界面

酷网7个月前 (10-29)Excel教程82

如何使用VBA操控Excel界面?本文讲解操控工作表中一些界面元素的VBA代码。

工作表中的行列

隐藏和取消隐藏行标题

  • 不能够分别单独隐藏行标题和列标题,只能同时隐藏或者显示这两个标题。
  • 示例代码:
  • ‘隐藏和取消隐藏活动窗口中活动工作表的行标题和列标题
  • ‘隐藏标题
  • ActiveWindow.DisplayHeadings= False
  • ‘取消隐藏标题
  • ActiveWindow.DisplayHeadings= True

隐藏和取消隐藏工作表行

  • 可以使用下列任一VBA语句隐藏活动工作表中的所有行:
  • ‘隐藏工作簿的活动工作表中所有行
  • ActiveSheet.Rows.Hidden= True
  • ActiveSheet.Rows.EntireRow.Hidden= True
  • ActiveSheet.Cells.Rows.Hidden= True
  • 要隐藏其他工作表中的行,只需使用该工作表代替ActiveSheet,例如使用Sheets(1)代表第1个工作表,或者使用Worksheets(1)代表第1个标准工作表。隐藏所有行后,行标题几乎被隐藏,但列标题仍然在工作表中。
  • 要取消隐藏所有行,可以使用下列任一VBA语句:
  • ‘取消隐藏工作簿的活动工作表中所有行
  • ActiveSheet.Rows.Hidden= False
  • ActiveSheet.Rows.EntireRow.Hidden= False
  • ActiveSheet.Cells.Rows.Hidden= False
  • 下面的示例代码隐藏指定行:
  • ‘隐藏指定的行
  • ‘仅隐藏第2行
  • ActiveSheet.Rows(2).Hidden= True
  • ‘隐藏第3行和第4行
  • ActiveSheet.Rows(“3:4”).Hidden= True
  • ‘隐藏非连续的行
  • ActiveSheet.Range(“6:6,8:10,12:13”).EntireRow.Hidden= True
  • 上面语句中的逗号是联合操作符,用来组合一系列行。

行高

  • 示例代码:
  • ‘设置活动工作表所有行的高度
  • ActiveSheet.Rows.RowHeight= 15
  • ‘设置第2行的高度
  • ActiveSheet.Rows(2).RowHeight= 20
  • ‘设置第4行至第6行的高度
  • ActiveSheet.Rows(“4:6”).RowHeight= 10
  • ‘设置非连续行的高度
  • ActiveSheet.Range(“8:8,10:12”).RowHeight= 10
  • 隐藏行的高度是0。设置隐藏行的高度为非零值将取消隐藏行。

隐藏和取消隐藏工作表列

  • 可以使用下列任一VBA语句隐藏活动工作表中的所有列:
  • ‘隐藏工作簿的活动工作表中所有列
  • ActiveSheet.Columns.Hidden= True
  • ActiveSheet.Columns.EntireColumn.Hidden= True
  • ActiveSheet.Cells.Columns.Hidden= True
  • 要隐藏其他工作表中的列,只需使用该工作表代替ActiveSheet,例如使用WorkSheets(1)代表第1个工作表,或者使用Worksheets(2)代表第2个工作表。隐藏所有列后,列标题几乎被隐藏,但行标题仍然在工作表中。
  • 要取消隐藏所有列,可以使用下列任一VBA语句:
  • ‘取消隐藏工作簿的活动工作表中所有列
  • ActiveSheet.Columns.Hidden= False
  • ActiveSheet.Columns.EntireColumn.Hidden= False
  • ActiveSheet.Cells.Columns.Hidden= False
  • 下面的示例代码隐藏指定列:
  • ‘隐藏指定列
  • ‘仅隐藏列B
  • ActiveSheet.Columns(2).Hidden= True
  • ‘隐藏列D和列E
  • ActiveSheet.Columns(“D:E”).Hidden= True
  • ‘隐藏非连续的列
  • ActiveSheet.Range(“G:G,J:K,M:N”).EntireColumn.Hidden= True
  • 上面语句中的逗号是联合操作符,用来组合一系列列。

列宽

  • 示例代码:
  • ‘设置第1个工作表中所有列的宽度
  • Worksheets(1).Columns.ColumnWidth= 8
  • ‘设置列B的宽度
  • Worksheets(1).Columns(2).ColumnWidth= 3
  • ‘设置列D至列F的宽度
  • Worksheets(1).Columns(“D:F”).ColumnWidth= 2
  • ‘设置非连续列的宽度
  • Worksheets(1).Range(“G:G,J:K”).ColumnWidth= 4
  • 隐藏列的宽度是0。设置隐藏列的宽度为非零值将取消隐藏列。

扫描二维码推送至手机访问。

版权声明:本文章来源于互联网,由八酷网收集发布,如需转载请注明出处。

本文链接:https://www.i8ku.com/2021/40733.html

分享给朋友:

相关文章

怎么按指定个数在Excel中获得一列数据的所有可能组合?

怎么按指定个数在Excel中获得一列数据的所有可能组合?

Q:数据放置在列A中,我要得到这些数据中任意3个数据的所有可能组合。如下图1所示,列A中存放了5个数据,要得到这5个数据中任意3个数据的所有可能组合,如列B中所示。如何实现? 图1 (注:这是无意中看到的一个问题,我觉...

关于VLOOKUP,你必须知道的23件事(中)

关于VLOOKUP,你必须知道的23件事(中)

7.你可以强迫VLOOKUP执行完全匹配 要强迫VLOOKUP找到完全匹配,确保设置第4个参数(range_lookup)为FALSE或0。下面两个公式等价: =VLOOKUP(value,table,column,FA...

为何双击Excel文件时报错而不是直接打开?

为何双击Excel文件时报错而不是直接打开?

Q:昨天都好好的,不知道动了什么,今天双击Excel文件时不能打开了,老是报错,如图1所示,非要先启动Excel程序,然后单击“文件——打开”,导航到要打开的文件才能正常打开。为什么双击Excel文件不能直接打开了,如何...

Excel vlookup函数的操作实例:查找提取数字案例

vlookup函数的操作实例我们在前面的教程里面讲了一个又一个。本文再给大家分享一个vlookup查找提取数字的案例,案例来源于部落窝教育学员的提问。   说实在的,看到在excel表格里面这样录入数据源,真心想说,别折...

excel使用NOW函数函数返回当前时间

NOW函数返回当前日期和时间的序列号。如果在输入该函数前,单元格格式为“常规”,Excel会将单元格格式更改为与“控制面板”的区域日期和时间设置中指定的日期和时间格式相同的...

Excel滚动条不见了怎么办?

Excel滚动条不见了怎么办?

  在我们日常的学习和工作中,经常需要用到Excel表格,如果表格数据量较大,我们需要拖动滚动条来查看内容。但是最近有位用户打开Excel表格后,发现滚动条不见了,这是怎么回事呢?这是...

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。