VBA怎么控制住Excel界面？如何使用VBA操控Excel界面？本文讲解操控工作表中一些界面元素的VBA代码。
工作表中的行列
隐藏和取消隐藏行标题
不能够分别单独隐藏行标题和列标题，只能同时隐藏或者显示这两个标题。示例代码：‘隐藏和取消隐藏活动窗口中活动工作表的行标题和列标题‘隐藏标题ActiveWindow.DisplayHeadings= False‘取消隐藏标题ActiveWindow.DisplayHeadings= True隐藏和取消隐藏工作表行
可以使用下列任一VBA语句隐藏活动工作表中的所有行：‘隐藏工作簿的活动工作表中所有行ActiveSheet.Rows.Hidden= TrueActiveSheet.Rows.EntireRow.Hidden= TrueActiveSheet.Cells.Rows.Hidden= True要隐藏其他工作表中的行，只需使用该工作表代替ActiveSheet，例如使用Sheets(1)代表第1个工作表，或者使用Worksheets(1)代表第1个标准工作表。隐藏所有行后，行标题几乎被隐藏，但列标题仍然在工作表中。要取消隐藏所有行，可以使用下列任一VBA语句：‘取消隐藏工作簿的活动工作表中所有行ActiveSheet.Rows.Hidden= FalseActiveSheet.Rows.EntireRow.Hidden= FalseActiveSheet.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= TrueActiveSheet.Columns.EntireColumn.Hidden= TrueActiveSheet.Cells.Columns.Hidden= True要隐藏其他工作表中的列，只需使用该工作表代替ActiveSheet，例如使用WorkSheets(1)代表第1个工作表，或者使用Worksheets(2)代表第2个工作表。隐藏所有列后，列标题几乎被隐藏，但行标题仍然在工作表中。要取消隐藏所有列，可以使用下列任一VBA语句：‘取消隐藏工作簿的活动工作表中所有列ActiveSheet.Columns.Hidden= FalseActiveSheet.Columns.EntireColumn.Hidden= FalseActiveSheet.Cells.Columns.Hidden= False下面的示例代码隐藏指定列：‘隐藏指定列‘仅隐藏列BActiveSheet.Columns(2).Hidden= True‘隐藏列D和列EActiveSheet.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。设置隐藏列的宽度为非零值将取消隐藏列。图片声明：本站部分配图来自人工智能系统AI生成,觅知网授权图片,PxHere摄影无版权图库。本站只作为美观性配图使用,无任何非法侵犯第三方意图,一切解释权归图片著作权方,本站不承担任何责任。如有恶意碰瓷者,必当奉陪到底严惩不贷!
内容声明：本文中引用的各种信息及资料（包括但不限于文字、数据、图表及超链接等）均来源于该信息及资料的相关主体（包括但不限于公司、媒体、协会等机构）的官方网站或公开发表的信息。部分内容参考包括:(百度百科,百度知道,头条百科,中国民法典,刑法,牛津词典,新华词典,汉语词典,国家院校,科普平台)等数据,内容仅供参考使用,不准确地方联系删除处理！本站为非盈利性质站点,发布内容不收取任何费用也不接任何广告!
免责声明：我们致力于保护作者版权，注重分享，被刊用文章因无法核实真实出处，未能及时与作者取得联系，或有版权异议的，请联系管理员，我们会立即处理，本文部分文字与图片资源来自于网络，部分文章是来自自研大数据AI进行生成,内容摘自(百度百科,百度知道,头条百科,中国民法典,刑法,牛津词典,新华词典,汉语词典,国家院校,科普平台)等数据,内容仅供学习参考,不准确地方联系删除处理!的,若有来源标注错误或侵犯了您的合法权益，请立即通知我们，情况属实，我们会第一时间予以删除，并同时向您表示歉意,谢谢!
