如何使用VBA操控Excel界面

如何使用VBA操控Excel界面

如何使用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。設置隱藏列的寬度為非零值將取消隱藏列。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。