本文繼續(xù)講解操控工作表中一些界面元素的VBA代碼。

工作表中的行列

隱藏和取消隱藏行標(biāo)題

不能夠分別單獨(dú)隱藏行標(biāo)題和列標(biāo)題，只能同時(shí)隱藏或者顯示這兩個(gè)標(biāo)題。

示例代碼：

'隱藏和取消隱藏活動(dòng)窗口中活動(dòng)工作表的行標(biāo)題和列標(biāo)題

'隱藏標(biāo)題

ActiveWindow.DisplayHeadings= False

'取消隱藏標(biāo)題

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è)標(biāo)準(zhǔn)工作表。隱藏所有行后，行標(biāo)題幾乎被隱藏，但列標(biāo)題仍然在工作表中。

要取消隱藏所有行，可以使用下列任一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

'隱藏非連續(xù)的行

ActiveSheet.Range('6:6,8:10,12:13').EntireRow.Hidden= True

上面語(yǔ)句中的逗號(hào)是聯(lián)合操作符，用來(lái)組合一系列行。

行高

示例代碼：

'設(shè)置活動(dòng)工作表所有行的高度

ActiveSheet.Rows.RowHeight= 15

'設(shè)置第2行的高度

ActiveSheet.Rows(2).RowHeight= 20

'設(shè)置第4行至第6行的高度

ActiveSheet.Rows('4:6').RowHeight= 10

'設(shè)置非連續(xù)行的高度

ActiveSheet.Range('8:8,10:12').RowHeight= 10

隱藏行的高度是0。設(shè)置隱藏行的高度為非零值將取消隱藏行。

隱藏和取消隱藏工作表列

可以使用下列任一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è)工作表。隱藏所有列后，列標(biāo)題幾乎被隱藏，但行標(biāo)題仍然在工作表中。

要取消隱藏所有列，可以使用下列任一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

'隱藏非連續(xù)的列

ActiveSheet.Range('G:G,J:K,M:N').EntireColumn.Hidden= True

上面語(yǔ)句中的逗號(hào)是聯(lián)合操作符，用來(lái)組合一系列列。

列寬

示例代碼：

'設(shè)置第1個(gè)工作表中所有列的寬度

Worksheets(1).Columns.ColumnWidth= 8

'設(shè)置列B的寬度

Worksheets(1).Columns(2).ColumnWidth= 3

'設(shè)置列D至列F的寬度

Worksheets(1).Columns('D:F').ColumnWidth= 2

'設(shè)置非連續(xù)列的寬度

Worksheets(1).Range('G:G,J:K').ColumnWidth= 4

隱藏列的寬度是0。設(shè)置隱藏列的寬度為非零值將取消隱藏列。 

說(shuō)明：本專(zhuān)題系列大部分內(nèi)容學(xué)習(xí)整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook appearance》，僅供學(xué)習(xí)研究。