VBA Excel: sample sa mga programa. Macros sa paglabaw pinaagi

y = x1 + x1 ^ 2 + 3 * x1 ^ 3 - Cos (x1)

Selula (i, 1) .Value = x1 (x1 bili nga gisulat diha sa handumanan sa mga coordinates (i, 1))

Selula (i, 2) .Value = y (y bili sa nahasulat sa cell uban sa mga coordinates (i, 2))

i = i + 1 (balido ihap);

x1 = x1 + shag (argumento ang nausab sa gidak-on nga lakang);

sa loop

Katapusan Sub.

Ingon sa usa ka resulta sa niini nga run macro "paglabaw pinaagi" makabaton duha ka haligi, ang una sa nga natala sa mga mithi alang sa x, ug ang ikaduha - sa y.

Unya eskedyul makahimo sa pagtukod sa ibabaw nila, ang sumbanan alang sa "paglabaw pinaagi".

PANIG-INGNAN 3

Sa pagpatuman sa siklo sa VBA paglabaw pinaagi 2010, ingon man usab sa ubang mga bersiyon, uban sa mga na pagkunhod ba Samtang disenyo nga gigamit Kay.

Tagda ang usa ka programa nga nagmugna sa usa ka kolum. Sa matag cell kini natala plasa katugbang nga linya nga gidaghanon. Alang sa paggamit sa mga disenyo motugot sa pagrekord sa kini kaayo sa mubo, nga walay sa paggamit sa usa ka counter.

Una kini mao ang gikinahanglan nga sa paghimo sa usa ka macro, sama sa gihulagway sa ibabaw. Sunod, isulat ang code sa iyang kaugalingon. Kita nagtuo nga kita interesado sa mga mithi alang sa 10 ka mga selula. code mao ang sama sa mosunod.

Kay ako = 1 ngadto sa 10 Sunod

Ang sugo mao ang gibalhin ngadto sa "sa tawo" nga pinulongan, sama sa "gisubli gikan sa 1 ngadto sa 10 sa increments sa usa."

Kon ang buluhaton sa pagdawat sa kolum uban sa mga plasa, alang sa panig-ingnan, sa tanan nga mga katingad-integers tali sa 1 ug 11, isulat kita:

Kay ako = 1 ngadto sa 10 lakang 1 Sunod.

Dinhi, pakusgon - lakang. Sa kini nga kaso, kini mao ang katumbas sa duha ka. Pinaagi sa remate, ang pagkawala sa mga pulong sa laang nagpasabot nga ang usa ka lakang.

Ang mga resulta kinahanglan nga gitipigan sa cell gidaghanon (i, 1). Unya sa matag higayon nga kamo magsugod sa pagbalik-balik sa usa ka usbaw sa bili sa akong pakusgon awtomatikong motubo ug linya nga gidaghanon. Busa, adunay code pagkamalaumon.

Sa kinatibuk-an, ang code nga tan-awon sama sa:

Sub programa ()

Kay ako = 1 Sa 10 Lakang 1 (mahimong gisulat lamang alang ko = 1 Sa 10)

Selula (i, 1) .Value = i ^ 2 (pananglitan square bili nahisulat ngadto sa cell (i, 1) i)

Sunod (sa usa ka diwa pasundayag sa papel sa mga counter paagi ug ang lain nga pagbalik-balik pagsugod)

Katapusan Sub.

Kon gibuhat husto, lakip na ang recording ug running macros (tan-awa sa. Ang mga instruksyon sa ibabaw), nan kini mao ang gitawag nga sa matag higayon nga usa ka gihatag nga gidak-on nga nakuha kolum (sa niini nga kaso nga naglangkob sa 10 mga selula).

PANIG-INGNAN 4

Sa matag adlaw nga kinabuhi, kaayo nga sa kasagaran kini mao ang gikinahanglan sa pagkuha sa niini o niana nga desisyon depende sa pipila ka mga kondisyon. dili sa pagbuhat nga walay kanila sa VBA paglabaw pinaagi. Mga panig-ingnan sa mga programa diin ang dugang pa nga kurso sa mga algorithm ang pinili nga ilis sa sinugdanan gitino nang daan, labing sagad nga gigamit sa plano sa kon ... Unya (alang sa lisud nga mga kaso) Kon ... Unya ... KATAPUSAN Kon.

Tagda ang partikular nga kaso. Kon gusto ka nga paghimo sa usa ka macro alang sa "paglabaw pinaagi" sa cell uban sa mga coordinates (1,1) nga natala:

1 kon ang argumento mao ang positibo;

0 kon ang argumento mao ang zero;

1, kon ang argumento mao ang negatibo.

Ang paglalang sa maong usa ka macro alang sa "paglabaw pinaagi" magsugod sa usa ka sumbanan nga paagi, pinaagi sa paggamit sa "init nga" mga yawe Alt ug F11. Dugang pa nga gisulat sa mosunod nga code:

Sub programa ()

x = Selula (1, 1) .Value (sugo Kini assign sa bili sa x coordinates sa mga sulod nga cell (1, 1))

Kon x> 0 Unya Selula (1, 1) .Value = 1

Kon x = 0 Unya Selula (1, 1) .Value = 0

Kon x <0 Unya Selula (1, 1) .Value = -1

Katapusan Sub.

Kini nagpabilin sa pagdagan sa usa ka macro ug sa "paglabaw pinaagi" gitinguha nga bili alang sa argumento.

VBA gimbuhaton

Samtang kamo tingali nakamatikod, sa labing inila nga programa sa Microsoft spreadsheet aplikasyon dili kaayo lisud. Ilabi na kon makakat-on kamo unsaon sa paggamit VBA gimbuhaton. Sa kinatibuk-, kini nga programa nga pinulongan ilabi gibuhat alang sa pagsulat sa mga aplikasyon sa "paglabaw pinaagi" ug ang Pulong, mga 160 gimbuhaton. Sila mahimong bahinon ngadto sa pipila ka mga dagkong grupo. Sila mao ang:

• Sa matematika gimbuhaton. Ang pagpadapat kanila ngadto sa argumento sa bili cosine mao nga nakuha, ang natural nga logarítmo, ug sa ingon niana ang tibuok nga bahin.
• Financial gimbuhaton. Tungod sa ilang anaa ug paggamit programming sa paglabaw pinaagi, nga imong mahimo og epektibo nga mga himan alang sa accounting ug sa pinansyal nga mga pinuy-anan.
• Array pagproseso gimbuhaton. Kini naglakip sa Array, IsArray; LBound; UBound.
• VBA paglabaw pinaagi paglihok alang sa linya. Kini mao ang usa ka minatarong, sa maayohon dako nga grupo. Kini naglakip sa, alang sa panig-ingnan, Space function sa paghimo sa usa ka hilo sa usa ka gidaghanon sa mga kal nga sama sa integer argumento o ASC transfer simbolo sa ANSI code. Ang tanan nga kanila mao ang kaylap nga gigamit ug motugot kanimo sa pagtrabaho uban sa mga kolintas sa "paglabaw pinaagi" sa paghimo aplikasyon mas sayon sa pagtrabaho uban sa niini nga mga lamesa.
• matang Data pagkakabig gimbuhaton. Pananglitan, CVar mobalik argumento Ekspresyon, o kini sa laing matang data.
• Petsa gimbuhaton. Sila sa hilabihan gayud sa pagpalapad sa sumbanan bahin sa "paglabaw pinaagi". Busa, WeekdayName function mobalik sa ngalan (bug-os nga o sa partial) sa adlaw sa semana sa gidaghanon sa iyang mga. Bisan pa nga mapuslanon ang Timer nga Kasinati-. Siya nagahatag sa gidaghanon sa mga segundos nga milabay sukad sa tungang gabii sa usa ka partikular nga gutlo sa adlaw.
• Paglihok sa kinabig sa usa ka numerawo argumento sa lain-laing mga sistema sa gidaghanon. Pananglitan, Oct abot sa octal representasyon sa gidaghanon.
• formatting gimbuhaton. Ang labing importante sa niini nga mga mao ang format. Kini mobalik sa usa ka laing uban sa usa ka ekspresyon ay sumala sa mga instruksyon nga gihatag sa paghulagway sa format.
• ug uban pa.

Ang pagtuon sa mga kabtangan sa niini nga mga gimbuhaton ug ang ilang aplikasyon kamahinungdanon sa pagpalapad sa kasangkaran sa "paglabaw pinaagi".

PANIG-INGNAN 5

ni mosulay sa pagsulbad mas komplikado nga mga problema Himoa. Kay sa panig-ingnan:

Dan papel dokumento sa aktuwal nga ang-ang sa mga gasto sa report negosyo. nagkinahanglan:

• pagpalambo sa iyang mga sumbanan nga bahin pinaagi sa spreadsheet "paglabaw pinaagi";
• sa paghimo sa usa ka VBA programa nga mangayo alang sa hilaw nga data nga pun-on niini, aron sa pagtuman sa gikinahanglan nga kalkulasyon ug pun-on sa mga template sa mga katugbang nga cell.

Tagda ang usa ka sa mosunod nga mga solusyon.

Paghimo sa usa ka template

Ang tanan nga mga buhat nga gihimo sa usa ka sumbanan Sheet sa paglabaw pinaagi. Free mga selula nga gitagana alang sa pagsulod data sa bulan, tuig, mga kompaniya titulo-consumer, ang kantidad sa mga gasto, sa ilang ang-ang sa turnover. Samtang ang gidaghanon sa mga kompanya sa (mga kompanya), sa pagtahud nga ang taho dili natala, ang mga selula sa paghimo sa basehan sa mga mithi ug mga propesyonal nga ngalan dili gitagana daan. Worksheet assign sa usa ka bag-ong ngalan. Pananglitan, "Օ Report".

baryable

Sa pagsulat sa programa awtomatikong pun-on sa template, pagpili sa mga nota. Sila nga gamiton alang sa mga baryable:

• NN- gidaghanon sa mga kasamtangan nga laray sa lamesa;
• TP ug TF - giplano ug aktwal nga turnover;
• SF ug SP - aktuwal ug plano total gasto;
• IP ug KON - giplano ug aktwal nga gasto nga lebel.

nagtumong sa kita sa mao gihapon nga mga sulat, apan uban sa usa ka "prefix» Itog panagtigum, panagtingub total alang sa kolum nga. Pananglitan, ItogTP - Uban sa bahin sa mga kolum nga nag-ulohang, ingon nga "ang giplano turnover."

Solusyon sa mga problema sa paggamit sa VBA programming

Pinaagi sa paggamit sa mga nota sa niini, kita makabaton sa pormula alang sa pakigbingkil. Kon kamo gusto sa pagtuman sa kalkulasyon sa% nga kita (F - P) / P * 100, ug sa kantidad nga - (F - P).

Ang resulta sa niini nga mga kalkulasyon mahimong labing maayo lang sa paghimo sa "paglabaw pinaagi" spreadsheet sa tukma nga mga selula.

Kay ang resulta ug pagtagna sa sakit sa pagkatinuod nakuha sa pormula ItogP = ItogP + P ug ItogF = ItogF + F.

Kay pagtipas sa paggamit = (ItogF - ItogP) / ItogP * 100 kon ang kalkulasyon nga gidala sa gawas sama sa usa ka porsiyento, ug kon ang kinatibuk-ang bili - (ItogF - ItogP).

Ang resulta sa makausa pag-usab nga natala sa tukma nga mga selula, mao nga walay panginahanglan sa assign sila sa baryable.

Sa wala pa nagsugod sa paghimo sa usa ka programa nga imong gusto aron sa pagluwas sa workbook, alang sa panig-ingnan, sa ilalum sa ngalan "Otchet1.xls".

Press "Paghimo sa usa ka pagreport lamesa," kamo kinahanglan gayud nga mopadayon sa lamang sa 1 panahon human sa pagsulod sa mga impormasyon header. Ikaw kinahanglan nga mahibalo ug uban pang mga lagda. Sa partikular, ang button "Add usa ka linya nga" kinahanglan nga napugos sa matag panahon human sa pagsulod ngadto sa lamesa sa mga mithi alang sa matag kalihokan. Human sa pagsulod sa tanan nga mga data nga gikinahanglan sa mopadayon sa button "Humana", ug unya switch sa "paglabaw pinaagi" sa bintana.

Karon nga kamo nahibalo kon sa unsang paagi sa pagsulbad sa mga problema alang sa paglabaw pinaagi sa macros. Ang abilidad sa paggamit sa vba pangulo (tan-awa sa sampol nga mga programa. Labaw) ug tingali nga kamo kinahanglan nga sa pagtrabaho sa palibot sa labing popular nga sa panahon, ang teksto editor "Pulong." Sa partikular, pinaagi sa pagtala, sama sa gipakita sa sinugdan sa niini nga artikulo, o pinaagi sa pagsulat code sa paghimo sa mga buton menu pinaagi diin daghan sa mga operasyon sa teksto mahimo pinaagi sa dinalian sa mga yawe sa katungdanan o pinaagi sa icon "View" ug "Macros" nga tab.