VBA的form相关实验2，form里的变量传递和模块里有什么不同？（---未完成-----）
生活随笔
收集整理的這篇文章主要介紹了
VBA的form相关实验2，form里的变量传递和模块里有什么不同？（---未完成-----）
小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
草稿
'1.1 參數(shù)的傳遞，應(yīng)該還是要以
'Public index1 ?'傳不過去，擦, 這是之前，想把一個(gè)form里的變量，傳遞給其他form 不管用
'懷疑，可能只能public private 只再模塊間是這樣的
'測(cè)試下
'但好方法？，確實(shí)先把東西存再excel表，也就是數(shù)據(jù)庫(kù)，之后在讀，這樣安全？
?
感覺存在數(shù)據(jù)庫(kù)表里，是個(gè)好思路
0 名詞解釋：
0.1 作用域
- 常量/變量的作用域
- 作用域是指這個(gè)變量允許在什么地方 使用/ 調(diào)用變量。
- ( 反過來(lái)說就是那些程序可以訪問到這些變量)
- 作用域有各種說法
- 聲明變量的作用域，一定要在模塊最開始聲明
- 如果只在模塊中間聲明，比如某些過程后面，會(huì)有問題。因?yàn)榇a是順序執(zhí)行的，沒執(zhí)行到那，那個(gè)變量在之前還不是全局變量等，所以要在模塊最開始聲明
0.2 生存周期：（聲明作用域會(huì)影響生命周期）
- 常量/變量的生存周期
- 變量保留其值的時(shí)間，稱為生存周期。
- 生存周期的 start :? 賦值的過程，開始生效（也就是即使聲明為public，賦值所在的過程，不允許，變量的值還是沒被改變，可能還是""）
- 比如public a1 在模塊開始聲明時(shí)其實(shí)已經(jīng)創(chuàng)建了，但沒賦值，還是為空
- 生存周期的 end? :? ?賦值的過程，已經(jīng)結(jié)束，回收變量，消滅了。(但是聲明public private的變量，在過程結(jié)束后，并不回收，而是整個(gè)模塊（其實(shí)是整個(gè)workbook關(guān)閉了）關(guān)閉才會(huì)回收)
- if 常量在模塊開頭定義和賦值，生存周期就是整個(gè)模塊加載期間。
- if 常量定義在過程/函數(shù)里，就是過程/函數(shù) 生命期內(nèi)。
- VBA里一般變量（非靜態(tài)static變量）都在過程內(nèi)，賦值，生命期也是，離開這個(gè)過程，除非已經(jīng)調(diào)用到內(nèi)存，否則過程外是不生效的，因?yàn)橐呀?jīng)回收消滅了。
- 靜態(tài)變量與動(dòng)態(tài)變量 動(dòng)態(tài)變量是指被過程調(diào)用時(shí)均重新初始化的變量，而靜態(tài)變量在初始化后，下一次調(diào)用時(shí)仍保留上次的值的變量。
聲明變量作用域會(huì)影響變量的生命周期的關(guān)系
- 模塊級(jí)的變量，只要不關(guān)表（模塊一直在加載）就一直在生效，不會(huì)被消滅！。比如public? private dim 定義在模塊最開始的地方的( dim定義在過程內(nèi)的不算模塊級(jí)變量)
- 過程級(jí)變量，過程運(yùn)行結(jié)束馬上消滅，變量每次重置計(jì)算，特殊的static記住之前的
下面是網(wǎng)上查的資料
這個(gè) ?https://blog.csdn.net/qq_25582033/article/details/117427865
比方說你在一個(gè)xls文件中有兩個(gè)工程（應(yīng)該1個(gè)EXCEL表都只有1個(gè)工程吧），那么在某個(gè)工程中的模塊如果不寫這個(gè)語(yǔ)句，那么兩個(gè)工程都可以用這個(gè)模塊的內(nèi)容。如果寫上Option Private Module，那么另外那個(gè)工程就不能使用這個(gè)模塊的內(nèi)容。
?? ? 下面表格里有幾個(gè)地方是錯(cuò)的,private聲明的變量，因?yàn)楸仨氃谀K頂部（只要是聲明在模塊頂部的，即使是 dim 或 public private都一樣，因?yàn)槎际悄K級(jí)變量了），所以一旦過程內(nèi)運(yùn)行賦值后，其聲明周期不是過程有效期內(nèi)，而是模塊/整個(gè)EXCEL的 workbook 文件有效期內(nèi)都在生效，而并沒有被釋放消滅。
? ? ? 下面的代碼可以證明
Private Sub tf2()Debug.Print "x= " & X Debug.Print "y= " & y Debug.Print "z= " & z Debug.Print "z1= " & z1End Sub'模塊級(jí)的，只要不關(guān)表就一直在 '過程級(jí)馬上沒，一般變量每次重置計(jì)算， static記住之前的 Private Sub tf3()X = 1y = 111z = 222z1 = 333End Sub0.3?即使寫了參數(shù)調(diào)用? 和 聲明作用域，也得先運(yùn)行那個(gè)程序
因?yàn)榧词故且粋€(gè)public變量，作用域是全局，但是沒有被其他程序賦值改變前，值為空
- VBA 并不會(huì)，自動(dòng)運(yùn)行這個(gè)變量的相關(guān)的其他 block,
- VBA 和其他代碼一樣，都是順序執(zhí)行的
- 即使聲明了某模塊級(jí)變量，但是如果還未運(yùn)行賦值過程給這個(gè) 模塊級(jí)變量，那么這個(gè) 模塊級(jí)變量仍然還是 "" none null nothing 等等，運(yùn)行了賦值過程后，雖然賦值過程本身消滅了，但是這個(gè)模塊級(jí)變量的值會(huì)一直保留，且可以被修改到，這個(gè)模塊結(jié)束（被關(guān)閉）之前。
0.4 特殊的靜態(tài)變量?Static （很適合用來(lái)計(jì)數(shù)--因?yàn)槟K內(nèi)不清除）
- static 變量 特殊性：生命周期效果類模塊級(jí)變量，但是作用域還是過程級(jí)的變量。這么特殊，可能時(shí)比public等更安全點(diǎn)
- VB允許你通過改變聲明方式延長(zhǎng)當(dāng)?shù)刈兞康拇婊钇?#xff0c;這種就是 static 靜態(tài)變量
- 很特殊，首先是變量，不是常量? （可改變）
- 而且仍然是過程級(jí)，外部程序無(wú)法訪問
- 但是可以在模塊結(jié)束之前，一直都存在， 生命周期效果類 模塊級(jí)變量，但是作用域還是過程及的變量。
1第1部分，模塊內(nèi)和模塊之間的 直接使用和調(diào)用
1.1 常量的 直接使用和調(diào)用
- 常量的直接使用，非傳遞的話，想直接使用只能靠聲明
- 常量一般都是聲明了直接使用吧，本身不變，沒有什么調(diào)用的必要了吧？得查查后以后看
1.2? 常量的定義，賦值和生命周期
- 常量的聲明和定義 （聲明和定義一般是一塊兒，但賦值一般是在計(jì)算時(shí)才賦值）
- 常量可以聲明，聲明在模塊開始
- 常量的賦值
- 賦值在哪兒，決定了常量的生命周期
- 如果常量賦值在模塊開始，整個(gè)模塊內(nèi)都生效，在本模塊內(nèi)常量不會(huì)被釋放（變量是不允許在 過程外賦值的！）
- 賦值在過程內(nèi)，只能在過程內(nèi)生命周期內(nèi)有效，過程結(jié)束就釋放了
1.2.1??直接使用常量
- 直接使用常量，靠常量本身的聲明的使用域的范圍
- private 不能跨模塊，這個(gè)級(jí)別聲明，只能在本模塊內(nèi)的，不同過程/函數(shù)之間用
- public可跨模塊，本模塊內(nèi)所有，其他模塊的都能直接使用
- 本例中，因?yàn)槿〔坏狡渌K的private內(nèi)容，a1會(huì)被識(shí)別為本模塊的 過程級(jí)變量名，而且因?yàn)闆]定義沒賦值，就為空
1.3 常量的調(diào)用
常量一般都是聲明了直接使用吧，本身不變，沒有什么調(diào)用的必要了吧？
2 變量的使用 和調(diào)用
2.1 代碼的封裝，無(wú)法訪問 封裝內(nèi)部的變量，只能整體調(diào)用
- 也就是外部代碼無(wú)法訪問封裝部分內(nèi)部的內(nèi)容，但是可以訪問其外部整體調(diào)用
- 那些東西是封裝的：過程/函數(shù)等完整的block，而不是那種順序流的
- 過程/函數(shù)封裝的內(nèi)部到底有啥：變量，一些處理邏輯表達(dá)式
- 不能直接調(diào)用其他過程內(nèi)的變量，而只能根據(jù)作用域，調(diào)用這些過程，并且只能執(zhí)行這些過程這個(gè)動(dòng)作，并不能引用 那些過程的結(jié)果"
2.2 整體調(diào)用方式
- 怎么叫 整體調(diào)用，就是調(diào)用，過程名，call? t1() 這種 整體調(diào)用。
- 特殊的
- 但是函數(shù)特殊，有返回值的函數(shù)可以當(dāng)變量調(diào)用，把? ?特殊變量 = 函數(shù)名（代表函數(shù)）
- 但本質(zhì)還是 調(diào)用函數(shù)，只是函數(shù)返回值是這樣
function t2
t2=XXXX
end function
- t2= XXXX? ?相當(dāng)于return ,只有函數(shù)function 可以這樣返回，sub 過程不能這樣return
2.3 調(diào)用過程，也需要看 過程本身的作用域，比如private sub? 無(wú)法被跨過程調(diào)用
- sub / function 因?yàn)楸旧砭痛嬖谟谀K級(jí)，不存在在過程中的可能，所以默認(rèn)是全局的 public
- (默認(rèn) public ) sub?
- 可以主動(dòng)聲明為 private sub
- Option Private Module ，寫在模塊開頭，會(huì)設(shè)置下面的所有的 過程/函數(shù)都是private的
2.4? 過程/函數(shù)的 作用域和 變量本身作用域 完全無(wú)關(guān)！ 獨(dú)立的
3? 函數(shù)和變量的調(diào)用
- 函數(shù)包括帶返回值，和不帶返回值的情況
- 函數(shù)如果不帶返回值時(shí)，類 sub，基本和sub一樣的處理
- 但是function 帶返回值，的情況是不同的
3.1 不帶返回值的function 被調(diào)用參數(shù)時(shí)
- 直接無(wú)法訪問，其他代碼內(nèi)部的變量，無(wú)論時(shí)本模塊，還是其他模塊的
- 因?yàn)樵L問其他變量的代碼，本身是在 過程/函數(shù)內(nèi)，所以，在本過程內(nèi)，沒有這些變量。就會(huì)認(rèn)為是未定義的空變量
- 如果內(nèi)存里已經(jīng)有 其他過程內(nèi)的變量，聲明為 非過程級(jí)，比如? 整個(gè)模塊開始處定義的?public private? dim，而且已經(jīng)運(yùn)行過其對(duì)應(yīng)賦值過程，內(nèi)存里變量已經(jīng)生成，且因?yàn)?聲明的作用域一直還處于生效期，則可以訪問到其值。
- 特殊情況，如果不是在整個(gè)模塊開始處定義的?public private? dim，比如下面例子的 public d3 只是在過程前聲明，而不是在整個(gè)模塊開始處聲明，則聲明無(wú)意義。
- 如果 訪問作為整體的 過程，則要i看過程/ 函數(shù)本身是否聲明為 public private. 一般來(lái)說，默認(rèn)過程/函數(shù) 默認(rèn)都是 public ,也就是可以各個(gè)模塊都訪問。
- 但是可以強(qiáng)制聲明為 private 只讓本模塊內(nèi)的其他程序，call 調(diào)用他
- 但是至少最小的調(diào)用范圍就是private了
?
3.2 如果函數(shù)帶返回值了，是一種特殊處理， 變量名= 函數(shù)名= 函數(shù)返回值return
- 核心就是特殊處理?：變量名= 函數(shù)名= 函數(shù)返回值return
sub內(nèi)的代碼，聲明周期也是過程級(jí)，應(yīng)該不影響其他吧
- Application.DisplayAlerts = False ?
- 這個(gè)聲明的生命周期也應(yīng)該在sub內(nèi)，有啥必要非在sub結(jié)尾前關(guān)閉掉？多此一舉把
?
2.2?
'----------------此處是模塊5，下面是模塊6的內(nèi)容------------------'1常量 Private Const a1 = 5 Public Const a2 = 5 Public b5'2變量 'VBA 變量的聲明可以在 過程/函數(shù)的內(nèi)/外，但是賦值只能在過程/函數(shù)的 內(nèi) 'bbb = 555 '報(bào)錯(cuò)，無(wú)效的外部過程'3過程和變量,調(diào)用過程只能用call Private Sub t1()b1 = 61 ' t1 = 61 '報(bào)錯(cuò)，缺少函數(shù)/或變量，相當(dāng)于return ,只有函數(shù)可以這樣返回，sub 過程不能這樣returnDebug.Print "內(nèi)部b1= " & b1 End SubPublic Sub t2()b2 = 62 ' t2 = 62 '相當(dāng)于return ,只有函數(shù)可以這樣返回，sub 過程不能這樣returnDebug.Print "內(nèi)部b2= " & b2 End SubSub t3()b9 = 69 ' t3 = 63 '相當(dāng)于return ,只有函數(shù)可以這樣返回，sub 過程不能這樣returnDebug.Print "內(nèi)部b9= " & b9 End Sub '----------------此處是模塊6，下面是模塊6的內(nèi)容------------------Private Const a3 = 777 Private Const a4 = 778Private b7 Public b8Sub test0001()Debug.Print "調(diào)用常量" & "private 不能跨模塊，public可跨模塊,取不到其他模塊的private內(nèi)容，a1只能識(shí)別為本模塊的 過程級(jí)變量名" Debug.Print "其他模塊的 a1=" & a1 Debug.Print "其他模塊的 a2=" & a2 Debug.Print "a3=" & a3 Debug.Print "a4=" & a4 Debug.PrintEnd SubPublic Sub test01()b7 = 111Debug.Print "內(nèi)部b7= " & b7 End SubPrivate Sub test02()b8 = 222Debug.Print "內(nèi)部b8= " & b8 End SubSub test0002()Debug.Print "直接調(diào)用其他函數(shù)過程里的變量是不行的！封閉性，程/函數(shù) 內(nèi)部的內(nèi)容都是封裝的，外部不能訪問，只能整體調(diào)用" Debug.Print "b1=" & b1 Debug.Print "b2=" & b2 Debug.Print "b7=" & b7 Debug.Print "b8=" & b8 Debug.Print "b9=" & b9 End SubSub test0003() Debug.Print "調(diào)用過程/函數(shù)，也要看 過程/函數(shù)本身的 作用域聲明，這個(gè)和變量的作用域完全獨(dú)立" Debug.Print "一般默認(rèn)過程/函數(shù)，都是模塊級(jí)的，public 公有的" Debug.Print "不能直接調(diào)用其他過程內(nèi)的變量，而只能根據(jù)作用域，調(diào)用這些過程，并且只能執(zhí)行這些過程這個(gè)動(dòng)作，并不能引用 那些過程的結(jié)果"'Call t1 '非public 過程，無(wú)法被這么調(diào)用 Call t2 Call t3Call test01 Call test02End Sub
'沒法調(diào)用過程了里得變量的！只能調(diào)用過程。
' 函數(shù)特殊，有返回值的函數(shù)可以當(dāng)變量調(diào)用，但本質(zhì)還是 調(diào)用函數(shù)，只是函數(shù)返回值是這樣
1.2.1 變量的直接使用
1.2.2 變量的調(diào)用
? 第2是調(diào)用
而傳遞，可以繞開聲明，也可以跨過程
形式和實(shí)際
?
傳遞方法
位置參數(shù)
名稱參數(shù)
混合的，名稱的在后，好像是
---------
'在模塊里試下，在form里試下，在workbook和sheet里試下
'然后再試下，能不能跨這幾個(gè)
'VBA的一個(gè)BUG，修改函數(shù)，變量的聲明范圍后，比如去掉加上public 有時(shí)候，需要關(guān)掉重開，運(yùn)行代碼才會(huì)正常，還按老的，
'VBA，甚至跨模塊調(diào)用時(shí)，賦值也有這種滯后的問題
'調(diào)用，常量，變量/函數(shù)
'call 過程/函數(shù)
-------
然后 form內(nèi)呢
然后三者互相呢
'在模塊里試下，在form里試下，在workbook和sheet里試下
'然后再試下，能不能跨這幾個(gè)
'VBA的一個(gè)BUG，修改函數(shù)，變量的聲明范圍后，比如去掉加上public 有時(shí)候，需要關(guān)掉重開，運(yùn)行代碼才會(huì)正常，還按老的，
'VBA，甚至跨模塊調(diào)用時(shí)，賦值也有這種滯后的問題
'調(diào)用，常量，變量/函數(shù)
'call 過程/函數(shù)
1 先在模塊里做了實(shí)驗(yàn)
'常量 Private Const a1 = 5 Public Const a2 = 5 Public b5'過程和變量Private Sub t1()b1 = 6t1 = 6End SubPublic Sub t2()b2 = 6 ' t2 = 6 '相當(dāng)于return ,只有函數(shù)可以這樣返回，sub 過程不能這樣returnEnd Sub'函數(shù)和變量 Private Function f1()b3 = 55c1 = 6f1 = 6End FunctionPublic Function f2() '過程/函數(shù) 不是默認(rèn)public嗎？b4 = 66c2 = 6f2 = 6 '相當(dāng)于returnb5 = 777 'Public b6 'vba,聲明跨過程/函數(shù)級(jí)的參數(shù)，必須在 過程/函數(shù) 外部聲明，一般是最開始（理論上使用前聲明就行，但放最前面最安全） ' b6 = 777End Function'函數(shù)，無(wú)返回值 Private Function e1()d1 = 6End FunctionPublic Function e2()d2 = 6End Function '在模塊里試下，在form里試下，在workbook和sheet里試下 '然后再試下，能不能跨這幾個(gè)'VBA的一個(gè)BUG，修改函數(shù)，變量的聲明范圍后，比如去掉加上public 有時(shí)候，需要關(guān)掉重開，運(yùn)行代碼才會(huì)正常，還按老的， 'VBA，甚至跨模塊調(diào)用時(shí)，賦值也有這種滯后的問題'調(diào)用，常量，變量/函數(shù) 'call 過程/函數(shù)Private Const a3 = 777 Private Const a4 = 778Private b7 Public b8Public Sub test01()b7 = 111 End SubPublic Function test02()b8 = 222End FunctionSub test001()Debug.Print "調(diào)用常量" & "private 不跨模塊，public可跨模塊,取不到其他模塊的private內(nèi)容，a1只能識(shí)別為本模塊的 過程級(jí)變量名" Debug.Print "a1=" & a1 Debug.Print "a2=" & a2 Debug.Print "a3=" & a3 Debug.Print "a4=" & a4 Debug.PrintDebug.Print "調(diào)用其他函數(shù)過程里的變量" & "都不行，過程/函數(shù) 內(nèi)部的內(nèi)容（）都是封裝的，除非return拿到，否則只能靠聲明變量拿到" Debug.Print "b1=" & b1 Debug.Print "b2=" & b2 Debug.Print "b3=" & b3 Debug.Print "b4=" & b4 Debug.Print "b5=" & b5 '參數(shù)聲明public還不夠，還需要函數(shù)/過程也 public ? Debug.Print "b6=" & b6 Debug.Print "b7=" & b7 Debug.Print "b8=" & b8 Debug.PrintDebug.Print "t1=" & t1'Debug.Print "t2=" & t2 '過程名不能當(dāng) 變量/函數(shù) 這樣直接使用，只能call 調(diào)用？'這樣是變量，不是函數(shù)，但是無(wú)參數(shù)的不是默認(rèn)自動(dòng)去掉括號(hào)嗎？ 'Debug.Print "t2=" & t2()'Call t1 Call t2Debug.Print "f1=" & f1 Debug.Print "f2=" & f2'Call f1 Call f2Debug.Print "e1=" & e1 Debug.Print "e2=" & e2'Call e1 Call e2End Sub'傳遞參數(shù)的幾個(gè)思路'存下來(lái)傳遞，存儲(chǔ)，文件中，中轉(zhuǎn)'方法，按位置，按名稱'中轉(zhuǎn)總結(jié)
以上是生活随笔為你收集整理的VBA的form相关实验2，form里的变量传递和模块里有什么不同？（---未完成-----）的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 红旗linux镜像文件iso,红旗Lin
- 下一篇： CodeForces Gym 10098