什么是對(duì)象模型

就像廚房里的東西一樣，Excel中的對(duì)象是層次分明的組織在一起，一個(gè)對(duì)象可以包含其他對(duì)象，也可以包含在其他對(duì)象里。這種對(duì)象的排列模式稱為對(duì)象模型。

Workbook和Worksheet對(duì)象

一個(gè)Excel工作簿對(duì)象，可以通過(guò)對(duì)象獲取到工作簿的名稱，存儲(chǔ)地址等屬性，一個(gè)Workbook下可以有多個(gè)Worksheet?？梢酝ㄟ^(guò)Worksheet調(diào)用表單內(nèi)的所有單元格，對(duì)單元格進(jìn)行相應(yīng)的操作。

Workbook.Workseets(1).Name = 'ABC'

ActiveWorkbook和ActiveSheet對(duì)象

獲取當(dāng)前激活的工作簿，和獲取當(dāng)前激活的表單

ActiveSheet.Name = 'ABC'

Range 對(duì)象

工作表單區(qū)域?qū)ο?，你可以通過(guò)Range對(duì)象獲取一個(gè)單元格，也可以通過(guò)Range獲取一個(gè)區(qū)域表格。可以對(duì)單元格賦值，格式調(diào)整，也可以對(duì)單元格顏色進(jìn)行修改，添加規(guī)則等。

Sheets(1).Range('A1').Value = 'ABC'

With Sheets(1).Range('A1').Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 65535

.TintAndShade = 0

.PatternTintAndShade = 0

End With

With Sheets(1).Range('A1').Font

.Color = -16776961

.TintAndShade = 0

End With

Application對(duì)象

打開對(duì)象模型，你會(huì)發(fā)現(xiàn)最頂端的對(duì)象就是Application對(duì)象，它代表Excel程序本身，就像一顆樹的根，Excel里所有的對(duì)象都以它為起點(diǎn)。

ScreenUpdating屬性

設(shè)置屏幕更新是打開還是關(guān)閉，關(guān)閉以后所有的提示都會(huì)顯示在屏幕上

DisplayAlerts屬性

取消顯示警告對(duì)話框，比如在刪除表單的時(shí)候，如果表單里面引用了一些其他表單的內(nèi)容，在你刪除的時(shí)候都會(huì)收到一個(gè)警告提示，如果設(shè)置DisplayAlerts屬性為Fasle，你就不會(huì)在收到提示了

EnableEvents屬性

可以通過(guò)設(shè)置Application對(duì)象的EnableEvents屬性來(lái)啟用和禁用事件。

什么是事件？事件就是在某一種操作的時(shí)候，會(huì)除法這個(gè)事件的發(fā)生。比如打開工作簿，修改單元格值，雙擊單元格等事件。

WorksheetFunction屬性

VBA內(nèi)置函數(shù)可以通過(guò)這個(gè)屬性進(jìn)行調(diào)用，Excel內(nèi)部函數(shù)大部分都可以在這個(gè)屬性中找到，用法和Excel用法一致，

iCount = Application.WorksheetFunction.CountIf(Range('A1:B50'), '>1000')