فهرست
که تاسو د ایکسل VBA په کارولو سره په تار کې د متن بدلولو لارې په لټه کې یاست، نو تاسو به دا مقاله ګټور ومومئ. د یوې ټاکلې متن برخې بدلول ممکن د متن تارونو بیا ټایپ کولو کې ډیر وخت خوندي کړي. نو، راځئ چې د دې بدیل دندې په اړه توضیحاتو پوهیدو لپاره اصلي مقالې ته لاړ شو.
د کار کتاب ډاونلوډ کړئ
په String.xlsm کې متن بدل کړئ
د Excel VBA په کارولو سره په سټینګ کې د متن بدلولو 5 لارې
دلته، موږ لاندې ډیټاسیټ لرو چې د کارمندانو ځینې ریکارډونه لري د دوی بریښنالیک ID. زموږ دنده دا ده چې زاړه ډومین نومونه د نوي سره بدل کړو. په لاندې میتودونو کې، موږ به د دې ډیټا سیټ سره د ځینې تصادفي متن تارونو سره کار وکړو ترڅو مطلوب متن د VBA کوډونو سره بدل کړو.
موږ کارولی دی د مایکروسافټ ایکسل 365 نسخه دلته، تاسو کولی شئ د خپلې اسانتیا سره سم نورې نسخې وکاروئ.
طریقه - 01: د متن بدلول د تصادفي سټرینګ له نهم موقعیت څخه پیل کیږي
دلته، موږ به متن په تصادفي متن تار کې د مختلف پیل شوي پوستونو لپاره ځای په ځای کړو.
Step-01 :
➤ Developer Tab ته لاړ شئ >> کوډ گروپ >> بصری اساسی اختیار.
13>
بیا، بصری اساسی مدیر به پرانستل شي.
➤ لاړ شئ Insert Tab >> ماډول اختیار.
14>
له دې وروسته، یو ماډل به رامینځته شي.
15>
پړاو-02 :
➤ لاندې یې ولیکئکوډ
2226
دلته، موږ full_txt_str او updated_str د String په توګه اعلان کړل او بیا یې یو تصادفي متن ته full_txt_str ټاکلي دي. string- "سل موټرې پنځوس موټرې لس موټرې" . بیا د VBA REPLACE فنکشن د موټر د دې تصادفي تار برخې بایسکل <10 سره بدلولو لپاره کارول کیږي> او 1 دلته د دې تار د 1 له موقعیت څخه د بدیل پیل کولو لپاره کارول کیږي. په نهایت کې ، موږ دا نوی متن تار updated_str ته ټاکلی او د پیغام بکس ( MsgBox ) سره به موږ پایله وګورو.
➤ فشار ورکړئ F5 .
بیا د پیغام بکس به د نوي متن سټینګ سره د بدل شوي متن سره څرګند شي بایسکلونه .
➤ د موټرونو د دویم مثال څخه د بدیل پروسې ترسره کولو لپاره لاندې کوډ وکاروئ.
1667
دلته، موږ د پیل ځای د 14 په توګه کارولی دی ځکه چې موږ غواړو د سټینګ برخه د سل موټرو وروسته ولرو او <1 بدل کړو. موټرونه دلته.
0>
➤ د کوډ چلولو وروسته، موږ به لاندې د پیغام بکس ولرو سره د متن تار د متن څخه پیل پچاس او د بایسکلونو سره په موقف کې 1> موټرونه .
➤ د دې تار یوازې وروستۍ برخه درلودلو لپاره موږ لاندې کوډ پلي کوو.
3303
دلته مو د پیل ځای د 25 په توګه کارولی دی ځکه چې موږ غواړو د تار برخه د پچاس موټرې وروسته ولرو او موټرونه د بایسکل <سره بدل کړو. 10> دلته.
په نهایت کې، موږ به یو پیغام بکس ولرو چې زموږ د سټرینګ مطلوبه برخه د سره بدیل ولري. بايسکلونه .
نور ولولئ: ایکسل VBA: کریکټ په سټینګ کې د موقعیت له مخې بدل کړئ (4 مؤثره لارې) 3>
میتود-02: د Excel VBA په کارولو سره د تصادفي سټرینګ د نهمې پیښې لپاره متن بدل کړئ
پدې برخه کې به موږ د مختلف شمیر پیښو لپاره متن په تصادفي تار کې د مرستې په مرسته بدل کړو. د VBA کوډ.
مرحلې :
➤ تعقیب کړئ قدم-01 د میتود-1 .
➤ لاندې کوډ ټایپ کړئ.
1273
دلته موږ اعلان کړی دی full_txt_str او updated_str د String په توګه او بیا full_txt_str د تصادفي متن تار ته وټاکه - "سل موټرې پنځوس موټرې لس موټرې" . له هغې وروسته، د REPLACE فنکشن د موټر د دې تصادفي تار برخې بايسکل <بدلولو لپاره کارول کیږي 9>، 1 دلته د دې تار د 1 له موقعیت څخه د بدلولو پیل کولو لپاره کارول کیږي، او وروستی 1 دی د پیښو شمیر شمیرلو لپاره. د شمیرنې شمیرې په توګه د 1 په کارولو سره موږ یوازې د لومړي موټرو بدلون تعریف کوو. په نهایت کې، موږ دا نوی متن تار updated_str ته ټاکلی او د یو سرهد پیغام بکس ( MsgBox ) موږ به پایله وګورو.
➤ فشار ورکړئ F5 .
وروسته، د پیغام بکس به د نوي متن سره ښکاره شي بایسکلونه په لومړی مقام د موټر یوازې.
➤ د موټرونو د بایسکل <10 د لومړیو دوه مثالونو بدلولو لپاره لاندې کوډ وکاروئ.
9509
دلته، 2 د شمیرنې شمیرې په توګه کارول کیږي ترڅو د موټرونو <2 لومړی دوه مثالونه بدل کړي د سایکلونو سره .
د کوډ چلولو وروسته، تاسو به د لومړیو دوه متنونو بدله ولرئ موټرونه د بايسکل سره.
25>
➤ د ټولو مثالونو د بدلولو لپاره لاندې کوډ پلي کړئ د متن کارونه .
5859
دلته د REPLACE فنکشن وروستی دلیل دی 3 کوم چې د شمېرنې شمېره چې د ټولو موټرونو د بايسکل په متن کې د
سره بدیل په ګوته کوي.
➤ فشار ورکړئ F5 .
وروسته، موږ به لاندې د پیغام بکس د بدل شوي متن سره ولرئ بایسکلونه په تار کې.
ورته لوستل
- په ایکسل کې د کیریج بیرته راستنیدو سره متن بدلولو څرنګوالی (4 اسانه طریقې)
- ایکسیل VBA: څنګه ومومئ او ومومئ په Word سند کې متن بدل کړئ
- په Excel کې د ځانګړي کرکټر وروسته متن بدلولو څرنګوالی (3 میتودونه)
- د متن بدل کړئپه Excel کې د شرایطو پراساس سیل (5 اسانه میتودونه)
میتود-03: متن په تصادفي سټرینګ کې د InputBox سره بدل کړئ
دلته به موږ یو ټاکلی متن بدل کړو. د متن سره یو تصادفي تار چې د یو کارونکي لخوا به د VBA InputBox فعالیت په مرسته تعریف شي.
➤ مرحله-01 د میتود-1 څخه تعقیب کړئ.
➤ لاندې کوډ ټایپ کړئ.
7356
دلته، موږ اعلان کړی دی. full_txt_str ، new_txt ، او updated_str د String په توګه او بیا full_txt_str یو تصادفي متن تار ته ټاکل شوی - "سل موټرې پنځوس موټرې لس موټرې" . د دې لپاره چې د کارونکي لخوا ټاکل شوي ان پټ د متن په توګه د کارونو سره په تصادفي تار کې ځای په ځای شي، موږ د InputBox فعالیت کارولی دی او بیا یې دا ارزښت ټاکلی دی. ته نوی_txt . بیا د REPLACE فنکشن د نوي_txt سره د دې تصادفي تار د کارس برخې بدلولو لپاره کارول کیږي. په نهایت کې ، موږ دا نوی متن تار updated_str ته ټاکلی او د پیغام بکس ( MsgBox ) سره به موږ پایله وګورو.
➤ فشار ورکړئ F5 .
له دې وروسته، یو انپټ بکس به راښکاره شي چیرې چې تاسو کولی شئ د متن هره برخه داخل کړئ کوم چې تاسو غواړئ په نوي تار کې ولرئ.
➤ ټایپ کړئ بایسکلونه یا کوم بل متن چې تاسو یې غواړئ او بیا کلیک وکړئ ښه .
33>
په پای کې به تاسو لاندې پایله د نوي متن تار سره چې نوي متن لري بایسکلونه اند د موټرو موقعیت .
نور ولولئ: په ایکسل فارمول کې د متن بدلولو څرنګوالی (7 اسانه لارې)
میتود-04: متن په یو لړ تارونو کې د Excel VBA سره بدل کړئ
دلته، موږ به د Gmail برخه بدل کړو د نوي ډومین کالم کې د ډومینونو سره د بریښنالیک ids، او د نوي بریښنالیک IDs راټولولو لپاره موږ یو نوی کالم داخل کړی دی؛ 1 د Method-1 .
➤ لاندې کوډ ټایپ کړئ.
4602
دلته موږ د فار لوپ څخه د عملیاتو د ترسره کولو لپاره کار اخیستی دی. 1> قطار 4 تر قطار 13 . د IF-THEN بیان په مرسته، موږ دا معلومه کړه چې ایا د کالم D د بریښنالیک ids "gmail" <10 لري یا نه، او د دې معیار پوره کولو لپاره د "gmail" د بریښنالیک ids برخه به د کالم E<نوي ډومینونو سره بدله شي. 10> په کالم F کې د نوي IDs جوړولو لپاره. که نه نو تاسو به د کالم F په اړوند حجرو کې یو خالي ولرئ.
36>
➤ فشار ورکړئ F5 .
بیا، تاسو به د وروستي بریښنالیک ID کالم کې نوي بریښنالیکونه ولرئ.
37>
نور ولولئ: په کالم کې د متن موندلو او بدلولو لپاره Excel VBA (2 مثالونه)
طریقه - 05: د متن موندلو لپاره د کارن انپټ سره د سټینګ سلسلې کې متن بدل کړئ
تاسو کولی شئ دا ځای په ځای کړئ د لاندې ایمیل ids سرهنوي ډومینونه او اعلان کړئ چې په تیرو ایډونو کې څه بدل کړئ د دې میتود په تعقیب د کارونکي ان پټ کارول کیدی شي>➤ تعقیب کړئ مرحله-01 د طریقه-1 .
➤ لاندې کوډ ټایپ کړئ.
1977
دلته، موږ تعریف کړی دی partial_text د سټرینګ په توګه او بیا یې یو تار ته وټاکه چې د کارونکي لخوا به د انپټ بکس له لارې ورکړل شي.
وروسته، موږ د لپاره لوپ د عملیاتو د اجرا کولو لپاره د قطار 4 څخه قطار 13 څخه کار واخیست، او وکاروو. د IF-THEN بیان کې، موږ دا وڅیړله چې آیا د کالم D د بریښنالیک ID "gmail" لري یا نه او د دې معیار پوره کولو لپاره د "gmail" د بریښنالیک ids برخه به د کالم E د نوي ډومینونو سره بدله شي ترڅو رامینځته شي نوې ids په کالم F کې. که نه نو تاسو به د کالم F په اړونده حجرو کې خالي ځای ولرئ.
39>
➤ فشار ورکړئ F5 .
له دې وروسته، تاسو به یو انپټ بکس ولرئ چیرې چې تاسو باید هغه متن ټایپ کړئ کوم چې تاسو غواړئ د بریښنالیک ids په لړ کې وپلټئ (دلته موږ لرو داخل شو gmail ) او بیا ښه فشار ورکړئ.
40>
په نهایت کې، موږ خپل تازه شوي بریښنالیکونه په فاینل کې لرو د بریښنالیک ID کالم.
41>
نور ولولئ: د Excel VBA (Macro and UserForm) سره په یوه سلسله کې متن ومومئ او بدل کړئ
د تمرین برخه
د تمرین کولو لپارهپخپله موږ یو تمرین برخه چمتو کړې ده لکه په لاندې پاڼه کې چې د تمرین نومیږي. مهرباني وکړئ دا پخپله وکړئ.
پایله
په دې مقاله کې، موږ هڅه وکړه چې د Excel VBA په کارولو سره په تار کې د متن بدلولو لارې پوښښ کړو. هیله ده چې ګټور به مو وي. که تاسو کوم وړاندیز یا پوښتنې لرئ، د تبصرې په برخه کې یې شریک کړئ.
