vb操作EXCEL對CELLS的引用

使用Vi?sualBasic??的普通任格區(qū)域進行一??些操作，如?輸入公式或單元格，還??可更改某個?屬性或應(yīng)用務(wù)是指定單?更改格式。?某個方法。?元格或單元??通常用一條?格區(qū)域，然?格或單元?后對該單元?語句就能完?成操作，該?語句可標(biāo)識?在V?isual?Basi?c中，R?ange對象既可表??示單個單元?格，也可表?示單元格區(qū)?域。下列主題說明了標(biāo)??識和處理?Range?對象最常?用的方法。?用A?1樣式記?號引用單元?格和單元格?區(qū)域可使用?Ra?nge屬性來引用??A1引用?樣式中的單?元格或單元?格區(qū)域。下?述子程序?qū)?單元格區(qū)域?A1:D?5的字體?設(shè)置為加粗?。Su?bFor?matRa?nge()?Workb?ooks(?"Book?1").S?heets?("She?et1")?.Rang?e("A1?:D5")?.Font?.Bold?=Tr?ueEn?dSub?下表演示了使用?R?ange屬性的一些??A1樣?式引用。?引用????含義?Range?("A1"?)??單元?格A1Range??("A1:?B5")??從單元格?A1?到單元格?B5的?區(qū)域Ra?nge("?C5:D9?,G9:H?16")?多塊選定區(qū)?域Ran?ge("A?:A")??A?列R?ange(?"1:1"?)??第一行Rang?e("A:?C")??從?A列到?C列的Ra?nge("?1:5")???從第一行?到第五行的?區(qū)域?區(qū)域?Ra?nge("?1:1,3?:3,8:?8")第?1、3和?8行?Rang?e("A:?A,C:C?,F:F"?)A、C?和F?列用編號引用單??元格通過使用行列?格的?Ran?ge對象?。下?10。編號，可用??性返回代表?單個單元?Cell?s屬性來引用單個單??元格。該屬例中，Cells??(6,1)?返回S?heet1?上的單元?格A6，?然后將V?alue?屬性設(shè)置為?SubEnter??Value?()?Wor?kshee?ts("S?heet1?").Ce?lls(6?,1).?Value?=10?EndSub?因?為可用變量?替代編號，所以?Ce?lls屬性?非常適合?于在單元格?區(qū)域中循環(huán)?，如下例所示。?S?ubCy?cleTh?rough?()?Dim?Coun?terA?sInt?eger?F?orCo?unter?=1To?20?

?W?orksh?eets(?"Shee?t1").?Cells?(Coun?ter,3).Va??lue=?Coun?ter?Ne?xtCo?unter?EndSub?注意如?用R?ange屬性。有關(guān)?果要同時更?詳細信息，?改某一單元?請參閱用?格區(qū)域中所?A1?樣式有單元格的??屬性或?qū)ζ?應(yīng)用方法，?可使?記號引用單?元格。引用行和列??可用Rows?屬性或?C?olumn?s屬性來域的R?ange對象。下例??中，用R?ows(1?)返回置為?Tr?ue。處理整行或?Sheet??1上的第的?Bol?d屬性設(shè)整列。這兩??個屬性返回?代表單元格?區(qū)?一行，然后?將單元格區(qū)?域的Fo?nt對象Sub?RowBol??d()?Wo?rkshe?ets("?Sheet?1").R?ows(1?).Fon?t.Bol?d=T?rueE?ndSu?b下表舉例說明了使??用Row?s和C?olumn?s屬性的?一些行和列?的引用。?引用???含義Rows(??1)??第一行?Ro?ws???工作表上Colum??ns(1)??第一列?Co?lumns?("A")??第一列所有的行?Colum??ns??工作?表上所有的?列若要同時處理若?性或C?olumn?s屬性的?多個調(diào)用組、第?三行和第?五行的字體?設(shè)置為加粗?。干行或列，?合起來。下?請創(chuàng)建一個?例將活動工?對象變量并??使用Un?ion方?法，將對?Rows?屬?作簿中第一?張工作表上?的第一行Su?bSev?eralR?ows()?Works?heets?("She?et1").Acti??vate?D?immy?Union?AsR?ange?S?etmy?Union?=Un?ion(R?ows(1?),Ro?ws(3)?,Row?s(5))?myUni??on.Fo?nt.Bo?ld=True?End?S?ub用快捷記號引?用單元格??可用方括號將?A1?引用樣式?或命名區(qū)域?括起來，作?為Ran?ge屬性?的快捷方式?。這樣就不必鍵入單?詞“Rang?e”或使用引號，如下??例所示。?SubClear??Range?()?Wor?kshee?ts("S?heet1?").[A?1:B5]?.Clea?rCont?entsEnd?S?ub

S?ubSe?tValu?e()?[M?yRang?e].Va?lue=?30E?ndSu?b引用命名區(qū)域??用名稱比用?A1樣式記號更??容易標(biāo)識單?元格區(qū)域。?若要命名選?定的單元格?區(qū)域，請單擊編輯欄左?端的名稱?框?，鍵入名稱?，再按E?nter。?引用命名區(qū)域?下例引用??為“MyB?ook.x?ls”的工?作簿中的名了名?為“MyR?ange”?的單元格區(qū)?域。S?ubFo?rmatR?ange(?)?Rang?e("My?Book.?xls!M?yRang?e").F?ont.I?talic?=Tr?ueEn?dSub?下例引用?名為“Re?port.?xls”的?工作簿中的?特定工作表?單元格區(qū)域“Shee?t1!Sa?les”。?Sub?Form?atSal?es()?R?ange(?"[Rep?ort.x?ls]Sh?eet1!?Sales?").BorderA??round?Weig?ht:=x?lthin?EndSub?若要選定命名??區(qū)域，請用?GoTo?方法，該?方法將激活?工作簿和工?作表，然后?選定該區(qū)域。?Su?bCle?arRan?ge()?A?pplic?ation?.Goto?Refe?rence?:="My?Book.?xls!M?yRang?e"?Sel?ection.Cle??arCon?tents?EndSub?下例顯示對于?活動工作簿?將如何編寫?相同的過程??。Su?bCle?arRan?ge()?A?pplic?ation?.Goto?Refe?rence?:="My?Range?"?Sele?ction?.Clea?rCont?entsEnd?S?ub在命名區(qū)域?中的單元格?上循環(huán)??ForEach.??..Nex?t循環(huán)語句在命名區(qū)?下例用域?中的每一?個單元格上?循環(huán)。如果?該區(qū)域?的顏色更改?為黃色。中的任一單元格?的值超過?limit??的值，就將該單元格??SubApply??Color?()?Con?stLi?mitA?sInt?eger=?25?F?orEa?chcIn?Ra?nge("?MyRan?ge")??If?c.Va?lue>?Limi?tThe?n??c?.Inte?rior.?Color?Index?=27??E?ndIf?Nex?tc?End?Sub

?相對于其?他單元格來?引用單元格?處理相位于?活動工作表?上活動單元式。?對于另一個?單元格的某?格?下一行和右邊三列的?一單元格的?常用方法是??單元格的?使用Of?fset?屬性。下例?中，將內(nèi)?容設(shè)置為雙?下劃線格Su?bUnd?erlin?e()?Ac?tiveC?ell.Offset??(1,3).Fon??t.Und?erlin?e=x?lDoub?leEn?dSub?注意可錄制使用?“宏”?，再單擊“?錄制新宏”?，然后單按鈕。?Offse??t屬性擊（而不是?絕對引用?）的宏?。在“工具”菜單上，?指向若要在單元格?區(qū)域中循環(huán)，請?在循環(huán)中將?變量與?C?ells?屬性一步長，用?5?到10?0之間的?值填充第三?列的前2?0個單元?格。變量?count?er用作?Cell?s行號。?起使?用。下例以?5為屬性的Sub?CycleT?hroug?h()?Di?mcou?nterAs?In?teger?For?c?ounte?r=1?To2?0?Works?heets?("She?et1").Cell??s(cou?nter,?3).V?alue=?cou?nter?*5?Ne?xtco?unter?EndSub?用?Ran?ge對象引用單元格??如果將對?象變量設(shè)置為?Ra?nge對象，即可用?變量名方?便?地操作單元?格區(qū)域。?下述過程創(chuàng)建了對?象變量?my?Range?，然后將活動工作簿中??Shee?t1上的?單元格區(qū)域?A1:D?5賦予該變量。隨后?的?語句用該?變量代替該?區(qū)域?qū)ο螅?以修改該區(qū)?域的屬性。?Sub?Rand?om()?D?immy?Range?AsR?ange?S?etmy?Range?=Wo?rkshe?ets("?Sheet?1").R?ange(?"A1:D?5")?my?Range?.Form?ula=?"=RA?ND()"?myRan??ge.Fo?nt.Bo?ld=True?End?S?ub引用?工作表上的?所有單元格?如果對?工作表應(yīng)用?Cel?ls屬性時?不指定編號，該屬性??將返回代表?工作表上所?有單元格的容。??Rang?e對象。下述?Su?b過程清除?活動工作簿中?Sh?eet1?上的所有單?元格的內(nèi)

Su?bCle?arShe?et()?W?orksh?eets(?"Shee?t1").?Cells?.Clea?rCont?entsEnd?S?ub引用多個單元??格區(qū)域使用適當(dāng)?shù)?方法可以很?容易地同時?引用多個單?元格區(qū)域?。?可用Ra?nge和?Unio?n方法引用?任意組合的單元格區(qū)?域?；用A?reas屬性可引用??工作表上選?定的一組單?元格區(qū)域。?使用Range??屬性通過在兩個?或?多個引用域。下例清除了?Sheet??1上三個之間放置逗號?，可使用?單元格區(qū)域??的內(nèi)容。Range??屬性來引?用多個單元?格區(qū)?SubClear??Range?s()?Wo?rkshe?ets("?Sheet?1").R?ange(?"C5:D?9,G9:?H16,B?14:D1?8").?_?Clear??Conte?ntsE?ndSu?b命名區(qū)?域使得用?Range?屬性處理?多個單元格?區(qū)域更為容?易。下例可?在三個命名?區(qū)域處于同?一工作表時?運行。Sub?ClearN??amed(?)?Rang?e("My?Range?,You?rRang?e,Hi?sRang?e").C?learC?onten?tsEn?dSub?使用U?nion方法?用Union??方法可myMu?ltipl?eRang?e的R?ange對象，