Komandat përdoren për të shfaqur të dhënat në vba. Kutia e mesazheve në VBA Excel - MsgBox

Në VBA, hyrja dhe dalja (për ndërveprimin e përdoruesit) mund të bëhen në kuti dialogu. Kutia e dialogut për futjen e vlerave zbatohet nga funksioni i integruar Kutia hyrëse. Në kutinë hyrëse të implementuar nga funksioni InputBox, shfaqet një fushë për futjen e vlerës së një ndryshoreje, në të cilën përdoruesi duhet të shënojë një vlerë specifike. Më pas, përdoruesi duhet të klikojë butonin OK.

Funksioni InputBox() ka sintaksën e mëposhtme:

VariableName = InputBox (Prompt, , , , , , )

Ku argumentet: Prompt ose Message është një argument i kërkuar që specifikon një mesazh informues në kutinë e dialogut. Të gjitha argumentet e tjera janë fakultative. Titulli specifikon titullin e dritares. Figura 1 tregon një modul që përdor funksionin InputBox.

Oriz. një.

Pas përfundimit të modulit 2, shfaqet kutia e mesazhit "Futja e vlerave të ndryshoreve" (Fig. 2), në të cilën duhet të futni një numër dhe të klikoni OK. Dialog box-i (Fig. 2) i implementuar nga funksioni InputBox (Fig. 1) shfaq: Titulli i dritares - Futja e vlerave të variablave; Mesazh - Futni një numër; Butonat (e parazgjedhur) - OK dhe Anulo; Një fushë e destinuar për futjen e vlerave të variablave.

Oriz. 2.

Për të shfaqur informacionin, përdoren kutitë e dialogut të mesazheve të zbatuara nga operatori. MsgBox ose funksion MsgBox(). MsgBox mund të përdoret si një deklaratë. Deklarata MsgBox shfaq informacionin në një kuti dialogu dhe vendos modalitetin për të pritur që përdoruesi të shtypë një buton.

Deklarata MsgBox ka sintaksën e mëposhtme:
Prompt MsgBox, , , ,

Ku janë argumentet: Prompt ose Message - një argument i kërkuar që specifikon mesazhin informativ për t'u shfaqur në dritare. Të gjitha argumentet e tjera janë fakultative. Butonat - Butonat që mund të përdoren në kutinë e dialogut të mesazheve. Në dritaren e mesazheve mund të përdoren butona të ndryshëm (OK, Anulo, etj.). Nëse nuk specifikoni se cilët butona do të shfaqen në kutinë e mesazheve, butoni OK shfaqet si parazgjedhje. Përveç kësaj, ikona të ndryshme mund të përdoren në kutitë e dialogut të mesazheve (vbQuestion - ikona pikëpyetje, vbExclamation - ikona e pikëçuditjes etj.).

Moduli në të cilin MsgBox përdoret si operator është paraqitur në fig. 3 (operatori MsgBox "3", vbOKAnulo, "Vlerat e daljes").

Oriz. 3

Kur moduli 4 niset për ekzekutim, shfaqet kutia e mesazhit "Vlerat e daljes" (Fig. 4), në të cilën duhet të klikoni butonin OK. Dritarja (Fig. 4) e implementuar nga operatori MsgBox (Fig. 3) shfaq: Titulli i dritares - Prodhimi i vlerave; Mesazh - 3; Butonat - OK dhe Anulo.

Oriz. 4

Për shembull, për të llogaritur një funksion si y = 5 x 2 + 7 x + 9, mund të përdorni funksionin InputBox dhe operatorin MsgBox (Fig. 5)

Oriz. 5

Pas ekzekutimit të modulit 5, shfaqet një kuti hyrëse

Oriz. 6

Pasi të keni futur një numër, si p.sh. 789, dhe duke klikuar OK, shfaqet një kuti mesazhi që tregon rezultatin e funksionit y = 5 x 2 + 7 x + 9.

Oriz. 7

MsgBox mund të përdoret si funksion. Funksioni MsgBox() ka sintaksën e mëposhtme: MsgBox (Prompt, , , , ). Në këtë rast, në kutinë e dialogut përdoren disa butona të ndryshëm. Kur shtypet një buton në një kuti dialogu, funksioni MsgBox() kthen një vlerë Integer që varet nga cili buton është shtypur në kutinë e dialogut të mesazhit.

"Ne u njohëm shkurtimisht me mesazhin e dialogut msgbox. Por ishte mesazhi më i thjeshtë informues. Tani le të shohim më nga afër punën me funksionin MsgBox dhe të gjitha llojet e mesazheve të dialogut.

Sintaksa e funksionit MsgBox

Funksioni MsgBox ka sintaksën e mëposhtme:

MsgBox( mesazh [, konstantet e mesazhit] [, titulli] [, skedari i ndihmës hlp, konteksti i ndihmës] )

Parametri i kërkuar është "Mesazhi", pjesa tjetër mund të hiqet.

MsgBox "Teksti i mesazhit”

• Konstantet e mesazheve- ju lejon të përcaktoni llojin e dialogëve.
• kokë– vendos titullin e formës së dialogut.
• Skedari i ndihmëshlpështë një shprehje e vargut që specifikon emrin e skedarit të ndihmës për kutinë e dialogut.
• Konteksti i ndihmësështë një shprehje numerike që specifikon numrin e kontekstit të skedarit të ndihmës për kutinë e dialogut.

Shiko dialogun:

krijuar nga komanda e mëposhtme:
MsgBox "Tekst që përmban pyetje", vbPo Jo, "Emri i mesazhit"

Për të krijuar një mesazh si ky:

komanda do të duket si kjo:
MsgBox "Tekst që përmban pyetje", vbPo JoCancel, "Emri i mesazhit"

Një mesazh si ky:

krijuar nga komanda:
MsgBox "Tekst që përmban pyetje", vbAbortRetryIgnore, "Titulli i mesazhit"

ato. nga të tre shembujt në komandë, ndryshohet vetëm parametri i dytë (vbYesNo, vbYesNoCancel, vbAbortRetryIgnore). Këto janë vlerat (konstantet) që përcaktojnë llojin e mesazhit. Parametrat (vbPo Jo, vbYesNoCancel) mund të zëvendësohen me një vlerë numerike, për shembull dialogu vbYesNo mund të thirret duke futur 4: MsgBox "Tekst që përmban pyetjen", 4, "Emri i mesazhit".

Më poshtë është një listë e plotë e konstantave dhe ekuivalentëve të tyre dixhitalë:

Mesazhet mund të modifikohen pak. pamjen, caktoni një buton të paracaktuar, shtoni një buton "Ndihmë" duke shtuar konstante.

Për shembull: MsgBox "Tekst që përmban pyetje", vbYesNoCancel+vbInformation + vbMsgBoxHelpButton+vbDefaultButton2, "Emri i mesazhit" do të krijojë një mesazh si:

vbInformacion- shton një ikonë pasthirrme në mesazh
vbMsgBoxHelpButton- shton butonin "Ndihmë".
vbDefaultButton2- vendos fokusin në butonin e dytë (" Jo")

Më poshtë është një tabelë që rendit konstantet e ikonave dhe konstantet e fokusit të butonit:

Si të zbuloni se cilin buton në mesazh klikoi përdoruesi?

Zgjedhja e përdoruesit do të përcaktohet duke përdorur . Në disa situata, mund të përdorni .

Për shembull, le të thërrasim një mesazh duke klikuar dy herë LMB në çdo qelizë në fletë. Në përputhje me zgjedhjen e përdoruesit, ne do të shfaqim tekstin në këtë qelizë.

Krijoni një libër të ri pune në Excel dhe kaloni në modalitet Bazë vizuale(Alt+F11). Në dritaren e projektit zgjidhni " Fleta 1» dhe klikoni mbi të dy herë LMB.

Në dritaren e redaktuesit të kodit që hapet, futni procedurën e mëposhtme:

Në kushtin IF, ne krahasojmë rezultatin e kthyer nga funksioni MsgBox me konstanten vbYes d.m.th. nëse shtypet butoni në mesazh po”, më pas funksioni MsgBox kthen vlerën vbYes (6). Lista e plotë konstantet dhe ekuivalentët e tyre dixhitalë më poshtë. Tani provoni fleta 1 klikoni dy herë në çdo qelizë.

Shënim: Kur thirret një mesazh, ekzekutimi i programit ndalon derisa të merret një përgjigje nga përdoruesi.

Opsioni i dytë për të thirrur dialogun .

Le të krijojmë një procedurë të dytë në Fletën 2. Kodi i procedurës është si më poshtë:

Në këtë rast, rezultati i thirrjes së MsgBox i caktohet një ndryshoreje mes dhe më pas në Select Case kërkohet një ndeshje dhe sipas përputhjes kryhen veprimet.

Kjo eshte e gjitha. Bashkangjitur më poshtë është një shembull i përfunduar i diskutuar në këtë artikull.

Lista e konstantave dhe vlerave të kthyera nga funksioni MsgBox:

Përdorimi i funksionit MsgBox në VBA Excel, sintaksa dhe parametrat e tij. Vlerat e kthyera nga funksioni MsgBox. Shembuj të përdorimit.

Funksioni MsgBox në VBA Excel është krijuar për të shfaqur një mesazh në një kuti dialogu, për të pritur që të klikohet një buton dhe për të kthyer një vlerë Integer që tregon se cili buton është klikuar. Për lehtësinë e të kuptuarit, ky artikull nuk mbulon opsionet që lidhen me ndihmën e ndjeshme ndaj kontekstit dhe modalitetin e kutisë së dialogut MsgBox.

Sintaksa e funksionit

MsgBox (Prompt [, Buttons] [, Titulli])

Parametri i kërkuar i funksionit MsgBox është Prompt, nëse Butonat dhe Titulli jo të specifikuara në mënyrë eksplicite, përdoren vlerat e tyre të paracaktuara. Gjithashtu, nëse nuk specifikohen parametra opsionalë dhe vlera e kthimit nuk i caktohet një ndryshoreje, mesazhi nuk mbyllet në kllapa:

Shembulli 1

Nën Test1() MsgBox "Mesazhi shumë i rëndësishëm!" fundi nën

Parametrat e funksionit

*Gjatësia maksimale e parametrit Promptështë afërsisht 1024 karaktere dhe varet nga gjerësia e tyre.

**Në Excel, si parazgjedhje, titulli i MsgBox shfaq "Microsoft Excel".

Konstantet e parametrave të butonave

Lloji dhe numri i butonave

Stili i ikonës

Për të parë ikonat e shfaqura, kopjoni kodin në modulin tuaj dhe ekzekutoni:

Shembulli 2

Sub Test2() Dim a As Integer a = MsgBox("Mesazhi kritik, mesazh gabimi", 16) a = MsgBox("Mesazhi pyetës", 32) a = MsgBox("Mesazhi paralajmërues", 48) a = MsgBox( "Informacion mesazh", 64) Fundi Nën

Butoni i parazgjedhur

Vlerat e Kthimit

Vlera e kthyer nga funksioni MsgBox përdoret për të zgjedhur veprime të mëtejshme program i ekzekutueshëm në varësi të butonit të shtypur.

Për shembullin e tretë, le të vendosim parametrat e mëposhtëm për funksionin e parë MsgBox:

• Prompt = "Zgjidh një buton!"
• Butonat = 323 (3 (vbPo Jo Cancel) + 64 (vbInformacion) + 256 (vbDefaultButton2))
• Titulli = "Zgjidh butonin"

Funksioni i dytë MsgBox përdoret si një mesazh i thjeshtë informues me parametra të paracaktuar.

Shembulli 3

Sub Test3() Dim a As Integer a = MsgBox ("Select Button!", 323, "Select Button") Nëse a = 6 Pastaj MsgBox "Ke klikuar butonin: Po" ElseIf a = 7 Pastaj MsgBox "Ke klikuar butonin : Jo " Përndryshe MsgBox "Keni klikuar butonin: Anulo" Fundi Nëse Fundi Nën

Në këtë shembull, në varësi të butonit të shtypur në kutinë e dialogut të parë, emri i butonit të shtypur shfaqet në mesazhin e dytë. Vini re se butoni i dytë në dritaren e parë MsgBox që hapet zgjidhet si parazgjedhje dhe ndizet kur shtypet tasti Enter.

Dhe çfarë do të ndodhë nëse kutia e parë e dialogut nga shembulli i tretë mbyllet me një kryq? Kontrollojeni vetë.

1. Funksioni InputBox

Funksioni InputBox ka sintaksën e mëposhtme:

Variabli = Kutia hyrëse(Prompt[, Titulli] [, default] [, Xpos] [, Ypos] [, help_file, content])

Ky funksion kërkon që të kërkohet vetëm një argument. Ftesë Vlera e argumentit Ftesë- argumenti i vetëm i kërkuar për këtë funksion është një varg teksti që shfaqet në kutinë e dialogut të hyrjes si mesazh. Ky tekst duhet të mbyllet në thonjëza të dyfishta.

Argumenti kokë

Argumenti default vendos vlerën që shfaqet si parazgjedhje në fushën e hyrjes derisa përdoruesi të fusë vlerën e tyre. Nëse ky argument hiqet, fusha e hyrjes shfaqet bosh.

Argumente Fakultative Xpos dhe Po vendosni pozicionin e dritares së hyrjes në ekran. Argumentet ndihmë_file dhe përmbajtjen

Vlera e kthyer e funksionit InputBox është vlera e futur nga përdoruesi në kutinë e hyrjes.

2. Funksioni MsgBox

Kutia e mesazheve krijohet nga funksioni MsgBox, i cili ka sintaksën e mëposhtme:

Variabli = MsgBox(Prompt[, Buttons] [, Titulli [, help_file, content])

Vlera e argumentit Ftesë- argumenti i vetëm i kërkuar për këtë funksion është një varg teksti që shfaqet si mesazh në kutinë e dialogut. Ky tekst duhet të mbyllet në thonjëza të dyfishta. Vini re përdorimin e kllapave në sintaksën MsgBox - ato tregojnë se në këtë rast MsgBox është një funksion që kthen disa vlera. Nëse kllapat janë lënë jashtë, atëherë për VBA kjo është një shenjë se shprehja e dhënë nuk kthen një vlerë. Nëse dëshironi të ktheni një vlerë, duhet të përdorni kodin si më poshtë:

Dim i Si numër i plotë

Rezultati i punës së një kodi të tillë në VBA do të jetë një kuti dialogu me tre butona "Po", "Jo", "Anulo" dhe me një ikonë Pikëçuditje në trekëndëshin e verdhë.

Nëse nuk jepet argument Butonat, atëherë VBA ofron vetëm një buton "OK". Argumenti Butonat ju lejon të kontrolloni opsionet e mëposhtme të kutisë së mesazheve:

¨ Numri i butonave në dritare.

¨ Llojet e butonave dhe dhe x vendosja në dritare.

¨ Ikonat shfaqen në dritare.

¨ Cili buton është caktuar si parazgjedhje.

¨ Modaliteti (modaliteti) i kutisë së mesazheve.

Tabela 1 tregon cilësimet e mundshme për këtë argument. Grupi i parë i vlerave përcakton numrin dhe llojin e butonave. E dyta ju lejon të zgjidhni ikonën e shfaqur në dritare. E treta cakton një buton të paracaktuar. Grupi i katërt vendos modalitetin e kutisë së mesazheve. Për të krijuar vlerën përfundimtare të një argumenti Butonat ju mund të përdorni vetëm një vlerë nga secili grup duke i kombinuar me një shenjë plus.

Tab. 1. Cilësimet e argumentit Butonat Funksionet e MsgBox

Për të mos bërë gabime gjatë futjes së vlerave të argumentit Butonat, përdorni listën e konstantave që shfaqet pasi të keni futur shenjën "+". Shenja "+" përdoret për të kombinuar konstante të shumta kur specifikon një argument kompleks Butonat.

Argumenti kokë përdoret për të specifikuar tekstin që vendoset në shiritin e titullit të dritares së hyrjes. Nëse ky argument nuk specifikohet, Microsoft Excel shfaqet në shiritin e titullit.

Argumentet ndihmë_file dhe përmbajtjen përdoren nëse po krijoni sistemin tuaj të ndihmës për aplikacionin tuaj.

Tabela 2 liston vlerat e kthyera nga funksioni MsgBox . Vlera e kthimit varet nga butoni i shtypur nga përdoruesi.

Tab. 2. Vlerat e kthyera nga funksioni MsgBox

Lloji më i mirë Variabla kthyese e funksionit MsgBox është Integer.

Objektet e diapazonit dhe qelizave

Në VBA, qelizat e fletës së punës trajtohen si një objekt Range. Ky është artikulli më i përdorur.

Objekti Range përdor formatin A1 kur punon me qeliza.

Formati A1. Referenca përbëhet nga një emër kolone (e shënuar me shkronja nga A në IV, maksimumi 256 kolona) dhe një numër rreshti (nga 1 në 65536). Për shembull, A77. Për t'iu referuar një gamë qelizash, adresat e qelizave të sipërme majtas dhe djathtas të poshtëm të diapazonit specifikohen, të ndara me një dy pika. Për shembull, B10:B20, 7:7 (të gjitha qelizat në rreshtin 7), 5:10 (të gjitha qelizat midis rreshtave 5 dhe 10 duke përfshirë), D:D (të gjitha qelizat në kolonën D), H: J (të gjitha qelizat midis kolonat H dhe J duke përfshirë). Një referencë absolute është një shenjë dollari përpara emrit të rreshtit ose kolonës.

Objekti Cells përdor formatin R1C1 kur punon me qeliza.

Formati R1C1. Në formatin R1C1, pas shkronjës "R" tregohet numri i rreshtit të qelizës, pas shkronjës "C" numri i kolonës. Për shembull, referenca absolute R1C1 është ekuivalente me referencën absolute $A$1 për formatin A1. Për të vendosur një referencë relative, ju specifikoni një zhvendosje në lidhje me qelizën aktive. Përzierja tregohet në kllapa katrore. Shenja tregon drejtimin e zhvendosjes. Për shembull, R[-3]C (një referencë relative qelize tre rreshta më lart në të njëjtën kolonë). RC (referenca relative e qelizave dy rreshta poshtë dhe dy kolona në të djathtë). R2C2 (referencë absolute për qelizën e vendosur në rreshtin e dytë dhe në kolonën e dytë). R[-1] (referencë relative për rreshtin mbi qelizën aktuale), R (referencë absolute për rreshtin aktual).

Adresa e plotë e qelisë mund të përmbajë gjithashtu emrin e punonjësit dhe adresën e librit. Pas emrit të fletës vendoset shenja "!" dhe adresa e librit vendoset në kllapa katrore. Për shembull: [Book1.xls]Sheet5!D$2.

Objekti Range mund të jetë:

§ një qelizë më vete;

§ gamën e zgjedhur të qelizave;

§ disa vargje të zgjedhura qelizash (d.m.th., një grup vargjesh jo ngjitur);

§ rresht dhe kolonë;

§ një gamë tre-dimensionale (d.m.th., e përbërë nga diapazon të vendosur në fletë pune të ndryshme).

Vetitë e objektit të gamës dhe qelizave

Gama dhe metodat e objekteve të qelizave

Metodat e objektit Range dhe Cells që zbatojnë komandat e Excel

shënim . Duhet të theksohet veçanërisht se në VBA (ndryshe nga Excel) operacioni i caktimit kryhet pavarësisht nga statusi i qelizës dhe nuk e ndryshon atë. ato. për t'i caktuar një vlerë një qelize (ose për të marrë vlerën e saj), nuk është aspak e nevojshme që kjo qelizë të jetë aktive (mos harroni se në Excel duhet të aktivizohet përpara se ta futni në një qelizë), ajo nuk do të bëhet aktive (nëse nuk ishte kështu më parë) dhe pas caktimit të saj me ndonjë rëndësi.

Dalja (transmetimi te përdoruesi) i rezultateve të programit dhe mesazheve të tjera kryhet përmes kutisë së dialogut të mesazheve.

Për të organizuar daljen e informacionit, përdoret një funksion i integruar MsgBox.

Konsideroni opsionet për përdorimin e tij.

1. y = Sheshi (16)

MsgBox y

2. S=99

MsgBox ("S= ” & S)

është një shenjë lidhjen – ampersand;

përdoret për të kombinuar disa rreshta në një

3. a=5: b=101

MsgBox("a="& a & " " & "b=" &b)

4. MsgBox("a=" & a & Chr(13) & "b=" & b)

duke përdorur këtë funksion, futni simbol i tranzicionit

në një linjë të re(konverton numrin në karakter)

Puna me objekte Excel

Modeli i objektit në Excel përfaqëson një hierarki objektesh në varësi të një objekti Aplikacion, që korrespondon me në aplikacion Excel. Objektet shkëlqejnë janë fletoret e punës, fletët e punës, grafikët, vargjet e qelizave, qelizat, etj.

VBA mund të manipulojë programatikisht cilindo nga këto objekte.

Secili nje objekt ka një set Vetitë, metodat dhe ngjarjet.

Pronësështë një karakteristikë ose parametër i një objekti.

Metodaështë një veprim që mund të kryejë një objekt.

Ngjarjaështë një veprim ndaj të cilit objekti reagon automatikisht.

menaxhuar objektin nëVBAe mundur në 3 mënyra:

ndryshimi i vetive të një objekti;

duke thirrur metodën e lidhur me objektin;

përcaktimi i një procedure që do të funksionojë si përgjigje ndaj një ngjarjeje.

Shfaqja e informacionit në një qelizë Excel

Një qelizë si një objekt Excel në një program VBA shënohet Qelizat (i, j), ku i- Numri i linjes jështë numri i kolonës së tabelës.

Y

Kuptimi Y do të shfaqet në fletën aktive të punës libra excel në një qelizë B3

Qelizat (3, 2) = Y

ME

e ndryshueshme B do të caktohet vlera

e cila ruhet në qelizë C5

(dmth përmbajtja e qelizave C5)

B = Qeliza (5, 3)

mjeti i hyrjes vba

Futja e informacionit nga përdoruesi kryhet përmes kutisë së dialogut të hyrjes. Zbatuar me një funksion të integruar Kutia hyrëse.

Dim x Si Beqar

x = Val(Kutia hyrëse ("Fut x"))

Funksioni Kutia hyrëse kthen sekuencën e karaktereve të futura në fushën e hyrjes ( 15 ) si lloj të dhënash Varg(varg). funksion i integruar Val() konverton një vlerë vargu nga një fushë hyrëse në një vlerë numerike.

Proceset lineare të llogaritjes

Algoritmi linear karakterizohet nga një sekuencë e rreptë e zbatimit të blloqeve në rendin e vendndodhjes së tyre në skemë - nga lart poshtë. Nuk ka blloqe të kushtëzuara. Çdo bllok ekzekutohet një herë.

Shembulli 1 Llogaritni vlerën e funksionit

në k = 33,5 x = 17

1. Le të hartojmë një algoritëm për zgjidhjen e problemit.

2. Në dritaren e redaktuesit të kodit, futni kodin e programit:

Opsioni i qartë

Procesi_nënlinear()

Dim k Si Beqar, x Si Beqar, y Si Beqar'deklarata e ndryshueshme

x = Val(InputBox ("Fut vlerën x"))

y = k * Exp(Sin(x))

MsgBox "y=" & y' shfaq rezultatin në një kuti dialogu

fundi nën

Ekipi Opsioni i qartë detyron të deklarojë të gjitha variablat në programin e dhënë. Mund të vendoset vetëm në seksionin e deklarimit të një moduli.