本文繼續講解操控工作表中一些界面元素的VBA代碼。
工作表中的行列
隱藏和取消隱藏行標題
不能夠分別單獨隱藏行標題和列標題，只能同時(shí)隱藏或者顯示這兩個(gè)標題。
示例代碼：
'隱藏和取消隱藏活動(dòng)窗口中活動(dòng)工作表的行標題和列標題
'隱藏標題
ActiveWindow.DisplayHeadings= False
'取消隱藏標題
ActiveWindow.DisplayHeadings= True
隱藏和取消隱藏工作表行
可以使用下列任一VBA語(yǔ)句隱藏活動(dòng)工作表中的所有行：
'隱藏工作簿的活動(dòng)工作表中所有行
ActiveSheet.Rows.Hidden= True
ActiveSheet.Rows.EntireRow.Hidden= True
ActiveSheet.Cells.Rows.Hidden= True
要隱藏其他工作表中的行，只需使用該工作表代替ActiveSheet，例如使用Sheets(1)代表第1個(gè)工作表，或者使用Worksheets(1)代表第1個(gè)標準工作表。隱藏所有行后，行標題幾乎被隱藏，但列標題仍然在工作表中。
要取消隱藏所有行，可以使用下列任一VBA語(yǔ)句：
'取消隱藏工作簿的活動(dòng)工作表中所有行
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
上面語(yǔ)句中的逗號是聯(lián)合操作符，用來(lái)組合一系列行。
行高
示例代碼：
'設置活動(dòng)工作表所有行的高度
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語(yǔ)句隱藏活動(dòng)工作表中的所有列：
'隱藏工作簿的活動(dòng)工作表中所有列
ActiveSheet.Columns.Hidden= True
ActiveSheet.Columns.EntireColumn.Hidden= True
ActiveSheet.Cells.Columns.Hidden= True
要隱藏其他工作表中的列，只需使用該工作表代替ActiveSheet，例如使用WorkSheets(1)代表第1個(gè)工作表，或者使用Worksheets(2)代表第2個(gè)工作表。隱藏所有列后，列標題幾乎被隱藏，但行標題仍然在工作表中。
要取消隱藏所有列，可以使用下列任一VBA語(yǔ)句：
'取消隱藏工作簿的活動(dòng)工作表中所有列
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
上面語(yǔ)句中的逗號是聯(lián)合操作符，用來(lái)組合一系列列。
列寬
示例代碼：
'設置第1個(gè)工作表中所有列的寬度
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。設置隱藏列的寬度為非零值將取消隱藏列。
說(shuō)明：本專(zhuān)題系列大部分內容學(xué)習整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook appearance》，僅供學(xué)習研究。
聯(lián)系客服
