這節(jié)主要是講解各種選擇在VBA中的實(shí)現(xiàn),如果在EXCEL中,輕點(diǎn)鼠標(biāo)就可以實(shí)現(xiàn),那么在VBA中是如何實(shí)現(xiàn)的呢?我們看下面的代碼。 1 工作表的選擇或者激活1) Sheets("4").Activate. 語句說明:執(zhí)行上述代碼后,選擇一個(gè)名為"4"的工作表: 備注:在工作表的操作時(shí)可以用select. 2 工作表內(nèi)區(qū)域的選擇2) Range("A1").Select 語句說明:執(zhí)行上述代碼后,選擇一個(gè)名為" A1"的單元格: 備注:RANGE是單元格,也可以用CELLS(M,N)來代替,其中M是行,N是列。 3) Range("A1:G8").Select 語句說明:執(zhí)行上述代碼后,選擇"A1:G8"的連續(xù)單元格: 選擇不連續(xù)的單元格: Range("A1,B6,D9").Select Range("A1,B6:B10,D9").Select 語句說明:執(zhí)行上述代碼后,選擇不連續(xù)單元格:"A1,B6,D9","A1,B6:B10,D9" lCELLS()的單元格表示方式是不能用這種表示方法的。 4) Cells.Select 語句說明:執(zhí)行上述代碼后,選擇整個(gè)工作表. l注意select和selection的區(qū)別,這里用的是select 5) Range("B2").CurrentRegion.Select 語句說明:執(zhí)行上述代碼后,選擇當(dāng)前單元格所在的區(qū)域(遇到空行/空列即止). lCurrentRegion的意義是區(qū)域,CurrentRegion屬性返回代表當(dāng)前區(qū)域的Range對(duì)象。當(dāng)前區(qū)域是指包含有當(dāng)前單元格的由空行和空列圍繞組成的區(qū)域。在該區(qū)域中,必須保證區(qū)域中的每一行或列中至少有一個(gè)存在數(shù)據(jù)的單元格。 但是,該屬性在受保護(hù)的工作表中無效。 如何理解上面“由空行和空列圍繞組成的區(qū)域”呢?我們看下面的實(shí)例,代碼: 現(xiàn)在有下面的區(qū)域: 執(zhí)行代碼后: 上面深色區(qū)域是選擇后的區(qū)域。它是由空格包圍的。 6) Rows("1").Select Columns("A").Select 或者: ActiveCell.EntireRow.Select ActiveCell.EntireColumn.Select 語句說明:執(zhí)行上述代碼后,選擇行或列: 7) Columns("A:C").Select Rows("1:5").Select 語句說明:執(zhí)行上述代碼后,選擇選擇相鄰的多行/多列: 備注:使用"Columns/Rows":要注意和下面第八點(diǎn)的區(qū)別。 8) Range("A:A, C:C, E:F").Select Range("1:1,5:6,9:9").Select 語句說明:執(zhí)行上述代碼后,選擇不相鄰的多行/多列: l和選擇相鄰的多行/多列不同,使用"Range"而不是"Columns/Rows"。 9) Range("A1", Range("A1").End(xlDown)).Select Range(ActiveCell, ActiveCell.End(xlDown)).Select 語句說明:執(zhí)行上述代碼后選擇當(dāng)前活動(dòng)單元格向下至最后一個(gè)空或者非空的單元格: 備注:注意理解End(xlDown)的意義,相當(dāng)于CTRL+↓ 今日內(nèi)容回向: 1 選擇包括哪些內(nèi)容? 2 如何理解CurrentRegion含義? |
|