VBA UsedObjects 集合用法
更新時(shí)間：2009年07月15日 20:19:33 作者：
可用 Application 對(duì)象的 UsedObjects 屬性返回一個(gè) UsedObjects 對(duì)象。
返回一個(gè) UsedObjects 集合后，便可用 Count 屬性來(lái)確定 Microsoft Excel 應(yīng)用程序中所用對(duì)象的個(gè)數(shù)。
在本示例中，Microsoft Excel 確定已分配的對(duì)象的個(gè)數(shù)，并通知用戶(hù)。本示例假定在應(yīng)用程序中執(zhí)行重新計(jì)算，并且在完成前中斷重新計(jì)算。
Sub CountUsedObjects()
MsgBox "The number of used objects in this application is: " & _
Application.UsedObjects.Count
End Sub
在本示例中，Microsoft Excel 確定已分配的對(duì)象的個(gè)數(shù)，并通知用戶(hù)。本示例假定在應(yīng)用程序中執(zhí)行重新計(jì)算，并且在完成前中斷重新計(jì)算。
復(fù)制代碼 代碼如下:
Sub CountUsedObjects()
MsgBox "The number of used objects in this application is: " & _
Application.UsedObjects.Count
End Sub
相關(guān)文章
今天遇到一個(gè)excel小工具感覺(jué)不錯(cuò)，想研究研究代碼，竟然有密碼，我就不淡定了。網(wǎng)上找了找代碼，改了一下就OK了。接下來(lái)通過(guò)本文給大家分享兩種方式破解VBA工程加密，需要的朋友參考下吧2021-12-12
可用 Application 對(duì)象的 UsedObjects 屬性返回一個(gè) UsedObjects 對(duì)象。2009-07-07
要想一下子就替換掉很多個(gè)WORD文檔中的內(nèi)容,我們可以使用VBA的辦法,本文主要介紹了VBA實(shí)現(xiàn)全文件快速替換的示例代碼,具有一定的參考價(jià)值,感興趣的可以了解一下2023-08-08
本文主要介紹了VBA中的循環(huán)代碼的使用，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2023-06-06
有時(shí)候需要獲取PPT幻燈片中的所有標(biāo)題，如果手工的復(fù)制肯定很慢，那么可以用vba批量獲取，提高工作效率。2010-08-08
本文主要介紹了VBA中Excel宏的介紹及應(yīng)用，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2023-05-05
VBA處理數(shù)據(jù)與Python Pandas處理數(shù)據(jù)案例比較分析
這篇文章主要介紹了VBA處理數(shù)據(jù)與Python Pandas處理數(shù)據(jù)案例比較,本文通過(guò)實(shí)例代碼給大家介紹的非常詳細(xì)，具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2020-04-04
VBA 瀏覽文件夾對(duì)話框調(diào)用的幾種方法
VBA 瀏覽文件夾對(duì)話框調(diào)用實(shí)現(xiàn)代碼。大家可以根據(jù)需要選擇。2009-07-07
向數(shù)據(jù)報(bào)表添加一個(gè)合計(jì)字段
在數(shù)據(jù)環(huán)境設(shè)計(jì)器中也可以創(chuàng)建一個(gè)合計(jì)字段，即對(duì)來(lái)自部分的數(shù)據(jù)進(jìn)行合計(jì)的字段。2009-07-07
Excel·VBA合并工作簿的實(shí)現(xiàn)示例
本文主要介紹了Excel·VBA合并工作簿的實(shí)現(xiàn)示例，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2023-01-01