Kaip deklaruoti VBA konstantas „Excel“

Turinys:

Anonim

Pi vertė yra 3,14, Žemės traukos jėga - 9,8 m/s2, jūs domitės VBA ir tt Visa tai yra konstantos ir jos nesikeičia.

VBA galite apibrėžti kintamuosius, kurių reikšmės programoje pakeisti negalima. VBA programuotojas pats nustato šias pastovias vertes programoje, kad jas naudotų vėl ir vėl.

Kaip apibrėžti pastovią vertę VBA?

Mes naudojame raktinį žodį Konstpaskelbti konstantą VBA.

Pastovaus kintamojo deklaravimo sintaksė VBA yra tokia:

[] Konst kaip = 

[]: Apimties specifikatorius yra neprivalomas. Jei norite, nurodote konstantos apimtį (viešą ar privačią), kitaip nedeklaruokite. Pagal numatytuosius nustatymus konstantos apimtis yra privati. Apie taikymo srities specifikatorius galite perskaityti čia.

Pastaba: mes niekada nenaudojame „Dim“ raktinio žodžio konstatuoti VBA.

: Tai yra pastovaus kintamojo pavadinimas.

: Konstantos tipas. Pavyzdžiui, sveikasis skaičius, eilutė, data ir kt.

: Pastovaus kintamojo vertė.

Paprastas kintamojo pavyzdys:

Konst pi kaip dvigubas = 3,14

Čia mes deklaravome pastovią pi reikšmę kintamajame, pavadintamepi. Dabar galime tai panaudoti pimūsų programoje. Vertė visada bus 3,14. Jei bandysite pakeisti pastovaus kintamojo vertę, „Excel VBA“ pasirodys klaidos pranešimas.

VBA pastovių kintamųjų pavyzdžiai

Išstudijuokite žemiau esantį kodą:

Const pi kaip dvigubas = 3,14 Const rad kaip dvigubas = 6371  Žemės () sArea = 4 * pi * Sqr (rad) derinimas. Spausdinti sArea End Sub Sub () rad = 3389,5 sArea = 4 * pi * Sqr (rad) Derinimas. Spausdinti 

Čia mes apibrėžėme dvi konstantas, pi ir rad. Pi vertė yra 3,14, o rad yra 6371, tai yra žemės spindulys.

Dabar, kai paleidžiame pirmąjį Žemės pogrupį, jis puikiai veikia ir atspausdina Žemės paviršiaus plotą.

Kitame Marso pakraštyje mes iš naujo apibrėžėme pastovų radą, nes Marso spindulys yra kitoks. Kai vykdome šią programą, ji parodo klaidą, sakydama:Neleidžiama priskirti pastoviosios".

Kaip iš naujo inicijuoti VBA konstantą

Kaip matėte aukščiau pateiktame pavyzdyje, negalime konstantai priskirti naujų verčių. Taip, tu negali.

Bet jei vis tiek turite naudoti tą patį pavadinimą kaip kitą fiksuotą vertę, tiesiog naudokite Konstraktinį žodį prieš užduotį.

Žemiau pateiktas kodas veiks puikiai.

Const pi As Double = 3,14 Const rad As Double = 6371 Sub Earth () sArea = 4 * pi * Sqr (rad) Debug. Print sArea End Sub Sub Mars () Const rad = 3389,5 sArea = 4 * pi * Sqr (rad) Derinti. Spausdinti srities pabaigos pab 

Aukščiau pateikta paprogramė puikiai veiks be klaidų. Bet aš nerekomenduoju šio požiūrio. Geriausias būdas yra nustatyti viešąsias ir privačias konstantas ir jas apibrėžti atskirai. Ir tai atveda mus į kitą segmentą.

Viešosios ir privačiosios konstantos VBA

Kaip sužinojome aukščiau pateiktuose pavyzdžiuose, kai kurios konstantos gali būti universalios, o kai kurios skirtingiems objektams gali skirtis. Pi reikšmė yra pastovi visai visatai, tačiau planetų skaičius nuo Saulės sistemos iki Saulės sistemos ir planetų spindulys skiriasi priklausomai nuo planetos.

Kadangi Žemės spindulys yra pastovus jai, o ne visatai. Panašiai programose kai kurios konstantos bus privačios sub ir modulių, o kai kurios bus viešos viso VBA projekto konstantos. Jūsų darbas yra juos identifikuoti ir deklaruoti kitaip.

Paimkime kitą pavyzdį:

Viešoji Const pi As Dvigubas = 3,14 'Tai galima pasiekti iš bet kurio projekto privataus konstravimo plano modulio Kaip sveikasis skaičius = 8', šis modulis yra privatus Sub Earth () Const rad As Double = 6371 'Privatus šiai paprogramei. Negalima pasiekti už sArea = 4 * pi * Sqr (rad) derinimo. Spausdinti sArea End Sub Mars () Const rad As Double = 3389,5 'Privatus šiai paprogramei. Negalima pasiekti už sArea = 4 * pi * Sqr (rad) derinimo. Spausdinti sArea End Sub 

Tai paprasta kintamoji sritis, nurodanti. Čia galite išsamiai perskaityti apie kintamos apimties nustatymą.

Taigi taip, vaikinai, taip deklaruojate ir naudojate konstantas „Excel VBA“. Bandžiau kūrybiškai paaiškinti. Tikiuosi, kad buvau pakankamai aiškinantis. Jei turite kokių nors abejonių, paklauskite žemiau esančiame komentarų skyriuje. Man bus malonu jus išgirsti ir atsakyti.

„Excel VBA“ kintamoji apimtis | mes turime kintamos prieigos specifikatorius, kurie apibrėžia, iš kur galima pasiekti apibrėžtą kintamąjį. „Excel VBA“ nėra išimtis. VBA taip pat turi apimties specifikacijas. Šiuos apimties specifikatorius galima naudoti norint nustatyti kintamojo matomumą/apimtį „Excel VBA“.

ByRef ir ByVal argumentai | Kai argumentas perduodamas kaip ByRef argumentas kitam poskyriui ar funkcijai, siunčiama tikrojo kintamojo nuoroda. Bet kokie kintamojo kopijos pakeitimai bus atspindėti pradiniame argumente.

Ištrinkite lapus be patvirtinimo raginimų naudodami „Microsoft Excel“ VBA | Kadangi naikinate lapus naudodami VBA, žinote, ką darote. Norite pasakyti „Excel“ nerodyti šio įspėjimo ir ištrinti prakeiktą lapą.

Pridėkite ir išsaugokite naują darbaknygę naudodami VBA „Microsoft Excel 2016“ | Šiame kode pirmiausia sukūrėme nuorodą į darbaknygės objektą. Ir tada mes jį inicijavome naudodami naują darbo knygos objektą. Šio metodo pranašumas yra tas, kad galite lengvai atlikti operacijas su šia nauja darbaknyge. Kaip išsaugoti, uždaryti, ištrinti ir pan

Rodyti pranešimą „Excel“ VBA būsenos juostoje „Excel“ būsenos juosta gali būti naudojama kaip kodo monitorius. Kai jūsų VBA kodas yra ilgas ir atliekate kelias užduotis naudodami VBA, dažnai išjungiate ekrano atnaujinimą, kad nematytumėte to ekrano mirgėjimo

Išjunkite įspėjamuosius pranešimus naudodami VBA programoje „Microsoft Excel 2016“ | Šis kodas ne tik išjungia VBA įspėjimus, bet ir padidina kodo laiko efektyvumą. Pažiūrėkime, kaip.

Populiarūs straipsniai:

50 „Excel“ nuorodų, skirtų produktyvumui padidinti | Greičiau atlikite savo užduotį. Šie 50 sparčiųjų klavišų leis dar greičiau dirbti naudojant „Excel“.

„VLOOKUP“ funkcija „Excel“ | Tai yra viena iš dažniausiai naudojamų ir populiariausių „Excel“ funkcijų, naudojama norint ieškoti vertės iš įvairių diapazonų ir lapų.

COUNTIF „Excel 2016“ | Naudodami šią nuostabią funkciją, suskaičiuokite reikšmes su sąlygomis. Norint suskaičiuoti konkrečią vertę, nereikia filtruoti duomenų. Skaitiklio funkcija yra būtina norint paruošti prietaisų skydelį.

Kaip naudoti „SUMIF“ funkciją „Excel“ | Tai dar viena esminė prietaisų skydelio funkcija. Tai padeda apibendrinti vertes konkrečiomis sąlygomis.