資源描述：
《Excel_VBA_編程教程(完整版)excel高級教程==》由會員上傳分享，免費在線閱讀，更多相關內容在行業(yè)資料-天天文庫。
1、....Excel_VBA_編程教程(完整版)excel高級教程VBA-Excel編程概念之:【單元格和區(qū)域】一、如何引用單元格和區(qū)域使用VisualBasic的普通任務是指定單元格或單元格區(qū)域，然后對該單元格或單元格區(qū)域進行一些操作，如輸入公式或更改格式。通常用一條語句就能完成操作，該語句可標識單元格，還可更改某個屬性或應用某個方法。在VisualBasic中，Range對象既可表示單個單元格，也可表示單元格區(qū)域。下列主題說明了標識和處理Range對象最常用的方法。用A1樣式記號引用單元格和單元格區(qū)域可使用Range屬性
2、來引用A1引用樣式中的單元格或單元格區(qū)域。下述子程序將單元格區(qū)域A1:D5的字體設置為加粗。SubFormatRange()???Workbooks("Book1").Sheets("Sheet1").Range("A1:D5")_???????.Font.Bold=TrueEndSub下表演示了使用Range屬性的一些A1樣式引用。引用?????????????????含義Range("A1")??????????單元格A1Range("A1:B5")???????從單元格A1到單元格B5的區(qū)域Range("C5:D9,
3、G9:H16")?多塊選定區(qū)域Range("A:A")?????????A列Range("1:1")?????????第一行Range("A:C")?????????從A列到C列的區(qū)域Range("1:5")?????????從第一行到第五行的區(qū)域Range("1:1,3:3,8:8")?第1、3和8行Range("A:A,C:C,F:F")?A、C和F列用編號引用單元格通過使用行列編號，可用Cells屬性來引用單個單元格。該屬性返回代表單個單元格的Range對象。下例中，Cells(6,1)返回Sheet1上的單元格A6
4、，然后將Value屬性設置為10。SubEnterValue()???Worksheets("Sheet1").Cells(6,1).Value=10學習參考....EndSub因為可用變量替代編號，所以Cells屬性非常適合于在單元格區(qū)域中循環(huán)，如下例所示。SubCycleThrough()???DimCounterAsInteger???ForCounter=1To20???????Worksheets("Sheet1").Cells(Counter,3).Value=Counter???NextCounterEndS
5、ub注意??如果要同時更改某一單元格區(qū)域中所有單元格的屬性或對其應用方法，可使用Range屬性。有關詳細信息，請參閱用A1樣式記號引用單元格。引用行和列可用Rows屬性或Columns屬性來處理整行或整列。這兩個屬性返回代表單元格區(qū)域的Range對象。下例中，用Rows(1)返回Sheet1上的第一行，然后將單元格區(qū)域的Font對象的Bold屬性設置為True。SubRowBold()???Worksheets("Sheet1").Rows(1).Font.Bold=TrueEndSub下表舉例說明了使用Rows和Colu
6、mns屬性的一些行和列的引用。引用????????????含義Rows(1)???????????第一行Rows????????????工作表上所有的行Columns(1)????????第一列Columns("A")????第一列Columns?????????工作表上所有的列若要同時處理若干行或列，請創(chuàng)建一個對象變量并使用Union方法，將對Rows屬性或Columns屬性的多個調用組合起來。下例將活動工作簿中第一張工作表上的第一行、第三行和第五行的字體設置為加粗。SubSeveralRows()???Workshee
7、ts("Sheet1").Activate???DimmyUnionAsRange???SetmyUnion=Union(Rows(1),Rows(3),Rows(5))???myUnion.Font.Bold=TrueEndSub學習參考....用快捷記號引用單元格可用方括號將A1引用樣式或命名區(qū)域括起來，作為Range屬性的快捷方式。這樣就不必鍵入單詞“Range”或使用引號，如下例所示。SubClearRange()???Worksheets("Sheet1").[A1:B5].ClearContentsEndSub
8、SubSetValue()???[MyRange].Value=30EndSub引用命名區(qū)域用名稱比用A1樣式記號更容易標識單元格區(qū)域。若要命名選定的單元格區(qū)域，請單擊編輯欄左端的名稱框，鍵入名稱，再按Enter。引用命名區(qū)域下例引用了名為“MyBook.xls”的工作簿中的名為“MyRange”的單元
