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