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

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

2、可表示單個(gè)單元格，也可表示單元格區(qū)域。下列主題說(shuō)明了標(biāo)識(shí)和處理Range對(duì)象最常用的方法。用A1樣式記號(hào)引用單元格和單元格區(qū)域樣式記號(hào)引用單元格和單元格區(qū)域可使用Range屬性來(lái)引用A1引用樣式中的單元格或單元格區(qū)域。下述子程序?qū)卧駞^(qū)域A1:D5的字體設(shè)置為加粗。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、編號(hào)引用單元格用編號(hào)引用單元格通過(guò)使用行列編號(hào)，可用Cells屬性來(lái)引用單個(gè)單元格。該屬性返回代表單個(gè)單元格的Range對(duì)象。下例中，Cells(61)返回Sheet1上的單元格A6，然后將Value屬性設(shè)置為10。SubEnterValue()Wksheets(“Sheet1“).Cells(61).Value=10用快捷記號(hào)引用單元格用快捷記號(hào)引用單元格可用方括號(hào)將A1引用樣式或命名區(qū)域括起來(lái)，作為Range屬性的快捷方式。這樣就不

5、必鍵入單詞“Range”或使用引號(hào)，如下例所示。SubClearRange()Wksheets(“Sheet1“).[A1:B5].ClearContentsEndSubSubSetValue()[MyRange].Value=30EndSub引用命名區(qū)域引用命名區(qū)域用名稱比用A1樣式記號(hào)更容易標(biāo)識(shí)單元格區(qū)域。若要命名選定的單元格區(qū)域，請(qǐng)單擊編輯欄左端的名稱框，鍵入名稱，再按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、請(qǐng)用GoTo方法，該方法將激活工作簿和工作表，然后選定該區(qū)域。SubClearRange()Application.GotoReference:=“MyBook.xls!MyRange“ion.ClearContentsEndSub下例顯示對(duì)于活動(dòng)工作簿將如何編寫相同的過(guò)程。SubClearRange()Application.GotoReference:=“MyRange“ion.ClearContentsEndSub在命名區(qū)域中的單