中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

VBA過程代碼41：打開縮放對話框

Sub MyNZ()

Application.Dialogs(xlDialogZoom).Show

END SUB

代碼的解析說明：上述代碼過程在執(zhí)行過程中，將打開縮放對話框，讓用戶選擇縮放的大小并執(zhí)行此縮放的大小。也可以用Application.Dialogs(256).Show

VBA過程代碼42：激活字體對話框

Sub MyNZ()

Application.Dialogs(xlDialogActiveCellFont).Show

END SUB

代碼的解析說明：上述代碼過程在執(zhí)行過程中，將打開'活動單元格字體'對話框字體設(shè)置對話框，讓用戶選擇縮字體的一些設(shè)置。也可以用Application.Dialogs(476).Show

VBA過程代碼43：打開另存對話框

Sub MyNZ()

MyFileName = Application.GetSaveAsFilename _

(InitialFileName:='.xlsm', _

fileFilter:='excel工作簿(*.xlsm),*.xlsm', _

Title:='數(shù)據(jù)備份')

If MyFileName <> 'False' Then

ActiveWorkbook.SaveAs Filename:=MyFileName, _

FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End If

END SUB

代碼的解析說明：上述代碼過程在執(zhí)行過程中，將打開另存為對話框，當(dāng)用戶選擇好路徑及錄入文件名后進行保存。

VBA過程代碼44：創(chuàng)建工作簿(Add方法)

Sub MyNZ()

MsgBox '將創(chuàng)建一個新工作簿.'

Workbooks.Add

End Sub

代碼的解析說明：上述代碼過程在執(zhí)行過程中，將利用ADD方法創(chuàng)建一個新的工作薄。

VBA過程代碼45：創(chuàng)建工作簿，設(shè)置工作表

Sub MyNZ()

MsgBox '將創(chuàng)建一個新工作簿,并預(yù)設(shè)工作表格式.'

Set wb = Workbooks.Add

Set ws = wb.Sheets(1)

ws.Name = '產(chǎn)品匯總表'

ws.Cells(1, 1) = '序號'

ws.Cells(1, 2) = '產(chǎn)品名稱'

ws.Cells(1, 3) = '產(chǎn)品數(shù)量'

For i = 2 To 10

ws.Cells(i, 1) = i - 1

Next i

End Sub

代碼的解析說明：上述代碼過程在執(zhí)行過程中，將利用ADD方法創(chuàng)建一個新的工作薄。將新建的sheets(1)工作表命名為'產(chǎn)品匯總表'，并在A3-C1單單元格寫入'序號''產(chǎn)品名稱' '產(chǎn)品數(shù)量',之后在A列從A2的單元格開始寫入1到9

看板：