VBA怎么控制住Excel界面

      網友投稿 554 2025-04-06

      VBA怎么控制住Excel界面

      VBA怎么控制住Excel界面?如何使用VBA操控Excel界面?本文講解操控工作表中一些界面元素的VBA代碼

      工作表中的行列

      隱藏和取消隱藏行標題

      不能夠分別單獨隱藏行標題和列標題,只能同時隱藏或者顯示這兩個標題。 示例代碼: ‘隱藏和取消隱藏活動窗口中活動工作表的行標題和列標題 ‘隱藏標題 ActiveWindow.DisplayHeadings= False ‘取消隱藏標題 ActiveWindow.DisplayHeadings= True

      VBA怎么控制住Excel界面

      隱藏和取消隱藏工作表行

      可以使用下列任一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小時內刪除侵權內容。

      上一篇:DC/OS 1.12 正式發布—支持多集群Kubernetes與數據服務的跨云部署
      下一篇:word鎖定怎么設置(word 鎖定)
      相關文章
      亚洲AV色欲色欲WWW| 亚洲欧美国产欧美色欲| 亚洲第一黄片大全| 亚洲欧美国产欧美色欲| 国产精品亚洲精品| 亚洲免费观看网站| 久久精品国产亚洲αv忘忧草| 亚洲欧洲日产国产最新| 亚洲嫩草影院在线观看| 亚洲人成高清在线播放| 亚洲国产日韩精品| 亚洲成在人线在线播放无码| 亚洲av无码一区二区三区天堂 | 国产亚洲综合色就色| 亚洲情综合五月天| 亚洲国产精品无码AAA片| 国产亚洲无线码一区二区| 亚洲av永久无码精品网站| 亚洲AV日韩AV永久无码久久| 亚洲黄色三级视频| 精品亚洲AV无码一区二区| 亚洲熟妇AV日韩熟妇在线| 亚洲AV无码AV男人的天堂不卡| 国产尤物在线视精品在亚洲| 亚洲国产精品无码久久青草| 国产午夜亚洲不卡| 久久精品国产亚洲| 亚洲精品中文字幕麻豆| 激情内射亚洲一区二区三区爱妻| 亚洲色偷偷色噜噜狠狠99| 国产尤物在线视精品在亚洲| 在线观看亚洲精品国产| 亚洲av无码片在线播放| 亚洲精品欧洲精品| 一本天堂ⅴ无码亚洲道久久| 国产精品亚洲一区二区无码| 国产亚洲精品久久久久秋霞| 久久精品国产亚洲夜色AV网站| 亚洲精品美女在线观看| 亚洲中文无码永久免费| 深夜国产福利99亚洲视频|