فهرست
کله چې موږ په خپل ایکسل کاري کتاب کې لوی ډیټاسیټ لرو، ځینې وختونه دا اسانه وي که موږ د قطارونو له لارې لوپ وکړو ترڅو هغه ځانګړي پایلې راوباسئ چې موږ یې ترلاسه کول غواړو. د VBA پلي کول په Excel کې د هر ډول عملیاتو د چلولو لپاره ترټولو مؤثره، چټکه او خوندي طریقه ده. په دې مقاله کې، موږ به تاسو ته 11 مختلف میتودونه وښایئ چې څنګه د VBA میکرو سره په Excel کې د میز د قطارونو له لارې لوپ کړئ .
د کار کتاب ډاونلوډ کړئ
تاسو کولی شئ د وړیا تمرین Excel کاري کتاب له دې ځایه ډاونلوډ کړئ.
د VBA.xlsm سره د میز قطارونو ته لاړ شئ
11 میتودونه چې د VBA سره په Excel کې د جدول د قطارونو له لارې لوپ کول
د دې برخې په تعقیب، تاسو به زده کړئ چې څنګه د میز د قطارونو له لارې لوپ کول د 11 مختلف میتودونو سره، لکه د قطارونو له لارې لوپ کول تر یوې خالي حجرې پورې، د قطارونو له لارې لوپ کول تر هغه چې یو ځانګړی ارزښت وموندل شي، د قطارونو له لارې لوپ کړئ او په Excel کې د VBA میکرو سره یو ځانګړی سیل رنګ کړئ.
پورته د ډیټا سیټ مثال دی چې دا مقاله به د میتودونو تشریح کولو لپاره تعقیب کړي.
1. د حجرې حوالې شمیرې
که تاسو غواړئ د میز په هر قطار کې د هر حجرې له لارې لوپ کولو لپاره VBA ایمبیډ کړئ ستاسو په Excel ورک شیټ کې د میز په هر قطار کې او د د حجرې حوالې شمیره د بیرته ستنیدو ارزښت په توګه ترلاسه کړئ ، بیا لاندې مرحلې تعقیب کړئ. په خپل کیبورډ کې Alt + F11 فشار ورکړئ یا لاړ شئمتغیر.
4282
د کوډ دا ټوټه دلته د قطارونو له لارې د 1 څخه تر 15 پورې د لوپ کولو لپاره ده. که چیرې دا ځانګړی کلمه " Edge " ومومي نو دا هغه حجره رنګوي چې کلمه لري. دا دې کار ته دوام ورکوي تر هغه چې دا د کلمې په لټون کې له 1 څخه تر 15 قطارونو پورې د ټولو ډیټا سکین کول پای ته ورسوي.
نور ولولئ: د VLOOKUP جدول سرې کارولو څرنګوالی پراساس په Excel کې د حجرو ارزښت
ورته لوستل
- ایا د میز فنکشن په Excel کې شتون لري؟
- څنګه په ایکسل کې لیست ته جدول بدل کړئ (3 ګړندي لارې)
- په Excel کې میز ته رینج بدل کړئ (5 اسانه میتودونه)
- په ایکسل جدول کې په مؤثره توګه فورمول وکاروئ (د 4 مثالونو سره)
- د ایکسل جدول نوم: ټول هغه څه چې تاسو ورته اړتیا لرئ پوه شئ
7. د هر قطار له لارې د لوپ کولو لپاره VBA پلي کړئ او په Excel کې هر عجیب قطار رنګ کړئ
د تیرې برخې څخه، موږ زده کړل چې څنګه یو حجره رنګ کړو چې یو ځانګړی ارزښت لري. پدې برخه کې، موږ به زده کړو چې څنګه د میز د هر قطار څخه لوپ کړو او هر عجیب قطار په Excel کې د VBA میکرو سره رنګ کړو.
د پروسې د اجرا کولو مرحلې لاندې تشریح شوي دي.
مرحلې:
- لکه څنګه چې مخکې ښودل شوي، د Developer څخه Visual Basic Editor خلاص کړئ په کوډ کړکۍ کې tab او Insert a Module .
- بیا، لاندې کوډ کاپي او پیسټ په کې کړئ د کوډ کړکۍ.
4135
ستاسو کوډ اوس د چلولو لپاره چمتو دی.
38>
- اوس، میکرو چلوئ او لاندې عکس ته وګورئ چې محصول وګورئ.
ټول بې شمیره قطارونه رنګ شوي دي د ورک شیټ په جدول کې د ټولو قطارونو له مینځه وړلو وروسته.
VBA کوډ تشریح
9558
متغیر تعریف کړئ.
5210
هغه سلسله تعریف کړئ چې موږ به ورسره کار وکړو.
5834
د کوډ دا برخه د ټولو قطارونو له لارې تکرار ته اشاره کوي، د اوسني قطار له راتلونکي قطار څخه پیل کیږي، B4 . که چیرې د قطار شمیرو د 2 لخوا ویشلو طریقه د بیرته راستانه شوي قطار شمیرې سره مساوي وي چې په انټیجر ډول کې زیرمه شوي وي، نو دا کوډ ټول هغه قطارونه رنګوي چې په کوډ کې چمتو شوي رنګ شاخص سره د محاسبې لخوا استخراج شوي. دا د ټولو قطارونو څخه تیریږي تر هغه چې دا د رینج پای ته ورسیږي.
8. VBA د قطارونو له لارې لوپ کولو لپاره پلي کړئ او په Excel کې هر حتی قطارونه رنګ کړئ
په تیرو برخه کې، موږ زده کړل چې څنګه د میز هر عجیب قطار رنګ کړو. پدې برخه کې، موږ به زده کړو چې څنګه د میز د هر قطار له لارې لوپ کړو او په Excel کې د VBA میکرو سره هر مساوي قطار رنګ کړو.
د پروسې د اجرا کولو مرحلې لاندې بحث شوي.
مرحلې:
- لومړی، د Developer ټب څخه Visual Basic Editor خلاص کړئ او Insert<2 د کوډ په کړکۍ کې یو موډل .
- بیا، لاندې کوډ کاپي او پیسټ د کوډ کړکۍ کې.
5396
ستاسو کوډ اوس چمتو دیچلول.
- بیا، چل کړئ میکرو او د پایلې د لیدلو لپاره لاندې عکس وګورئ.
ټول محدث نمبر شوي قطارونه رنګ شوي وروسته له دې چې د کاري پاڼې په جدول کې میشته ټولو قطارونو ته لاړ شي.
د VBA کوډ تشریح
8749
متغیر تعریف کړئ.
4904
هغه سلسله تعریف کړئ چې موږ به ورسره کار وکړو.
8169
د کوډ دا ټوټه بیا تکرار پیل کوي د اوسني قطار څخه درې قطارونه، B4 . دا لومړی رنګ کوي بیا د قطار شمیره 2 ته زیاتوي او تر هغه وخته پورې رنګ کولو ته دوام ورکوي چې دا د ډیټاسیټ وروستي قطار ته ورسیږي.
9. په Excel کې د قطارونو له لارې تکرارولو لپاره میکرو پلي کړئ تر خالي حجرې پورې
که تاسو غواړئ ستاسو کوډ داسې کار وکړي لکه څنګه چې دا به د میز د ټولو قطارونو له لارې لوپ شي او کله چې خالي حجرې ته ورسیږي ودریږي ، بیا دا برخه ستاسو لپاره ده. تاسو کولی شئ دا دنده په ایکسسل VBA کې د FOR لوپ او Do-Until Loop سره اجرا کړئ.
9.1. د FOR لوپ سره
په جدول کې د قطارونو له لارې د لوپ کولو مرحلې تر هغه چې په VBA Excel کې د FOR Loop سره خالي حجره لاندې ورکړل شوې.
مړونه:
- په لومړي سر کې، د Developer ټب څخه Visual Basic Editor خلاص کړئ او Insert د کوډ په کړکۍ کې یو موډل .
- له هغې وروسته، لاندې کوډ کاپي او د کوډ کړکۍ کې یې پیسټ کړئ .
5340
ستاسو کوډ اوس د چلولو لپاره چمتو دی.
42>
- بیا، چلول macro او پایله یې په لاندې gif کې ښودل شوې.
د میکرو چلولو وروسته، دا په جدول کې د ټولو قطارونو له لارې لوپ کول پیل کړل. او یوځل چې دا خالي حجرې ته ورسیده ، حجرې B8 ، دا تکرار بند کړ .
0> VBA کوډ تشریح7368
متغیر تعریف کړئ.
8549
د سکرین تازه کولو پیښه بنده کړئ.
Dim x As Integerټول قطارونه ذخیره کړئ چې له سیل B4 څخه پیل کیږي تر وروستي پورې.
1116
حجره B4 وټاکئ.
6058
د کوډ دا ټوټه د ټولو قطارونو له لارې لوپ پیل کوي. کله چې دا په قطار کې یو خالي حجره ومومي نو بیا یې غوره کوي او د قطارونو سکین کولو ته دوام ورکوي تر هغه چې پای ته ورسیږي.
4371
د سکرین تازه کولو پیښه فعاله کړئ.
9.2. د Do-Until Loop سره
مرحله د قطارونو له لارې لوپ کول تر هغه چې په VBA کې د Do-Until لوپ سره یو خالي حجره لاندې ورکړل شي.
مړونه:
- لومړی، د Developer ټب څخه Visual Basic Editor خلاص کړئ او Insert a موډل د کوډ کړکۍ کې.
- بیا، لاندې کوډ کاپي او د کوډ کړکۍ کې یې پیسټ کړئ .
3566
ستاسو کوډ اوس د چلولو لپاره چمتو دی.
44>
- وروسته، چلول میکرو. پایله په لاندې gif کې ښودل شوې.
د میکرو چلولو وروسته، دا په میز کې د ټولو قطارونو لوپ پیل شو او یو ځل دا خالي حجرې ته ورسیده، حجره B8 ، دا تکرار بند کړ .
7>VBA کوډتشریح
3023
هغه حجره وټاکئ چې موږ به ترې کار وکړو.
3426
پیل کیږي او تر هغه وخته پورې لوپ کولو ته دوام ورکوي ترڅو چې خالي حجره وموندل شي.
4192
کله چې خالي حجره وي په قطار کې وموندل شو بیا یې وټاکئ او تکرار یې ودروئ.
10. VBA میکرو د قطارونو له لارې تکرار کړئ تر څو په Excel کې څو خالي حجرې
په تیرو برخه کې، تاسو زده کړل چې څنګه لوپ ودروي کله چې یو خالي حجره وموندل شي. مګر څه که تاسو نه غواړئ تکرار ودروئ تر هغه چې یوازې د یوې پرځای ډیری خالي حجرې وموندل شي.
د د قطارونو له لارې د لوپ کولو مرحلې تر څو چې ډیری خالي حجرې په میز کې وموندل شي د VBA Excel سره لاندې ښودل شوي دي.
مرحلې:
- لومړی، د لید بنسټیز مدیر خلاص کړئ. Developer tab او Insert a Module په کوډ کړکۍ کې.
- بیا، کاپي لاندې کوډ او <1 دا د کوډ کړکۍ کې پیسټ کړئ.
2560
ستاسو کوډ اوس د چلولو لپاره چمتو دی.
46>
- اوس، میکرو چلوئ او د محصول لپاره لاندې gif وګورئ.
47>
د میکرو له چلولو وروسته ، دا ته ونه دریدل لومړی خالي حجره، حجره B8 . دا هغه وخت ودرېد کله چې دا په B16 حجره کې دوه پرله پسې خالي حجرې وموندلې .
VBA کوډ تشریح
1384
حجره غوره کړه چې موږ به له هغه څخه کار وکړو.
7798
لوپ کول پیل او دوام کوي تر څو چې دوه پرله پسې خالي حجرې وموندل شي.
7062
کله چې دوه پرله پسې خالي حجرې وموندل شي نو بیادا غوره کړئ او تکرار ودروئ.
11. په Excel کې د ټولو کالمونو تر خالي کولو پورې د قطارونو له لارې لوپ ته VBA ایمبیډ کړئ
دا برخه به تاسو ته وښیې چې څنګه په جدول کې د ټولو قطارونو له لارې لوپ کړئ او ټول کالمونه تر یوې خالي حجرې پورې وصل کړئ د VBA Excel سره موندل کیږي.
راځئ چې دا په Excel کې د VBA میکرو سره څنګه ترسره کړو.
ګامونه:
- په لومړي سر کې، د Developer ټب څخه Visual Basic Editor خلاص کړئ او Insert a Module د کوډ کړکۍ کې.
- بیا، لاندې کوډ کاپي او د کوډ کړکۍ کې یې پیسټ کړئ .
1921
ستاسو کوډ اوس د چلولو لپاره چمتو دی.
- وروسته، چلول میکرو او د پایلې لپاره لاندې gif وګورئ.
لکه څنګه چې تاسو د پورتنۍ gif څخه لیدلی شئ دا دی چې دلته یو پاپ اپ دی MsgBox تاسو ته د د ټولو کالمونو مربوط ارزښت ښیې چې په هر کې میشته دي. قطار ستاسو د ایکسل کاري پاڼې له جدول څخه. مګر دا کله چې خالي حجرې ته ورسیږي ودریږي .
7>VBA کوډ تشریح
6191
متغیر تعریف کړئ.
4570
د هغه شیټ نوم وټاکئ چې موږ به ورسره کار وکړو (" ConcatenatingAllColUntilBlank " په کاري کتاب کې د شیټ نوم دی).
9602
هغه سلسله تعریف کړئ چې موږ به ورسره کار وکړو.
6139
د کوډ دا ټوټه د سرې سره لوپ پیل کوي. دا لوپ ته دوام ورکوي تر هغه چې دا د سرې ترټولو لوی سبسکرپټ او د ټیټ حد بیرته راګرځويلومړی ابعاد بیا دا د دوهم ابعاد د ټیټ حد استخراج تکرار ته ننوځي. له هغې وروسته، دا ټول استخراج شوي ارزښتونه په iResult متغیر کې د دوی سره یوځای کولو او پایله یې په MsgBox کې اچوي. دا کار ته دوام ورکوي تر څو چې دا یو خالي حجره ومومي.
نتیجې
د پای ته رسولو لپاره، دا مقاله تاسو ته 11 اغیزمن میتودونه وښودل چې څنګه د قطارونو له لارې لوپ کړئ. د میز په Excel کې د VBA میکرو سره. زه امید لرم چې دا مقاله ستاسو لپاره خورا ګټوره وه. د موضوع په اړه د هرې پوښتنې لپاره وړیا احساس وکړئ.
ټب ته پرمخ وړونکی -> Visual Basic د خلاصولو لپاره Visual Basic Editor . 
- بیا، د پاپ اپ کوډ کړکۍ کې، له د مینو بار، کلیک وکړئ داخل کړئ -> ماډل .
- بیا، لاندې کوډ کاپي او پیسټ په کوډ کې کړکۍ.
8518
ستاسو کوډ اوس د چلولو لپاره چمتو دی.
17>
- اوس، په F5 فشار ورکړئ کیبورډ یا د مینو بار څخه غوره کړئ چل کړئ -> فرعي/کارونکي فورمه چلول . تاسو کولی شئ یوازې د میکرو چلولو لپاره په فرعي مینو بار کې د کوچني پلی آیکون باندې کلیک وکړئ.
18>
- یا د ډیټاسیټ او پایلې په لید کې شاهد او پرتله کړئ، تاسو کولی شئ کوډ خوندي کړئ کوډ او بیرته ورک شیټ ته لاړ شئ د علاقې وړ.
- له هغه ځایه، تاسو کولی شئ <1 کلیک وکړئ>Macros د Developer ټب څخه، د میکرو نوم وټاکئ، او بیا کلیک وکړئ چل کړئ .
د بریالي کوډ اجرا کولو وروسته، پورته GIF ته وګورئ ترڅو پایله وګورئ. دلته به یو پاپ اپ وي MsgBox تاسو ته د هر قطار څخه د هر حجرې د حجرې حوالې شمیره ښیې ستاسو په Excel پاڼه کې د میز څخه.
VBA کوډ تشریح
6963
په جدول کې د B کالم په لټون کولو سره د وروستي قطار شمیره ترلاسه کولو لپاره.
9693
د قطار شمیره 4 ترتیب کړئ، له کوم ځای څخه چې زموږ ډاټا پیل کیږي.
6844
د لومړي قطار څخه لوپ کولو لپاره.
6592
د کالم نمبر 2 ترتیب کړئ، له هغه ځایه چې زموږ ډاټا پیل کیږي.
1508
د وروستي ترلاسه کولو لپاره د قطارونو لوپ کول پیل کړئد کالم شمیره د اوسني قطار تر وروستي قطار پورې ارزولو سره.
8778
د کالم لوپ کول د لومړي قطار څخه تر وروستي قطار پورې.
8488
د کوډ دا ټوټه د پروسس کولو لپاره کار کوي، هر یو وروسته زیاتیږي تکرار او د کوډ پایله ښکاره کړئ.
نور ولولئ: څنګه په اکسل جدول کې په اتوماتيک ډول نوي قطار اضافه کړئ
2 . VBA د ارزښت له مخې په هر قطار کې د هر حجرې له لارې لوپ کولو لپاره پلي کړئ
که تاسو غواړئ د میز په هر قطار کې د هرې حجرې له لارې لوپ وکړئ او په حجرو کې میشته ارزښت د بیرته ستنیدو ارزښت په توګه وغورځوئ. ، نو دا برخه به تاسو سره مرسته وکړي چې دا په VBA ایکسیل سره څنګه ترسره کړئ.
تاسو کولی شئ دا د ListObject او <1 سره ترسره کړئ>DataBodyRange د VBA ملکیت. موږ به تاسو ته د ماکرو کوډ د دواړو څیز او ملکیت سره وښیو.
2.1. د ListObject سره
د VBA Excel کې د ListObject سره د حجرې ارزښت له مخې د جدول په هر قطار کې د هرې حجرې له لارې د لوپ کولو مرحلې لاندې ورکړل شوي.
مرحلې:
- د پخوا په څیر، د Developer ټب او Visual Basic Editor خلاص کړئ 1>د کوډ کړکۍ کې موډل داخل کړئ.
- بیا، د کوډ کړکۍ کې، لاندې کوډ کاپي لاندې کوډ او پیسټ کړئ دا.
3314
ستاسو کوډ اوس د چلولو لپاره چمتو دی.
22>
- له هغې وروسته، چلول میکرو لکه څنګه چې موږ تاسو ته پورته برخه کې ښودلې. پایله په gif کې ښودل شوېلاندې.
دلته به یو پاپ اپ وي MsgBox تاسو ته د ارزښت د هر قطار څخه د هرې حجرې لخوا لیږدول کیږي <2 ستاسو په Excel پاڼه کې د میز څخه.
VBA کوډ تشریح
2345
متغیرات تعریف کړئ.
2305
دا ټوټه د کوډ لومړی په جدول کې د قطارونو له لارې لوپ پیل کوي (" TblStudents " زموږ د میز نوم دی). بیا د هر قطار لپاره کالم ته ننوځي. له هغې وروسته، په MsgBox کې د سیل ارزښت انتقال کړئ. بیا راتلونکی کالم ته لاړ شئ. د یو قطار د ټولو کالمونو له لارې د تکرار پای ته رسولو وروسته، بیا بل قطار ته ځي او تر وروستي قطار پورې د تکرار بهیر ته دوام ورکوي.
2.2. د DataBodyRange ملکیت سره
د جدول څخه استخراج شوي ډیټا سره ډیر مشخص کیدو لپاره ، تاسو کولی شئ د DataBodyRange ملکیت د ListObject څخه کار واخلئ. DataBodyRange ملکیت به تاسو ته پایله درکړي چې د سرلیک قطار او داخل قطار تر مینځ د لیست څخه رینج لري.
هغه ګامونه چې تاسو څنګه کولی شئ په هر قطار کې د هرې حجرې له لارې لوپ کړئ په VBA Excel کې د DataBodyRange سره د حجرو د ارزښت له مخې جدول لاندې ورکړل شوي دي.
مراحلې:
- لکه څنګه چې ښودل شوي مخکې، د Developer ټب څخه Visual Basic Editor پرانیزئ او د کوډ کړکۍ کې Insert a Module .
- بیا , کاپي لاندې کوډ او پیسټ د کوډ کړکۍ کې یې کړئ.
8688
ستاسو کوډ اوس د چلولو لپاره چمتو دی.
- وروسته، میکرو چل کړئ او د محصول لیدو لپاره لاندې gif ته وګورئ.
هلته به یو پاپ اپ وي MsgBox تاسو ته د ارزښت د هر قطار څخه د هر حجرې لخوا لیږدول کیږي ستاسو په Excel پاڼه کې د میز څخه.
VBA کوډ تشریح
8863
متغیر تعریف کړئ.
5143
د کوډ دا ټوټه لومړی په جدول کې د قطارونو له لارې لوپ پیل کوي (" TblStdnt " زموږ د میز نوم دی) او پرته له دې چې یو لړ ارزښتونه بیرته راولي. د میز سرلیک قطار. بیا په MsgBox کې د رینج ارزښت تیر کړئ. بیا دا د سلسلې استخراج کولو لپاره بل قطار ته ځي او تر وروستي قطار پورې د تکرار پروسې ته دوام ورکوي.
3. په Excel کې د کالمونو د یوځای کولو له لارې د قطارونو له لارې تکرارولو لپاره VBA میکرو پلي کړئ
دا برخه به وښیې چې څنګه په جدول کې د قطارونو له لارې د کالمونو د لومړي کالم سره یوځای کولو سره ستاسو د ډیټاسیټ څخه په Excel کې.
د مثال په توګه، زموږ د ډیټاسیټ لپاره، لومړی، موږ به د جان په حجره B5 کې او 101 په C5 کې له لارې تکرار کړو او بیا یې تکرار کړو. جان د B5 په حجره کې او 89 په حجره کې D5 د قطار 5 څخه په یوځای کولو سره.
راځئ تاسو ته وښیو چې تاسو دا څنګه کولی شئ VBA میکرو په Excel کې.
مرحلې:
- په لومړي سر کې د Visual Basic Editor څخه خلاص کړئ. 1>Developer tab او Insert a Module په کوډ کړکۍ کې.
- دوهم، د کوډ کړکۍ کې، کاپي لاندې کوډاو پیسټ کړئ دا.
6499
ستاسو کوډ اوس د چلولو لپاره چمتو دی.
28>
- دریم، <1 میکرو چل کړئ. د پایلې د لیدلو لپاره لاندې gif ته وګورئ.
دلته به یو پاپ اپ وي MsgBox تاسو ته متصل ارزښت ښیې د لومړي او دوهم کالم څخه د حجرو څخه ( جان د B5 په حجره کې د کالم B څخه او 101 په C5 حجره کې د کالم C څخه) او بیا د مربوط ارزښت د لومړي او دریم کالم څخه د حجرو څخه ( جان په B5 حجره کې د کالم B څخه او 89 په حجره D5 کې د کالم D څخه) د د قطار شمیره 5 ستاسو د ډیټا سیټ څخه. او دا د یوځای کولو عملیات به دوام ومومي تر څو چې دا د میز وروستي قطار ته ورسیږي.
VBA کوډ تشریح
1885
متغیر تعریف کړئ.
5411
بیا کوډ د فعال شیټ څخه جدول غوره کوي (" TblConcatenate " زموږ د جدول په نوم کې)). کالم که تکرار د کالم سرلیک او قطارونو ترمینځ په رینج کې میچ ومومي نو دا ارزښت په iValue متغیر کې زیرمه کوي.
9322
که پورتنۍ شرط پوره نشي ، نو بیا کوډ په MsgBox کې ارزښت غورځوي او حالت پای ته رسوي. له هغې وروسته، دا په بل رینج کې لوپ کولو ته ځي او د پای قطار پورې تکرار ته دوام ورکوي. یوځل چې دا پای قطار ته ورسیږي، میکرو د کوډ اجرا کول پای ته رسوي.
4. د تکرار لپاره میکرو ایمبیډ کړئد قطارونو له لارې په ایکسل کې په جدول کې د ټولو کالمونو سره یوځای کولو سره
پدې برخه کې، موږ به زده کړو چې څنګه ټول هغه کالمونه یوځای کړو چې هر قطار په ډیټاسیټ کې لري VBA میکرو په Excel کې.
د اجرا کولو مرحلې چې لاندې ښودل شوي دي.
مراحلې:
- لومړی، خلاص کړئ Visual Basic Editor د Developer tab څخه او Insert a Module په کوډ کړکۍ کې.
- بیا، لاندې کوډ کاپي کړئ او پیسټ کړئ د کوډ کړکۍ کې.
2427
ستاسو کوډ اوس د چلولو لپاره چمتو دی.
- بیا، چل کړئ میکرو کوډ.
لکه څنګه چې تاسو د پورتني gif څخه لیدلی شئ دا دی چې شتون لري. یو پاپ اپ MsgBox تاسو ته د د ټولو کالمونو مربوط ارزښت ښیې چې په هر قطار کې اوسیږي ستاسو د ایکسل کاري پاڼې له جدول څخه.
د VBA کوډ تشریح
2611
تغیرات تعریف کړئ.
8540
د شیټ نوم وټاکئ چې موږ به ورسره کار وکړو (“ ConcatenatingAllCol ” د شیټ نوم دی په کاري کتاب کې).
5563
د د میز نوم سم کړئ چې موږ به ورسره کار وکړو (" TblConcatenateAll " زموږ په ډیټاسیټ کې د میز نوم دی).
5331
د میز په هر قطار کې تکرار پیل کوي.
3621
د جدول د هر قطار د هر کالم له لارې تکرار پیل کوي.
6142
د هر قطار د هر کالم وړونکي ارزښتونو سره په قطع کولو سره پایله ذخیره کړئ. په هر قطار کې د ټولو کالمونو له سکین کولو وروسته، دا تیر شوپه MsgBox کې پایله. بیا په بل قطار کې لوپ کول پیل کوي او لوپ کولو ته دوام ورکوي تر هغه چې دا د میز وروستي قطار ته ورسیږي.
نور ولولئ: څنګه د ایکسل VBA سره د میز ډیری کالمونه ترتیب کړئ (2 میتودونه)
5. د تکرار مخه ونیسئ که ارزښت د VBA میکرو سره د میز د قطارونو له لارې وموندل شي
فرض کړئ چې تاسو غواړئ د خپل میز د قطارونو له لارې لوپ کړئ او کله چې یو ځانګړی ارزښت ومومي نو لوپ کول بند کړئ . تاسو کولی شئ دا یوازې د یو ساده میکرو کوډ سره ترسره کړئ.
راځئ چې دا څنګه وکړو VBA په Excel کې.
مراحلې:
- په لومړي سر کې، د Developer ټب څخه Visual Basic Editor خلاص کړئ او د کوډ کړکۍ کې Insert a Module .
- بیا، د کوډ په کړکۍ کې، لاندې کوډ کاپي او پیسټ کړئ .
6294
ستاسو کوډ اوس د چلولو لپاره چمتو دی .
- وروسته، چل کړئ میکرو.
- دا به لوپ پیل کړي او کله چې دا ودروي په سلسله کې ځانګړی ارزښت (“ Edge ”) پیدا کوي او د پایله په MsgBox کې اچوي.
لکه څنګه چې تاسو د پورته عکس څخه لیدلی شئ، دلته یو پاپ اپ MsgBox دی چې تاسو ته د حجرې پته ښیې، $B$10 ، چیرته چې موږ وموندل ټاکل شوی ارزښت، “ Edge ” .
VBA کوډ تشریح
5065
تعریف کړئ متغیر.
8435
د کوډ دا ټوټه دلته د 1 څخه تر 15 پورې د قطارونو د لوپ کولو لپاره ده. که چیرې دا ځانګړې کلمه ومومي" Edge " بیا دا پایله د حجرې پتې سره تیریږي چې کلمه لري. دا دې کار ته دوام ورکوي تر هغه چې دا د کلمې په لټون کې له 1 څخه تر 15 پورې د ټولو ډیټا سکین کولو پای ته ورسوي.
نور ولولئ: د Excel جدول څخه د قطارونو او کالمونو دننه کولو یا حذف کولو څرنګوالی
6. VBA د هر قطار له لارې لوپ کړئ او په Excel کې یو ځانګړی ارزښت رنګ کړئ
که تاسو نه غواړئ په MsgBox کې د ټاکل شوي ارزښت حجرې پته وغورځوئ؟ تاسو شاید غواړئ هغه حجره رنګ کړئ چې ارزښت لري چې تاسو یې په لټه کې یاست.
راځئ چې دا د VBA میکرو سره څنګه ترسره کړو.
مرحلې:
- د پخوا په څیر، د Developer ټب څخه Visual Basic Editor خلاص کړئ او Insert د کوډ کړکۍ کې یو موډل .
- بیا، لاندې کوډ کاپي او پیسټ د کوډ کړکۍ کې.
5199
ستاسو کوډ اوس د چلولو لپاره چمتو دی.
- له هغې وروسته، چل کړئ میکرو.
- دا به لوپ پیل او ودروي کله چې دا ځانګړی ارزښت ومومي (“ Edge ”) په حد کې او حجره رنګ کړي د ColorIndex سره چې تاسو په کوډ کې چمتو کړی.
لکه څنګه چې تاسو د پورته عکس څخه لیدلی شئ، C ell B10 ، چیرته چې موږ ټاکل شوی ارزښت موندلی، " Edge " رنګ شوی د کوډ اجرا کولو وروسته.
د VBA کوډ تشریح
9038
تعریف کړئ
