VBA Excel: የናሙና ፕሮግራሞች. በ Excel ውስጥ ማክሮዎች

የ y = X1 + X1 ^ 2 + 3 * X1 ^ 3 - ቆስ (X1)

ሕዋሳት (i, 1) .Value = X1 (X1 ዋጋ መጋጠሚያዎች (i ጋር ትውስታ ውስጥ የተጻፈ, 1))

ሕዋሳት (i, 2) .Value = y (y ዋጋ መጋጠሚያዎች (ጋር ሴል ውስጥ የተጻፈ ነው i, 2))

i = i 1 (ትክክለኛ ቆጠራ) +;

X1 = X1 + (ሙግት እርምጃ መጠን ተለውጧል ነው) አቢሻግን;

ደጋግም

ጨርስ ንዑስ.

y ነው - ይህ አሂድ ማክሮ ምክንያት "የ Excel" ሁለት x ለ እሴቶች ተመዝግበው ይገኛሉ የመጀመሪያው የትኛው ዓምዶች, እንዲሁም ሁለተኛው ማግኘት.

ከዚያም "Excel" ለ, በእነርሱ ላይ መደበኛ መገንባት ችለዋል ቀጠሮ.

ምሳሌ 3

ንድፍ ለማግኘት ጥቅም ላይ ሳለ ያለውን አስቀድሞ ቀንሷል ስራዎች ጋር በመሆን, VBA Excel 2010 ዑደቶች መተግበር, እንዲሁም ሌሎች ትርጉሞች ላይ ነው.

አንድ አምድ የሚፈጥር መሆኑን ፕሮግራም እንመልከት. በእያንዳንዱ ሕዋስ ውስጥ መስመር ቁጥር ተጓዳኝ አደባባዮች ይመዘገባል. ንድፍ ለመጠቀም አጸፋዊ አጠቃቀም ያለ, በጣም በአጭሩ ይህን እንዲቀዳ ያስችለዋል.

በመጀመሪያ ከላይ እንደተገለፀው, አንድ ማክሮ መፍጠር አስፈላጊ ነው. ቀጥሎም ኮድ ራሱ ጻፍ. እኛ እኛ 10 ሕዋሳት ለ እሴቶች ፍላጎት እንደሆነ ያምናሉ. እንደሚከተለው ኮዱን ነው.

እኔ 10 ቀጥሎ ወደ 1 = ለ

የ ትእዛዝ እንደ «ሰብዓዊ» ቋንቋ ይተላለፋል "በአንድ እየጨመሩ 10 1 ከ በተደጋጋሚ."

ተግባር ርቢዎች ጋር አምድ ለመቀበል ከሆነ, ለምሳሌ, በ 1 እና በ 11 መካከል ሁሉ ኢተጋማሽ ቁጥሮችን ቢወክል, እኛ ጻፍ:

i = 1 ወደ 10 ደረጃ 1 ቀጥሎ ለ.

እዚህ ደረጃ - ደረጃ. በዚህ ሁኔታ ውስጥ ደግሞ ሁለት እኩል ነው. በነባሪነት, ማሳውቅ ቃል አለመኖር በአንድ ደረጃ ማለት ነው.

ውጤቶቹ ሕዋስ ቁጥር (i, 1) ውስጥ እንዲከማች ያስፈልጋቸዋል. እኔ በራስ እንዲያድጉ እና መስመር ቁጥር ይሆናል ደረጃ በዚያን ጊዜ ሁሉ እናንተ ዋጋ ላይ ጭማሪ ጋር ዑደት ይጀምራል. በመሆኑም ኮድ ማመቻቸት ይሆናል.

በአጠቃላይ, ኮድ ይመስላል ነበር:

ንዑስ ፕሮግራም ()

i = 1 ወደ 10 ደረጃ 1 ለ (1 10 ወደ = ብቻ እኔ የተጻፈው ይችላል)

ሕዋሳት (i, 1) .Value = i ^ 2 (ማለትም ካሬ እሴት ሕዋስ ውስጥ የተጻፈ ነው (i, 1) i)

ቀጣይ (ሀ ስሜት ውስጥ ቆጣሪ ዘዴ እና ሌላ ዑደት ጅምር ሚና ይጫወታል)

ጨርስ ንዑስ.

ቀረጻ እና በማሄድ ላይ ማክሮዎችን (. ከላይ ያሉትን መመሪያዎች ይመልከቱ) ጨምሮ, በትክክል እንዳደረገ ከሆነ, ከዚያም በተወሰነ መጠን (10 ሕዋሳት ያካተተ በዚህ ሁኔታ ውስጥ) አምድ አገኘሁ ይሆናል በእያንዳንዱ ጊዜ ይባላል.

ምሳሌ 4

በዕለት ተዕለት ሕይወታችን ውስጥ, በጣም ብዙ ጊዜ አንዳንድ ሁኔታዎች ላይ በመመስረት ይህን ወይም ያን ውሳኔ መውሰድ አስፈላጊ ነው. VBA Excel ውስጥ ያለ ማድረግ አይቻልም. ወደ ስልተ ያለውን ተጨማሪ አካሄድ ይልቅ ከተመረጠ የት ፕሮግራሞች ምሳሌዎች END ከሆነ ... ከዚያም ... መጀመሪያ, አስቀድሞ (አስቸጋሪ ሁኔታዎች ለ) ከዚያም ከሆነ በአብዛኛው በተለምዶ ጥቅም ላይ ንድፍ ... ከሆነ.

የ በተለይ ሁኔታ እንመልከት. እርስዎ ተመዝግቧል ወደ መጋጠሚያዎች ጋር ሕዋስ (1,1) ወደ «የ Excel" ለ ማክሮ መፍጠር ይፈልጋሉ እንበል:

1 እሴት አዎንታዊ ከሆነ;

0 መከራከሪያ ዜሮ ከሆነ;

1 መከራከሪያ አሉታዊ ነው, ከሆነ.

"የ Excel" እንዲህ ያለ ማክሮ ፍጥረት "ሞቃት" ቁልፎች Alt እና F11 በመጠቀም, ደረጃውን የጠበቀ መንገድ ላይ ይጀምራል. በተጨማሪም የሚከተለውን ኮድ ተጽፏል:

ንዑስ ፕሮግራም ()

x = ህዋሶች (1, 1) .Value (ይህ ትዕዛዝ የህዋስ ይዘቶች መካከል x መጋጠሚያዎች ዋጋ (1 ይመድባል, 1))

ከዚያም x> 0 ህዋሶች (1, 1) .Value = 1 ከሆነ

ከዚያም x = 0 ህዋሶች (1, 1) .Value = 0 ከሆነ

ከዚያም x <0 ህዋሶች (1, 1) .Value = -1 ከሆነ

ጨርስ ንዑስ.

ይህ መከራከሪያ ለ የተፈለገውን ዋጋ ማክሮ ለማስኬድ እና "በ Excel" ውስጥ ማግኘት ይቆያል.

VBA ተግባራት

እርስዎ አስተውለህ ይሆናል እንደመሆኑ, በጣም ዝነኛ ፕሮግራም Microsoft ሉህ መተግበሪያ ውስጥ በጣም አስቸጋሪ አይደለም. በተለይ እርስዎ VBA ተግባራት መጠቀም እንደሚችሉ ይማራሉ. በአጠቃላይ, ይህን የፕሮግራም ቋንቋ "የ Excel" እና ቃል ስለ 160 ተግባራት ውስጥ መተግበሪያዎች ለመጻፍ በተለይ ተፈጥሯል. እነዚህ በርካታ ትላልቅ ቡድኖች ሊከፈል ይችላል. እነሱም የሚከተሉት ናቸው:

• ማትማቲካል ተግባራትን. ኮሳይን ዋጋ ያለውን ክርክር ላይ ተግባራዊ እንዲሆኑ, የተፈጥሮ ሎጋሪዝም, እና ስለዚህ መላው ክፍል ማግኘት ነው.
• የፋይናንስ ተግባራትን. ምክንያት Excel ውስጥ መገኘት እና መጠቀም ፕሮግራም ወደ እናንተ ሒሳብ እና የገንዘብ የሰፈራ ውጤታማ መሣሪያዎች ማግኘት ይችላሉ.
• የድርድር ሂደት ተግባራት. እነዚህ ድርድር, IsArray ይገኙበታል; LBound; UBound.
• VBA Excel መስመር ለማግኘት ይሰራሉ. ይህ በተገቢው ትልቅ ቡድን ነው. ይህ ለምሳሌ ያህል, ስፔስ ተግባር ANSI ኮድ ወደ ኢንቲጀር ክርክር ወይም Asc ማስተላለፍ ምልክቶች እኩል ክፍተቶች በርካታ ጋር ሕብረቁምፊ ለመፍጠር, ያካትታል. ሁሉም በሰፊው ጥቅም ላይ የዋሉ ናቸው እና እነዚህን ሰንጠረዦች ጋር ለመስራት በጣም ቀላል መተግበሪያዎችን ለመፍጠር "Excel" ውስጥ ሕብረቁምፊዎች ጋር ለመስራት ያስችላቸዋል.
• የውሂብ አይነት ልወጣ ተግባራት. ለምሳሌ ያህል, CVar ተለዋጭ የውሂብ አይነት ጋር በመለወጥ, ሀሳብን ክርክር ይመልሳል.
• ቀን ተግባራት. እጅግም "የ Excel" መደበኛ ባህሪያት ማስፋፋት. ስለዚህ, WeekdayName ተግባር በራሱ ቁጥር ወደ የሳምንቱ ቀን (ሙሉ ወይም ከፊል) ስም ይመልሳል. እንኳን ይበልጥ ጠቃሚ ያለውን ቆጣሪ ነው. እሱም በቀን ውስጥ አንድ የተወሰነ ጊዜ ወደ እኩለ ሌሊት ጀምሮ አልፈዋል ዘንድ የሰከንዶች ብዛት ይሰጣል.
• የተለያዩ ቁጥር ስርዓቶች ውስጥ የቁጥር ክርክር መቀየር ላይሰሩ. ለምሳሌ ያህል, ጥቅምት ቁጥር ስምንትዮሽ ውክልና ወደ እንደውጤት ይሰጣል.
• ቅርጸት ተግባራት. ከእነዚህ መካከል በጣም አስፈላጊ ቅርጸት ነው. ይህ ቅርፀት መግለጫ ላይ የተሰጠውን መመሪያ መሠረት የተቀረጸ አንድ አገላለጽ ጋር አንድ ተለዋጭ ይመልሳል.
• እና ስለዚህ ይወጣሉ.

እነዚህን ተግባራት እና ማመልከቻ ንብረቶች ጥናቱ በከፍተኛ "የ Excel" ወሰን ማስፋት ይሆናል.

ምሳሌ 5

የአምላክ ይበልጥ ውስብስብ ችግሮች ለመፍታት ጥረት እናድርግ. ለምሳሌ ያህል:

ዳን ወረቀት ሰነድ የድርጅት ሪፖርት ወጪዎች ትክክለኛ ደረጃ. ያስፈልገዋል:

• የተመን "የ Excel" በ በውስጡ ጥለት ክፍል መገንባት;
• ጥሬ ውሂብ አስፈላጊውን ስሌት ለመፈጸም እና ተጓዳኝ ሕዋስ አብነት መሙላት, ይህም ለመሙላት ይጠይቃሉ አንድ VBA ፕሮግራም ማድረግ.

የሚከተሉት መፍትሔዎችን አንዱን እንመልከት.

አንድ አብነት መፍጠር

ሁሉም እርምጃዎች በ Excel ውስጥ መደበኛ ወረቀት ላይ አፈጻጸም ነው. ወደ ላይ ውሂብ በማስገባት ተይዟል ነጻ ሕዋሳት ወር, ዓመት, ርዕስ-የሸማች ኩባንያዎች, ወጪዎች መጠን, የሠራተኛ የእነሱን ደረጃ. ሪፖርቱ የተመዘገበው አይደለም የትኛው አክብሮት ውስጥ ኩባንያዎች (ኩባንያዎች), ቁጥር እንደመሆኑ መጠን ሴሎች በቅድሚያ የተጠበቀላቸው አይደለም እሴቶች እና ሙያዊ ስም መሠረት ለማድረግ. አዲስ ስም ተመድቧል የመልመጃ. ለምሳሌ ያህል, "Օ ሪፖርት".

ተለዋዋጮች

ፕሮግራሙ በራስ አብነት ውስጥ መሙላት ለመጻፍ, የ ምልክትን ይምረጡ. እነዚህ ሰዎች ተለዋዋጮች ላይ ይውላል;

• በሰንጠረዡ ውስጥ ያለውን የአሁኑ ረድፍ NN- ቁጥር;
• TP እና ትረስት - የታቀዱ እና ትክክለኛው የሠራተኛ;
• SF እና SP - ትክክለኛ እና ያሰባችሁት ጠቅላላ ወጪ;
• የ IP እና ከሆነ - የታቀዱ እና ትክክለኛ ወጪ ደረጃ.

እኛም ተመሳሳይ ደብዳቤ ያመለክታል, ነገር ግን ይህ አምድ የሚሆን "ቅጥያ» Itog ክምችት ጠቅላላ ጋር. ለምሳሌ ያህል, ItogTP - አምድ ጋር በተያያዘ እንደ ርዕስ "ወደ ታቅዶ የሠራተኛ."

VBA ፕሮግራም በመጠቀም ችግር መፍትሔ

ይህንን ምልክትን መጠቀም, እኛ የልዩነት የሚሆን ቀመር ማግኘት. እርስዎ% ውስጥ ስሌት ለመፈጸም የሚፈልጉ ከሆነ እኛ አለን (F - P) / አ * 100, እና መጠን ውስጥ - (- P F).

እነዚህ ስሌቶች ውጤቶች ምርጥ ብቻ ተገቢው ሕዋሳት ውስጥ "የ Excel" ሉህ ማድረግ ሊሆን ይችላል.

ItogP = ItogP + P እና ItogF = ItogF + ኤፍ ቀመር ማግኘት እንዲያውም ውጤት እና የሚጠብቀኝን ያህል

የሚያፈነግጡ = ይጠቀሙ (ItogF - ItogP) / ItogP * 100 ስሌቱ በመቶኛ ተሸክመው, እና ከሆነ ጠቅላላ ዋጋ ከሆነ - (ItogF - ItogP).

ውጤቶቹ አንድ ጊዜ እንደገና አግባብ ሕዋሳት ውስጥ ተመዝግቦ, ስለዚህ ተለዋዋጮች እነሱን ለመመደብ አያስፈልግም ነው.

አንድ ፕሮግራም ለመፍጠር ጀምሮ በፊት በ ስም "Otchet1.xls" ስር, ለምሳሌ, ይጨምረዋል ማስቀመጥ ይፈልጋሉ.

ን ይጫኑ "አንድ ሪፖርት ሰንጠረዥ ፍጠር," አንተ ራስጌ መረጃ ካስገቡ በኋላ ብቻ 1 ጊዜ ይጫኑ አለበት. ታውቃላችሁ እና ሌሎች ደንቦች ይኖርባቸዋል. በተለይም, አዝራሩን "አንድ መስመር አክል" እያንዳንዱ እንቅስቃሴ እሴቶች ገበታ ገብቶ በኋላ በእያንዳንዱ ጊዜ ሲጫን አለበት. የ አዝራር "ጨርስ" ይጫኑ, እና ከዚያ መስኮት ውስጥ "የ Excel" ለመቀየር የሚያስፈልገውን ሁሉንም ውሂብ በማስገባት በኋላ.

አሁን ማክሮዎች ጋር Excel ለ ችግሩን ለመፍታት እንዴት እናውቃለን. vba የመጠቀም ችሎታ (. በላይ የናሙና ፕሮግራሞች ይመልከቱ) የ Excel እና ቅጽበት, ጽሑፍ አርታዒ ላይ በጣም ታዋቂ መካከል አካባቢ ውስጥ መሥራት ይኖርብናል ይሆናል "ቃል." በተለይም, በዚህ ርዕስ መግቢያ ላይ እንደሚታየው, መቅዳት በማድረግ, ወይም ጽሑፉ ላይ ቀዶ በርካታ ግዴታ ላይ ወይም "ዕይታ" አዶ እና "ማክሮዎች" ትር በኩል ቁልፎችን በመጫን ሊደረግ ይችላል ይህም በኩል ምናሌ አዝራሮች ለመፍጠር ኮድ በመጻፍ.