零點(diǎn)起飛excel vba教學(xué)與習(xí)題答案

單元格對(duì)象系列三：ExcelVBA對(duì)象模型課程安排引用單元格刪除單元格與清除單元格內(nèi)容插入和隱藏單元格復(fù)制單元格與保護(hù)單元格查找數(shù)據(jù)篩選數(shù)據(jù)設(shè)置單元格格式引用單元格引用單元格引用單元格區(qū)域

當(dāng)需要引用工作表A1至G15這個(gè)區(qū)域時(shí)，可以使用下面這些語(yǔ)句來(lái)實(shí)現(xiàn)。Range("A1:G15")或Range("A1","G15")或Range(Range("A1"):Range("G15"))或Range(Cells(1,1),Cells(7,15))

如果需要引用整行，可以使用Rows屬性來(lái)實(shí)現(xiàn)，如下面這些示例語(yǔ)句。Rows(4) '引用單元格的第4行Rows("3:5") '引用單元格的第3~5行Rows '引用工作表上所有行

當(dāng)需要應(yīng)用工作表中的整列時(shí)，可以使用Columns屬性來(lái)實(shí)現(xiàn)，如下面這些示例語(yǔ)句。Columns(2) '引用第2列Columns("B") '引用第2列Columns("A:G") '引用第1列~7列Columns '引用工作表中所有列使用偏移方式引用單元格

在程序中，使用VBA的Range對(duì)象的Offset屬性能夠獲得相對(duì)于指定單元格區(qū)域一定的偏移量位置上的區(qū)域。Offset

屬性的語(yǔ)法個(gè)數(shù)如下所示：

表達(dá)式.Offset(RowOffset,ColumnOffset)操作Excel單元格刪除單元格

在VBA中，刪除單元格可以使用Delete方法來(lái)實(shí)現(xiàn)，語(yǔ)法格

式：

表達(dá)式.Delete(Shift)清除單元格內(nèi)容

在VBA中，使用Clear方法將能夠清除單元格的內(nèi)容以及格式

設(shè)置，其語(yǔ)法格式如下所示：

對(duì)象.Clear插入和隱藏單元格插入單元格

在工作表中插入行或列可以使用Insert方法，其可以在工作

表中插入單元格或者一個(gè)單元格區(qū)域。在使用Insert方法插

入單元格時(shí)，將移動(dòng)其他單元格以獲得相應(yīng)的空間。Insert方

法的語(yǔ)法格式如下所示：

表達(dá)式.Insert(Shift,CopyOrigin)隱藏單元格

如果需要隱藏工作表的某個(gè)單元格，可以將該單元格的

Hidden屬性設(shè)置為True。如，隱藏工作表的A列，可以使用

下面語(yǔ)句：Worksheets("Sheet1").Columns("C").Hidden=True復(fù)制單元格與保護(hù)單元格復(fù)制單元格數(shù)據(jù)

在VBA中使用Copy方法能夠?qū)崿F(xiàn)單元格數(shù)據(jù)的復(fù)制，其語(yǔ)法

格式如下：

表達(dá)式.Copy(Destination)

如果需要將剪貼板上的內(nèi)容粘貼到工作表中，可以使用

Paste方法來(lái)實(shí)現(xiàn)，其語(yǔ)法格式如下：

表達(dá)式.Paste(Destination,Link)保護(hù)單元格

單元格的鎖定，可以使用Range對(duì)象的Locked屬性來(lái)實(shí)現(xiàn)，

例如，鎖定A1至C5單元格，可以使用下面的語(yǔ)句來(lái)完成：Range("A1:C5").Locked=True查找數(shù)據(jù)查找單個(gè)符合條件的數(shù)據(jù)

在ExcelVBA程序中，可以使用Find方法來(lái)實(shí)現(xiàn)在工作表中

對(duì)特定數(shù)據(jù)的查詢，該方法的語(yǔ)法格式如下所示：

表達(dá)式.Find(What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SearchFormat)查找多個(gè)符合條件的數(shù)據(jù)VBA提供了FindNext和FindPrevious方法來(lái)實(shí)現(xiàn)對(duì)區(qū)域中所有符合

條件數(shù)據(jù)的查找。FindNext方法能夠繼續(xù)由Find方法開(kāi)始的搜索，查找匹配相同條

件的下一個(gè)單元格，并返回表示該單元格的Range對(duì)象，該操作

不影響選定內(nèi)容和活動(dòng)單元格。FindNext方法的語(yǔ)法格式如下：

表達(dá)式.FindNext(After)使用Match方法來(lái)查找Match是WorksheetFunction對(duì)象方法，其能夠返回在指定方式下與指定數(shù)

值相匹配數(shù)值在數(shù)組中的位置。在編寫VBA程序時(shí)，使用該方法能夠更方便

地在數(shù)據(jù)表中查找需要的數(shù)據(jù)的位置，同時(shí)還能實(shí)現(xiàn)對(duì)查找到的數(shù)據(jù)進(jìn)行引

用。Match函數(shù)的語(yǔ)法格式為：表達(dá)式.Match(Arg1,Arg2,Arg3)篩選數(shù)據(jù)篩選符合條件的數(shù)據(jù)

在VBA中對(duì)數(shù)據(jù)的篩選可以選擇自動(dòng)篩選和高級(jí)篩選這2種方式。

要實(shí)現(xiàn)對(duì)數(shù)據(jù)的自動(dòng)查找，可以使用Range對(duì)象的AutoFilter方法，其語(yǔ)法

格式如下：

表達(dá)式.AutoFilter(Field,Criteria1,Operator,Criteria2,VisibleDropDown)

如果需要用戶自定義篩選的條件，可以使用高級(jí)篩選的方法。在程序中實(shí)現(xiàn)

高級(jí)篩選，可以使用Range對(duì)象的AdvancedFilter方法，其語(yǔ)法格式為：

表達(dá)式.AdvancedFilter(Action,CriteriaRange,CopyToRange,Unique)按顏色篩選數(shù)據(jù)

在VBA中，可以使用RGB函數(shù)來(lái)設(shè)置對(duì)象的顏色值，其語(yǔ)法如下所示：

對(duì)象.顏色屬性＝RGB（參數(shù)1,參數(shù)2,參數(shù)3）VBA系統(tǒng)默認(rèn)的調(diào)色板及其對(duì)應(yīng)的索引顏色值：設(shè)置單元格格式設(shè)置單元格邊框Range對(duì)象的Borders屬性能夠返回一個(gè)Borders對(duì)象集合，如果要分別控制

邊框線，可以使用下面語(yǔ)句來(lái)實(shí)現(xiàn)：Borders(Index)使用條件格式

要想向單元格中添加條件格式，可以使用FormatConditions對(duì)象集的Add方

法，其語(yǔ)法格式如下所示：

表達(dá)式.Add(Type,Operator,Formula1,Formula2)使用數(shù)據(jù)條

使用數(shù)據(jù)條，首先要?jiǎng)?chuàng)建數(shù)據(jù)條對(duì)象，對(duì)象的創(chuàng)建使用AddDatabar方法，

該方法是F