مواد جي جدول
جيڪڏهن توهان طريقا ڳولي رهيا آهيو اسٽرنگ ۾ ٽيڪسٽ تبديل ڪرڻ Excel استعمال ڪندي VBA ، ته پوءِ توهان کي هي مضمون مفيد ملندو. ھڪڙي خاص متن واري حصي کي تبديل ڪرڻ سان متن جي تارن کي ٻيهر ٽائپ ڪرڻ ۾ گھڻو وقت بچائي سگھي ٿو. سو، اچو ته اچو ته مکيه مضمون ۾ وڃو ان متبادل ڪم جي تفصيلن بابت ڄاڻ حاصل ڪرڻ لاءِ.
ورڪ بڪ ڊائون لوڊ ڪريو
String.xlsm ۾ ٽيڪسٽ تبديل ڪريو
ايڪسل VBA استعمال ڪندي اسٽرنگ ۾ ٽيڪسٽ تبديل ڪرڻ جا 5 طريقا
هتي، اسان وٽ هيٺ ڏنل ڊيٽا سيٽ آهي جنهن ۾ ملازمن جا ڪجهه رڪارڊ انهن جي اي ميل آئي ڊي سان گڏ آهن. اسان جو ڪم پراڻن ڊومين نالن کي نئين سان تبديل ڪرڻ آهي. هيٺ ڏنل طريقن ۾، اسان هن ڊيٽا سيٽ سان گڏ ڪجهه بي ترتيب ٽيڪسٽ اسٽرنگ سان گڏ ڪم ڪنداسين جيڪي گهربل متن کي VBA ڪوڊ سان تبديل ڪرڻ لاء.
اسان استعمال ڪيو آهي Microsoft Excel 365 ورجن ھتي، توھان پنھنجي سھولت موجب ٻيا ورجن استعمال ڪري سگھو ٿا.
طريقو-01: Replace Text starting from n-th Position of a Random String
هتي، اسان متن کي بي ترتيب واري متن واري اسٽرنگ ۾ تبديل ڪنداسين مختلف شروعاتي پوزيشن لاءِ.
Step-01 :
➤ وڃو Developer Tab >> ڪوڊ گروپ >> Visual Basic اختيار.
پوءِ، Visual Basic Editor کلندو.
➤ ڏانهن وڃو Insert Tab >> Module آپشن.
ان کان پوءِ، هڪ ماڊيول ٺاهيو ويندو.
15>
Step-02 :
➤ هيٺيون لکوڪوڊ
6015
هتي، اسان اعلان ڪيو آهي full_txt_str ۽ updated_str جيئن String ۽ پوءِ تفويض ڪيو ويو full_txt_str هڪ بي ترتيب متن ڏانهن. string- ”سؤ ڪارون پنجاهه ڪارون ڏهه ڪارون“ . پوءِ VBA REPLACE فنڪشن کي بدلائڻ لاءِ استعمال ڪيو ويندو آهي ڪارون هن بي ترتيب واري تار جو حصو سائيڪلون<10 ۽ 1 هتي استعمال ڪيو ويندو آهي متبادل کي شروع ڪرڻ لاءِ هن اسٽرنگ جي پوزيشن 1 . آخرڪار، اسان هن نئين ٽيڪسٽ اسٽرنگ کي updated_str تي لڳايو آهي ۽ هڪ ميسيج باڪس ( MsgBox ) سان اسان نتيجو ڏسنداسين.
➤ دٻايو F5 .
پوءِ هڪ ميسيج باڪس ظاهر ٿيندو نئين ٽيڪسٽ اسٽرنگ سان بدليل ٽيڪسٽ سائيڪلس .
➤ متبادل عمل کي ڪرڻ لاءِ ٻئي مثال جي ڪارون هيٺ ڏنل ڪوڊ استعمال ڪريو.
7227
هتي، اسان شروعاتي پوزيشن کي استعمال ڪيو آهي جيئن 14 ڇاڪاڻ ته اسان چاهيون ٿا ته اسٽرنگ جو حصو سو ڪارن کان پوءِ ۽ بدلي <1 ڪارون هتي.
0>18>➤ ڪوڊ کي هلائڻ کان پوءِ، اسان وٽ هيٺيون ميسيج باڪس هوندو. سان ٽيڪسٽ اسٽرنگ ٽيڪسٽ مان شروع ٿئي ٿو پچاس ۽ سان سائيڪلون جي پوزيشن ۾ 1> ڪارون .
19>
➤ هن اسٽرنگ جو صرف آخري حصو حاصل ڪرڻ لاءِ اسان هيٺ ڏنل ڪوڊ لاڳو ڪري رهيا آهيون.
5508
هتي، اسان شروعاتي پوزيشن کي استعمال ڪيو آهي جيئن 25 ڇاڪاڻ ته اسان چاهيون ٿا ته اسٽرنگ جو حصو Fifty Cars کان پوءِ ۽ ڪارون سان سائيڪلون <هتي. سائيڪلون .
وڌيڪ پڙهو: Excel VBA: اسٽرنگ ۾ ڪردار کي پوزيشن جي لحاظ کان تبديل ڪريو (4 اثرائتو طريقا)
طريقو-02: ايڪسل VBA استعمال ڪندي بي ترتيب واري اسٽرنگ جي n-th واقعن لاءِ متن کي متبادل بڻايو
هن سيڪشن ۾، اسان مدد سان مختلف انگن اکرن لاءِ بي ترتيب واري اسٽرنگ ۾ متن بدلائينداسين. جو هڪ VBA ڪوڊ.
قدم :
➤ فالو Step-01 of Method-1 .
➤ هيٺ ڏنل ڪوڊ ٽائيپ ڪريو.
2627
هتي، اسان اعلان ڪيو آهي full_txt_str ۽ updated_str as String ۽ پوءِ تفويض ڪيو ويو full_txt_str بي ترتيب واري متن واري اسٽرنگ ڏانهن- “هنڊري ڪارز ففٽي ڪارز ٽين ڪارز” . ان کان پوءِ، REPLACE فنڪشن استعمال ڪيو ويندو ڪارون هن بي ترتيب اسٽرنگ جو حصو سائيڪلون ، 1 هتي استعمال ڪيو ويندو آهي متبادل شروع ڪرڻ لاءِ هن اسٽرنگ جي پوزيشن 1 ، ۽ آخري 1 آهي واقعن جو تعداد ڳڻڻ لاءِ. استعمال ڪندي 1 جي ڳڻپ واري نمبر جي طور تي اسان وضاحت ڪري رهيا آهيون بدلي جي پهرين ڪارين صرف. آخرڪار، اسان هن نئين ٽيڪسٽ اسٽرنگ کي updated_str سان لڳايو آهي ۽ هڪميسيج باڪس ( MsgBox ) اسان نتيجو ڏسنداسين.
➤ پريس F5 .
بعد ۾، هڪ ميسيج باڪس نئين متن سان ظاهر ٿيندو سائيڪلون جي پهريون پوزيشن جي ڪارون صرف.
➤ پهرين ٻن مثالن جي بدلي لاءِ ڪارون سان سائيڪلون هيٺ ڏنل ڪوڊ استعمال ڪريو.
2386
هتي، 2 جي ڳڻپ واري نمبر طور استعمال ڪيو ويندو آهي ڪارون <2 جي پهرين ٻن مثالن کي بدلائڻ لاءِ. سائيڪلون سان.
ڪوڊ کي هلائڻ کان پوءِ، توهان وٽ پهرين ٻن متنن جو متبادل هوندو ڪارون سان سائيڪلون .
25>
➤ سڀني مثالن کي مٽائڻ لاءِ هيٺ ڏنل ڪوڊ لاڳو ڪريو متن جو ڪارون .
5590
هتي، آخري دليل REPLACE فنڪشن آهي 3 جيڪو ڳڻپ جو تعداد سڀني ڪارن سان سائيڪلون ٽيڪسٽ اسٽرنگ ۾
جي بدلي کي ظاهر ڪري ٿو.
➤ پريس F5 .
بعد ۾، اسان ڪنداسين ھيٺ ڏنل ميسيج باڪس بدليل متن سان سائيڪلس اسٽرنگ ۾.
27>
ساڳي پڙهڻي
- ڪيئن بدلجي ٽيڪسٽ کي ڪارج ريٽرن سان ايڪسل ۾ (4 هموار اپروچز)
- Excel VBA: ڪيئن ڳولهيو ۽ ورڊ ڊاڪيومينٽ ۾ ٽيڪسٽ تبديل ڪريو
- ايڪسل ۾ مخصوص ڪرڪٽر کان پوءِ ٽيڪسٽ ڪيئن بدلجي (3 طريقا)
- بدلجي ٽيڪسٽسيل ۾ حالت جي بنياد تي ايڪسل ۾ (5 آسان طريقا)
طريقو-03: ان پٽ باڪس سان بي ترتيب واري اسٽرنگ ۾ متن کي تبديل ڪريو
هتي، اسان هڪ مخصوص متن کي تبديل ڪنداسين. ھڪڙي بي ترتيب واري تار ھڪڙي متن سان جنھن کي صارف پاران VBA InputBox فنڪشن جي مدد سان بيان ڪيو ويندو.
Steps :<3
➤ فالو ڪريو Step-01 of Method-1 .
➤ هيٺ ڏنل ڪوڊ ٽائپ ڪريو.
3241
هتي، اسان اعلان ڪيو آهي. full_txt_str ، new_txt ، ۽ updated_str جيئن String ۽ پوءِ تفويض ڪيو ويو full_txt_str هڪ بي ترتيب ٽيڪسٽ اسٽرنگ- ”سؤ ڪارون پنجاهه ڪارون ڏهه ڪارون“ . استعمال ڪندڙ جي بيان ڪيل ان پٽ کي متن جي طور تي تبديل ڪرڻ لاءِ ڪارون بي ترتيب واري اسٽرنگ ۾، اسان استعمال ڪيو آهي انپٽ باڪس فنڪشن ۽ پوءِ هن قيمت کي تفويض ڪيو ڏانهن new_txt . پوءِ REPLACE فنڪشن استعمال ڪيو ويندو ڪارون هن بي ترتيب اسٽرنگ جو حصو new_txt کي تبديل ڪرڻ لاءِ. آخرڪار، اسان هن نئين ٽيڪسٽ اسٽرنگ کي updated_str تي لڳايو آهي ۽ هڪ ميسيج باڪس ( MsgBox ) سان اسان نتيجو ڏسنداسين.
➤ دٻايو F5 .
ان کان پوءِ، هڪ انپٽ باڪس ظاهر ٿيندو جتي توهان متن جو ڪو به حصو داخل ڪري سگهو ٿا جيڪو توهان نئين اسٽرنگ ۾ رکڻ چاهيو ٿا.
➤ ٽائيپ ڪريو سائيڪلون يا ٻيو ڪو به متن جيڪو توهان چاهيو ٿا ۽ پوءِ دٻايو OK .
33>
آخرڪار، توهان ڪندا هيٺ ڏنل نتيجو حاصل ڪريو نئين متن واري اسٽرنگ سان نئين متن سان سائيڪلون ان ۾ ڪارن جي پوزيشن .
وڌيڪ پڙهو: ايڪسل فارمولا ۾ ٽيڪسٽ ڪيئن بدلجي (7 آسان طريقا)
طريقو-04: ايڪسل VBA سان اسٽرنگ جي حد ۾ متن کي تبديل ڪريو
هتي، اسان متبادل ڪنداسين gmail جي حصو نئون ڊومين کالم ۾ ڊومينز سان اي ميل ids، ۽ نئين اي ميل آئي ڊيز کي گڏ ڪرڻ لاءِ اسان هڪ نئون ڪالم داخل ڪيو آهي؛ 1 جو طريقو-1 .
➤ هيٺ ڏنل ڪوڊ ٽائپ ڪريو.
8265
هتي، اسان استعمال ڪيو آهي فار لوپ کان آپريشن ڪرڻ لاءِ قطار 4 کان قطار 13 . IF-THEN بيان جي مدد سان، اسان چيڪ ڪيو آهي ته ڇا کالم ڊي جي اي ميل آئي ڊي “gmail” <10 تي مشتمل آهي> يا نه، ۽ هن معيار کي پورو ڪرڻ لاءِ “gmail” اي ميل آئي ڊيز جو حصو بدلايو ويندو کالم E<جي نئين ڊومينز سان. 10> نئين ids ٺاهڻ لاءِ کالم F . ٻي صورت ۾ توهان کي کالم F جي لاڳاپيل سيلن ۾ هڪ خالي هوندو.
➤ پريس F5 .
پوءِ، توهان وٽ فائنل اي ميل آئي ڊي ڪالمن ۾ نئين اي ميل آئي ڊي هوندي.
وڌيڪ پڙهو: ڪالمن ۾ ٽيڪسٽ ڳولڻ ۽ تبديل ڪرڻ لاءِ Excel VBA (2 مثال)
طريقو-05: متن کي ڳولهڻ لاءِ استعمال ڪندڙ ان پٽ سان اسٽرنگ جي حد ۾ متن کي تبديل ڪريو
توهان ان کي تبديل ڪري سگهو ٿا. هيٺ ڏنل اي ميل آئي ڊي ساننوان ڊومينز ۽ اعلان ڪريو ته ڇا بدلائڻو آهي پوئين آئي ڊيز ۾ هڪ صارف ان پٽ هن طريقي تي عمل ڪندي استعمال ڪري سگهجي ٿو.
Steps :
➤ فالو ڪريو Step-01 of Method-1 .
➤ هيٺ ڏنل ڪوڊ ٽائپ ڪريو.
4009
هتي، اسان وضاحت ڪئي آهي partial_text as a String ۽ پوءِ ان کي اسٽرنگ تي لڳايو جيڪو صارف پاران انپٽ باڪس ذريعي ڏنو ويندو.
ان کان پوء، اسان استعمال ڪيو لاء لوپ آپريشن کي عمل ڪرڻ لاء قطار 4 2> کان قطار 13 ، ۽ استعمال ڪندي. IF-THEN بيان، اسان چيڪ ڪيو ته ڇا کالم ڊي جي اي ميل آئي ڊي “gmail” تي مشتمل آهي يا نه ۽ هن معيار کي پورو ڪرڻ لاءِ “gmail” جي اي ميل آئي ڊيز جو حصو تبديل ڪيو ويندو نئين ڊومينز سان ڪالمن E ٺاهڻ لاءِ نئين ids کالم F ۾. ٻي صورت ۾ توهان کي کالم F جي لاڳاپيل سيلن ۾ هڪ خالي هوندو.
➤ پريس F5 .
ان کان پوءِ، توهان وٽ هوندو هڪ انپٽ باڪس جتي توهان کي اهو ٽيڪسٽ ٽائپ ڪرڻو پوندو جنهن کي توهان اي ميل آئي ڊي جي حد ۾ ڳولڻ چاهيو ٿا (هتي اسان وٽ آهي. داخل ٿيو gmail ) ۽ پوءِ کي دٻايو OK .
آخرڪار، اسان پنهنجي تازه ڪاري اي ميل آئي ڊيز حاصل ڪري رهيا آهيون فائنل اي ميل آئي ڊي کالم.
وڌيڪ پڙهو: ايڪسل VBA (ميڪرو ۽ يوزر فارم) سان هڪ رينج ۾ متن ڳوليو ۽ تبديل ڪريو
مشق سيڪشن
جي طرفان مشق ڪرڻ لاءِپاڻ اسان هڪ مشق سيڪشن مهيا ڪيو آهي جيئن هيٺ ڏنل شيٽ ۾ مشق . مهرباني ڪري اهو پنهنجو پاڻ ڪريو.
نتيجو
هن آرٽيڪل ۾، اسان ايڪسل VBA استعمال ڪندي اسٽرنگ ۾ متن کي تبديل ڪرڻ جي طريقن کي ڍڪڻ جي ڪوشش ڪئي. . اميد ته توھان کي مفيد ملندو. جيڪڏھن توھان وٽ ڪي تجويزون يا سوال آھن، انھن کي تبصرو سيڪشن ۾ حصيداري ڪرڻ لاء آزاد محسوس ڪريو.
