VBA Excel: Rhaglenni sampl. Macros yn Excel

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

Celloedd (i, 1) .Value = x1 (gwerth x1 ysgrifenedig yn y cof gyda'r cyfesurynnau (i, 1))

Celloedd (i, 2) .Value = y (y gwerth wedi ei ysgrifennu yn y gell gyda'r cyfesurynnau (i, 2))

ff = i + 1 (cyfrif dilys);

x1 = x1 + fulfran werdd (ddadl yn cael ei newid i faint cam);

dolen

Is-End.

O ganlyniad i'r rhediad hwn macro "Excel" cael ddwy golofn, y cyntaf o'r rhain yn cael eu cofnodi y gwerthoedd ar gyfer x, a'r ail - i y.

Yna trefnu gallu adeiladu arnynt, y safon ar gyfer "Excel".

ENGHRAIFFT 3

I weithredu cylchoedd yn VBA Excel 2010, yn ogystal ag mewn fersiynau eraill, ynghyd â'r leihau eisoes Do Er bod dyluniad a ddefnyddiwyd ar gyfer.

Ystyriwch rhaglen sy'n creu colofn. Ym mhob cell bydd yn cael ei sgwariau rhif llinell cyfatebol wedi'u cofnodi. Ar gyfer y defnydd o'r cynllun yn caniatáu i gofnodi yn fyr iawn, heb ddefnyddio cownter.

Yn gyntaf mae angen i greu macro, fel y disgrifir uchod. Nesaf, ysgrifennwch y cod ei hun. Rydym yn credu bod gennym ddiddordeb yn y gwerthoedd ar gyfer y 10 celloedd. Mae'r cod fel a ganlyn.

I fi = 1 i 10 Nesaf

Mae'r gorchymyn yn cael ei drosglwyddo i'r "dynol" iaith, fel "dro ar ôl tro o 1 i 10 mewn darnau o un."

Os yw'r dasg i dderbyn y golofn gyda sgwariau, er enghraifft, pob cyfanrif od rhwng 1 a 11, rydym yn ysgrifennu:

I fi = 1 i 10 cam 1 Nesaf.

Yma, cam - cam. Yn yr achos hwn, mae'n gyfwerth â dau. Yn ddiofyn, absenoldeb y gair yn y ddolen yn golygu bod un cam.

Mae angen i gael eu storio mewn rhif cell (i, 1) Mae'r canlyniadau. Yna bob tro y byddwch yn dechrau cylch gyda chynnydd yng ngwerth i gamu yn tyfu yn awtomatig a rhif llinell. Felly, bydd cod optimization.

Yn gyffredinol, bydd y cod yn edrych fel:

Is-raglen ()

Ar gyfer i = 1 I 10 Cam 1 (gellir ei ysgrifennu yn unig ar gyfer i = 1 I 10)

Celloedd (i, 1) .Value = i ^ 2 (hy gwerth sgwâr ei ysgrifennu i mewn i'r gell (i, 1) i)

Nesaf (mewn ystyr yn chwarae rôl y dulliau cownter a dechrau beicio arall)

Is-End.

Os caiff ei wneud yn gywir, gan gynnwys cofnodi a rhedeg macros (gweler. Mae'r cyfarwyddiadau uchod), yna mae'n cael ei alw'n bob tro, bydd faint penodol ar gael colofn (yn yr achos hwn yn cynnwys 10 o gelloedd).

ENGHRAIFFT 4

Mewn bywyd bob dydd, yn aml iawn, mae angen cymryd y penderfyniad hwn neu fod yn dibynnu ar rai amodau. Methu gwneud hebddynt yn VBA Excel. Mae enghreifftiau o raglenni lle mae cwrs pellach y algorithm yn cael ei ddewis yn lle a bennwyd ymlaen llaw i ddechrau, y rhan fwyaf o ddylunio a ddefnyddir yn gyffredin o Os ... Yna (ar gyfer achosion anodd) Os ... Yna ... DIWEDD Os.

Ystyriwch yr achos penodol. Tybiwch ydych am greu macro ar gyfer "Excel" i'r gell gyda'r cyfesurynnau (1,1) wedi ei gofnodi:

1 os yw'r ddadl yn gadarnhaol;

0 os yw'r ddadl yn sero;

1, os yw'r ddadl yn negyddol.

Mae creu macro o'r fath ar gyfer "Excel" creu yn dechrau mewn modd safonol, trwy ddefnyddio "poeth" allweddi Alt a F11. Ysgrifennwyd y cod canlynol bellach:

Is-raglen ()

x = Celloedd (1, 1) .Value (Mae'r gorchymyn yn aseinio'r gwerth gyfesurynnau x o gynnwys cell (1, 1))

Os x> 0 Yna Celloedd (1, 1) .Value = 1

Os x = 0 Yna Celloedd (1, 1) .Value = 0

Os yw x <0 Yna Celloedd (1, 1) .Value = -1

Is-End.

Rhaid aros i redeg macro a mynd i mewn "Excel" gwerth a ddymunir ar gyfer y ddadl.

swyddogaethau VBA

Efallai eich bod wedi sylwi, yn y rhaglen cymhwysiad taenlen enwocaf Microsoft nid yn rhy anodd. Yn enwedig os byddwch yn dysgu sut i ddefnyddio swyddogaethau VBA. Yn gyfan gwbl, mae hyn yn iaith raglennu a grëwyd yn benodol ar gyfer ysgrifennu ceisiadau i mewn "Excel" a'r Gair, tua 160 o swyddogaethau. Gellir eu rhannu'n nifer o grwpiau mawr. Y rhain yw:

• ffwythiannau mathemategol. eu cymhwyso at y ddadl o werth cosin yn cael ei sicrhau, y logarithm naturiol, ac felly mae'r rhan cyfan.
• swyddogaethau ariannol. Oherwydd eu argaeledd a defnydd rhaglennu yn Excel, gallwch gael arfau effeithiol ar gyfer cyfrifo a setliadau ariannol.
• swyddogaethau prosesu Array. Mae'r rhain yn cynnwys Array, IsArray; LBound; UBound.
• VBA Excel swyddogaeth am y llinell. Mae hwn yn grŵp eithaf mawr. Mae'n cynnwys, er enghraifft, swyddogaeth Space i greu llinyn gyda nifer o fylchau hafal i'r ddadl cyfanrif neu symbolau drosglwyddiadau CPA i cod ANSI. Mae pob un ohonynt yn ddefnyddir yn eang ac yn caniatáu i chi weithio gyda llinynnau yn y "Excel" i greu ceisiadau yn llawer haws i weithio gyda'r tablau hyn.
• swyddogaethau trosi math Data. Er enghraifft, CVar dychwelyd ddadl Mynegiant, trosi i fath ddata Amrywiolyn.
• swyddogaethau Dyddiad. Maent yn fawr ehangu nodweddion safonol o "Excel". Felly, swyddogaeth WeekdayName yn dychwelyd enw (yn llawn neu'n rhannol) y dydd o'r wythnos yn ôl ei rif. Hyd yn oed yn fwy defnyddiol yw'r Amserydd. Mae'n rhoi y nifer o eiliadau sydd wedi mynd heibio ers hanner nos i eiliad penodol o'r dydd.
• Swyddogaeth i drosi dadl rhifol yn y gwahanol systemau rhif. Er enghraifft, Hydref allbynnau i gynrychiolaeth wythol o'r nifer.
• swyddogaethau fformatio. Y pwysicaf o'r rhain yw'r Fformat. Mae'n dychwelyd Variant gyda mynegiant fformatio yn unol â chyfarwyddiadau a roddir yn y disgrifiad o'r fformat.
• ac yn y blaen.

Bydd yr astudiaeth o briodweddau swyddogaethau hyn a'u cymhwysiad ehangu yn sylweddol cwmpas "Excel".

ENGHRAIFFT 5

Gadewch i ni geisio datrys problemau mwy cymhleth. Er enghraifft:

dogfen bapur Dan lefel wirioneddol o gostau o'r adroddiad menter. ei gwneud yn ofynnol:

• datblygu ei gyfran batrwm trwy daenlen "Excel";
• gwneud rhaglen VBA a fydd yn gofyn am ddata crai i'w llenwi, i wneud y cyfrifiadau angenrheidiol a llenwch y templed y gell cyfatebol.

Ystyriwch un o'r atebion canlynol.

Creu templed

Mae'r holl gamau gweithredu yn cael eu perfformio ar ddalen safonol yn Excel. celloedd am ddim cadw ar gyfer mynd i mewn data ar y mis, blwyddyn, cwmnïau teitl-ddefnyddwyr, swm y costau, lefel eu trosiant. Wrth i nifer y cwmnïau (cwmnïau), mewn perthynas â hwy nad oedd yr adroddiad yn cael ei gofnodi, y celloedd eu gwneud ar sail gwerthoedd ac enw proffesiynol yn cael ei gadw ar flaen llaw. Taflen waith neilltuo i enw newydd. Er enghraifft, "Adroddiad Օ".

newidynnau

I ysgrifennu rhaglen llenwi yn awtomatig yn y templed, dewiswch y nodiant. Byddant yn cael eu defnyddio ar gyfer y newidynnau:

• NN- rhif y rhes presennol y tabl;
• TP a TF - gynllunio a'i throsiant gwirioneddol;
• SF a SP - cyfanswm costau gwirioneddol ac arfaethedig;
• IP a IF - lefel gwir gostau cynlluniedig a.

Rydym ddynodi gan yr un llythrennau, ond gyda "rhagddodiad» cyfanswm cronni Itog am y golofn honno. Er enghraifft, ItogTP - O ran y golofn o'r enw, fel "y trosiant a gynlluniwyd."

Ateb y broblem drwy ddefnyddio rhaglennu VBA

Gan ddefnyddio'r nodiant hwn, rydym yn cael y fformiwla ar gyfer yr amrywiad. Os ydych am wneud y cyfrifiad yn y% sydd gennym (F - P) / P * 100, ac yn y swm o - (F - P).

Gall y canlyniadau cyfrifiadau hyn fydd orau yn unig i wneud "Excel" taenlen yn y celloedd priodol.

Ar gyfer y canlyniad a'r prognosis yn wir a geir drwy fformiwlâu ItogP = ItogP + P a ItogF = ItogF + F.

Ar gyfer gwyriadau defnyddio = (ItogF - ItogP) / ItogP * 100 os yw'r cyfrifiad yn cael ei wneud fel canran, ac os yw cyfanswm gwerth - (ItogF - ItogP).

Mae'r canlyniadau unwaith eto a gofnodwyd yn y celloedd priodol, felly nid oes angen i neilltuo i newidynnau.

Cyn dechrau i greu rhaglen ydych am arbed y llyfr gwaith, er enghraifft, o dan yr enw "Otchet1.xls".

Press "Creu tabl adrodd," mae'n rhaid i chi bwyso dim ond 1 o amser ar ôl mynd i mewn i'r wybodaeth pennawd. Dylech wybod a rheolau eraill. Yn benodol, mae'r botwm "Add llinell" Rhaid fod yn pwyso bob amser ar ôl mynd i mewn i'r tabl o werthoedd ar gyfer pob gweithgaredd. Ar ôl mynd i mewn yr holl ddata sy'n ofynnol i bwyso ar y botwm "Gorffen", ac yna newid i "Excel" yn y ffenestr.

Nawr eich bod yn gwybod sut i ddatrys y broblem ar gyfer Excel gyda macros. Y gallu i ddefnyddio VBA Excel (gweler rhaglenni sampl. Uchod) ac efallai y bydd angen i chi weithio yn yr amgylchedd o'r rhai mwyaf poblogaidd ar hyn o bryd, y golygydd testun "Word". Yn benodol, drwy gofnodi, fel y dangosir yn y ddechrau'r erthygl hon, neu drwy ysgrifennu cod i greu'r fwydlen botymau y gall llawer o'r gweithrediadau ar y testun yn cael ei wneud drwy wasgu'r bysellau ar ddyletswydd neu trwy'r "View" eicon a tab "Macros".