国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

http://www.51zxw.net/study.asp?vip=10241777  資料學(xué)習(xí)的網(wǎng)址

'worksheet.select 方法         '''worksheet 想要選擇的對(duì)象 select 選擇
'選擇對(duì)象
'worksheet.active 方法
'使當(dāng)前的工作表成為活動(dòng)工作表
'工作表的選擇 select 與 active   選擇 and 活動(dòng)的
'
Sub 工作表選擇()
Sheet3.Select   '工作表選擇   不支持隱藏選擇
Sheet3.Activate
End Sub
Sub 快遞選擇所有工作表()
Worksheets.Select   '選擇所有工作表
Sheets.Select
End Sub
Sub 自定義選擇()    ''Array 數(shù)組函數(shù)
Worksheets(Array(1, 2, 3)).Select
End Sub
Sub 拆分工作簿()
Dim wk As Workbook, ss$, k%
Application.DisplayAlerts = False    ' 提示取消
For Each sht In Workbooks("工作表.xls").Sheets
Set wk = Workbooks.Add
k = k + 1
Workbooks(1).Sheets(k).Copy Workbooks(2).Sheets(1)
ss = ThisWorkbook.Path & "\" & sht.Name & ".xls"   'ThisWorkbook.Path  當(dāng)前工作簿的路徑
wk.SaveAs ss
wk.Close

Next
Application.DisplayAlerts = True
End Sub
'''=================================================================================================