(接上講内容)

在上一講中，我們講了實現數據查找過程中類模塊部分，今日我們繼續講解标準模塊的代碼。

根據上一講的講解，我們可以分析出，在标準模塊中，要實現将查找區域的L列單元格的值傳遞給類模塊，同時要實現顯示這個單元格的其他屬性，并将這些屬性的值填到M,N,O列。下面我們看代碼：

Sub mynzclass23_27_1()

Dim tes As mydyg

i = 1

Do While Cells(i, "l") <> ""

Set tes = New mydyg

tes.TJ = Cells(i, "L")

For Each rn In Range("a1", Cells(Rows.Count, 1).End(xlUp))

Set tes.DYGA = rn

Next

Cells(i, "m") = tes.QSA

Cells(i, "N") = tes.QSB

Cells(i, "O") = tes.QSC

i = i 1

Set tes = Nothing

Loop

End Sub

上面的過程代碼内容比較少，但實現的功能還是比較多的，我們來講解一下代碼的執行過程：

在代碼的執行過程中首先要聲明tes為我們新命名的類mydyg.在i列建立一個循環，對于其中的每個單元格，首先将這個單元格關聯上類mydyg的DYGA 屬性，在關聯的同時，在類模塊中将執行下面的屬性賦值過程：

Property Set DYGA(rng As Range)

If rng = TJ Then

rngsA = Cells(rng.Row, 2)

rngsB = Cells(rng.Row, 3)

rngsC = Cells(rng.Row, 4)

End If

End Property

由于此時TJ屬性是已經賦值過的是Cells(i, "L")的值，這個時候這個值判斷将作為一個判斷的依據，将給出rngsA\ rngsB\ rngsC三個值，這三個值在類模塊中作為變量進行存儲。

當代碼執行到

Cells(i, "m") = tes.QSA

Cells(i, "N") = tes.QSB

Cells(i, "O") = tes.QSC

的時候,将顯示tes的三個屬性QSA，QSB，QSC ,是如何顯示的呢？當代碼執行到tes.QSA的時候将讀取屬性的值，讀取屬性值的時候将執行下面的代碼：Property Get QSA()

QSA = rngsA

End Property

代碼的意思是将QSA = rngsA也就是說rngsA将起到一個中間變量的作用，就是存儲QSA的屬性值。

在上面兩講中，我講了類模塊及标準模塊的代碼作用。兩個模塊相互關聯，構成了一個整體，類模塊中完成了屬性的定義及賦值、提取數值的動作，在标準模塊中，将對象關聯上類，讓對象具有類的屬性。

上述每個單元格：

For Each rn In Range("a1", Cells(rows.Count, 1).End(xlUp))

Set tes.DYGA = rn

Next

單元格還是單元格，但賦予類的性質後，就會平添了一種魂的使命。原先的"豬悟能"就個體而言還是這個個體，但"唐三藏"大師給他賦值豬八戒後，就有了取經的"魂"。在個魂是賦值後的新生，雖然個體沒有改變，還是那個實體，但"魂"已經發生了本質的改變。這就是神奇的類。

随筆：在取代OFFICE新的辦公軟件沒有到來之前，誰能在數據處理方面做到極緻，誰就是王者。其中登峰至極的技能非VBA莫屬！學習VBA是個過程，如太白詩雲：衆鳥高飛盡，孤雲獨去閑。相看兩不厭，隻有敬亭山。

"水善利萬物而不争"，綿綿密密，微則無聲，巨則洶湧。學習亦如此，知道什麼是自己所需要的，不要蜷縮在一小塊自認為天堂的世界裡，待到暮年時再去做自欺欺人的言論。要努力提高自己，有一顆充滿生機的心靈，把握現在，這才是進取。越是有意義的事情，困難會越多。願力決定始終，智慧決定成敗。不管遇到什麼，都是風景。看淡紛争，看輕得失。茶，滿也好，少也好，不要計較；濃也好，淡也好，其中自有值得品的味道。去感悟真實的時間，靜下心，多學習，積累福報。而不是天天混日子，也不是天天熬日子。在後疫情更加嚴峻的存量殘殺世界中，為自己的生存進行知識的儲備，特别是新知識的儲備。學習時微而無聲，利用時則巨則洶湧。

VBA是利用Office實現自己小型辦公自動化的有效手段，我根據自己20多年的VBA實際利用經驗，現在推出了五部VBA教程。第一：VBA代碼解決方案，是VBA中各個知識點的講解，覆蓋絕大多數的VBA知識點；第二：VBA數據庫解決方案，是數據處理的專業利器，詳細的介紹了利用ADO連接ACCDB和EXCEL的方法和實例操作。第三：VBA數組與字典解決方案，講解VBA中的數組和字典的利用。字典是VBA代碼水平提高的手段，值得深入的學習。第四：VBA代碼解決方案之視頻，是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。第五：VBA中類的解讀和利用，是一部高級教程，對于自己理論的提高很有益處。上述教程可以根據1,3,2,5或者是4,3,2,5的順序逐漸深入的學習和利用。

最後将一阙詞送給緻力于VBA學習的朋友：浮雲掠過，暗語無聲，唯有清風，驚了夢中啼莺。望星，疏移北鬥，奈将往事雁同行。阡陌人，昏燈明暗，忍顧長亭，多少VBA人，暗夜中，悄聲尋夢，盼卻天明，怎無憑！

分享成果，随喜正能量

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!