excel-vba-編程教程(完整版)excel高級教程==

1、Excel_VBA_編程教程編程教程(完整版完整版)excel高級教程高級教程VBAExcel編程概念之編程概念之:【單元格和區(qū)域單元格和區(qū)域】一、如何引用單元格和區(qū)域一、如何引用單元格和區(qū)域使用VisualBasic的普通任務是指定單元格或單元格區(qū)域，然后對該單元格或單元格區(qū)域進行一些操作，如輸入公式或更改格式。通常用一條語句就能完成操作，該語句可標識單元格，還可更改某個屬性或應用某個方法。在VisualBasic中，Range對象既

2、可表示單個單元格，也可表示單元格區(qū)域。下列主題說明了標識和處理Range對象最常用的方法。用A1樣式記號引用單元格和單元格區(qū)域樣式記號引用單元格和單元格區(qū)域可使用Range屬性來引用A1引用樣式中的單元格或單元格區(qū)域。下述子程序將單元格區(qū)域A1:D5的字體設置為加粗。SubFmatRange()Wkbooks(“Book1“).Sheets(“Sheet1“).Range(“A1:D5“)_.Font.Bold=TrueEndSub下表

3、演示了使用Range屬性的一些A1樣式引用。引用含義Range(“A1“)單元格A1Range(“A1:B5“)從單元格A1到單元格B5的區(qū)域Range(“C5:D9G9:H16“)多塊選定區(qū)域Range(“A:A“)A列Range(“1:1“)第一行Range(“A:C“)從A列到C列的區(qū)域Range(“1:5“)從第一行到第五行的區(qū)域Range(“1:13:38:8“)第1、3和8行Range(“A:AC:CF:F“)A、C和F列用

4、編號引用單元格用編號引用單元格通過使用行列編號，可用Cells屬性來引用單個單元格。該屬性返回代表單個單元格的Range對象。下例中，Cells(61)返回Sheet1上的單元格A6，然后將Value屬性設置為10。SubEnterValue()Wksheets(“Sheet1“).Cells(61).Value=10用快捷記號引用單元格用快捷記號引用單元格可用方括號將A1引用樣式或命名區(qū)域括起來，作為Range屬性的快捷方式。這樣就不

5、必鍵入單詞“Range”或使用引號，如下例所示。SubClearRange()Wksheets(“Sheet1“).[A1:B5].ClearContentsEndSubSubSetValue()[MyRange].Value=30EndSub引用命名區(qū)域引用命名區(qū)域用名稱比用A1樣式記號更容易標識單元格區(qū)域。若要命名選定的單元格區(qū)域，請單擊編輯欄左端的名稱框，鍵入名稱，再按Enter。引用命名區(qū)域下例引用了名為“MyBook.xls”

6、的工作簿中的名為“MyRange”的單元格區(qū)域。SubFmatRange()Range(“MyBook.xls!MyRange“).Font.Italic=TrueEndSub下例引用名為“Rept.xls”的工作簿中的特定工作表單元格區(qū)域“Sheet1!Sales”。SubFmatSales()Range(“[Rept.xls]Sheet1!Sales“).BderAroundWeight:=xlthinEndSub若要選定命名區(qū)域，

7、請用GoTo方法，該方法將激活工作簿和工作表，然后選定該區(qū)域。SubClearRange()Application.GotoReference:=“MyBook.xls!MyRange“ion.ClearContentsEndSub下例顯示對于活動工作簿將如何編寫相同的過程。SubClearRange()Application.GotoReference:=“MyRange“ion.ClearContentsEndSub在命名區(qū)域中的單