|
本例設(shè)置 my_Procedure 在下午 5 點(diǎn)開(kāi)始運(yùn)行
Application.OnTime TimeValue("17:00:00"), "my_Procedure" 本例撤消前一個(gè)示例對(duì) OnTime 的設(shè)置
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _ Procedure:="my_Procedure", Schedule:=False 每當(dāng)工作表重新計(jì)算時(shí)，本示例就調(diào)整 A 列到 F 列的寬度
Private Sub Worksheet_Calculate() Columns("A:F").AutoFit End Sub 本例使活動(dòng)工作簿中的計(jì)算僅使用顯示的數(shù)字精度 本例將工作表 Sheet1 上的 A1:G37 區(qū)域剪下，并放入剪貼板 本例更新當(dāng)前活動(dòng)工作簿中的所有鏈接 Calculate 方法
計(jì)算所有打開(kāi)的工作簿、工作簿中的一張?zhí)囟ǖ墓ぷ鞅砘蛘吖ぷ鞅碇兄付▍^(qū)域的單元格，如下表所示： 所有打開(kāi)的工作簿 Application.Calculate （或只是 Calculate） 計(jì)算指定工作表 Worksheets("Sheet1").Calculate 指定區(qū)域 Worksheets(1).Rows(2).Calculate 本例對(duì)自動(dòng)重新計(jì)算功能進(jìn)行設(shè)置，使 Microsoft Excel 不對(duì)第一張工作表自動(dòng)進(jìn)行重新計(jì)算
Worksheets(1).EnableCalculation = False 本示例計(jì)算 Sheet1 已用區(qū)域中 A 列、B 列和 C 列的公式 Worksheets("Sheet1").UsedRange.Columns("A:C").Calculate 本例設(shè)置第一張工作表的滾動(dòng)區(qū)域
Worksheets(1).ScrollArea = "a1:f10" 34、 本示例新建一個(gè)工作簿，提示用戶輸入文件名，然后保存該工作簿 本例保存當(dāng)前活動(dòng)工作簿?
ActiveWorkbook.Save 本例顯示工作表 Sheet1 的打印預(yù)覽
Worksheets("Sheet1").PrintPreview 本例保存所有打開(kāi)的工作簿，然后關(guān)閉 Microsoft Excel
For Each w In Application.Workbooks w.Save Next w Application.Quit 當(dāng)計(jì)算工作簿中的任何工作表時(shí)，本示例對(duì)第一張工作表的 A1:A100 區(qū)域進(jìn)行排序
Private Sub Workbook_SheetCalculate(ByVal Sh As Object) With Worksheets(1) .Range("a1:a100").Sort Key1:=.Range("a1") End With End Sub 本例新建一張工作表，然后在第一列中列出活動(dòng)工作簿中的所有工作表的名稱 本例將第十行移到窗口的最上面? 本例將新建工作表移到工作簿的末尾
Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, _ ByVal Sh As Object) Sh.Move After:=Wb.Sheets(Wb.Sheets.Count) End Sub 本例將新建的工作表移到工作簿的末尾
Private Sub Workbook_NewSheet(ByVal Sh As Object) Sh.Move After:=Sheets(Sheets.Count) End Sub 本例顯示活動(dòng)工作簿中每個(gè)工作表的名稱
For Each ws In Worksheets MsgBox ws.Name Next ws 本例顯示活動(dòng)工作簿中工作表 sheet1 上單元格 A1 中的值 下例在活動(dòng)工作簿的第一張工作表前面添加兩張新的工作表 本例通過(guò)將 Saved 屬性設(shè)為 True 來(lái)關(guān)閉包含本段代碼的工作簿，并放棄對(duì)該工作簿的任何更改 下述過(guò)程激活工作簿中的第1張工作表
Worksheets(1).Activate 本例顯示活動(dòng)工作表的名稱
MsgBox "The name of the active sheet is " & ActiveSheet.Name 每次打開(kāi)工作簿時(shí)，本示例都最大化 Microsoft Excel 窗口
Application.WindowState = xlMaximized 本例保存當(dāng)前活動(dòng)工作簿的副本
ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS" 本例為設(shè)置提示窗口
X = MsgBox("是否真的要結(jié)帳？", vbYesNo) If X = vbYes Then Close 本例為設(shè)置工作表保護(hù)密碼
ActiveSheet.Protect Password:=641112 ' 保護(hù)工作表并設(shè)置密碼 ActiveSheet.Unprotect Password:=641112 '撤消工作表保護(hù)并取消密碼 下述過(guò)程打開(kāi) C 盤上名為 MyFolder 的文件夾中的 MyBook.xls 工作簿
Workbooks.Open ("C:\MyFolder\MyBook.xls") 本例設(shè)置 15 秒后運(yùn)行 my_Procedure 過(guò)程，從現(xiàn)在開(kāi)始計(jì)時(shí)
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure" 12-07-17
|
|
|
