【文章內(nèi)容簡(jiǎn)介】 orksheets(Sheet2) _.Range(A1:H1))End Sub1處理活動(dòng)單元格ActiveCell 屬性返回代表活動(dòng)單元格的 Range 對(duì)象?？蓪?duì)活動(dòng)單元格應(yīng)用 Range 對(duì)象的任意屬性和方法，如下例所示。Sub SetValue()Worksheets(Sheet1).Activate = 35End Sub注意 只有活動(dòng)單元格所在的工作表處于活動(dòng)狀態(tài)時(shí)，才能處理該活動(dòng)單元格。移動(dòng)活動(dòng)單元格可用 Activate 方法設(shè)置活動(dòng)單元格。例如，下述過(guò)程使單元格“B5”成為活動(dòng)單元格，然后將其字體設(shè)置為加粗。Sub SetActive()Worksheets(Sheet1).ActivateWorksheets(Sheet1).Range(B5).Activate = TrueEnd Sub注意 如果要選定單元格區(qū)域，可用 Select 方法。如果要使單個(gè)單元格成為活動(dòng)單元格，則要用 Activate 方法?？捎?Offset 屬性來(lái)移動(dòng)活動(dòng)單元格。下述過(guò)程在選定區(qū)域內(nèi)的活動(dòng)單元格中插入文字，然后將活動(dòng)單元格右移一列，但并不改變選定區(qū)域。Sub MoveActive()Worksheets(Sheet1).ActivateRange(A1:D10).Select = Monthly Totals(0, 1).ActivateEnd Sub選擇活動(dòng)單元格周?chē)膯卧馛urrentRegion 屬性返回由空白行和空白列所包圍的單元格區(qū)域。下例中，選定區(qū)域擴(kuò)充到與活動(dòng)單元格相鄰的包含數(shù)據(jù)的所有單元格，然后用“貨幣”樣式設(shè)置擴(kuò)充后的區(qū)域的格式。Sub Region()Worksheets(Sheet1).Activate = CurrencyEnd Sub在工作表上使用 ActiveX 控件本幫助主題包括了有關(guān)在工作表或圖表上使用 ActiveX 控件的特定信息。有關(guān)添加和處理控件的一般信息，請(qǐng)參閱“在文檔中使用 ActiveX 控件”和“創(chuàng)建自定義對(duì)話框”。在工作表上處理控件時(shí)，必須記住以下幾點(diǎn)。 除 ActiveX 控件的標(biāo)準(zhǔn)屬性之外，在 Microsoft Excel 中還可使用 ActiveX 控件的下列屬性：BottomRightCell、LinkedCell、ListFillRange、Placement、PrintObject、TopLeftCell 和 ZOrder。 這些屬性可用 ActiveX 控件的名稱來(lái)返回或設(shè)置。下例滾動(dòng)工作簿窗口，使 CommandButton1 位于窗口的左上角。 Set t = With ActiveWindow.ScrollRow = .ScrollColumn = End With 當(dāng) ActiveX 控件處于激活狀態(tài)時(shí)，將禁用某些 Microsoft Excel Visual Basic 方法和屬性。例如，當(dāng)某一控件激活時(shí)，就不能使用 Sort 方法，故下述按鈕單擊事件處理過(guò)程中的代碼將失?。ㄒ?yàn)橛脩魡螕舭粹o后，該按鈕就處于激活狀態(tài)）。 Private Sub Range(a1:a10).Sort Key1:=Range(a1)End Sub可通過(guò)先激活工作表上的其他元素的方法來(lái)繞過(guò)這種問(wèn)題。例如，下列代碼可對(duì)單元格區(qū)域排序：Private Sub Range(a1).ActivateRange(a1:a10).Sort Key1:=Range(a1)End Sub 當(dāng)用戶通過(guò)雙擊鼠標(biāo)來(lái)編輯內(nèi)嵌在其他應(yīng)用程序的文檔中的 Microsoft Excel 工作簿時(shí)，該工作簿上的控件將不會(huì)正常工作。如果用戶是通過(guò)用右鍵單擊工作簿，然后選中快捷菜單上的“打開(kāi)”命令來(lái)編輯工作簿的話，工作簿上的控件就能正常工作了。 用 Microsoft Excel ，將丟失 ActiveX 控件信息。 在工作表上 ActiveX 控件的事件處理過(guò)程中，Me 關(guān)鍵字所指向的是工作表，而非控件。 用 Visual Basic 添加控件在 Microsoft Excel 中，用 OLEObjects 集合中的 OLEObject 對(duì)象代表 ActiveX 控件（所有的 OLEObject 對(duì)象也包含在 Shapes 集合中）。如果要用編程的方式向工作表添加 ActiveX 控件，可用 OLEObjects 集合的 Add 方法。下例向第一張工作表添加命令按鈕。Worksheets(1). , _Left:=10, Top:=10, Height:=20, Width:=100通過(guò) Visual Basic 使用控件屬性絕大多數(shù)情況下，可在 Visual Basic 代碼中用名稱引用 ActiveX 控件。下例修改了控件“CommandButton1”的標(biāo)題。 = Run請(qǐng)注意，當(dāng)在控件所在的工作表的類(lèi)模塊之外使用控件的名稱時(shí)，必須用工作表的名稱限定該控件的名稱。如果要修改在 Visual Basic 代碼中所用的控件的名稱，可先選定該控件，然后在“屬性”窗口中設(shè)置控件的“（名稱）”屬性。因?yàn)?ActiveX 控件也可用 OLEObjects 集合中的 OLEObject 對(duì)象代表，所以也可用該集合中的對(duì)象來(lái)設(shè)置控件的屬性。下例設(shè)置了控件“CommandButton1”的左邊位置。Worksheets(1).OLEObjects(CommandButton1).Left = 10那些不屬于 OLEObject 對(duì)象的屬性的控件屬性，可通過(guò)由 Object 屬性返回的實(shí)際控件對(duì)象來(lái)設(shè)置。下例設(shè)置了控件“CommandButton1”的標(biāo)題。Worksheets(1).OLEObjects(CommandButton1). _ = run me因?yàn)樗械?OLE 對(duì)象也是 Shapes 集合的成員，所以也可用該集合設(shè)置若干控件的屬性。下例對(duì)齊第一張工作表上的所有控件的左邊框。For Each s In Worksheets(1).ShapesIf = msoOLEControlObject Then = 10Next使用 Shapes 和 OLEObjects 集合的控件名稱工作表上的 ActiveX 控件具有兩個(gè)名稱：其一是包含該控件的形狀的名稱，當(dāng)查看工作表時(shí)，可在“Name”框中看到此名稱；其二是控件的代碼名稱，在“屬性”窗口的“（名稱）”框右邊的單元格中可看到此名稱。第一次向工作表中添加控件時(shí)，形狀名稱和代碼名稱是相同的。但是，如果更改其中之一（形狀名稱或代碼名稱），另一個(gè)名稱并不會(huì)自動(dòng)隨之更改。對(duì)于控件的事件過(guò)程，其名稱中所使用的是控件的代碼名稱。但是，當(dāng)從工作表的 Shapes 或 OLEObjects 集合中返回控件時(shí)，必須使用形狀名稱（而不是代碼名稱），以便按名稱引用控件。例如，假設(shè)向工作表中添加了一個(gè)復(fù)選框，其默認(rèn)形狀名稱和默認(rèn)代碼名稱都是“CheckBox1”。如果此后在“屬性”窗口的“（名稱）”旁鍵入了“chkFinished”，從而將控件的代碼名稱更改為“chkFinished”，則在事件過(guò)程名稱中必須使用 chkFinished，而仍然應(yīng)使用 CheckBox1 從 Shapes 或 OLEObject 集合中返回控件，如下例所示。Private Sub chkFinished_Click()(CheckBox1). = 1End Sub2在文檔中使用 ActiveX 控件就如同可向自定義對(duì)話框中添加 ActiveX 控件一樣，也可向文檔直接添加控件，從而可以為用戶提供直接同宏打交道的的手段，而使用戶不必被對(duì)話框所干擾。可用下列過(guò)程向文檔添加 ActiveX 控件。有關(guān)在 Microsoft Excel 中使用 ActiveX 控件的特定信息，請(qǐng)參閱在工作表上使用 ActiveX 控件。 1）向文檔中添加控件 顯示“控件工具箱”，單擊要添加的控件，然后單擊文檔。 2）置控件的屬性 在設(shè)計(jì)模式下，用右鍵單擊該控件，然后單擊快捷菜單內(nèi)的“屬性”命令以顯示屬性窗口。 3）始化控件 可在某一過(guò)程中初始化控件。 4）編寫(xiě)事件過(guò)程 所有的控件都有一系列的預(yù)定義事件。例如，當(dāng)用戶單擊命令按鈕時(shí)，該命令按鈕就引發(fā)一個(gè) Click 事件?？梢跃帉?xiě)事件發(fā)生時(shí)所運(yùn)行的事件處理過(guò)程。 5）碼運(yùn)行時(shí)使用控件的值 有些屬性可在運(yùn)行時(shí)進(jìn)行設(shè)置。 2創(chuàng)建自定義對(duì)話框可用下述過(guò)程創(chuàng)建自定義對(duì)話框。 1）創(chuàng)建用戶窗體 在 Visual Basic 編輯器中，單擊“插入”菜單內(nèi)的“添加用戶窗體”命令。 2）向用戶窗體中添加控件 在“工具箱”中找到要添加的控件，并將其拖到窗體中。 3）設(shè)置控件的屬性 在設(shè)計(jì)模式下，用右鍵單擊該控件，然后單擊快捷菜單內(nèi)的“屬性”命令以顯示屬性窗口。 4）初始化控件 可在窗體顯示之前的某一過(guò)程中初始化控件，或者在窗體的 Initialize 事件中添加初始化代碼。 5）編寫(xiě)事件過(guò)程 所有的控件都有一系列的預(yù)定義事件。例如，當(dāng)用戶單擊命令按鈕時(shí)，該命令按鈕就引發(fā)一個(gè) Click 事件?？梢跃帉?xiě)事件發(fā)生時(shí)所運(yùn)行的事件處理過(guò)程。 6）顯示對(duì)話框 可用 Show 方法顯示用戶窗體。 7）代碼運(yùn)行時(shí)使用控件的值 有些屬性可在運(yùn)行時(shí)進(jìn)行設(shè)置。用戶對(duì)對(duì)話框所作的修改，在對(duì)話框關(guān)閉后將丟失。 2在窗體上使用 Microsoft Office Web 組件在 Visual Basic 或 Visual Basic for Applications 中，可以向用戶窗體中添加 Microsoft Office Web 組件，其方法與向用戶窗體中添加任何其他 ActiveX 控件相同。注意，雖然在設(shè)計(jì)窗體時(shí)可以使用“屬性工具箱”，但卻不能在運(yùn)行時(shí)從模式窗體或?qū)υ捒蛑械?Microsoft Office Web 組件中顯示“屬性工具箱”。對(duì)于在非 Visual Basic 或 Visual Basic for Applications 以外的其他設(shè)計(jì)環(huán)境中所創(chuàng)建的模式窗體，此情況同樣適用?？梢允褂?ShowModal 屬性將窗體設(shè)置為無(wú)模式。2內(nèi)置對(duì)話框參數(shù)表對(duì)話框常量參數(shù)表xlDialogActivatewindow_text, pane_numxlDialogActiveCellFontfont, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, normal, background, start_char, char_countxlDialogAddChartAutoformatname_text, desc_textxlDialogAddinManageroperation_num, addinname_text, copy_logicalxlDialogAlignmenthoriz_align, wrap, vert_align, orientation, add_indentxlDialogApplyNamesname_array, ignore, use_rowcol, omit_col, omit_row, order_num, append_last xlDialogApplyStylestyle_textxlDialogAppMovex_num, y_numxlDialogAppSizex_num, y_numxlDialogArrangeAllarrange_num, active_doc, sync_horiz, sync_vertxlDialogAssignToObjectmacro_refxlDialogAssignToToolbar_id, position, macro_refxlDialogAttachTextattach_to_num, series_num, point_numxlDialogAttachToolbarsxlDialogAutoCorrectcorrect_initial_caps, capitalize_daysxlDialogAxesx_primary, y_primary, x_secondary, y_secondaryxlDialogAxesx_primary, y_primary, z_primaryxlDialogBorderoutline, left, right, top, bottom, shade, outline_color, left_color, right_color, top_color, bottom_colorxlDialogCalculationtype_num, iter, max_num, max_change, update, precision, date_1904, calc_save, save_values, alt_exp, alt_formxlDialogCellProtectionlocked, hiddenxlDialogChangeLinkold_text, new_text, type_of_link xlDialogChartAddDataref, rowcol, titles, categories, replace, seriesxlDialogChartLocationxlDialogChartOptionsDataLabelsxlDialogChartOptionsDataTablexlDialogChartSourceDataxlDialogChartTrendtype