如何使用VBA操控Excel界面

如何使用VBA操控Excel界面？本文講解操控工作表中一些界面元素的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語句隱藏活動(dòng)工作表中的所有行：‘隱藏工作簿的活動(dòng)工作表中所有行ActiveSheet.Rows.Hidden= TrueActiveSheet.Rows.EntireRow.Hidden= TrueActiveSheet.Cells.Rows.Hidden= True要隱藏其他工作表中的行，只需使用該工作表代替ActiveSheet，例如使用Sheets(1)代表第1個(gè)工作表，或者使用Worksheets(1)代表第1個(gè)標(biāo)準(zhǔn)工作表。隱藏所有行后，行標(biāo)題幾乎被隱藏，但列標(biāo)題仍然在工作表中。要取消隱藏所有行，可以使用下列任一VBA語句：‘取消隱藏工作簿的活動(dòng)工作表中所有行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‘隱藏非連續(xù)的行ActiveSheet.Range(“6:6,8:10,12:13”).EntireRow.Hidden= True上面語句中的逗號是聯(lián)合操作符，用來組合一系列行。

行高

示例代碼：‘設(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語句隱藏活動(dòng)工作表中的所有列：‘隱藏工作簿的活動(dòng)工作表中所有列ActiveSheet.Columns.Hidden= TrueActiveSheet.Columns.EntireColumn.Hidden= TrueActiveSheet.Cells.Columns.Hidden= True要隱藏其他工作表中的列，只需使用該工作表代替ActiveSheet，例如使用WorkSheets(1)代表第1個(gè)工作表，或者使用Worksheets(2)代表第2個(gè)工作表。隱藏所有列后，列標(biāo)題幾乎被隱藏，但行標(biāo)題仍然在工作表中。要取消隱藏所有列，可以使用下列任一VBA語句：‘取消隱藏工作簿的活動(dòng)工作表中所有列ActiveSheet.Columns.Hidden= FalseActiveSheet.Columns.EntireColumn.Hidden= FalseActiveSheet.Cells.Columns.Hidden= False下面的示例代碼隱藏指定列：‘隱藏指定列‘僅隱藏列BActiveSheet.Columns(2).Hidden= True‘隱藏列D和列EActiveSheet.Columns(“D:E”).Hidden= True‘隱藏非連續(xù)的列ActiveSheet.Range(“G:G,J:K,M:N”).EntireColumn.Hidden= True上面語句中的逗號是聯(lián)合操作符，用來組合一系列列。

列寬

示例代碼：‘設(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è)置隱藏列的寬度為非零值將取消隱藏列。