九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

引子：周末突發(fā)奇想，如果能夠做個(gè)VBA通用代碼庫(kù)，將常用的VBA代碼整理在一起，想要使用時(shí)隨時(shí)調(diào)出來(lái)，然后將其直接復(fù)制到需要的地方，豈不很方便。此外，這些通用代碼也是VBA應(yīng)用的精華，閱讀和研究這些代碼也助于學(xué)習(xí)VBA，提高編程水平。一舉兩得！

下面是搗鼓了半天弄出來(lái)的一個(gè)初步的東西，還很不成熟，先放出來(lái)，讓大家提提建議，在后面的日子里逐步完善。

準(zhǔn)備工作

“子過(guò)程清單”工作表：用來(lái)放置從VBE編輯器中獲取的所有子過(guò)程，包括過(guò)程名、所在的模塊名、以及過(guò)程在模塊中的開(kāi)始行號(hào)。

“數(shù)據(jù)庫(kù)”工作表：用來(lái)放置程序的分類，以及每個(gè)分類下的過(guò)程名稱、相應(yīng)的程序類型、用途、參數(shù)說(shuō)明、備注說(shuō)明等信息。

 圖2

定義動(dòng)態(tài)名稱

定義動(dòng)態(tài)名稱ProcList：

=子過(guò)程清單!$A$2:INDEX(子過(guò)程清單!$A:$C,COUNTA(子過(guò)程清單!$A:$A),3)

這樣，當(dāng)“子過(guò)程清單”中的數(shù)據(jù)增減時(shí)，區(qū)域會(huì)自動(dòng)調(diào)整。

該名稱用于“數(shù)據(jù)庫(kù)”工作表中作為VLOOKUP函數(shù)的參數(shù)來(lái)獲取相應(yīng)的子過(guò)程名所開(kāi)始的行號(hào)，以及其所在的模塊名稱。

由于我們要使用VBA代碼操作VBE，因此切換到VBE編輯器中，單擊“工具——引用”，在對(duì)話框中找到“Microsoft Visual Basic for Applications Extensibility 5.3”并選中，如下圖3所示。

 圖3

然后，在“Excel選項(xiàng)”中，打開(kāi)“信任中心”，并選中“信任對(duì)VBA工程對(duì)象模型的訪問(wèn)”，如下圖4所示。

 圖4

用戶窗體設(shè)計(jì)

在VBE中，插入一個(gè)用戶窗體，并添加相應(yīng)的控件，如下圖5所示。

 圖5

編寫(xiě)代碼

ThisWorkbook模塊

在ThisWorkbook模塊中，輸入下面的代碼：

打開(kāi)工作簿時(shí)，代碼自動(dòng)獲取VBE中所有的過(guò)程名、模塊名、以及每個(gè)過(guò)程在模塊中的起始行，并放置在“子過(guò)程清單”工作表中。

用戶窗體代碼

下面的代碼在啟動(dòng)用戶窗體時(shí)，自動(dòng)使用“數(shù)據(jù)庫(kù)”工作表中的數(shù)據(jù)填充TreeView1控件。

下面的代碼在單擊樹(shù)狀目錄中的子過(guò)程名時(shí)，調(diào)用子過(guò)程在右側(cè)的文本框中顯示過(guò)程代碼及相應(yīng)的信息。

下面的代碼在用戶單擊“復(fù)制代碼”按鈕后，將文本框中的代碼復(fù)制到剪貼板。

其他代碼

下面的代碼用于獲取在樹(shù)狀目錄中單擊的子過(guò)程的代碼及相應(yīng)的信息，并放置在相應(yīng)的文本框中。

結(jié)語(yǔ)

這個(gè)應(yīng)用程序需要完善的地方還很多，所以具體的代碼語(yǔ)句沒(méi)有詳細(xì)講解。接下來(lái)有時(shí)間，要開(kāi)展下列工作：

• 完善程序代碼，使程序更健壯。

• 收集整理通用程序代碼，使程序庫(kù)更豐富。

在此其礎(chǔ)上：

• 美化界面并擴(kuò)展功能。