VBA Excel: shampall prògraman. Macros ann an Excel

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

Ceallan (i, 1) .Value = x1 (x1 luach sgrìobhta ann an cuimhne le na co-chomharran (i, 1))

Ceallan (i, 2) .Value = y (y luach air a sgrìobhadh ann an cealla le na co-chomharran (i, 2))

i = i + 1 (dligheach cunntadh);

x1 = x1 + shag (argamaid a tha e air atharrachadh air a 'cheum meud);

loop

End Sub.

Mar thoradh air seo a ruith mòra "Excel" fhaighinn dà cholbh, a 'chiad de a tha air a chlàradh airson na luachan x, agus an dàrna fear - gus y.

An sin nam b 'urrainn do' togail orra, bratach airson "Excel".

EISIMPLEIR 3

A chur an gnìomh ann chearcallan VBA Excel 2010, a thuilleadh air ann an dreachan eile, còmhla ri lùghdachadh mar-thà Do Ged dealbhadh a chleachdadh airson.

Beachdaich air prògram a 'cruthachadh colbh. Anns gach cealla a thèid a chlàradh ceàrnagan an co-rèir àireamh na loidhne. Airson a 'cleachdadh dealbhadh a chlàradh Leigidh e glè aithghearr, gun a bhith a' cleachdadh chunntair.

A 'chiad tha e riatanach a chruthachadh mòra, mar a tha air a mhìneachadh gu h-àrd. An ath-, sgrìobh a 'chòd fhèin. Tha sinn a 'creidsinn gu bheil sinn a bheil ùidh ann an luachan airson na 10 ceallan. Tha an Còd mar a leanas.

Airson i = 1 gu 10 Next

An àithne a ghluasad gu "daonna" chànain, mar "repeated bho 1 gu 10 ann an ceuman aon."

Nam biodh an obair a 'faighinn an colbh le ceàrnagan, mar eisimpleir, a h-uile neònach integers eadar 1 agus 11, sinn a' sgrìobhadh:

Airson i = 1 gu 10 ceum 1 An ath.

An seo, ceum - ceum. Sa chùis seo, tha e co-ionnan ri dhà. Le bhith a 'default, neo-làthaireachd an fhacail ann an lùib a' ciallachadh gu bheil aon cheum.

Tha na toraidhean a dh'fheumas a bhith air a stòradh ann an cealla àireamh (i, 1). An uair sin, gach uair a thòisicheas tu a 'rothaireachd le àrdachadh ann an luach i ceum a thèid a' fàs agus àireamh na loidhne. Mar sin, bidh an còd optimization.

San fharsaingeachd, tha an Còd a bhiodh a 'coimhead coltach:

Fo prògram (an)

Airson i = 1 gu 10 Ceum 1 (Faodar a sgrìobhadh a-mhàin airson I = 1 gu 10)

Ceallan (i, 1) .Value = i ^ 2 (i.e. ceàrnagach luach a tha sgrìobhte ann an cealla (i, 1) i)

Next (ann an seagh a 'cluich air an àite aig a' chunntair 'ciallachadh agus eile cearcall toiseach)

End Sub.

Ma dhèanamh ceart, a 'gabhail a' clàradh agus a 'ruith macros (fhaicinn. Tha an stiùireadh gu h-àrd), an uair sin tha e air a ghairm gach turas a thoirt meud Thèid fhaighinn colbh (sa chùis seo air a dhèanamh suas de 10 ceallan).

EISIMPLEIR 4

Anns a 'bheatha làitheil, glè thric, tha e riatanach seo a ghabhail no a' cho-dhùnadh a rèir cuid de na h-. Can not a dhèanamh às an aonais ann VBA Excel. Eisimpleirean de na prògraman far a bheil an tuilleadh chùrsa an algairim air a thaghadh an àite an toiseach ro-shuidhichte, as cumanta dealbhadh Ma ... sin (airson cùisean doirbh) Ma ... an uair sin ... Ma CRÌOCH.

Beachdaich air cùis sònraichte. Creidsinn a tha thu airson a chruthachadh macro airson "Excel" 'chill le na co-chomharran (1.1) a chlàradh:

1 ma tha an argamaid a tha deimhinneach;

0 ma tha an argamaid a tha neoni;

1, an t-argamaid ma tha àicheil.

Tha a 'cruthachadh a leithid de macro airson "Excel" a' tòiseachadh ann an dòigh àbhaisteach, tro bhith a 'cleachdadh "hot" Alt-iuchraichean agus F11. Nas fhaide air a sgrìobhadh 'chòd a leanas:

Fo prògram (an)

x = ceallan (1, 1) .Value (Tha àithne shònraicheas luach de x co-chomharran na th 'cealla (1, 1))

Ma x> 0 An sin ceallan (1, 1) .Value = 1

Ma tha x = 0 An sin ceallan (1, 1) .Value = 0

Ma x <0 An sin ceallan (1, 1) .Value = -1

End Sub.

Tha e fhathast a 'ruith agus macro fhaighinn ann an "Excel" miannaichte luach airson an argamaid.

VBA dreuchdan

Mar dòcha gun do mhothaich thu, ann am prògram as ainmeile Microsoft chliath-iarrtas nach eil e ro dhoirbh. Gu h-àraidh ma tha thu ag ionnsachadh mar a chleachdas VBA dreuchdan. Uile gu lèir, na prògraman seo cànan a chruthachadh gu sònraichte airson sgrìobhadh iarrtasan ann an "Excel" agus an fhocail, mu 160 dreuchdan. Faodaidh iad a bhith air an roinn ann an grunn buidhnean mòra. Tha iad:

• Matamataigeach dreuchdan. Cur an gnìomh iad ris an argamaid an cosine luach fhaighinn, nàdarra logarithm, agus mar sin air fad pàirt.
• Ionmhasail dreuchdan. Air sgàth aca ri fhaotainn agus a 'cleachdadh phrògraman ann an Excel, gheibh thu innealan èifeachdach airson cunntasachd agus bailtean ionmhais.
• Ordugh giollachd dreuchdan. Nam measg seo tha an ordugh, IsArray; LBound; UBound.
• VBA Excel obrachadh airson na loidhne. 'S e seo gu math mòr bhuidheann. Tha e a 'gabhail a-steach, mar eisimpleir, Space gnìomh a chruthachadh sreang le grunn beàrnan co-ionann ris an integer argamaid no Asc gluasadan samhlaidhean a ANSI còd. Tha iad uile bitheanta agus cothrom dhut a bhith ag obair le teudan ann an "Excel" a chruthachadh iarrtasan gu math nas fhasa a bhith ag obair leis na clàran.
• Dàta seòrsa iompachadh dreuchdan. Mar eisimpleir, CVar tilleadh Expression argamaid, iompachadh e a-dhealaichte dàta seòrsa.
• Ceann-là dreuchdan. Tha iad a 'leudachadh gu mòr an ìre feartan "Excel". Mar sin, WeekdayName gnìomh a thilleas an t-ainm (làn no pàirt) de latha an t-seachdain a rèir an àireamh. Fiù tuilleadh feumail 'sa tha an Timer. Tha ea 'toirt an àireamh de diogan a tha air a dhol seachad bhon meadhan-oidhche gu sònraichte dràsta an latha.
• Dleastanas iompachadh a àireamhach argamaid anns na diofar shiostaman. Mar eisimpleir, octal Oct toraidhean a 'riochdachadh an àireamh.
• cruth dreuchdan. As cudromaiche dhiubh seo tha Inneal a 'Chlàir. Tha e a 'tilleadh a-dhealaichte a chur an cèill leis an cruth a rèir stiùireadh a thoirt seachad ann an tuairisgeul air cruth.
• agus mar sin a mach.

Tha an sgrùdadh air na feartan de na gnìomhan agus iarrtas aca gu mòr a 'leudachadh farsaingeachd a "Excel".

5 EISIMPLEIR

Nach 'feuchainn ri fuasgladh fhaighinn air duilgheadasan nas iom-fhillte. Mar eisimpleir:

Dan an sgrìobhainn phàipeir an dearbh ìre de cosgaisean an iomairt aithisg. Feumaidh:

• leasachadh a pàtran cuibhrionn le cliath-dhuilleag "Excel";
• a dhèanamh VBA prògram a bhios a 'faighneachd airson amh dàta a lìonadh e, a ghiùlan a-mach an àireamhachadh iomchaidh a lìonadh a-steach agus na teamplaid an co-fhreagarrach cealla.

Beachdaich air aon de na leanas fuasglaidhean.

Cruthachadh teamplaid

Gach gnìomh a tha a 'cluich air an duilleag coitcheann ann an Excel. Saor an-asgaidh ceallan glèidhte airson tighinn a-steach dàta air mhìos, a 'bhliadhna, tiotail luchd-cleachdaidh, companaidhean, an t-suim de na cosgaisean, an ìre teachd a-steach. Mar a tha an àireamh de chompanaidhean (companaidhean), a thaobh a bheil an aithisg nach eil air a chlàradh, na ceallan a dhèanamh air bunait luachan agus proifeiseanta ainm nach eil glèidhte ro-làimh. Duilleag-obrach a shònrachadh don ainm ùr. Mar eisimpleir, "Օ Aithisg".

caochladairean

A 'sgrìobhadh a' phrògram gu fèin-obrachail a lìonadh ann an teamplaid, tagh an comharradh. Bidh iad a 'cleachdadh airson a' caochladairean:

• NN- uile gu làithreach an t-sreath a 'bhòrd;
• TP agus TF - an dùil is fìor teachd a-steach;
• SF agus SP - fìor agus dealbhaichte chosgaisean iomlan;
• IP agus IF - an dùil is fìor cosgaisean ìre.

Denote sinn leis an aon litir, ach le "ro-leasachan» Itog cruinneachadh iomlan airson a colbh. Mar eisimpleir, ItogTP - A thaobh a 'colbh airidh, mar "an teachd a-steach a phlanadh."

Fuasgladh air an duilgheadas a 'cleachdadh phrògraman VBA

A 'cleachdadh an comharrachadh seo, tha sinn a' faighinn a 'foirmle airson easaonta. Ma tha thu ag iarraidh a dhèanamh a-mach an àireamhachadh ann% againn (F - P) / P * 100, agus ann an tuaiream - (F - P).

Tha toraidhean an àireamhachadh sin as fheàrr a dh'fhaodas a bhith dìreach a 'dèanamh "Excel" cliath-dhuilleag ann an ceallan iomchaidh.

Airson a 'bhuil agus piseach anns an dearbh fhaighinn le foirmlean ItogP + D = ItogP agus ItogF = ItogF + F.

Airson claonaidhean a 'cleachdadh = (ItogF - ItogP) / ItogP 100 * ma tha an àireamhachadh a dhèanamh mar àireamh sa cheud, agus ma tha an luach iomlan - (ItogF - ItogP).

Tha na toraidhean a-rithist a chlàradh ann an ceallan iomchaidh, mar sin, chan eil feum air a shònrachadh dhaibh a caochladairean.

Mus tòisichear a chruthachadh prògram a tha thu ag iarraidh a shàbhaladh-obrach, mar eisimpleir, fon ainm "Otchet1.xls".

Briog air "Cruthaich aithris bhòrd," feumaidh tu brùth a-mhàin 1 ùine an dèidh tighinn a-steach an header fiosrachaidh. Bu chòir dhut fios agus riaghailtean eile. Gu sònraichte, a 'phutan "Cuir loidhne" a dh'fheumas a bhith air a dhinneadh gach uair an dèidh tighinn a-steach a-steach an clàr de luachan airson gach gnìomh. An dèidh tighinn a-steach a h-uile dàta a dh'fheumar airson briog air a 'phutan "Crìochnaich", agus an uair sin atharrachadh gu "Excel" anns an uinneig.

A-nis gu bheil fios agad ciamar a fuasgladh fhaighinn air an trioblaid le macros airson Excel. Tha an comas air cleachdadh vba Excel (faic an eisimpleir prògraman. Os cionn) agus dòcha gum feum thu a bhith ag obair ann an àrainneachd de na daoine measail aig an àm, an teacs neach-deasachaidh "Word." Gu sònraichte, le bhith a 'clàradh, mar a chithear ann an toiseach artaigil seo, no le bhith a' sgrìobhadh an còd a chruthachadh taice na putanan tro bheil mòran de na h-obraichean air an teacsa a ghabhas dèanamh le putadh air iuchraichean air dleastanas no tro "View" icon agus "Macros" tab.