【正文】 方法，該方法將激活工作簿和工作表，然后選定該區(qū)域。 Range(!MyRange). = TrueEnd Sub以下示例引用名為“”的工作簿中特定于工作表的區(qū)域“Sheet1!Sales”。引用命名區(qū)域以下示例引用名為“”的工作簿中名為“MyRange”的區(qū)域。 Set myRange = Worksheets(Sheet1).Range(A1:D5)以下過(guò)程將創(chuàng)建對(duì)象變量 myRange，然后將活動(dòng)工作簿中 Sheet1 上的區(qū)域 A1:D5 賦予該變量。 Worksheets(Sheet1).[A1:B5].ClearContentsEnd SubSub SetValue()這樣就不必鍵入單詞“Range”或使用引號(hào)了，如下例中所示。 For Counter = 1 To 20該屬性返回代表單個(gè)單元格的 Range 對(duì)象。 Set myUnion = Union(Rows(1), Rows(3), Rows(5))引用Sub RowBold()第 3 和 8 行Range(A:A,C:C,F:F) . = TrueEnd Sub下表演示了使用 Range 屬性的一些 A1 樣式引用。 Worksheets(Sheet1).End Sub使用 A1 表示法引用單元格和區(qū)域可使用 Range 屬性引用 A1 引用樣式中的單元格或單元格區(qū)域。以下 Sub 過(guò)程清除活動(dòng)工作簿中 Sheet1 上的所有單元格的內(nèi)容。若想選擇單元格區(qū)域A1：C6，可使用下面的代碼：lastCol = (a1).End(xlToRight).ColumnlastRow = (65536, lastCol).End(xlUp).Row(a1, (lastRow, lastCol)).Select或：lastCol = (a1).End(xlToRight).ColumnlastRow = (65536, lastCol).End(xlUp).Row(a1: amp。如何選擇某列中非連續(xù)數(shù)據(jù)單元格區(qū)域？例如，要選擇某列中非連續(xù)數(shù)據(jù)單元格區(qū)域，可以使用下面的代碼：(a1, (a65536).End(xlUp)).Select或：(a1: amp。如何選擇連續(xù)數(shù)據(jù)列中的最后一個(gè)單元格？例如，要選擇一個(gè)連續(xù)列中的最后一個(gè)單元格，可以使用下面的代碼：(a1).End(xlDown).Select該代碼使用在上面的工作表中，單元格A4被選擇。如何選擇與另一單元格(不是當(dāng)前單元格)相關(guān)的單元格？例如，要選擇距單元格C7下方5行右側(cè)4列的單元格，可以使用下面的代碼：(7, 3).Offset(5, 4).Select或：(C7).Offset(5, 4).Select如何選擇一個(gè)指定的區(qū)域并擴(kuò)展區(qū)域的大小？例如，要選擇當(dāng)前工作表中名為“Database”區(qū)域，然后將該區(qū)域向下擴(kuò)展5行，可以使用下面的代碼：Range(Database).Select( + 5, ).Select如何選擇一個(gè)指定的區(qū)域，再偏離，然后擴(kuò)展區(qū)域的大小？例如，選擇名為“Database”區(qū)域下方4行右側(cè)3列的一個(gè)區(qū)域，然后擴(kuò)展2行和1列，可以使用下面的代碼：Range(Database).Select(4, 3).Resize( + 2, + 1).Select如何選擇兩個(gè)或多個(gè)指定區(qū)域？例如，為了同時(shí)選擇名為“Test”和“Sample”的兩個(gè)區(qū)域，可以使用下面的代碼：(Range(Test), Range(Sample)).Select注意，這兩個(gè)區(qū)域須在同一工作表中，如下面的代碼：Set y = (Range(Sheet1!A1:B2), Range(Sheet1!C3:D4))但Union方法不能處理不同工作表中的區(qū)域，可下面的代碼：Set y = (Range(Sheet1!A1:B2), Range(Sheet2!C3:D4))將會(huì)出錯(cuò)。Add submenu and submenu items . Caption:=amp。圖形用戶界面最大的好處是將可選功能限制于那些有效功能之間，因此減少，甚至杜絕了用戶出錯(cuò)的機(jī)會(huì)。在“工程”窗口中雙擊“ThisWorkbook”對(duì)象，進(jìn)入“代碼”窗口。進(jìn)入“設(shè)計(jì)模式”。如果在C４單元格輸入一個(gè)數(shù)，將清除單元格中的公式，導(dǎo)致相應(yīng)的滾動(dòng)條失效。單擊“控件工具箱”上的“屬性”按鈕，在出現(xiàn)的屬性窗口中設(shè)置Max屬性值為30，Min屬性值為5，LinkCell屬性值為C4（它使得單擊“數(shù)值調(diào)節(jié)鈕”時(shí)，C4單元格的內(nèi)容會(huì)相應(yīng)變動(dòng)），SmallChange屬性值為5（它使得每單擊“數(shù)值調(diào)節(jié)鈕”一次，C4單元個(gè)的值增加或減少5）。讓VisualBaisc忘記曾經(jīng)發(fā)生的錯(cuò)誤。Suffix=0Suffix=Suffix+1=Baseamp。下面通過(guò)兩個(gè)例子說(shuō)明如何使用錯(cuò)誤捕獲技術(shù)。 Worksheet_FollowHyperlink ( ) Worksheet_BeforeDoubleClick ( ) 語(yǔ)句和語(yǔ)法A、 if thenelseend ifB、 select caseSelect Case Case Is 60Cells(, + 1) = 不及格Case 60 To Cells(, + 1) = 良Case ElseCells(, + 1) = 優(yōu)End SelectC、 Do UntilLoop1 設(shè)置忽略錯(cuò)誤語(yǔ)句1：On Error Resume Next 表示：若發(fā)生錯(cuò)誤，則忽略它，跳到下一條語(yǔ)句繼續(xù)執(zhí)行。 等同方法：利用CommandButton1_Click()Private Sub CommandButton1_Click()If = 2 And = 3 ThenActiveCell = 100End IfEnd Sub Worksheet_Change()Private Sub Worksheet_Change(ByVal Target As Range)Dim iRow, iCol As IntegeriRow = iCol = If iRow = 2 And iCol = 2 And Target Then = FalseCells(iRow, iCol + 1) = Cells(iRow, iCol) * 2 = TrueElseIf iRow = 2 And iCol = 2 And Target = ThenCells(iRow, iCol + 1) = ElseCells(iRow, iCol + 1) = End IfEnd Sub　　　 = = True，這是個(gè)成雙的程序，當(dāng)你用了前者記得在執(zhí)行其他程序後要寫上後面的程序。Target = 100 是把你點(diǎn)選的單元格輸入數(shù)字100。和i中間加入空格 Worksheet_SelectionChangea. Private Sub Worksheet_SelectionChange(ByVal Target As Range)Target = 100End Sub‘利用 Worksheet_SelectionChange 輸入數(shù)據(jù), Target 指的是你鼠標(biāo)所選的單元格，Worksheet_SelectionChange() 事件的參數(shù)。 , d1:e amp。 所以請(qǐng)問(wèn)高手如何解決插入變量，選擇不連續(xù)單元格區(qū)域的問(wèn)題啊最佳答案你的意思是想在range中插入變量對(duì)吧？ 你的原來(lái)寫法是： range(A1:Bamp。i),但變量在中似乎不能識(shí)別。amp。 所以當(dāng)我現(xiàn)在選取這些不連續(xù)單元格區(qū)域的時(shí)候，就有變量了 首先我把4改成i，那么就變成了range(A1:Bi，D1:Ei)，當(dāng)然這句話肯定是錯(cuò)的，于是又改成range(A1:Bamp。e. i = ’是把當(dāng)前單元格的行數(shù)，指定給變量 i。也可以寫成Cells(1, 4) = sheets(2).Cells(1, 4)c. Cells(1, 4) = (1, 4) 39。 讀取其他單元格數(shù)值a. Cells(1, 4) = (1, 4) 39。在 C1:C3 單元格輸入300。b. [A2:A4] = 10 39。在 A1 單元格輸入100。在 B1 單元格輸入200.d. Range(C1:C3) = 300 39。在 E1:E5單元格輸入50。把第2個(gè)sheet（從左向右數(shù)） 工作表單元格 D1 數(shù)據(jù)，讀到 D1 單元格。讀取名字為name 工作表單元格 A1 數(shù)據(jù)。 但是我實(shí)際上單元格區(qū)域是不定的，比如A1:B4中的行4是不定的，我用i=range(A65536).end(xlup).row計(jì)算的。A1:B39。amp。i)，這樣又成了連續(xù)的單元格區(qū)域，我實(shí)在暈死，不知道怎么辦了，我的區(qū)域很多，操作的變量不止i一個(gè)，而且后面操作的代碼一大串。 i amp。的用法 記得要在amp。Target As Rang 是把 Target 這個(gè)參數(shù)設(shè)定為 Range 變量形態(tài)。If = 2 And = 2 Then 指的是 ( = 2) 為True及( = 2)為True時(shí)，才執(zhí)行B 欄第二行及以下行用鼠標(biāo)被點(diǎn)選時(shí)，才會(huì)被輸入100，其它單元格則不被輸入數(shù)據(jù)。 Worksheet_Activate() Worksheet_Calculate ( ) Worksheet_BeforeRightClick ()Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)If Not (Target, Range(D8)) Is Nothing Then Cancel = TrueMsgBox (Target is Range D8 and Cancel is True !)ElseCancel = FalseEnd IfEnd Sub‘在 D12 按鼠標(biāo)右鍵將呈現(xiàn)正常的右鍵菜單；在 D8 按鼠標(biāo)右鍵將呈現(xiàn)一個(gè)對(duì)話框并且屏閉掉右鍵菜單。則表明沒(méi)有產(chǎn)生錯(cuò)誤，反之有錯(cuò)誤。SubMakeNextStudent()DimSheetAsWorksheetDimBaseAsStringDimSuffixAsIntegerSetSheet=Base=“Student”Suffix=1OnErrorResumeNext=Baseamp。DoUntil循環(huán)首先檢查命名是否成功，若不成功，則增加后綴值，再試著重新命名，再檢查……直到?jīng)]有產(chǎn)生錯(cuò)誤（=0），才結(jié)束循環(huán)。單擊“控件工具箱”中的“數(shù)值調(diào)節(jié)鈕”控件，然后在周期單元格的右側(cè)拖拽出一個(gè)大小合適的“數(shù)值調(diào)節(jié)鈕”。同樣可以設(shè)置Max、Min、SmallChange的屬性值。 首先，把與控件相連的單元格清除，即不用控件往單元格內(nèi)填值，轉(zhuǎn)而用事件控制程序往單元格內(nèi)填寫值。這時(shí)可以保護(hù)工作表了。這樣用戶就不能往工作表中輸入內(nèi)容了，實(shí)際上也不必輸入，只要用鼠標(biāo)簡(jiǎn)單操作哪些控件就可以了。Creat 文件 With MenuBars(xlWorksheet).Menus(Creat 文件) 39。如何選擇當(dāng)前工作表中的單元格？例如，可以使用下面的代碼選擇當(dāng)前工作表中的單元格D5：(5, 4).Select或：(D5).Select如何選擇同一工作簿中其它工作表上的單元格？例如，要選擇同一工作簿中另一工作表上的單元格E6，可以使用下面的代碼： (Sheet2).Cells(6, 5)或： ((Sheet2).Range(E6))也可以先激活該工作表，然后再選擇：Sheets(Sheet2).Activate(6, 5).Select如何選擇不同工作簿中的單元格？例如，要選擇另一工作簿中的一個(gè)工作表上的單元格F7，可以使用下面的代碼： Workbooks(BOOK2 ).Sheets(Sheet1).Cells(7, 6)或： Workbooks(BOOK2 ).Sheets(Sheet1).Range(F7)也可以先激活該工作簿中的工作表，然后再選擇：Workbooks().Sheets(Sheet1).Activate(7, 6).Select如何選擇當(dāng)前工作表中的單元格區(qū)域？例如，要選擇當(dāng)前工作表中的單元格區(qū)域C2:D10，可以使用下面的代碼：(Cells(2, 3), Cells(10, 4)).Select或：(C2:D10).Select或：(C2, D10).Select如何選擇同一工作簿中另一工作表上的單元格區(qū)域？例如，要選擇同一工作簿中另一工作表上的單元格區(qū)域D3：E11，可以使用下面的代碼： (Sheet3).Range(D3:E11)或： (Sheet3).Range(D3, E11)也可以先激活該工作表，然后再選擇：Sheets(Sheet3).A