ایکسل: په یوځل کې ډیری ارزښتونه ومومئ او ځای په ځای کړئ

Michael Brown

04-06-2023 اکسل
  • دا شریک کړه
Michael Brown

په دې ټیوټوریل کې به موږ د څو کلمو، تارونو، یا انفرادي حروفونو موندلو او بدلولو لپاره څو لارې وګورو، نو تاسو کولی شئ هغه یو غوره کړئ چې ستاسو اړتیاو سره سم وي.

څنګه خلک معمولا په Excel کې لټون کوي؟ ډیری وختونه، د موندلو په کارولو سره & فیچر بدل کړئ، کوم چې د واحد ارزښتونو لپاره ښه کار کوي. مګر څه که تاسو د بدلولو لپاره لسګونه یا حتی سلګونه توکي لرئ؟ یقینا، هیڅوک به نه غواړي چې دا ټول بدیلونه په لاسي ډول یو له بل سره ترسره کړي، او بیا دا ټول بیا ترسره کړئ کله چې ډاټا بدل شي. خوشبختانه، په Excel کې د ډله ایز ځای په ځای کولو لپاره یو څو نور اغیزمن میتودونه شتون لري، او موږ به د دوی هر یو په تفصیل سره وڅیړو.

    5>6>د nested SUBSTITUTE سره ډیری ارزښتونه ومومئ او بدل کړئ

    په Excel کې د ګڼو ننوتونو موندلو او بدلولو تر ټولو اسانه لار د SUBSTITUTE فنکشن کارول دي.

    د فورمول منطق خورا ساده دی: تاسو یو څو انفرادي افعال ولیکئ ترڅو زاړه ارزښت په نوي سره بدل کړئ. . او بیا، تاسو دا فنکشنونه یو په بل کې نیسئ، ترڅو هر راتلونکی SUBSTITUTE د مخکینۍ SUBSTITUTE محصول کاروي ترڅو راتلونکی ارزښت وګوري.

    SUBSTITUTE(SUBSTITUTE(SUBSTITUTE( text , old_text1 , new_text1 ), old_text2 , new_text2 ), old_text3 , new_text3 )

    په A2:A10 کې د ځایونو په لیست کې، فرض کړئ چې تاسو غواړئ د هیواد لنډ نومونه (لکه FR ، UK او USA ) په بشپړ ډول بدل کړئ. MassReplace فنکشن به یوازې په کاري کتاب کې کار وکړي په کوم کې چې تاسو کوډ داخل کړی. که تاسو ډاډه نه یاست چې دا څنګه په سمه توګه ترسره کړئ، مهرباني وکړئ هغه ګامونه تعقیب کړئ چې په Excel کې د VBA کوډ داخلولو څرنګوالی کې تشریح شوي.

    کله چې کوډ ستاسو په کاري کتاب کې اضافه شي، فنکشن به په فورمول کې ښکاره شي intellisense - یوازې د فعالیت نوم، نه دلیلونه! که څه هم، زه باور لرم چې د ترکیب په یادولو کې کومه لویه معامله نده:

    MassReplace(input_range, find_range, replace_range)

    چیرته:

    • Input_range - د سرچینې حد چیرې چې تاسو غواړئ ارزښتونه بدل کړئ.
    • Find_range - هغه حروف، تارونه، یا کلمې چې د لټون لپاره دي. یا د بدلولو لپاره ټکي.

    =MassReplace(A2:A10, D2:D4, E2:E4)

    په مخکینۍ ډینامیک اکسل کې، دا د زاړه سټایل CSE سرې فورمول په توګه کار کوي: تاسو د ټولې سرچینې رینج (B2:B10) وټاکئ، ټایپ کړئ فورمول، او د بشپړولو لپاره په ورته وخت کې Ctrl + Shift + Enter کیلي فشار ورکړئ.

    ګټې : په Excel 2019 کې د دودیز LAMBDA فعالیت لپاره ښه بدیل , Excel 2016 او پخوانۍ نسخې

    نیمګړتیاوې : د کار کتاب باید د میکرو فعال شوي .xlsm فایل په توګه خوندي شي

    په Excel کې د VBA میکرو سره لوی ځای بدل کړئ

    که تاسو د موټرو سره مینه لرئ د میکرو سره ګډ کارونه، بیا تاسوپه یوه سلسله کې د څو ارزښتونو موندلو او بدلولو لپاره لاندې VBA کوډ کارولی شئ.

    Sub BulkReplace() Dim Rng as Range, SourceRng As Range, ReplaceRng As Range On Error بیا پیل کړئ بل سیټ SourceRng = Application.InputBox("سرچینه ډاټا: " , "بلیک بدل کړئ" , غوښتنلیک. انتخاب. پته، ډول:=8) تېروتنه. پاک کړئ که سرچینه نه وي نو هیڅ شی نه وي نو بیا تنظیم کړئ ReplaceRng = Application.InputBox("د رینج بدل کړئ:" , "بلیک بدل کړئ" , ډول :=8) تېروتنه پاکه کړئ که بدله نه شي، نو بیا Application.ScreenUpdating = False د هر Rng لپاره په ReplaceRng.Columns(1).Cells SourceRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).بل ارزښت Application.ScreenUpdating = ریښتیني پای که پای وي که پای وي نو د پای Sub

    د میکرو کارولو لپاره سمدلاسه، تاسو کولی شئ زموږ د نمونې کاري کتاب ډاونلوډ کړئ چې کوډ لري. یا تاسو کولی شئ کوډ په خپل کاري کتاب کې دننه کړئ.

    د میکرو کارولو څرنګوالی

    د میکرو چلولو دمخه، زاړه او نوي ارزښتونه په دوه نږدې کالمونو کې ټایپ کړئ لکه څنګه چې په لاندې عکس کې ښودل شوي ( C2:D4).

    او بیا، خپل سرچینه ډاټا وټاکئ، Alt + F8 فشار ورکړئ، BulkReplace میکرو غوره کړئ، او چل کړئ کلیک وکړئ.

    لکه څنګه چې سرچینه غصه مخکې ټاکل شوې، یوازې حواله تایید کړئ، او په سمه توګه کلیک وکړئ:

    25>

    وروسته له دې، د بدلون حد وټاکئ، او په OK کلیک وکړئ:

    Done!

    ګټې : یو ځل تنظیم کړئ، هر وخت بیا وکاروئ

    نیمګړتیاوې : میکرو باید د هر ډیټا سره چلول شيبدلون

    د سبسټرینګ وسیلې سره په Excel کې ډیری موندل او ځای په ځای کول

    په لومړي مثال کې ، ما یادونه وکړه چې nested SUBSTITUTE په Excel کې د ډیری ارزښتونو ځای په ځای کولو ترټولو اسانه لار ده. زه اعتراف کوم چې زه غلط وم. زموږ الټیمیټ سویټ شیان نور هم اسانه کوي!

    په خپل کاري پاڼه کې د ډله ایز ځای په ځای کولو لپاره، د Ablebits Data ټب ته لاړ شئ او Substring Tools > کلیک وکړئ. د فرعي سټینګونو بدلول .

    د د فرعي سټینګونو بدلول ډیالوګ بکس به تاسو څخه وپوښتل شي چې د سرچینې حد او <1 تعریف کړئ. د فرعي سټرینګ سلسله.

    د ټاکل شوي دوه رینجونو سره، د بدلون تڼۍ کلیک وکړئ او پایلې په نوي کالم کې ومومئ چې ښیې خوا ته داخل شوي. د اصلي معلوماتو څخه. هو، دا خورا اسانه ده!

    لارښوونه. مخکې له دې چې بدل کړئ کلیک وکړئ، یو مهم شی دی چې تاسو یې په پام کې ونیسئ - د کیس حساس بکس. ډاډ ترلاسه کړئ چې دا غوره کړئ که تاسو غواړئ لوی او کوچني توري د مختلف حروفونو په توګه اداره کړئ. په دې مثال کې، موږ دا اختیار په نښه کوو ځکه چې موږ یوازې د پلازمینې تارونه ځای په ځای کول غواړو او فرعي سټینګونه لکه "fr"، "uk"، یا "ak" په نورو کلمو کې پاتې کیږو.

    که تاسو لیواله یاست چې پوه شئ چې په تارونو کې کوم بلک عملیات ترسره کیدی شي، زموږ د الټیمیټ سویټ سره شامل نور سبسټرینګ وسیلې وګورئ. یا حتی غوره، لاندې د ارزونې نسخه ډاونلوډ کړئ او هڅه وکړئ!

    دا څنګه موندل او بدل کړئپه Excel کې په یوځل کې ډیری کلمې او حروف. زه له تاسو څخه د لوستلو لپاره مننه کوم او هیله لرم چې په راتلونکې اونۍ کې زموږ په بلاګ کې وګورم!

    موجود ډاونلوډونه

    په Excel کې ډیری ومومئ او ځای په ځای کړئ (.xlsm فایل)

    Ultimate Suite 14 - ورځ په بشپړه توګه فعاله نسخه (.exe فایل)

    نومونه.

    د دې ترسره کولو لپاره، زاړه ارزښتونه په D2:D4 کې دننه کړئ او په E2:E4 کې نوي ارزښتونه لکه په لاندې سکرین شاټ کې ښودل شوي. او بیا، لاندې فورمول په B2 کې واچوئ او Enter فشار ورکړئ:

    =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2:A10, D2, E2), D3, E3), D4, E4)

    …او تاسو به ټول ځای په ځای کړئ:

    مهرباني وکړئ په یاد ولرئ، پورتنۍ طریقه یوازې په ایکسیل 365 کې کار کوي کوم چې د متحرک صفونو ملاتړ کوي.

    د ایکسل 2019، ایکسل 2016 او مخکینیو مخکینیو متحرک نسخو کې، فورمول ته اړتیا لري د لوړې حجرې (B2) لپاره لیکل شوی، او بیا لاندې حجرو ته کاپي شوی:

    =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2, $D$2, $E$2), $D$3, $E$3), $D$4, $E$4)

    مهرباني وکړئ پام وکړئ چې پدې حالت کې، موږ د مطلق حجرو حوالې سره د بدیل ارزښتونه لاک کوو، نو دوی به د فورمول د کاپي کولو په وخت کې نه تیریږي.

    یادونه. د SUBSTITUTE فعالیت کیس حساس دی، پدې معنی چې تاسو باید زاړه ارزښتونه ( زاړه_متن ) په ورته لیک کې ټایپ کړئ لکه څنګه چې دوی په اصلي ډاټا کې ښکاري.

    لکه څنګه چې ممکنه وي، دا طریقه د پام وړ نیمګړتیا لري - کله چې تاسو د ځای په ځای کولو لپاره لسګونه توکي ولرئ، د نیست شوي فعالیتونو اداره کول خورا ستونزمن کیږي.

    0> 1> ګټې : اسانه - پلي کول؛ د ایکسل په ټولو نسخو کې ملاتړ شوی

    نیمګړتیاوې : غوره ده چې د محدود شمیر موندلو/بدلون ارزښتونو لپاره وکارول شي

    6>د XLOOKUP سره ډیری ننوتل وپلټئ او ځای په ځای کړئ <0 په داسې حالت کې چې تاسو د ټول حجرې منځپانګې بدلولو په لټه کې یاست، نه د هغې برخه، د XLOOKUP فعالیت په کار کې راځي.

    راځئووایه چې تاسو په A کالم کې د هیوادونو لیست لرئ او موخه یې دا ده چې ټول لنډیزونه د اړوند بشپړ نومونو سره ځای په ځای کړئ. د تیر مثال په څیر، تاسو د "موند" او "بدلون" توکي په جلا کالمونو کې (په ترتیب سره D او E) داخلولو سره پیل کړئ، او بیا دا فورمول په B2 کې دننه کړئ:

    =XLOOKUP(A2, $D$2:$D$4, $E$2:$E$4, A2)

    د ایکسل ژبې څخه انساني ژبې ته ژباړل شوی، دلته هغه څه دي چې فورمول یې کوي:

    د A2 ارزښت (lookup_value) په D2:D4 (lookup_array) کې وپلټئ او د E2:E4 (return_array) څخه یو میچ بیرته راوباسئ. که ونه موندل شو، اصلي ارزښت د A2 څخه راوباسئ.

    د ډکولو دستګاه دوه ځله کلیک وکړئ ترڅو فارمول لاندې حجرو ته کاپي شي، او پایله به تاسو انتظار ونه کړي:

    څنګه چې د XLOOKUP فنکشن یوازې په Excel 365 کې شتون لري، پورته فورمول به په پخوانیو نسخو کې کار ونکړي. په هرصورت، تاسو کولی شئ دا چلند په اسانۍ سره د IFERROR یا IFNA او VLOOKUP ترکیب سره نقل کړئ:

    =IFNA(VLOOKUP(A2, $D$2:$E$4, 2, FALSE), A2)

    نوټ. د SUBSTITUTE برعکس، د XLOOKUP او VLOOKUP افعال د قضیې سره حساس ندي ، پدې معنی چې دوی د لیټر کیس له پامه غورځولو سره د لټون ارزښتونو لټون کوي. د مثال په توګه، زموږ فورمول به دواړه FR او fr د فرانس سره بدل کړي.

    ګټې : د عادي کارونو غیر معمولي کارول؛ په ټولو ایکسل نسخو کې کار کوي

    نیمګړتیاوې : د حجرې په کچه کار کوي ، نشي کولی د حجرې مینځپانګې برخه بدله کړي

    د تکراري LAMBDA فنکشن په کارولو سره ډیری ځای په ځای شي

    د مایکروسافټ لپاره365 پیرودونکي، Excel یو ځانګړی فعالیت چمتو کوي چې د دودیز فارمول ژبې په کارولو سره دودیز افعال رامینځته کولو ته اجازه ورکوي. هو، زه د LAMBDA په اړه خبرې کوم. د دې میتود ښکلا دا ده چې دا کولی شي خورا اوږد او پیچلي فارمول په خورا ساده او ساده فارمول بدل کړي. برسېره پردې، دا تاسو ته اجازه درکوي خپل فعالیتونه جوړ کړئ چې په Excel کې شتون نلري، هغه څه چې مخکې یې یوازې د VBA سره امکان درلود.

    د دودیز LAMBDA افعالونو جوړولو او کارولو په اړه د مفصل معلوماتو لپاره، مهرباني وکړئ دا ټیوټوریل وګورئ: څنګه په Excel کې د LAMBDA افعال لیکلو لپاره. دلته، موږ به د یو څو عملي مثالونو په اړه بحث وکړو.

    ګټې : پایله د فعالیت کارولو لپاره په زړه پورې او په حیرانتیا سره ساده ده، پرته له دې چې د بدیل جوړو شمیره وي

    نیمګړتیاوې : یوازې په Excel 365 کې شتون لري؛ د کاري کتاب ځانګړي او په مختلفو کاري کتابونو کې بیا نه کارول کیدی شي

    مثال 1. په یوځل کې ډیری کلمې / تارونه وپلټئ او ځای په ځای کړئ

    د څو کلمو یا متن بدلولو لپاره، موږ یو دود جوړ کړی د LAMBDA فعالیت، نومول شوی MultiReplace ، کوم چې کولی شي د دې فورمو څخه یو واخلي:

    =LAMBDA(text, old, new, IF(old"", MultiReplace(SUBSTITUTE(text, old, new), OFFSET(old, 1, 0), OFFSET(new, 1, 0)), text))

    یا

    =LAMBDA(text, old, new, IF(old="", text, MultiReplace(SUBSTITUTE(text, old, new), OFFSET(old, 1, 0), OFFSET(new, 1, 0))))

    دواړه تکراري دي هغه دندې چې خپل ځان بولي. توپیر یوازې په دې کې دی چې څنګه د وتلو نقطه جوړه شوې.

    په لومړي فورمول کې، د IF فعالیت چک کوي چې ایا زوړ لیست خالي نه دی (زوړ ""). که سم وي، د MultiReplace فنکشن ویل کیږي. که FALSE، فعالیت متن دا اوسنۍ بڼه راګرځوي او وځي.

    دوهم فورمول برعکس منطق کاروي: که زاړه خالي وي (زاړه ="")، نو بیرته راګرځي متن او وتل که نه نو MultiReplace ته زنګ ووهئ.

    تر ټولو ستونزمنه برخه بشپړه شوه! هغه څه چې تاسو ته د کولو لپاره پاتې دي هغه د نوم مدیر کې د MultiReplace فنکشن نومول دي لکه په لاندې سکرین شاټ کې ښودل شوي. د تفصيلي لارښوونو لپاره، مهرباني وکړئ وګورئ چې څنګه د LAMBDA فنکشن نومولئ.

    کله چې فنکشن نوم ترلاسه کړي، تاسو کولی شئ دا د بل بل انبلټ فنکشن په څیر وکاروئ.

    کوم یو د فورمول تغیرات چې تاسو یې غوره کوئ، د پای کارونکي له نظره، ترکیب دومره ساده دی لکه څنګه چې:

    MultiReplace(متن، زوړ، نوی)

    چیرته:

    • متن - د سرچینې ډاټا
    • زاړه - د موندلو لپاره ارزښتونه
    • نوی - هغه ارزښتونه چې د بدلولو لپاره دي

    مخکینی مثال ته لږ نور هم ورسوو، راځئ چې نه یوازې د هیواد لنډیزونه بلکې د دولت لنډیزونه هم بدل کړو. د دې لپاره، لنډیزونه ( زاړه ارزښتونه) په D کالم کې چې په D2 کې پیل کیږي او بشپړ نومونه ( نوي ارزښتونه) په E کالم کې چې په E2 کې پیل کیږي.

    په کې B2، د MultiReplace فعالیت داخل کړئ:

    =MultiReplace(A2:A10, D2, E2)

    انټر ټک وکړئ او له پایلو څخه خوند واخلئ :)

    19>

    دا فورمول څنګه کار کوي

    د فورمول د پوهیدو نښه د تکرار پوهه ده. دا کیدای شي پیچلي ښکاري، مګر اصل خورا ساده دی. د هر یو سرهتکرار، یو تکراري فعالیت د یوې لویې ستونزې یوه کوچنۍ بیلګه حل کوي. زموږ په قضیه کې، د MultiReplace فنکشن د زړو او نویو ارزښتونو له لارې لوپ کوي او د هر لوپ سره، یو بدیل ترسره کوي:

    MultiReplace (SUBSTITUTE(text, old, new), OFFSET(old, 1, 0), OFFSET(new, 1, 0))

    لکه څنګه چې د ځړول شوي SUBSTITUTE افعال سره، د مخکینۍ SUBSTITUTE پایله د راتلونکي SUBSTITUTE لپاره متن پیرامیټر کیږي. په بل عبارت، د MultiReplace په هر راتلونکی کال کې، د SUBSTITUTE فعالیت د اصلي متن تار نه پروسس کوي، مګر د تیر کال محصول.

    په <1 کې د ټولو توکو اداره کولو لپاره زوړ لیست، موږ د لوړ پوړ حجرې سره پیل کوو، او د هر تعامل سره د 1 قطار لاندې حرکت کولو لپاره د OFFSET فنکشن کاروو:

    OFFSET(old, 1, 0)

    هم د لپاره هم ترسره کیږي. نوی لیست:

    OFFSET(new, 1, 0)

    مهم شی د د وتلو نقطه چمتو کول دي ترڅو د تل لپاره د تکراري تلیفونونو مخه ونیسي. دا د IF فنکشن په مرسته ترسره کیږي - که چیرې زوړ حجره خالي وي، فنکشن بیرته متن خپل اوسني شکل ته راستنیږي او وځي:

    =LAMBDA(text, old, new, IF(old="", text, MultiReplace(…)))

    یا

    =LAMBDA(text, old, new, IF(old"", MultiReplace(…), text))

    مثال 2. په Excel کې ډیری حروف بدل کړئ

    په اصل کې، MultiReplace فنکشن چې په تیرو مثال کې بحث شوی کولی شي انفرادي کرکټرونه هم سمبال کړئ، په دې شرط چې هر زوړ او نوی کرکټر په جلا حجره کې داخل شي، لکه په پورتني سکرین شاټونو کې د لنډو او بشپړو نومونو په څیر.

    که تاسو د دې پرځای زاړه داخل کړئحروف په یوه حجره کې او نوي کرکټرونه په بل حجره کې، یا یې په مستقیم ډول په فورمول کې ټایپ کړئ، نو تاسو کولی شئ یو بل دودیز فنکشن جوړ کړئ، چې نوم یې ReplaceChars دی، د دې فورمولونو څخه یو په کارولو سره:

    =LAMBDA(text, old_chars, new_chars, IF(old_chars"", ReplaceChars(SUBSTITUTE(text, LEFT(old_chars), LEFT(new_chars)), RIGHT(old_chars, LEN(old_chars)-1), RIGHT(new_chars, LEN(new_chars)-1)), text))

    یا

    =LAMBDA(text, old_chars, new_chars, IF(old_chars="", text, ReplaceChars(SUBSTITUTE(text, LEFT(old_chars), LEFT(new_chars)), RIGHT(old_chars, LEN(old_chars)-1), RIGHT(new_chars, LEN(new_chars)-1))))

    په یاد ولرئ چې د معمول په توګه د نوم مدیر کې خپل نوی لامبډا فنکشن نوم کړئ:

    او ستاسو نوی دودیز فنکشن د کارونې لپاره چمتو دی:

    بدل کړئ چارس(متن، زاړه_چارس، نوي_چارس)

    چیرته:

      17> متن - اصلي تارونه
    • زاړه - هغه حروف چې د لټون لپاره
    • نوي - هغه حروف چې د
      • سره د بدلولو لپاره

    د ساحې ازموینې ورکولو لپاره، راځئ چې یو څه وکړو چې ډیری وختونه په وارد شوي ډیټا کې ترسره کیږي - سمارټ نرخونه او سمارټ اپوسټروفونه په مستقیم نرخونو او مستقیم اپوسټروفونو سره ځای په ځای کړئ.

    لومړی، موږ په D2 کې سمارټ نرخونه او سمارټ اپوسټروفونه په E2 کې مستقیم نرخونه او مستقیم اپوسټروف داخل کوو ، د ښه لوستلو وړتیا لپاره حروفونه د ځایونو سره جلا کول. (لکه څنګه چې موږ په دواړو حجرو کې ورته ډیلیمیټر کاروو، دا به په پایله باندې هیڅ اغیزه ونلري - Excel به یوازې یو ځای د ځای سره بدل کړي.)

    له هغې وروسته، موږ دا فورمول په B2 کې دننه کوو:

    =ReplaceChars(A2:A4, D2, E2)

    او دقیقا هغه پایلې ترلاسه کړئ چې موږ یې په لټه کې یو:

    0>21>

    دا هم ممکنه ده چې حروف په مستقیم ډول په فورمول کې ټایپ کړئ. زموږ په قضیه کې، یوازې د دې په څیر مستقیم نرخونه "نقل کول" په یاد ولرئ:

    =ReplaceChars(A2:A4, "“ ” ’", """ "" '")

    دا فورمول څنګه کار کوي

    د بدلون چارس فعالیت د old_chars او new_chars تارونو له لارې تیریږي او په یو وخت کې یو ځای بدلوي چې په کیڼ اړخ کې د لومړي کرکټر څخه پیل کیږي. دا برخه د SUBSTITUTE فنکشن په واسطه ترسره کیږي:

    SUBSTITUTE(text, LEFT(old_chars), LEFT(new_chars))

    د هر تکرار سره، RIGHT فنکشن د دواړو زاړه_کرز او له کیڼ اړخ څخه یو حرف لرې کوي. new_chars تارونه، د دې لپاره چې LEFT وکولی شي د بدیل لپاره د حروفونو بله جوړه ترلاسه کړي:

    ReplaceChars(SUBSTITUTE(text, LEFT(old_chars), LEFT(new_chars)), RIGHT(old_chars, LEN(old_chars)-1), RIGHT(new_chars, LEN(new_chars)-1))

    د هر تکراري زنګ څخه مخکې، د IF فنکشن د old_chars تار ارزوي . که دا خالي نه وي، فنکشن پخپله غږ کوي. هرڅومره ژر چې وروستی کرکټر ځای په ځای شي ، د تکرار پروسه پای ته رسي ، فورمول متن بیرته خپل اوسني شکل ته راستنیږي او وځي.

    یادونه. ځکه چې د SUBSTITUTE فعالیت زموږ په اصلي فورمولونو کې کارول کیږي کیس حساس ، دواړه لیمبډاس ( MultiReplace او ReplaceChars ) د لوی او کوچني حروفونو سره د مختلف حروفونو په توګه چلند کوي.

    د UDF سره په ډله ایزه توګه موندل او بدلول

    که چیرې د LAMBDA فنکشن ستاسو په Excel کې شتون ونلري، تاسو کولی شئ د VBA په کارولو سره په دودیز ډول د څو بدلولو لپاره د کارونکي لخوا ټاکل شوی فنکشن ولیکئ.

    UDF د LAMBDA - تعریف شوي MultiReplace فنکشن څخه توپیر کولو لپاره، موږ به دا په بل ډول نوم کړو، ووایه MassReplace . د فنکشن کوډ په لاندې ډول دی:

    فنکشن MassReplace (InputRng د رینج په توګه، د رینج په توګه موندلو، د رینج په توګه بدل کړئ) د تغیر په توګه () DimarRes() د پایلو د ذخیره کولو لپاره د متغیر سرې په توګه Dim arSearchReplace()، sTmp د String په توګه سري چیرته چې د موندلو / بدلولو جوړه ذخیره کول، لنډمهاله سټینګ Dim iFindCurRow، cntFindRows As long' index of د اوسني قطار د SearchReplace array، شمیرل د قطارونو ډم iInputCurRow، iInputCurCol، cntInputRows، cntInputCols د سرچینې رینج کې د اوسني قطار شاخص اوږده، د سرچینې رینج کې د اوسني کالم شاخص، د قطارونو شمیر، د کالمونو شمیر cntInputRows = InputRng.InputRng.InputRngCounts = InputRng. .Columns.Count cntFindRows=FindRng.Rows.Count ReDim arRes(1 to cntInputRows, 1 to cntInputCols) ReDim arSearchReplace(1 to cntFindRows, 1 to 2) 'د موندلو سرې چمتو کول/بدلونونه د iFindRow لپاره = د iFindRow لپاره iFindCurRow, 1) = FindRng.Cells(iFindCurRow, 1) .Value arSearchReplace(iFindCurRow, 2) = ReplaceRng.Cells(iFindCurRow, 1). ارزښت Next 'د سرچینې رینج کې لټون کول او ځای په ځای کول د iInCut1 = iInCurnt لپاره 1 د cntInputCols sTm ته p = InputRng.Cells(iInputCurRow, iInputCurCol). ارزښت 'په هر حجره کې د ټولو موندلو/بدلون جوړو بدلول (iInputCurRow, iInputCurCol) = sTmp بل بل MassReplace = arRes پای فنکشن

    لکه د LAMBDA تعریف شوي فنکشنونو په څیر، UDFs د کاري کتاب پراخه دي. دا پدې مانا ده چې

مخکینی پوسټ د ایکسل ټیمپلیټونه: څنګه جوړول او کارول
بل پوسټ په Excel کې منطقي آپریټرونه: سره مساوي، مساوي نه، له دې څخه لوی، لږ

مایکل براون د ټیکنالوژۍ وقف شوی لیوال دی چې د سافټویر وسیلو په کارولو سره د پیچلو پروسو ساده کولو لپاره لیوالتیا لري. د ټیک صنعت کې د یوې لسیزې څخه ډیرې تجربې سره، هغه خپل مهارتونه په مایکروسافټ ایکسل او آؤټ لک کې، او همدارنګه د ګوګل شیټس او اسنادو کې لوړ کړي دي. د مایکل بلاګ د نورو سره د هغه پوهه او تخصص شریکولو ته وقف شوی دی، د تولید او موثریت د ښه کولو لپاره د تعقیب لپاره اسانه لارښوونې او لارښوونې چمتو کوي. که تاسو تجربه لرونکی مسلکي یاست یا پیل کونکی یاست ، د مایکل بلاګ د دې اړین سافټویر وسیلو څخه خورا ډیر ترلاسه کولو لپاره ارزښتناک لیدونه او عملي مشورې وړاندې کوي.