VBA Excel: programmi kampjun. Macros fl-Excel

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

Ċelloli (i, 1) .Value = x1 (valur x1 miktub fil-memorja bil-koordinati (i, 1))

Ċelloli (i, 2) .Value = y (valur y hija miktuba fiċ-ċellola bil-koordinati (i, 2))

i = i + 1 (għadd valida);

x1 = x1 + shag (-argument jinbidel id-daqs pass);

loop

Tmiem Sub.

Bħala riżultat ta 'dan makro run "Excel" jiksbu żewġ kolonni, l-ewwel waħda minnhom huma rreġistrati l-valuri għall x, u t-tieni - li y.

Imbagħad iskeda kapaċi li jibnu fuqhom, l-istandard għal "Excel".

EŻEMPJU 3

Biex jiġu implimentati ċikli VBA Excel 2010, kif ukoll f'verżjonijiet oħra, flimkien mal-Do diġà naqqset Filwaqt disinn użat Għal.

Ikkunsidra programm li joħloq kolonna. F'kull ċellula se jiġu rreġistrati kwadri numru linja korrispondenti. Għall-użu tad-disinn se jippermetti li tniżżilha fil-qosor ħafna, mingħajr l-użu ta 'counter.

L-ewwel huwa meħtieġ li tinħoloq makro, kif deskritt hawn fuq. Sussegwentement, ikteb il-kodiċi innifsu. Aħna nemmnu li aħna huma interessati fil-valuri għall-10 ċelloli. Il-kodiċi hija kif ġej.

Għal i = 1 sa 10 li jmiss

Il-kmand huwa trasferit għall-lingwa "uman", bħala "ripetuti 1-10 f'inkrementi ta 'wieħed."

Jekk il-kompitu li jirċievu l-kolonna bi kwadri, per eżempju, interi fard kollha bejn 1 u 11, aħna tikteb:

Għal i = 1 sa 10 pass 1 jmiss.

Hawnhekk, pass - pass. F'dan il-każ, huwa ugwali għal tnejn. Konvenzjonalment, l-assenza tal-kelma fil-linja ifisser li pass wieħed.

Ir-riżultati jeħtieġ li jkunu maħżuna fil numru ta 'ċelloli (i, 1). Imbagħad kull darba li tibda l-ċiklu ma 'żieda fil-valur ta' i pass awtomatikament se jikbru u numru linja. Għalhekk, se jkun hemm ottimizzazzjoni kodiċi.

B'mod ġenerali, il-kodiċi look like:

programm sub ()

Għal i = 1 Biex 10 Pass 1 (jista 'jinkiteb biss għall i = 1 Biex 10)

Ċelloli (i, 1) .Value = i ^ 2 (jiġifieri b'valur kwadru huwa miktub fil-ċellola (i, 1) i)

Li jmiss (f'sens tilgħab l-irwol tal-mezzi counter u bidu ieħor ċiklu)

Tmiem Sub.

Jekk isir b'mod korrett, inkluż reġistrazzjoni u tmexxija macros (ara. L-istruzzjonijiet ta 'hawn fuq), allura huwa msejjaħ kull darba daqs mogħti jinkisbu kolonna (f'dan il-każ jikkonsisti ta '10 ċelluli).

EŻEMPJU 4

Fil-ħajja ta 'kuljum, ħafna drabi huwa neċessarju li din jew dik id-deċiżjoni skond il-xi kundizzjonijiet. ma tistax tagħmel mingħajrhom fil VBA Excel. Eżempji ta 'programmi meta l-kors ulterjuri tal-algoriżmu tkun magħżula minflok inizjalment predeterminat, ħafna disinn użat komunement tat Jekk ... Imbagħad (għal każijiet diffiċli) Jekk ... Imbagħad ... TMIEM Jekk.

Ikkunsidra l-każ partikolari. Ejja ngħidu li inti tixtieq li toħloq makro għal "Excel" biex iċ-ċellola bl-koordinati (1,1) ġiet irreġistrata:

1 jekk l-argument huwa pożittiv;

0 jekk l-argument huwa żero;

1, jekk l-argument huwa negattiv.

Il-ħolqien ta 'tali makro għal "Excel" jibda b'mod normali, permezz tal-użu ta' "taħraq" ċwievet Alt u F11. Aktar miktub-kodiċi li ġej:

programm sub ()

x = Ċelloli (1, 1) .Value (Dan il-kmand jassenja l-valur ta 'x koordinati tal-kontenut taċ-ċelluli (1, 1))

Jekk x> 0 Imbagħad Ċelloli (1, 1) .Value = 1

Jekk x = 0 Imbagħad Ċelloli (1, 1) .Value = 0

Jekk x <0 Imbagħad Ċelloli (1, 1) .Value = -1

Tmiem Sub.

Jibqa 'biex tmexxi makro u jiksbu fil- "Excel" valur mixtieq għall-argument.

funzjonijiet VBA

Kif jista 'jkollok ndunat, fil-programm ta' Microsoft applikazzjoni spreadsheet aktar famużi mhuwiex wisq diffiċli. Speċjalment jekk inti jitgħallmu kif jużaw funzjonijiet VBA. B'kollox, din il-lingwa ta 'programmar maħluqa speċifikament għall-kitba applikazzjonijiet fil- "Excel" u l-Kelma, madwar 160 funzjonijiet. Huma jistgħu jinqasmu f'diversi gruppi kbar. Dawn huma:

• funzjonijiet matematiċi. Applikazzjoni tagħhom għall-argument tal-valur cosine jinkiseb, il-logaritmu naturali, u għalhekk l-parti sħiħa.
• funzjonijiet finanzjarji. Minħabba d-disponibbiltà u l-użu ta 'programmazzjoni tagħhom fl-Excel, inti tista' tikseb għodod effettivi għall-kontabilità u l-abitazzjonijiet finanzjarji.
• funzjonijiet ta 'pproċessar Array. Dawn jinkludu Array, IsArray; LBound; UBound.
• VBA Excel jiffunzjonaw għal-linja. Dan huwa grupp pjuttost kbir. Dan jinkludi, per eżempju, il-funzjoni Ispazju biex joħolqu string ma 'numru ta' lakuni ugwali għall-argument numru sħiħ jew simboli trasferimenti ASC għall-kodiċi ANSI. Kollha kemm huma użati ħafna u jippermetti li inti taħdem ma kordi fil- "Excel" biex joħolqu applikazzjonijiet ħafna aktar faċli li taħdem ma 'dawn it-tabelli.
• funzjonijiet ta 'konverżjoni tat-tip tad-data. Per eżempju, CVar prospetti argument Espressjoni, jikkonvertuha li tip ta 'data Varjant.
• funzjonijiet Data. Huma ħafna jespandu l-karatteristiċi standard ta ' "Excel". Allura, il-funzjoni WeekdayName jirritorna l-isem (sħiħa jew parzjali) tal-jum tal-ġimgħa bin-numru tagħha. Saħansitra aktar utli hija l-gimgħa. Huwa jagħti n-numru ta 'sekonda li għaddew peress nofs il-lejl li f'mument partikolari tal-ġurnata.
• Funzjoni li jikkonvertu argument numerika fis-sistemi numru differenti. Per eżempju, Ottubru outputs għal rappreżentanza octal tan-numru.
• funzjonijiet ifformattjar. L-aktar importanti minn dawn huwa l Format. Dan jirritorna l-Varjant ma espressjoni ifformattjat skond l-istruzzjonijiet mogħtija fid-deskrizzjoni tal-format.
• u oħrajn.

L-istudju tal-proprjetajiet ta 'dawn il-funzjonijiet u l-applikazzjoni tagħhom ser tespandi b'mod sinifikanti l-ambitu ta' "Excel".

EŻEMPJU 5

Ejja nippruvaw biex isolvu problemi aktar kumplessi. Per eżempju:

dokument tal-karta Share-livell attwali tal-ispejjeż tar-rapport intrapriża. jirrikjedi:

• tiżviluppa porzjon mudell tagħha billi spreadsheet "Excel";
• jagħmlu programm VBA li se jitlob għall dejta mhux ipproċessata jimlieh, biex iwettqu l-kalkolazzjonijiet meħtieġa u imla l-mudell taċ-ċellula korrispondenti.

Ikkunsidra waħda mis-soluzzjonijiet li ġejjin.

Ħolqien ta 'mudell

L-azzjonijiet kollha huma mwettqa fuq folja standard fl-Excel. Free ċelloli riservati għal dħul ta 'data fuq il- xahar, sena, kumpaniji titolu' konsumatur, l-ammont tal-ispejjeż, il-livell tagħhom ta 'fatturat. Billi n-numru ta 'kumpaniji (kumpaniji), li dwarha r-rapport ma tiġix irreġistrata, iċ-ċelloli li jagħmlu fuq il-bażi tal-valuri u l-isem professjonali mhijiex riżervata bil-quddiem. Worksheet assenjat għal isem ġdid. Per eżempju, "Rapport Օ".

varjabbli

Li tikteb il-programm awtomatikament imla l-mudell, tagħżel l-notazzjoni. Dawn se jintużaw għall-varjabbli:

• NN- numru tar-ringiela attwali tat-tabella;
• TP u TF - ppjanati u l-fatturat attwali;
• SF u DP - ispejjeż totali attwali u ppjanati;
• IP u IF - livell ispejjeż attwali ppjanati u.

Aħna jindikaw mill-istess ittri, iżda ma ' "prefiss» Itog totali akkumulazzjoni għal dak kolonna. Per eżempju, ItogTP - Fir-rigward tal-kolonna intitolata, bħala "il-fatturat ippjanat."

Soluzzjoni tal-problema bl-użu ipprogrammar VBA

Meta tuża dan notazzjoni, irridu jiksbu l-formula għall-varjanza. Jekk inti tixtieq li twettaq il-kalkolu f '% għandna (F - P) / P * 100, u l-ammont ta' - (F - P).

Ir-riżultati ta 'dawn il-kalkoli jistgħu jkunu aħjar biss biex jagħmlu "Excel" spreadsheet fiċ-ċelloli xierqa.

Għar-riżultat u pronjożi fil-fatt jinkiseb billi formuli ItogP = ItogP + P u ItogF = ItogF + F.

Għal devjazzjonijiet użu = (ItogF - ItogP) / ItogP * 100 jekk il-kalkolu jsir bħala persentaġġ, u jekk il-valur totali - (ItogF - ItogP).

Ir-riżultati għal darb'oħra rreġistrati fiċ-ċelloli approprjati, u għalhekk ma hemmx bżonn li jassenjawhom għal varjabbli.

Qabel tibda biex joħolqu programm li inti tixtieq li jiffrankaw il-workbook, per eżempju, taħt l-isem "Otchet1.xls".

Istampa "Oħloq tabella ta 'rappurtar," inti trid istampa biss 1 ħin wara li jidħlu fil-informazzjoni header. Għandek tkun taf u regoli oħra. B'mod partikolari, il-buttuna "Żid linja" għandha tkun ippressata kull darba wara d-dħul fit-tabella ta 'valuri għal kull attività. Wara li tidħol l-informazzjoni kollha meħtieġa biex agħfas il-buttuna "Finish", u mbagħad jaqilbu għal "Excel" fit-tieqa.

Issa li taf kif se ssolvi l-problema għall Excel ma macros. -Kapaċità li jużaw VBA jisbqu (ara programmi kampjun. Fuq) u jista 'jkollok bżonn biex taħdem fl-ambjent mill-aktar popolari fil-mument, l-editur test "Kelma." B'mod partikolari, permezz ta 'rekordjar, kif muri fil-bidu ta' dan l-artikolu, jew billi tikteb kodiċi li jinħolqu l-buttuni menu li permezz tagħhom ħafna mill-operazzjonijiet fuq it-test jista 'jsir billi tagħfas il-keys fuq id-dazju jew permezz tal- "View" ikona u "macros" tab.