【正文】 xlDialogPublishAsWebPagexlDialogPivotCalculatedFieldxlDialogGallery3dAreatype_numxlDialogGallery3dBartype_numxlDialogGallery3dColumntype_numxlDialogGallery3dLinetype_numxlDialogGallery3dPietype_numxlDialogGallery3dSurfacetype_numxlDialogGalleryAreatype_num, delete_overlayxlDialogGalleryBartype_num, delete_overlayxlDialogGalleryColumntype_num, delete_overlayxlDialogGalleryCustomname_textxlDialogGalleryDoughnuttype_num, delete_overlayxlDialogGalleryLinetype_num, delete_overlayxlDialogGalleryPietype_num, delete_overlayxlDialogGalleryRadartype_num, delete_overlayxlDialogGalleryScattertype_num, delete_overlayxlDialogGoalSeektarget_cell, target_value, variable_cellxlDialogGridlinesx_major, x_minor, y_major, y_minor, z_major, z_minor, 2D_effectxlDialogImportTextFilexlDialogConsolidatesource_refs, function_num, top_row, left_col, create_links xlDialogCopyChartsize_num xlDialogCopyPictureappearance_num, size_num, type_num xlDialogCreateNamestop, left, bottom, rightxlDialogCreatePublisherfile_text, appearance, size, formatsxlDialogCustomizeToolbarcategoryxlDialogCustomViews可以使用 ShowModal 屬性將窗體設(shè)置為無模式。例如，當(dāng)用戶單擊命令按鈕時，該命令按鈕就引發(fā)一個 Click 事件。可以編寫事件發(fā)生時所運(yùn)行的事件處理過程。Private Sub chkFinished_Click()(CheckBox1). = 1End Sub2在文檔中使用 ActiveX 控件就如同可向自定義對話框中添加 ActiveX 控件一樣，也可向文檔直接添加控件，從而可以為用戶提供直接同宏打交道的的手段，而使用戶不必被對話框所干擾。下例對齊第一張工作表上的所有控件的左邊框。下例修改了控件“CommandButton1”的標(biāo)題。 當(dāng) ActiveX 控件處于激活狀態(tài)時，將禁用某些 Microsoft Excel Visual Basic 方法和屬性。Sub Region()Worksheets(Sheet1).Activate = CurrencyEnd Sub在工作表上使用 ActiveX 控件本幫助主題包括了有關(guān)在工作表或圖表上使用 ActiveX 控件的特定信息。移動活動單元格可用 Activate 方法設(shè)置活動單元格。即便選定了單元格區(qū)域，也只能有一個活動單元格。在使用 Selection 屬性之前，必須先激活工作簿，用 Select 方法激活或選定工作表，然后再選定單元格區(qū)域（或其他對象）。下述過程在單元格區(qū)域“A1:D10”中循環(huán)，將所有絕對值小于 的數(shù)字都設(shè)置為 0（零）。Sub FindMultiple()If 1 ThenMsgBox Cannot do this to a multiple selection.End IfEnd Sub1在單元格區(qū)域中循環(huán)使用 Visual Basic 時，經(jīng)常需要對某一區(qū)域內(nèi)的每個單元格運(yùn)行同一段語句。使用 Range 屬性使用 Range 屬性時，在兩個或多個引用之間加上逗號，就可以引用多重區(qū)域。變量 counter 用作 Cells 屬性的行號。Sub ClearRange() Reference:=MyRangeEnd Sub在命名區(qū)域中的單元格上循環(huán)下例用 For Each...Next 循環(huán)語句在命名區(qū)域中的每一個單元格上循環(huán)。Sub SeveralRows()Worksheets(Sheet1).ActivateDim myUnion As RangeSet myUnion = Union(Rows(1), Rows(3), Rows(5)) = TrueEnd Sub用快捷記號引用單元格可用方括號將 A1 樣式的引用或命名區(qū)域的名稱括起來，作為 Range 屬性的快捷方式。Sub CycleThrough()Dim counter As IntegerFor counter = 1 To 20Worksheets(Sheet1).Cells(counter, 3).Value = counterNext counterEnd Sub注意 如果要同時對某一區(qū)域內(nèi)的所有單元格修改屬性或應(yīng)用方法，可用 Range 屬性。 Filename:=C:\Reports\打開文件后，就可以通過設(shè)置 DefaultWebOptions 和 WebOptions 對象的屬性自定義該 HTML 文檔的外觀、內(nèi)容、瀏覽器支持、編輯支持、圖象格式、屏幕分辨率、文件組織和編碼。而任何具有相同名稱的工作簿級別的設(shè)置（包含在 WebOptions 對象中）會覆蓋這些設(shè)置。下例激活活動工作簿內(nèi)的圖表“Chart1”。Sub OpenUp()(C:\MyFolder\)End Sub用編號引用工作表編號是賦予工作表的連續(xù)的數(shù)字，這些數(shù)字的順序，是根據(jù)同一類型的工作表的標(biāo)簽位置按由左而右的順序確定的。Microsoft Excel 自動將該工作簿命名為“BookN”，其中 N 是下一個可用的數(shù)字。 VBA幫助（摘自O(shè)ffice2000 VBA幫助）目錄一、VBA入門知識激活工作簿創(chuàng)建新工作簿打開工作簿用編號引用工作表用名稱引用工作表將文檔保存為 Web 頁用 A1 樣式的記號引用單元格和單元格區(qū)域用編號引用單元格引用行或列用快捷記號引用單元格1引用命名單元格區(qū)域1按相對于其他單元格的方式來引用單元格1用 Range 對象引用單元格1引用工作表上的所有單元格1引用若干單元格區(qū)域1在單元格區(qū)域中循環(huán)1選定和激活單元格1處理三維區(qū)域1處理活動單元格在工作表上使用 ActiveX 控件2在文檔中使用 ActiveX 控件2創(chuàng)建自定義對話框2在窗體上使用 Microsoft Office Web 組件2內(nèi)置對話框參數(shù)表2使用 Microsoft Excel 對象的事件2在 Visual Basic 中使用 Microsoft Excel 工作表函數(shù)2處理形狀（圖形對象）2在某一 Microsoft Office 應(yīng)用程序中控制其他 Microsoft Office 應(yīng)用程序2OLE 程序標(biāo)識符關(guān)于數(shù)字簽名3啟動 Microsoft Excel 時不運(yùn)行“自動執(zhí)行宏”3焦點(diǎn) 二、了解對象、屬性、方法和事件了解對象、屬性、方法和事件 Application 對象Workbook 對象 Workbooks 屬性Range 對象Range 屬性Cells 屬性Caller 屬性O(shè)ffset 屬性 Rows 屬性1Activate 事件1Activate、 Deactivate 事件1Activate 方法1WorkbookActivate 事件1WindowActivate 事件1On Error 語句1在工作表上使用 ActiveX 控件 1Add 方法（Scenarios 集合）1Scenarios 集合對象Add 方法 (Validation 對象)2Validation 對象2Validation 屬性2Open 事件2Open 方法2 Click 事件2Close 方法2Change 事件 2Value 屬性2DblClick 事件 SheetBeforeRightClick 事件3Select 方法 3Select 事件3Goto 方法 3Worksheet 對象3SheetChange 事件 3SheetActivate 事件3OpenLinks 方法3Enabled 屬性 三、VBA語法（一）Visual Basic 的命名規(guī)則寫 Visual Basic 語句寫聲明語句Dim 語句的語法Activate 方法的語法Set 語句MsgBox 函數(shù)的語法選項(xiàng)語句的語法AddressOf 運(yùn)算符了解變體寫賦值語句1寫可執(zhí)行的語句1Public 語句1Private 語句1使用數(shù)組1使用常數(shù)1AppActivate 語句1Beep 語句1Date 語句Error 語句 2Let 語句 2Open 語句 3While...Wend 語句新工作簿將成為活動工作簿。下述過程使用 Worksheets 屬性激活活動工作簿上的第一張工作表。Sub ActivateChart()Sheets(Chart1).ActivateEnd Sub注意 嵌入到工作表上的圖表是 ChartObjects 集合的成員，而那些位于單獨(dú)的表上的圖表則屬于 Charts 集合。設(shè)置完屬性后，可以使用 Publish 方法將工作簿、工作表、圖表、區(qū)域、查詢表、數(shù)據(jù)透視表報表、打印區(qū)域或自動篩選區(qū)域保存到 Web 頁中。用 A1 樣式的記號引用單元格和單元格區(qū)域可在 Range 方法中以 A1 樣式的記號引用單元格和單元格區(qū)域。有關(guān)的詳細(xì)內(nèi)容，請參閱“用 A1 樣式的記號引用單元格和單元格區(qū)域”。這樣就不必鍵入“Range”和引號，如下述各例所示。如果該區(qū)域中的任一單元格的值超過 limit 的值，就將該單元格的顏色改為黃色。Sub CycleThrough()Dim counter As IntegerFor counter = 1 To 20Worksheets(Sheet1).Cells(counter, 3).Value = counter * 5Next counterEnd Sub1用 Range 對象引用單元格將對象變量設(shè)置為 Range 對象，即可用變量名方便地操縱該單元格區(qū)域。下例清除了工作表“Sheet1”上三個單元格區(qū)域的內(nèi)容。為達(dá)到這一目的，可將循環(huán)語句和標(biāo)識每個單元格的一個或多個方法組合使用，每循環(huán)一次，就對一個單元格執(zhí)行一次操作。Sub RoundToZero2()For Each c In Worksheets(Sheet1).Range(A1:D10).CellsIf Abs() Then = 0NextEnd Sub如果不知道要循環(huán)的單元格區(qū)域的確切邊界，可用 CurrentRegion 屬性返回活動單元格周圍的區(qū)域。宏記錄器經(jīng)常創(chuàng)建使用 Select 方法和 Selection 屬性的宏。下述過程選定了一個單元格區(qū)域，然后激活該區(qū)域內(nèi)的一個單元格，但并不改變選定區(qū)域。例如，下述過程使單元格“B5”成為活動單元格，然后將其字體設(shè)置為加粗。有關(guān)添加和處理控件的一般信息，請參閱“在文檔中使用 ActiveX 控件”和“創(chuàng)建自定義對話框”。例如，當(dāng)某一控件激活時，就不能使用 Sort 方法，故下述按鈕單擊事件處理過程中的代碼將失敗（因?yàn)橛脩魡螕舭粹o后，該按鈕就處于激活狀態(tài)）。 用 Microsoft Excel ，將丟失 ActiveX 控件信息。 = Run請注意，當(dāng)在控件所在的工作表的類模塊之外使用控件的名稱時，必須用工作表的名稱限定該控件的名稱。For Each s In Worksheets(1).ShapesIf = msoOLEControlObject Then = 10Next使用 Shapes 和 OLEObjects 集合的控件名稱工作表上的 ActiveX 控件具有兩個名稱：其一是包含該控件的形狀的名稱，當(dāng)查看工作表時，可在“Name”框中看到此名稱；其二是控件的代碼名稱，在“屬性”窗口的“（名稱）”框右邊的單元格中可看到此名稱?？捎孟铝羞^程向文檔添加 ActiveX 控件。 5）碼運(yùn)行時使用控件的值 有些屬性可在運(yùn)行時進(jìn)行設(shè)置?？梢跃帉懯录l(fā)生時所運(yùn)行的事件處理過程。2內(nèi)置對話框參數(shù)表對話框常量參數(shù)表xlDialogActivatewindow_text, pa