【正文】 Excel的工作環(huán)境保存到D:\ExcelSample\中當(dāng)改變工作簿并保存時(shí)，Excel會(huì)詢問是覆蓋原文件還是保存副本。 = My ExcelBookEnd Sub示例說明：運(yùn)行本程序后，將工作簿左上角Excel圖標(biāo)右側(cè)的“Microsoft Excel”改為“My ExcelBook”。 Dim vInput MsgBox 您好! amp。 .很高興能認(rèn)識您., vbOKOnly, 打招呼End Sub示例0115：設(shè)置頁邊距(CentimetersToPoints方法)Sub SetLeftMargin() Worksheets(Sheet1). = (5)End Sub示例0116：使用Windows的計(jì)算器(ActivateMicrosoftApp方法)Sub CallCalculate()示例0117：在程序中運(yùn)行另一個(gè)宏(Run方法)Sub runOtherMacro() (A2:C6).Select MsgBox 從現(xiàn)在開始,10秒后執(zhí)行程序「testFullScreen」示例0119：暫時(shí)停止宏運(yùn)行(Wait方法)Sub Stop5sMacroRun() MsgBox 按下「確定」,5秒后執(zhí)行程序「testFullScreen」 SetTime示例0120：按下指定的按鍵后執(zhí)行程序(OnKey方法)[示例01201]Sub PressKeytoRun() ^nhcuj7d3, testFullScreenEnd Sub[示例01202]Sub ResetKey() ^nhcuj7d3End Sub示例說明：Onkey方法的作用主要是指定特定的鍵，當(dāng)按下指定的鍵時(shí)運(yùn)行相應(yīng)的宏程序，或者按下指定的鍵時(shí)，使Excel屏蔽特定的功能。 End Sub示例說明：當(dāng)工作簿的計(jì)算模式被設(shè)置為手動(dòng)模式后，運(yùn)用Calculate方法可以重新計(jì)算所有打開的工作簿、工作簿中特定的工作表或者工作表中指定的單元格區(qū)域。 If Workbooks(1).CalculationVersion Then End IfEnd Sub示例說明：本示例先將當(dāng)前Microsoft Excel的版本與上次計(jì)算該工作簿的Excel版本進(jìn)行比較，如果兩個(gè)版本不同，則對所有打開工作簿中的數(shù)據(jù)進(jìn)行一次完整計(jì)算。示例0122：控制函數(shù)重新計(jì)算(Volatile方法)Function NonStaticRand()當(dāng)工作表中任意單元格重新計(jì)算時(shí)本函數(shù)更新 NonStaticRand = Rnd()End Function示例說明：本示例摸仿Excel中的Rand()函數(shù)，當(dāng)工作表單元格發(fā)生變化時(shí)，都會(huì)重新計(jì)算該函數(shù)。示例0123：利用工作表函數(shù)(WorksheetFunction屬性)Sub WorksheetFunctionSample() Set myRange = Worksheets(Sheet1).Range(A1:C10) MsgBox answerEnd Sub示例說明：本示例獲取工作表Sheet1中單元格區(qū)域A1:C10中的最小值，使用了工作表函數(shù)Min()。示例0124：獲取重疊區(qū)域(Intersect方法)Sub IntersectRange() Worksheets(Sheet1).Activate If rSect Is Nothing Then Else End IfEnd Sub示例說明：本示例在工作表Sheet1中選定兩個(gè)命名區(qū)域rg1和rg2的重疊區(qū)域，如果所選區(qū)域不重疊，則顯示一條相應(yīng)的信息。示例0125：獲取路徑分隔符(PathSeparator屬性)Sub GetPathSeparator() End Sub示例說明：本示例使用PathSeparator屬性返回路徑分隔符(“\”)。 Reference:=Worksheets(Sheet1).Range(A154), _示例0127：顯示內(nèi)置對話框(Dialogs屬性)Sub DialogSample()其中，Dialogs屬性返回的集合代表所有的Excel內(nèi)置對話框。 (%fx)End Sub示例說明：本示例使用SendKeys方法退出Excel，若未保存，則會(huì)彈出提示對話框并讓用戶作出相應(yīng)的選擇。示例0129：關(guān)閉ExcelSub 關(guān)閉Excel() End Sub示例說明：運(yùn)行本程序后，若該工作簿未保存，則會(huì)彈出對話框詢問是否保存。 窗口(Window對象)基本操作應(yīng)用示例(一)分類:ExcelVBAExcelVBA編程入門范例Window對象代表一個(gè)窗口，約有48個(gè)屬性和14個(gè)方法，能對窗口特性進(jìn)行設(shè)置和操作。下面介紹一些示例，以演示和說明Window對象及其屬性和方法的運(yùn)用。 Dim iWin As Long, i As Long, bWin iWin = iWin Windows(i).Activate i amp。 If bWin = vbNo Then Exit Sub MsgBox 當(dāng)前活動(dòng)工作簿窗口將最小化 MsgBox 當(dāng)前活動(dòng)工作簿窗口將恢復(fù)正常 MsgBox 當(dāng)前活動(dòng)工作簿窗口將最大化示例中，常量xlMinimized、xlNormal和xlMaximized分別代表窗口不同狀態(tài)值，Windows(1)表示當(dāng)前活動(dòng)窗口。[示例020202]Sub testWindow()測試Excel應(yīng)用程序窗口狀態(tài) = xlMaximized MsgBox 應(yīng)用程序窗口將恢復(fù)正常 MsgBox 應(yīng)用程序窗口已恢復(fù)正常測試活動(dòng)工作簿窗口狀態(tài) = xlMinimized MsgBox 當(dāng)前活動(dòng)工作簿窗口將最大化 Call testWindowState = xlNormal MsgBox 應(yīng)用程序窗口將最小化 Call testWindowStateEnd Sub‘*********************************************************Sub testWindowState() Case xlMaximized: MsgBox 應(yīng)用程序窗口已最大化 Case xlNormal: Case xlMaximized: MsgBox 當(dāng)前活動(dòng)工作簿窗口已最大化 Case xlNormal: MsgBox 當(dāng)前活動(dòng)工作簿窗口已恢復(fù)正常 End SelectEnd Sub示例說明：本示例有兩個(gè)程序，其中testWindow()是主程序，調(diào)用子程序textWindowState()，演示了應(yīng)用程序窗口和工作簿窗口的不同狀態(tài)。此外，在子程序中，還運(yùn)用了嵌套的Select Case結(jié)構(gòu)。 Dim x As Integer .WindowState = xlNormal .Left = 1 .Width = 50 .Height = x For x = 50 To Next x End WithEnd Sub示例說明：本示例將動(dòng)態(tài)演示工作簿窗口由小到大直至最大化的變化過程。示例0203：切換顯示工作表元素[示例020301]Sub testDisplayHeading() = Not End Sub示例說明：本示例切換是否顯示工作表中的行列標(biāo)號。您也可以將該屬性設(shè)置為False，以取消行列標(biāo)號的顯示， = False；而將該屬性設(shè)置為True，則顯示行列標(biāo)號。 MsgBox “切換顯示/隱藏網(wǎng)格線”運(yùn)行后，工作表中的網(wǎng)格線消失，再次運(yùn)行后，網(wǎng)格線重新出現(xiàn)，如此反復(fù)。[示例020303]Sub DisplayHorizontalScrollBar() =運(yùn)行后，工作表中的水平滾動(dòng)條消失，再次運(yùn)行后，水平滾動(dòng)條重新出現(xiàn)，如此反復(fù)。同理，DisplayVerticalScrollBar屬性將用來設(shè)置垂直滾動(dòng)條。 MsgBox 切換顯示/隱藏水平和垂直滾動(dòng)條運(yùn)行后，工作表中的水平和垂直滾動(dòng)條同時(shí)消失，再次運(yùn)行后，水平和垂直滾動(dòng)條重新出現(xiàn)，如此反復(fù)。示例0204：顯示公式(DisplayFormulas屬性)Sub DisplayFormula() = TrueEnd Sub示例說明：本程序運(yùn)行后，工作表中含有公式的單元格將顯示公式而不是數(shù)值。示例0205：顯示/隱藏工作表標(biāo)簽(DisplayWorkbookTabs屬性)Sub testDisplayWorkbookTab() = FalseEnd Sub示例說明：本程序運(yùn)行后，工作表標(biāo)簽消失。示例0206：命名活動(dòng)窗口(Caption屬性)Sub testCaption() MsgBox 當(dāng)前活動(dòng)工作簿窗口的名字是: amp。改變窗口的標(biāo)題并不會(huì)改變工作簿的名稱。 MsgBox “將當(dāng)前窗口工作表左上角單元格移至第10行第3列” = 3End Sub示例說明：本程序運(yùn)行后，當(dāng)前活動(dòng)窗口左上角單元格為第10行第3列。示例0208：調(diào)整窗口(EnableResize屬性)Sub testResize() = FalseEnd Sub示例說明：測試本程序前，將當(dāng)前工作簿窗口恢復(fù)為正常狀態(tài)(即讓工作簿標(biāo)題可見)，運(yùn)行程序后，當(dāng)前工作簿窗口將不能調(diào)整其大小，右上角的最小化最大化按鈕將消失(即隱藏最大化和最小化按鈕)。示例0209：拆分窗格[示例020901]Sub SplitWindow1() MsgBox 以活動(dòng)單元格為基準(zhǔn)拆分窗格 iColumn = .SplitColumn = iColumn End With = FalseEnd Sub[示例020902]Sub SplitWindow() MsgBox 以活動(dòng)單元格為基準(zhǔn)拆分窗格 iColumn = .SplitColumn = iColumn End With = 0如果指定窗口被拆分，則Split屬性的值為True；設(shè)置該屬性的值為False則取消窗格拆分。示例0210：凍結(jié)窗格(FreezePanes屬性)Sub testFreezePane() = TrueEnd Sub示例說明：運(yùn)行本程序后，將會(huì)凍結(jié)活動(dòng)單元格所在位置上方和左側(cè)的單元格區(qū)域。示例0211：設(shè)置網(wǎng)格線顏色(GridlineColor屬性和GridlineColorIndex屬性)Sub setGridlineColor() iColor= = RGB(255, 0, 0) = 5 =iColorEnd Sub示例說明：運(yùn)行程序后，當(dāng)前工作表窗口網(wǎng)格線將被設(shè)置為紅色。第二章 MsgBox 設(shè)置工作表標(biāo)簽區(qū)域?qū)挾葹樗綕L動(dòng)條寬度的一半您可以改變上面程序中的數(shù)值進(jìn)行測試。 (1).OnWindow = testEnd Sub‘*********************************************************Sub test()其中，OnWindow屬性返回或設(shè)置每當(dāng)激活一個(gè)窗口時(shí)要運(yùn)行的過程的名稱，如本例中的test()程序。 MsgBox 顯示所選單元格地址RangeSelection屬性返回指定窗口的工作表中的選定單元格(即使指定工作表中有圖形對象處于活動(dòng)狀態(tài)，或者已選定圖形對象，仍返回在圖形對象被選定之前選定的單元格區(qū)域，這是該屬性與Selection屬性的區(qū)別)。 Dim sh As Worksheet MsgBox 工作表 amp。 被選擇本示例中，如果您同時(shí)選擇了活動(dòng)工作簿中的工作表Sheet1和Sheet2，那么運(yùn)行程序后，將會(huì)顯示相應(yīng)工作表被選擇的信息。 MsgBox 請確保應(yīng)用程序至少含有兩個(gè)工作簿,這樣才能看出效果 ArrangeStyle:=xlArrangeStyleTiled ArrangeStyle:=xlArrangeStyleCascade ArrangeStyle:=xlArrangeStyleHorizontal ArrangeStyle:=xlArrangeStyleVerticalEnd Sub示例說明：運(yùn)行本程序后，將平鋪應(yīng)用程序中的所有窗口。其中，參數(shù)ArrangeStyle代表排列樣式，可為以下常量：常量xlArrangeStyleTiled為缺省值，表示將平鋪窗口；常量xlArrangeStyleCascade表示將窗口進(jìn)行層疊；常量xlArrangeStyleHorizontal表示將水平排列所有窗口；常量xlArrangeStyleVertical表示將垂直并排排列所有窗口。將參數(shù)ActiveWorkbook設(shè)置為True，則只對當(dāng)前工作簿的可見窗口進(jìn)行排列。默認(rèn)值為 False。設(shè)置參數(shù)SyncVertical為True，則在垂直滾動(dòng)時(shí)同步滾動(dòng)當(dāng)前工作簿的所有窗口；如果為 False，則不同步滾動(dòng)，默認(rèn)值為 False。示例0217：窗口尺寸(UsableHeight、UsableWidth、Height、Width屬