VBA在限定Excel工作表用戶(hù)按鈕中的應(yīng)用(1)

1、VBA正在限制Excel事情表用戶(hù)按鈕中的利用(1)摘要經(jīng)由過(guò)程研討VBE及其基層?xùn)|西的訪(fǎng)謁要收，本文詳細(xì)天探求了按鈕歷程的代碼獨(dú)霸妙技，從而真現(xiàn)了Exel測(cè)試硬件中事情表用戶(hù)按鈕的嘗試限制。閉鍵詞按鈕歷程VBE基層?xùn)|西代碼限制1引止做為一個(gè)良好的表格處置懲獎(jiǎng)硬件戰(zhàn)系統(tǒng)開(kāi)收仄臺(tái)，Exel具有很多無(wú)可互換的下風(fēng)?；贓xel狀況開(kāi)收的辦理疑息系統(tǒng)，具有獨(dú)霸曲沒(méi)有俗觀沒(méi)有俗觀性強(qiáng)、開(kāi)收周期短的特性，果而構(gòu)成了生習(xí)Exel獨(dú)霸的寬年夜用戶(hù)。為了包管開(kāi)收系統(tǒng)的一般渠講暢通及著做者長(zhǎng)處，必需庇護(hù)系統(tǒng)的利用權(quán)限，本文經(jīng)由過(guò)程VBA的開(kāi)收利用，提出了一種Exel事情表用戶(hù)按鈕的限制要收，以此去完美其系統(tǒng)測(cè)試

2、硬件的成效。2限制按鈕嘗試及其對(duì)應(yīng)歷程代碼限制事情表用戶(hù)按鈕的嘗試包羅兩個(gè)圓里的含義，即限制其按鈕東西的暗示及其指定宏歷程代碼的有用性，二者連開(kāi)正在一同減以真現(xiàn)，才調(diào)起到既隱現(xiàn)硬件成效，又真正限制其過(guò)分嘗試獨(dú)霸的做用，從而暗示對(duì)用戶(hù)硬件的測(cè)試目的。2.1查覓按鈕嘗試歷程代碼限制按鈕東西及真正在止代碼，主要的題目成績(jī)即是獲得其對(duì)應(yīng)的嘗試代碼歷程名，并正在當(dāng)前工程的部分代碼模塊中查覓其代碼地位。理論表白，按鈕東西與圖形圖象戰(zhàn)藝術(shù)字體一樣，皆屬于Shape外形東西，它們皆有其對(duì)應(yīng)的nAtin屬性，代表其被指定的宏歷程代碼稱(chēng)號(hào)。需要指出的是窗體范例按鈕對(duì)應(yīng)的宏歷程代碼一樣仄常位于工程的尺度模塊中，而A

3、tiveX按鈕歷程代碼那么位于事情表代碼模塊中，且其對(duì)應(yīng)的粗確嘗試歷程名為其按鈕名與響應(yīng)的變亂名的毗鄰串。為了查覓某個(gè)按鈕對(duì)應(yīng)的歷程代碼，需要對(duì)VBEVisualBasi編輯器的基層?xùn)|西VBpnents停頓搜刮。VBpnents東西代表VBE編輯器下的各個(gè)代碼模塊VBpnent。經(jīng)由過(guò)程對(duì)某一VBpnent的下一層?xùn)|西dedule的閉連屬性的訪(fǎng)謁，可以獲得諸如模塊代碼總止數(shù)等疑息，也可以經(jīng)由過(guò)程其Find要收查覓指定內(nèi)容的代碼止。上里即為查覓按鈕歷程、處置懲獎(jiǎng)按鈕歷程部分事情表中的部分按鈕東西東西所對(duì)應(yīng)的歷程名yPrnae=sh.nAtin塞責(zé)AtiveX按鈕,那么只獲得其nlik變亂歷程名I

4、fsh.Type=sLEntrlbjetThenyPrnae=sh.Nae_likEndIfStartLine、Startl為設(shè)置查覓按鈕歷程名的開(kāi)端止、列序號(hào)，并正在代碼查覓成功時(shí)返回所正在覓按鈕歷程表白止，查覓粗確的歷程覓到了歷程劃定埋伏歷程代碼Then代碼1,正在按鈕歷程代碼的尾部參減歷程挪用代碼代碼2,調(diào)整本代碼止當(dāng)前的曾經(jīng)插進(jìn)的代碼止挪用參數(shù)EndifEndIfLabel4:NextNextNexti歷程挪用代碼經(jīng)過(guò)查覓按鈕的嘗試歷程代碼的粗確地位，便可以年夜要限制真正在止的有用性。本文的處置懲獎(jiǎng)要收是，正在按鈕的對(duì)應(yīng)歷程代碼的尾部參減兩止代碼，如：埋伏歷程代碼all模塊5.埋伏歷程

5、代碼(256,73,Sheet2,2,3)可以看出第一止代碼是一表白止，第兩止代碼是一歷程挪用。恰是那一歷程挪用，正在按鈕面擊時(shí)起尾被嘗試，從而真現(xiàn)了對(duì)按鈕嘗試的粗確計(jì)數(shù)，并正在按鈕嘗試抵達(dá)劃定次數(shù)時(shí)，制止真正在止。上里的代碼經(jīng)由過(guò)程對(duì)覓到的按鈕歷程所正在代碼模塊VBpnent的基層?xùn)|西dedule采納InsertLines要收，起尾正在按鈕對(duì)應(yīng)歷程的尾部插進(jìn)兩止久時(shí)期碼，然后經(jīng)由過(guò)程該東西的ReplaeLine要收，將它們別離互換為粗確的上述兩止代碼。多么先插進(jìn)代碼止、后互換代碼止的目的是，正在插進(jìn)代碼止后便于獲得粗確的歷程起初代碼止號(hào)，從而為上里的互換代碼止語(yǔ)句籌辦粗確的參數(shù)。上里即是上述

6、查覓按鈕歷程代碼中“代碼1地位處的算法代碼，其成效是正在查覓到的按鈕歷程代碼的尾部參減獲得歷程所處的代碼模塊名deNae=h.Nae插進(jìn)兩止久時(shí)期獲得模塊代碼總止數(shù)、歷程起初止號(hào)、歷程歷程歷程互換為兩止粗確埋伏歷程埋伏歷程代碼(PrStartline,PruntLines,deNae,i,sh.ZrderPsitin)此外，當(dāng)按鈕被面擊嘗試并進(jìn)進(jìn)到插進(jìn)的挪用歷程內(nèi)部時(shí)，借需要肯定哪一個(gè)按鈕被嘗試、嘗試的次數(shù)狀況、和嘗試按鈕的對(duì)應(yīng)歷程代碼的止范疇等狀況，以便粗確天嘗試對(duì)嘗試按鈕及其歷程代碼的獨(dú)霸，所以正在上述為按鈕歷程互換為粗確的歷程挪用代碼的同時(shí)，需要減進(jìn)粗確的以下五個(gè)歷程挪用參數(shù)：1按鈕的對(duì)

7、應(yīng)歷程頭部所正在代碼模塊中的代碼起初止號(hào)；2按鈕歷程的對(duì)應(yīng)代碼止數(shù)；3按鈕歷程所處的代碼模塊名；4按鈕所正在的事情表序號(hào)；5按鈕正在所正在事情表上的Shape外形東西靠攏的序號(hào)。從上里的插進(jìn)代碼中可以看出獲得那些參數(shù)的要收。針對(duì)上例的歷程挪用語(yǔ)句：all模塊5.埋伏歷程代碼(256,73,Sheet2,2,3)，其參數(shù)含義是：當(dāng)?shù)?個(gè)事情表中的第3個(gè)Shape東西按鈕嘗試次數(shù)抵達(dá)劃定次數(shù)時(shí)，那么將稱(chēng)號(hào)為“Sheet2的代碼模塊中從256止起的73止代碼設(shè)為無(wú)效，并將該按鈕停頓埋伏。值得留意的是，因?yàn)槟承┌粹o的對(duì)應(yīng)歷程代碼參減了上述的歷程挪用代碼，一定招致與的地方于統(tǒng)一代碼模塊的其他按鈕歷程、并

8、曾經(jīng)減進(jìn)的上述歷程挪用代碼中的參數(shù)值呈現(xiàn)短處，果而需要對(duì)其中的歷程代碼起初止參數(shù)值做建正。上里的代碼便是起那個(gè)做用，此代碼須插進(jìn)于前述查覓按鈕歷程代碼的“代碼2地位。調(diào)整代碼查覓埋伏歷程代碼,Line1,l1,Endline,1,False,False)ThenExitDEndIf假設(shè)查覓的代碼沒(méi)有切開(kāi)插進(jìn)的代碼格局，那么繼絕查覓Ifl11ThenGTLabel3EndIf調(diào)整東西及真正在止歷程代碼限制按鈕東西自己，之前我們可以為之增減一個(gè)名為“按鈕運(yùn)轉(zhuǎn)次數(shù)記載表的事情表，以便當(dāng)用其第i止j列的單位格去記載當(dāng)前工程第i個(gè)事情表上第j個(gè)外形東西的運(yùn)轉(zhuǎn)次數(shù)。此外，為了真現(xiàn)對(duì)按鈕嘗試的粗確計(jì)數(shù)，也需

9、要正在工程翻開(kāi)時(shí)清掃其內(nèi)容，為了防范事情表數(shù)據(jù)沒(méi)有測(cè)建正，最好將其埋伏。那些均可以經(jīng)由過(guò)程創(chuàng)立主動(dòng)宏去減以真現(xiàn)。上里的代碼即是按鈕嘗試時(shí)起尾被挪用的歷程，其做用為對(duì)按鈕嘗試停頓計(jì)數(shù)，正在按鈕嘗試抵達(dá)劃定次數(shù)那里久定為5次時(shí)，埋伏該按鈕，并將真正在止歷程代碼設(shè)為無(wú)效。那里將代碼止設(shè)為無(wú)效的要收是將其改成表白，要收仍舊是經(jīng)由過(guò)程訪(fǎng)謁指定的VBpnent下dedule東西的Lines屬性，并采納ReplaeLine要收去真現(xiàn)。改成的表白止的格局為：埋伏止*:本代碼止，其中*號(hào)代表其正在本代碼模塊中的止號(hào)。上里的代碼需要與前述的查覓按鈕歷程代碼位于統(tǒng)一代碼模塊。PubliSub埋伏歷程代碼(ByVal

10、BeginlineAsInteger,ByValLinesuntAsInteger,ByValdeNaeAsString,ByValSheetIndexAsInteger,ByValButtnIndexAsLng)Sheets(按鈕運(yùn)轉(zhuǎn)次數(shù)記載表).ells(SheetIndex,ButtnIndex).Value=Sheets(按鈕運(yùn)轉(zhuǎn)次數(shù)記載表).ells(SheetIndex,ButtnIndex).Value+1IfSheets(按鈕運(yùn)轉(zhuǎn)次數(shù)記載劃定范疇的代碼改成表白埋伏埋伏嘗試的按鈕Ativerkbk.Sheets(SheetIndex).Shapes(ButtnIndex).Vis

11、ible=FalseLabel5:NextEndIfEndSub3支撐東西與硬件光復(fù)供應(yīng)對(duì)VBE及其基層?xùn)|西的訪(fǎng)謁，需要?jiǎng)?chuàng)立對(duì)其支撐東西的援用，要收是進(jìn)進(jìn)VBE編輯狀況，單擊“東西菜單的“援用命令，然后參減對(duì)“irsftVisualBasifrAppliatinExtensibility5.3的援用。此外，硬件運(yùn)轉(zhuǎn)沒(méi)有該該影響其本去里貌，所以正在其被翻開(kāi)時(shí)需要將其自己供應(yīng)的界里光復(fù)初態(tài)，正在工程保存時(shí)將曾經(jīng)變成表白止的代碼恢再起狀，上里經(jīng)由過(guò)程編寫(xiě)當(dāng)前工程的主動(dòng)宏AUT_PEN戰(zhàn)“Thisrkbk模塊的rkbk_BefreSave變亂歷程去別離真現(xiàn)那兩個(gè)硬件光復(fù)成效：PubliSubAUT_PEN()查覓輔佐事情記載表ThenFundSheet=TrueEndIfNexti增減或清掃輔佐事情記載表AtiveSheet.Visible=FalseElseSheets(按鈕運(yùn)轉(zhuǎn)次數(shù)記載表).ells.learSheets(按鈕運(yùn)轉(zhuǎn)次數(shù)記載表).Visible=FalseEndIf將事情表中按鈕光復(fù)為暗示EndSubPrivateSubrkbk_BefreSave(ByValSaveAsUIAsBlean,anelAsB