【文章內(nèi)容簡介】 e(B1).Select = Address Range(A1:B1).Select = True End Sub 下例完成同樣的功能，但不用激活或選定工作表或單元格。 Sub Labels() With Worksheets(Sheet1) .Range(A1) = Name .Range(B1) = Address .Range(A1:B1). = True End With End Sub 選定活動工作表上的單元格 如果用 Select 方法選定單元格，就應(yīng)注意 Select 方法僅用于活動工作表。從模塊中運(yùn)行 Sub 過程時，必須先在該過程中激活工作表，然后才能用 Select 方法選定單元格區(qū)域，否則該方法將失敗。例如，下述過程在活動工作簿中將工作表 ―Sheet1‖中的一行復(fù)制到工作表 ―Sheet2‖上。 Sub CopyRow() Worksheets(Sheet1).Rows(1).Copy Worksheets(Sheet2).Select Worksheets(Sheet2).Rows(1).Select Worksheets(Sheet2).Paste End Sub 激活選定區(qū)域內(nèi)的單元格 可用 Activate 方法激活選定區(qū)域內(nèi)的單元格。即便選定了單元格區(qū)域，也只能有一個活動單元格。下述過程選定了一個單元格區(qū)域，然后激活該區(qū)域內(nèi)的一個單元格，但并不改變選定區(qū)域。 Sub MakeActive() Worksheets(Sheet1).Activate Range(A1:D4).Select Range(B2).Activate End Sub 1 處理三維區(qū)域 如果要處理若干工作表上同一位置的單元格區(qū)域，可用 Array 函數(shù)同時選定兩張或多張工作表。下例設(shè)置三維單元格區(qū)域的邊框格式。 Sub FormatSheets() Sheets(Array(Sheet2, Sheet3, Sheet5)).Select Range(A1:H1).Select (xlBottom).LineStyle = xlDouble End Sub 下例應(yīng)用 FillAcrossSheets 方法，在活動工作簿中，將工作表―Sheet2‖上單元格區(qū)域的格式和數(shù)據(jù)復(fù)制到該工作簿中所有工作表上的相應(yīng)區(qū)域中。 Sub FillAll() Worksheets(Sheet2).Range(A1:H1) _ .Borders(xlBottom).LineStyle = xlDouble (Worksheets(Sheet2) _ .Range(A1:H1)) End Sub 1 處理活動單元格 ActiveCell 屬性返回代表活動單元格的 Range 對象?？蓪顒訂卧駪?yīng)用 Range 對象的任意屬性和方法，如下例所示。 Sub SetValue() Worksheets(Sheet1).Activate = 35 End Sub 注意 只有活動單元格所在的工作表處于活動狀態(tài)時，才能處理該活動單元格。 移動活動單元格 可用 Activate 方法設(shè)置活動單元格。例如，下述 過程使單元格―B5‖成為活動單元格，然后將其字體設(shè)置為加粗。 Sub SetActive() Worksheets(Sheet1).Activate Worksheets(Sheet1).Range(B5).Activate = True End Sub 注意 如果要選定單元格區(qū)域，可用 Select 方法。如果要使單個單元格成為活動單元格，則要用 Activate 方法。 可用 Offset 屬性來移動活動單元格。下述過程在選定區(qū)域內(nèi)的活動單元格中插入 文字，然后將活動單元格右移一列，但并不改變選定區(qū)域。 Sub MoveActive() Worksheets(Sheet1).Activate Range(A1:D10).Select = Monthly Totals (0, 1).Activate End Sub 選擇活動單元格周圍的單元格 CurrentRegion 屬性返回由空白行和空白列所包圍的單元格區(qū)域。下例中，選定區(qū)域擴(kuò)充到與活動單元格相鄰的包含數(shù)據(jù)的所有單元格，然 后用 ―貨幣 ‖樣式設(shè)置擴(kuò)充后的區(qū)域的格式。 Sub Region() Worksheets(Sheet1).Activate = Currency End Sub 在工作表上使用 ActiveX 控件 本幫助主題包括了有關(guān)在工作表或圖表上使用 ActiveX 控件的特定信息。有關(guān)添加和處理控件的一般信息，請參閱 “ 在文檔中使用 ActiveX 控件 ” 和 “ 創(chuàng)建自定義對話框 ” 。 在工作表上處理控件時，必須記 住以下幾點。 ? 除 ActiveX 控件的標(biāo)準(zhǔn)屬性之外，在 Microsoft Excel 中還可使用 ActiveX 控件的下列屬性： BottomRightCell、LinkedCell 、 ListFillRange 、 Placement 、 PrintObject 、TopLeftCell 和 ZOrder。 這些屬性可用 ActiveX 控件的名稱來返回或設(shè)置。下例滾動工作簿窗口，使 CommandButton1 位于窗口的左上角。 Set t = With ActiveWindow .ScrollRow = .ScrollColumn = End With ? 當(dāng) ActiveX 控件處于激活狀態(tài)時，將禁用某些 Microsoft Excel Visual Basic 方法和屬性。例如，當(dāng)某一控件激活時，就不能使用 Sort 方法，故下述按鈕單擊事件處理過程中的代碼將失?。ㄒ驗橛脩魡螕舭粹o后，該按鈕就處于激活狀態(tài)）。 ? Private Sub ? Range(a1:a10).Sort Key1:=Range(a1) End Sub 可通過先激活工作表上的其他元素的方法來繞過這種問題。例如，下列代碼可對單元格區(qū)域排序： Private Sub Range(a1).Activate Range(a1:a10).Sort Key1:=Range(a1) End Sub ? 當(dāng)用戶通過雙擊鼠標(biāo)來編輯內(nèi)嵌在其他應(yīng)用程序的文檔中的 Microsoft Excel 工作簿時，該工作簿上的控 件將不會正常工作。如果用戶是通過用右鍵單擊工作簿，然后選中快捷菜單上的 ―打開 ‖命令來編輯工作簿的話，工作簿上的控件就能正常工作了。 ? 用 Microsoft Excel Microsoft Excel 工作簿時，將丟失 ActiveX 控件信息。 ? 在工作表上 ActiveX 控件的事件處理過程中， Me 關(guān)鍵字所指向的是工作表，而非控件。 用 Visual Basic 添加控件 在 Microsoft Excel 中，用 OLEObjects 集合中的 OLEObject 對 象代表 ActiveX 控件（所有的 OLEObject 對象也包含在 Shapes 集合中）。如果要用編程的方式向工作表添加 ActiveX 控件，可用 OLEObjects 集合的 Add 方法。下例向第一張工作表添加命令按鈕。 Worksheets(1). , _ Left:=10, Top:=10, Height:=20, Width:=100 通過 Visual Basic 使用控件屬性 絕大多數(shù)情況下，可在 Visual Basic 代碼中用名稱引用 ActiveX 控件。下例修改了控件 ―CommandButton1‖的標(biāo)題。 = Run 請注意，當(dāng)在控件所在的工作表的類模塊之外使用控件的名稱時，必須用工作表的名稱限定該控件的名稱。 如果要修改在 Visual Basic 代碼中所用的控件的名稱，可先選定該控件，然后在 ―屬性 ‖窗口中設(shè)置控件的 ―（名稱） ‖屬性。 因為 ActiveX 控件也可用 OLEObjects 集合中的 OLEObject 對象代表，所以也 可用該集合中的對象來設(shè)置控件的屬性。下例設(shè)置了控件 ―CommandButton1‖的左邊位置。 Worksheets(1).OLEObjects(CommandButton1).Left = 10 那些不屬于 OLEObject 對象的屬性的控件屬性，可通過由 Object 屬性返回的實際控件對象來設(shè)置。下例設(shè)置了控件―CommandButton1‖的標(biāo)題。 Worksheets(1).OLEObjects(CommandButton1). _ = run me 因 為所有的 OLE 對象也是 Shapes 集合的成員，所以也可用該集合設(shè)置若干控件的屬性。下例對齊第一張工作表上的所有控件的左邊框。 For Each s In Worksheets(1).Shapes If = msoOLEControlObject Then = 10 Next 使用 Shapes 和 OLEObjects 集合的控件名稱 工作表上的 ActiveX 控件具有兩個名稱：其一是包含該控件的形狀的名稱，當(dāng)查看工作表時，可在 ―Name‖框中看到此名稱；其二是控件的代 碼名稱，在 ―屬性 ‖窗口的 ―（名稱） ‖框右邊的單元格中可看到此名稱。第一次向工作表中添加控件時，形狀名稱和代碼名稱是相同的。但是，如果更改其中之一（形狀名稱或代碼名稱），另一個名稱并不會自動隨之更改。 對于控件的事件過程，其名稱中所使用的是控件的代碼名稱。但是，當(dāng)從工作表的 Shapes 或 OLEObjects 集合中返回控件時，必須使用形狀名稱（而不是代碼名稱），以便按名稱引用控件。例如，假設(shè)向工作表中添加了一個復(fù)選框，其默認(rèn)形狀名稱和默認(rèn)代碼名稱都是 ―CheckBox1‖。如果此后在 ―屬性 ‖窗口的 ―（名 稱） ‖旁鍵入了―chkFinished‖，從而將控件的代碼名稱更改為 ―chkFinished‖，則在事件過程名稱中必須使用 chkFinished，而仍然應(yīng)使用 CheckBox1 從 Shapes 或 OLEObject 集合中返回控件，如下例所示。 Private Sub chkFinished_Click() (CheckBox1). = 1 End Sub 2 在文檔中使用 ActiveX 控件 就如同可向自定義對話框中添加 ActiveX 控件一樣，也可向文檔直接添加控件，從而可以為用戶提供直接同宏打交道的的手段，而使用戶不必被對話框所干擾?？捎孟铝羞^程向文檔添加 ActiveX 控件。有關(guān)在 Microsoft Excel 中使用 ActiveX 控件的特定信息，請參閱在工作表上使用 ActiveX 控件。 1） 向文檔中添加控件 顯示 ―控件工具箱 ‖，單擊要添加的控件，然后單擊文檔。 2） 置控件的屬性 在設(shè)計模式下，用右鍵單擊該控件，然后單擊快捷菜單內(nèi)的 ―屬性 ‖命令以顯示屬性窗口。 3） 始化控件 可在某一過程中初始 化控件。 4） 編寫事件過程 所有的控件都有一系列的預(yù)定義事件。例如，當(dāng)用戶單擊命令按鈕時，該命令按鈕就引發(fā)一個 Click 事件?？梢跃帉懯录l(fā)生時所運(yùn)行的事件處理過程。 5） 碼運(yùn)行時使用控件的值 有些屬性可在運(yùn)行時進(jìn)行設(shè)置。 2 創(chuàng)建自定義對話框 可用下述過程創(chuàng)建自定義對話框。 1） 創(chuàng)建用戶窗體 在 Visual Basic 編輯器中，單擊 ―插入 ‖菜單內(nèi)的 ―添加用戶窗體 ‖命令。 2） 向用戶窗體中添加控件 在 ―工具箱 ‖中找到要添加的控件，并將其拖到窗體中。 3） 設(shè)置控件的屬性 在設(shè)計 模式下，用右鍵單擊該控件，然后單擊快捷菜單內(nèi)的 ―屬性 ‖命令以顯示屬性窗口。 4） 初始化控件 可在窗體顯示之前的某一過程中初始化控件，或者在窗體的 Initialize 事件中添加初始化代碼。 5） 編寫事件過程 所有的控件都有一系列的預(yù)定義事件。例如，當(dāng)用戶單擊命令按鈕時，該命令按鈕就引發(fā)一個 Click 事件。可以編寫事件發(fā)生時所運(yùn)行的事件處理過程。 6） 顯示對話框 可用 Show 方法顯示用戶窗體。 7） 代碼運(yùn)行時使用控件的值 有些屬性可在運(yùn)行時進(jìn)行設(shè)置。用戶對對話框所作的修改，在對話框關(guān) 閉后將丟失。 2 在窗體上使用 Microsoft Office Web 組件 在 Visual Basic 或 Visual Basic for Applications 中，可以向用戶窗體中添加 Microsoft Office Web 組件，其方法與向用戶窗體中添加任何其他 ActiveX 控件相同。注意，雖然在設(shè)計窗體時可以使用―屬性工具箱 ‖，但卻不能在運(yùn)行時從模式窗體或?qū)υ捒蛑械? Microsoft Office Web 組件中顯示 ―屬性工具箱 ‖。對于在非 V