亚洲视频二区_亚洲欧洲日本天天堂在线观看_日韩一区二区在线观看_中文字幕不卡一区

公告:魔扣目錄網(wǎng)為廣大站長(zhǎng)提供免費(fèi)收錄網(wǎng)站服務(wù),提交前請(qǐng)做好本站友鏈:【 網(wǎng)站目錄:http://www.430618.com 】, 免友鏈快審服務(wù)(50元/站),

點(diǎn)擊這里在線咨詢客服
新站提交
  • 網(wǎng)站:51998
  • 待審:31
  • 小程序:12
  • 文章:1030137
  • 會(huì)員:747

如果要用VBA同時(shí)選擇多個(gè)工作表,可以利用數(shù)組或設(shè)置“Select”方法的參數(shù)為“False”來(lái)擴(kuò)展所選擇的內(nèi)容,如下面的一些代碼:

1.用工作表名稱:

假如工作表名稱為“Sheet1”、“Sheet2”、“Sheet3”,同時(shí)選擇這3個(gè)工作表:

Sub SelectMultiSheets()
Sheets(Array("Sheet3", "Sheet2", "Sheet1")).Select
End Sub

2.用工作表索引號(hào):

索引號(hào)是分配給工作表的連續(xù)數(shù)字,同一類型的工作表在工作簿中按照從左到右的順序,依次為1、2、3……。下面的代碼同時(shí)選擇第1個(gè)和第3個(gè)工作表:

Sub SelectMultiSheets1()
Worksheets(Array(3, 1)).Select
End Sub

3.選擇所有工作表:

如果工作簿中不包含圖表工作表、對(duì)話框工作表,下面的代碼可以同時(shí)選擇所有的工作表:

Sub SelectAllSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.Select False
Next ws
End Sub

其中“Select”方法的參數(shù)為“False”,以擴(kuò)展所選擇的內(nèi)容

分享到:
標(biāo)簽:多個(gè) 工作 用工 選擇 Excel函數(shù)
用戶無(wú)頭像

網(wǎng)友整理

注冊(cè)時(shí)間:

網(wǎng)站:5 個(gè)   小程序:0 個(gè)  文章:12 篇

  • 51998

    網(wǎng)站

  • 12

    小程序

  • 1030137

    文章

  • 747

    會(huì)員

趕快注冊(cè)賬號(hào),推廣您的網(wǎng)站吧!
最新入駐小程序

數(shù)獨(dú)大挑戰(zhàn)2018-06-03

數(shù)獨(dú)一種數(shù)學(xué)游戲,玩家需要根據(jù)9

答題星2018-06-03

您可以通過(guò)答題星輕松地創(chuàng)建試卷

全階人生考試2018-06-03

各種考試題,題庫(kù),初中,高中,大學(xué)四六

運(yùn)動(dòng)步數(shù)有氧達(dá)人2018-06-03

記錄運(yùn)動(dòng)步數(shù),積累氧氣值。還可偷

每日養(yǎng)生app2018-06-03

每日養(yǎng)生,天天健康

體育訓(xùn)練成績(jī)?cè)u(píng)定2018-06-03

通用課目體育訓(xùn)練成績(jī)?cè)u(píng)定