Mefuta e fapaneng le e tsitsitseng ho VBA

Ho VBA, joalo ka puong efe kapa efe ea mananeo, mefuta e fapaneng le li-constants li sebelisoa ho boloka boleng bofe kapa bofe. Joalokaha lebitso le bolela, mefuta-futa e ka fetoha, ha li-constants li boloka litekanyetso tse tsitsitseng.

Ka mohlala, kamehla Pi e boloka boleng ba 3,14159265… Nomoro "Pi" e ke ke ea fetoha nakong ea ts'ebetso ea lenaneo, empa ho ntse ho le bonolo ho boloka boleng bo joalo e le kamehla.

Ka nako e ts'oanang, re ka sebelisa phetoho sVAT_Rete ho boloka sekhahla sa VAT thepa e rekiloeng. Boleng bo feto-fetohang sVAT_Rete e ka fapana ho latela sehlahisoa se rekiloeng.

Mefuta ea data

Liphetoho tsohle le li-constants ke tsa mofuta o itseng oa data. Tafole e ka tlase e thathamisa mefuta ea data e sebelisoang ho VBA e nang le tlhaloso le mefuta e mengata ea boleng bo ka khonehang:

Ho hlakile hore, ka ho sebelisa tafole e kaholimo le ho khetha mofuta o nepahetseng oa data, o ka sebelisa memori ho feta moruo (mohlala, khetha mofuta oa data). E kholo ho e-na le hoo Long or E masoha ho e-na le hoo Double). Leha ho le joalo, ha u sebelisa mefuta e mengata ea data e kopanetsoeng, u lokela ho ba hlokolosi hore khoutu ea hau ha e leke ho lumellana le litekanyetso tse kholo ka ho fetisisa ho tsona.

Ho phatlalatsa mefuta e fapaneng le kamehla

Tsebiso ea Mofetoleli: Ha re bua ka mefuta e fapaneng ea VBA, ho bohlokoa ho bua ka ntlha e 'ngoe ea bohlokoa haholo. Haeba re phatlalatsa phapang empa re sa fane ka boleng leha e le bofe ho eona, joale e qalisoa ka boleng ba kamehla:

• likhoele tsa mongolo li qalisoa ka likhoele tse se nang letho;

• linomoro - boleng ba 0;

• mefuta e fapaneng boolean - Bohata;

• matsatsi - 30 December 1899.

Pele ho ka sebelisoa mofuta o fapaneng kapa o sa fetoheng, o tlameha ho phatlalatsoa. Ho etsa sena, eketsa mola o bonolo oa khoutu ho macro:

Dim Имя_Переменной As Тип_Данных

Moleng o ka holimo oa khoutu Fapaneng_lebitso ke lebitso la phetoho e tla sebelisoa khoutu, le Mofuta_wa_Data ke e 'ngoe ea mefuta ea data e tsoang tafoleng e fanoeng pejana sehloohong sena. Ka mohlala:

Fokotsa sVAT_Rate Joalo ka Dim e le 'Ngoe Ha e le Nala

Li-constant li phatlalatsoa ka mokhoa o ts'oanang, empa ha ho phatlalatsoa li-constants, boleng ba tsona bo tlameha ho bontšoa hang-hang. Ka mohlala, joalo ka:

Const iMaxCount = 5000 Const iMaxScore = 100

Ha ho hlokahale ho phatlalatsa mefuta e fapaneng ho Excel. Ka ho sa feleng, mefuta eohle e kentsoeng empa e sa phatlalatsoa ho Excel e tla ba le mofuta fapaneng 'me e tla khona ho amohela boleng ba linomoro le mongolo.

Kahoo, moqapi a ka sebelisa mofuta o mocha ka nako efe kapa efe (le haeba o so phatlalatsoe), mme Excel e tla e nka e le mofuta o fapaneng oa mofuta. fapaneng. Leha ho le joalo, ho na le mabaka a 'maloa a etsang hore sena se se ke sa etsoa:

1. Tšebeliso ea memori le lebelo la khomphutha. Haeba u sa phatlalatse phetoho e nang le pontšo ea mofuta oa data, joale ka ho sa feleng e tla behoa ho mofuta fapaneng. Mofuta ona oa data o sebelisa mohopolo o mongata ho feta mefuta e meng ea data. Li-byte tse 'maloa tse eketsehileng ka phapang e ka' na ea se ke ea utloahala e le ngata, empa ha e le hantle, mananeo a ka ba le mefuta e likete (haholo-holo ha e sebetsa ka lihlopha). Ka hona, memori e eketsehileng e sebelisoang ke mefuta e fapaneng joalo ka fapaneng, ha e bapisoa le mefuta e fapaneng ea mefuta E kholo or E masoha, e ka eketsa chelete e ngata. Ho feta moo, ts'ebetso e nang le mefuta e fapaneng ea mefuta fapaneng li etsoa butle haholo ho feta ka mefuta e fapaneng ea mefuta e meng, ka ho latellana, mefuta e likete e eketsehileng ea mofuta fapaneng e ka liehisa lipalo haholo.
2. Thibelo ea ho thaepa mabitsong a feto-fetohang. Haeba mefuta eohle e phatlalatsoa, ​​joale polelo ea VBA e ka sebelisoa - Khetho e Hlakileng (re tla bua ka eona hamorao) molemong oa ho khetholla mefuta eohle e sa phatlalatsoang. Sena se felisa ponahalo ea phoso lenaneong ka lebaka la lebitso le feto-fetohang le ngotsoeng ka phoso. Ka mohlala, ho sebelisa lebitso le feto-fetohang sVAT_Rete, o ka etsa typo mme, ho fana ka boleng ho feto-fetoha ena, ngola: "VATRate = 0,175". Ho lebeletsoe hore ho tloha joale ho ea pele, ho fetoha sVAT_Rete e lokela ho ba le boleng ba 0,175 - empa ha e le hantle ha e na eona. Haeba mokhoa oa phatlalatso e tlamang ea mefuta eohle e sebelisitsoeng e nolofalitsoe, motlatsi oa VBA o tla bonts'a phoso hanghang, kaha e ke ke ea fumana phetoho. VATRate har'a ba phatlalalitsoeng.
3. Ho totobatsa boleng bo sa lumellaneng le mofuta o boletsoeng oa phetoho. Haeba u phatlalatsa phetoho ea mofuta o itseng 'me u leka ho fana ka data ea mofuta o fapaneng ho eona, u tla fumana phoso, eo, haeba e sa lokisoe, e ka bakang hore lenaneo le senyehe. Ha u sheba ka lekhetlo la pele, sena se ka 'na sa bonahala e le lebaka le utloahalang la ho se phatlalatse mefuta-futa, empa ha e le hantle, ho feta pele ho e-na le hore e' ngoe ea mefuta e fapaneng e fumane boitsebiso bo fosahetseng boo e neng e lokela ho bo fumana - ho molemo haholo! Ho seng joalo, haeba lenaneo le ntse le tsoela pele ho sebetsa, liphello li ka 'na tsa se ke tsa nepahala ebile li sa lebelloa,' me ho tla ba thata haholo ho fumana sesosa sa liphoso. Hape hoa khonahala hore macro e tla etsoa "katleho". Ka lebaka leo, phoso e ke ke ea hlokomeloa 'me mosebetsi o tla tsoela pele ka data e fosahetseng!

Tabeng ena, ke ntho e lakatsehang ho lemoha mofuta o fosahetseng oa data le ho lokisa liphoso tse joalo ka khoutu kapele kamoo ho ka khonehang. Ka mabaka ana, ho kgothaletswa hore o phatlalatse mefuta yohle ha o ngola VBA macro.

Khetho e Hlakileng

Operator Khetho e Hlakileng e etsa hore mefuta eohle e tla sebelisoa ho khoutu ea VBA e phatlalatsoe, 'me e tšoaee mefuta eohle e sa tsejoeng e le liphoso nakong ea ho bokella (pele khoutu e qala). Ho sebelisa opereishene ena ha ho thata - ngola feela mola ona ka holimo ho faele ea VBA:

Option Explicit

Haeba u batla ho kenya kamehla Khetho e Hlakileng ho ea holimo ho mojulu o mong le o mong o mocha oa VBA o entsoeng, sena se ka etsoa ka bohona. Ho etsa sena, o hloka ho nolofalletsa khetho E Hloka Phatlalatso e Fetohang ho litlhophiso tsa mohlophisi oa VBA.

Sena se etsoa ka tsela e latelang:

• Ho tswa ho Visual Basic Editor menu, tobetsa lithulusi tsa > Options
• Moqoqong o hlahang, bula tab Editor
• Lekola lebokose E Hloka Phatlalatso e Fetohang Le ho hatisa OK

Ha e nolofalitsoe, khoele Khetho e Hlakileng e tla kenngoa ka bo eona qalong ea mojule o mong le o mong o mocha o entsoeng.

Sekhahla sa Mefuta e sa tšoaneng le ea kamehla

Mofuta o mong le o mong o phatlalalitsoeng kapa o sa fetoheng o na le sebaka sa oona se lekanyelitsoeng, ke hore, karolo e lekanyelitsoeng ea lenaneo leo ho feto-fetohang hona ho leng teng. Sebaka se itšetlehile ka hore na phatlalatso ea phetoho kapa kamehla e entsoe hokae. Nka, mohlala, ho feto-fetoha sVAT_Rete, e sebelisoang mosebetsing Kakaretso_Litšenyehelo. Tafole e latelang e bua ka likhetho tse peli bakeng sa scoping e fapaneng sVAT_Retee phatlalalitsoe ka maemo a mabeli a fapaneng mojulung:

Khetho e Hlakileng Dim sVAT_Rate Joalo ka Mosebetsi o le Mong Total_Cost() Joalo Habeli ... Qetella Mosebetsi

Khetho e Hlakileng Mosebetsi Total_Cost() Joalo ka Habeli Dim sVAT_Rate Joalo ka Mong ... Qetella Mosebetsi

Mohlala o bontšitsoeng ka holimo, phapang e phatlalatsoa boemong ba mojule ka lentsoe la sehlooho Qobello. Leha ho le joalo, ho ka 'na ha hlokahala hore mefuta e boletsoeng e ka sebelisoa ho li-module tse ling. Maemong a joalo, ho phatlalatsa phetoho ho e-na le lentsoe la sehlooho Qobello keyword e tlameha ho sebediswa Public.

Ka tsela, e le hore u phatlalatse ho fetoha ha boemo ba mojule, ho e-na le lentsoe la sehlooho Qobello keyword e ka sebediswa Private, e bontšang hore phetoho ena e reretsoe ho sebelisoa feela mojulung oa hajoale.

U ka boela ua sebelisa mantsoe a sehlooho ho phatlalatsa li-constants. Public и Private, empa eseng sebakeng sa lebitso la sehlooho Const, hammoho le eona.

Mehlala e latelang e bontša tšebeliso ea mantsoe a sehlooho Public и Private e sebedisoang ho tse fetofetohang le tse sa fetoheng.

Khetho e Hlakileng Phatlalatsa ea sVAT_Rate Joalo ka Sechaba a le Mong Const iMax_Count = 5000 ...    

Khetho e pepeneneng ea sVAT_Rate joalo ka Single Private Const iMax_Count = 5000 ...