本例設(shè)置 my_Procedure 在下午 5 點(diǎn)開始運(yùn)行
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
本例撤消前一個(gè)示例對 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
本例使活動工作簿中的計(jì)算僅使用顯示的數(shù)字精度
ActiveWorkbook.PrecisionAsDisplayed = True
本例將工作表 Sheet1 上的 A1:G37 區(qū)域剪下，并放入剪貼板
Worksheets("Sheet1").Range("A1:G37").Cut
本例更新當(dāng)前活動工作簿中的所有鏈接
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
Calculate 方法
計(jì)算所有打開的工作簿、工作簿中的一張?zhí)囟ǖ墓ぷ鞅砘蛘吖ぷ鞅碇兄付▍^(qū)域的單元格，如下表所示：
所有打開的工作簿 Application.Calculate （或只是 Calculate）
計(jì)算指定工作表 Worksheets("Sheet1").Calculate
指定區(qū)域 Worksheets(1).Rows(2).Calculate
本例對自動重新計(jì)算功能進(jìn)行設(shè)置，使 Microsoft Excel 不對第一張工作表自動進(jìn)行重新計(jì)算
Worksheets(1).EnableCalculation = False
本示例計(jì)算 Sheet1 已用區(qū)域中 A 列、B 列和 C 列的公式
Worksheets("Sheet1").UsedRange.Columns("A:C").Calculate
本例設(shè)置第一張工作表的滾動區(qū)域
Worksheets(1).ScrollArea = "a1:f10"
34、 本示例新建一個(gè)工作簿，提示用戶輸入文件名，然后保存該工作簿
本例保存當(dāng)前活動工作簿?
ActiveWorkbook.Save
本例顯示工作表 Sheet1 的打印預(yù)覽
Worksheets("Sheet1").PrintPreview
本例保存所有打開的工作簿，然后關(guān)閉 Microsoft Excel
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
當(dāng)計(jì)算工作簿中的任何工作表時(shí)，本示例對第一張工作表的 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
本例新建一張工作表，然后在第一列中列出活動工作簿中的所有工作表的名稱
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
NewSheet.Cells(i, 1).Value = Sheets(i).Name
Next i
本例將第十行移到窗口的最上面?
Worksheets("Sheet1").Activate
ActiveWindow.ScrollRow = 10
本例將新建工作表移到工作簿的末尾
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
本例顯示活動工作簿中每個(gè)工作表的名稱
For Each ws In Worksheets
MsgBox ws.Name
Next ws
本例顯示活動工作簿中工作表 sheet1 上單元格 A1 中的值
MsgBox Worksheets("Sheet1").Range("A1").Value
下例在活動工作簿的第一張工作表前面添加兩張新的工作表
Worksheets.Add Count:=2, Before:=Sheets(1)
本例通過將 Saved 屬性設(shè)為 True 來關(guān)閉包含本段代碼的工作簿，并放棄對該工作簿的任何更改
ThisWorkbook.Saved = True
ThisWorkbook.Close
下述過程激活工作簿中的第1張工作表
Worksheets(1).Activate
本例顯示活動工作表的名稱
MsgBox "The name of the active sheet is " & ActiveSheet.Name
每次打開工作簿時(shí)，本示例都最大化 Microsoft Excel 窗口
Application.WindowState = xlMaximized
本例保存當(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ù)并取消密碼
下述過程打開 C 盤上名為 MyFolder 的文件夾中的 MyBook.xls 工作簿
Workbooks.Open ("C:\MyFolder\MyBook.xls")
本例設(shè)置 15 秒后運(yùn)行 my_Procedure 過程，從現(xiàn)在開始計(jì)時(shí)
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
12-07-17
本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請
點(diǎn)擊舉報(bào)。
