VBA Excel: sample mmemme. Macros na Excel

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

Sel (i, 1) .Value = x1 (x1 uru dere na ebe nchekwa na-achịkọta (i, 1))

Sel (i, 2) .Value = y (y uru e dere cell na-achịkọta (i, 2))

i = i + 1 (nti ọnụ);

x1 = x1 + nwaanyị Shunem (esemokwu na-gbanwere nzọụkwụ size);

loop

End Sub.

Dị ka a N'ihi nke a ọsọ nnukwu "Excel" nweta kọlụm abụọ, nke mbụ nke nke na-dere na ụkpụrụ maka x, na nke abụọ - na y.

Mgbe ahụ ịtọọ oge ike iru ha, ụkpụrụ "Excel".

nlereanya 3

Mejuputa cycles na VBA Excel 2010, dị ka nke ọma dị ka ndị ọzọ na nsụgharị, ya na ndị na-ama belata Do ezie imewe eji N'ihi.

Tụlee a omume na-emepụta a kọlụm. Na nke ọ bụla cell ọ ga-e dere n'ámá kwekọrọ ekwekọ akara nọmba. Maka ojiji nke imewe ga-ekwe ka idekọ ya nnọọ nkenke, na-enweghị ihe a counter.

First ọ dị mkpa ka ike a nnukwu, dị ka a kọwara n'elu. Next, dee koodu onwe ya. Anyị kweere na anyị nwere mmasị na ụkpụrụ maka 10 mkpụrụ ndụ. The koodu bụ dị ka ndị.

N'ihi na i = 1 10 Next

The iwu na-agafere na "ụmụ mmadụ" asụsụ, dị ka "ugboro ugboro site 1 10 na increments nke otu onye."

Ọ bụrụ na ndị ọrụ na-enweta na kọlụm na n'ámá ka ihe atụ, ihe niile iberibe integers n'etiti 1 na 11, anyị na-ede:

N'ihi na i = 1 10 nzọụkwụ 1 Next.

Ebe a, kwụpụ - nzọụkwụ. Na nke a, na ọ bụ hà abụọ. Site ndabara, enweghị okwu na akaghị pụtara na a otu nzọụkwụ.

The results mkpa ka a echekwara na cell nọmba (i, 1). Mgbe oge ọ bụla ị malite okirikiri na onye na-abawanye na uru nke i kwụpụ ga-akpaghị aka na-eto eto na akara nọmba. N'ihi ya, a ga-koodu njikarịcha.

Ke ofụri ofụri, na koodu ga-ele anya dị ka:

Sub mmemme ()

N'ihi na i = 1 Iji 10 Nzọụkwụ 1 (nwere ike e dere naanị maka i = 1 Iji 10)

Sel (i, 1) .Value = i ^ 2 (i.e. square uru na-e dere n'ime cell (i, 1) i)

Next (na a uche na-arụ ọrụ nke counter n'aka na nsogbu ọzọ mmalite)

End Sub.

Ọ bụrụ na mere ziri ezi, tinyere na ndekọ na-agba ọsọ macros (lee. The ntụziaka n'elu), mgbe ahụ, ọ na-akpọ oge ọ bụla a nyere size ga-enwetara kọlụm (na nke a esịnede 10 mkpụrụ ndụ).

GOSIRI 4

Na-adị kwa ụbọchị ndụ, mgbe mgbe, ọ dị mkpa na-a ma ọ bụ na mkpebi dabere na ụfọdụ ọnọdụ. Nwere ike ime na-enweghị ha na VBA Excel. Ihe Nlereanya nke omume n'ihu N'ezie nke algọridim họrọ kama ibido gaghị agara, akacha eji imewe nke Ọ bụrụ na ... Mgbe ahụ, (n'ihi na ihe siri ike ikpe) Ọ bụrụ na ... Mgbe ... Ọgwụgwụ Ọ bụrụ.

Tụlee kpọmkwem. Were ya na ị chọrọ ike a na nnukwu maka "Excel" na cell na-achịkọta (1,1) e dere:

1 ma ọ bụrụ na esemokwu dị mma;

0 ma ọ bụrụ na esemokwu bụ efu;

1, ma ọ bụrụ na esemokwu bụ na-ezighị ezi.

Ihe e kere eke nke ndị dị otú a na nnukwu maka "Excel" amalite na a ọkọlọtọ ụzọ, site n'iji "ọkụ" igodo Alt na F11. Ọzọkwa e dere ndị na-esonụ koodu:

Sub mmemme ()

x = Sel (1, 1) .Value (a iwu nyere uru nke x na-achịkọta ndị cell ọdịnaya (1, 1))

Ọ bụrụ na x> 0 wee Sel (1, 1) .Value = 1

Ọ bụrụ na x = 0 wee Sel (1, 1) .Value = 0

Ọ bụrụ na x <0 wee Sel (1, 1) .Value = -1

End Sub.

Ọ na-anọgide na-agba ọsọ a na nnukwu na-esi na "Excel" chọrọ uru maka n'arụmụka.

VBA ọrụ

Ka ị nwere ike chọpụtara, na ihe ndị kasị ama omume Microsoft spreadsheet ngwa adịghị kwa ike. Karịsịa ma ọ bụrụ na ị mụta otú e si eji VBA ọrụ. Na ngụkọta, a mmemme asụsụ kere kpọmkwem maka ede ngwa ke "Excel" na Okwu, banyere 160 ọrụ. Ha nwere ike kere n'ime ọtụtụ nnukwu iche iche. Ha bụ:

• Mathematical ọrụ. Ime ka ha na-arụrịta nke cosine uru na-enwetara, eke logarithm, na otú dum akụkụ.
• Financial ọrụ. Ruru ha nnweta na ojiji mmemme na Excel, i nwere ike inwe irè ngwá ọrụ maka ajụjụ na ego niile.
• Hazienụ nhazi ọrụ. Ndị a gụnyere Hazienụ, IsArray; LBound; UBound.
• VBA Excel na-arụ ọrụ maka akara. Nke a bụ a pụtara nnukwu otu. Ọ na-agụnye ihe atụ, Space ọrụ ike a eriri na a ọnụ ọgụgụ nke gaps hà integer esemokwu ma ọ bụ Asc enyefe nnọchianya ka ANSI koodu. Ha niile bụ ọtụtụ ebe ada na-ekwe ka ị na-arụ ọrụ na ndido urụk ke "Excel" ike ngwa nnọọ mfe na-arụ ọrụ ndị a tebụl.
• Data ụdị akakabarede ọrụ. Ka ihe atụ, CVar laghachi Expression esemokwu, n'ịtụgharị ya variant data ụdị.
• Ụbọchị ọrụ. Ha ukwuu mụbaa ọkọlọtọ atụmatụ nke "Excel". Ya mere, WeekdayName ọrụ laghachi aha (full ma ọ bụ ele mmadụ anya n'ihu) nke ụbọchị izu site nọmba ya. Ọbụna ihe bara uru bụ Ngụoge. Ọ na-enye ndị ọnụ ọgụgụ nke sekọnd na gafeworonụ kemgbe abalị ka a akpan akpan oge nke ụbọchị.
• Na-arụ ọrụ iji tọghata a ọnụọgụ esemokwu na dị iche iche nọmba usoro. Ka ihe atụ, Oct ndapụta na octal nnọchiteanya nke ọnụ ọgụgụ.
• formatting ọrụ. Ihe kacha mkpa n'ime ndị a bụ Format. Ọ laghachi a variant na ngosipụta Ị dị ka ntụziaka e nyere na nkọwa nke format.
• na otú pụta.

The ọmụmụ nke Njirimara nke ọrụ ndị a na ha na ngwa ga budata mụbaa akporo "Excel".

GOSIRI 5

Ka anyị na-agbalị idozi ihe mgbagwoju nsogbu. Dị ka ihe atụ:

Dan akwụkwọ akwụkwọ ahụ n'ezie larịị nke na-akwụ ụgwọ nke enterprise akụkọ. na-achọ:

• ịzụlite ya ụkpụrụ òkè site spreadsheet "Excel";
• ka a VBA omume nke ga-ajụ maka raw data ka ọ rụọ ya, na-ebu ndị dị mkpa mgbawa ma jupụta na atụrụ nke kwekọrọ ekwekọ cell.

Tụlee otu n'ime ndị na-esonụ ngwọta.

Ịmepụta a template

All omume na-rụrụ n'elu a ọkọlọtọ mpempe akwụkwọ na Excel. Free mkpụrụ ndụ debeere abanye data na ọnwa, afọ, aha-n'ji ụlọ ọrụ, ego nke na-akwụ ụgwọ, ha dị larịị nke ntụgharị. Ka ọnụ ọgụgụ nke ụlọ ọrụ (ụlọ ọrụ), na-akwanyere ùgwù nke akụkọ na-adịghị dere, mkpụrụ ndụ na-eme ka ihe na-adabere ụkpụrụ na ọkachamara aha na-abụghị echekwabara n'ọdịnihu. Ebe M Dere kenyere a aha ọhụrụ. Ka ihe atụ, "Օ Report".

variables

Iji dee ihe omume na-akpaghị aka jupụta na atụrụ, họrọ notation. Ha ga-eji maka variables:

• NN- nọmba nke ugbu a n'usoro nke table;
• TP na TF - zubere na n'ezie ntụgharị;
• SF na SP - n'ezie na kpara ngụkọta-akwụ ụgwọ;
• IP na Ọ BỤRỤ na - zubere na n'ezie na-akwụ ụgwọ larịị.

Anyị ịpụta site n'otu akwụkwọ ozi, ma na a "nganiihu» Itog ìgwè ngụkọta maka na kọlụm. Ka ihe atụ, ItogTP - banyere kọlụm isiokwu, dị ka "zubere ntụgharị."

Ngwọta nke nsogbu iji VBA mmemme

Iji a notation, anyị na-enweta usoro maka ndịiche. Ọ bụrụ na ị chọrọ na-ebu na ngụkọta oge na% anyị nwere (F - P) / P * 100, na ego nke - (F - P).

The results nke a mgbawa nwere ike ịbụ kasị mma dị nnọọ na-eme "Excel" spreadsheet na kwesịrị ekwesị mkpụrụ ndụ.

N'ihi na ihe ga-esi na prognosis n'ezie nwetara site formulas ItogP = ItogP + P na ItogF = ItogF + F.

N'ihi na deviations iji = (ItogF - ItogP) / ItogP * 100 ma ọ bụrụ na ngụkọta oge a rụrụ dị ka a pasent, na ọ bụrụ na ngụkọta uru - (ItogF - ItogP).

The results ọzọ dere na kwesịrị ekwesị na mkpụrụ ndụ, ya mere ọ dịghị mkpa na-ekenye ha ka ha na variables.

Tupu ịmalite iji mepụta a mmemme ị chọrọ ịzọpụta workbook ka ihe atụ, n'okpuru aha "Otchet1.xls".

Press "Mepụta a akuko table," ị ga-pịa naanị 1 oge mgbe abanye nkụnye eji isi mee ozi. I kwesịrị ịma na ndị ọzọ na iwu. Karịsịa, button "Tinye a akara" ga-mbadamba oge ọ bụla mgbe abanye n'ime table nke ụkpụrụ nke ọ bụla ọrụ. Ke ndidụk niile data chọrọ iji pịa bọtịnụ "n'isi", na mgbe ahụ ịgbanwee "Excel" ke window.

Ugbu a, na ị maara otú iji dozie nsogbu maka Excel na macros. The ikike iji vba Excel (ịhụ sample mmemme. N'elu) na ị nwere ike mkpa na-arụ ọrụ na gburugburu ebe obibi nke ndị kasị ewu ewu ugbu a, ederede nchịkọta akụkọ "Okwu ahụ." Karịsịa, site Ndekọ, dị ka e gosiri ná mmalite nke isiokwu a, ma ọ bụ site na-ede code kee menu buttons site na nke ọtụtụ ndị arụmọrụ na ederede nwere ike mere site na ịpị igodo ọrụ ma ọ bụ site na "View" icon na "Macros" tab.