فهرست مطالب
اگر به دنبال راه هایی برای جایگزینی متن در رشته با استفاده از Excel VBA هستید، این مقاله برای شما مفید خواهد بود. جایگزین کردن یک بخش متن خاص ممکن است در تایپ مجدد رشته های متنی در زمان زیادی صرفه جویی کند. بنابراین، بیایید وارد مقاله اصلی شویم تا جزئیات این کار جایگزینی را بدانیم.
دانلود Workbook
Replace Text in String.xlsm
5 روش برای جایگزینی متن در رشته با استفاده از Excel VBA
در اینجا، مجموعه داده زیر را داریم که حاوی برخی از سوابق کارمندان با شناسه ایمیل آنها است. وظیفه ما جایگزینی نام های دامنه قدیمی با دامنه های جدید است. در روش های زیر، با این مجموعه داده به همراه چند رشته متن تصادفی کار می کنیم تا متن مورد نظر را با کدهای VBA جایگزین کنیم.
ما از <استفاده کرده ایم. 9>نسخه Microsoft Excel 365 در اینجا، می‌توانید از هر نسخه دیگری مطابق با راحتی خود استفاده کنید.
روش-01: جایگزینی متن با شروع از موقعیت n-ام یک رشته تصادفی
در اینجا، ما متن را در یک رشته متن تصادفی برای موقعیت‌های شروع مختلف جایگزین می‌کنیم.
Step-01 :
➤ به برگه Developer بروید. >> کد گروه >> ویژوال بیسیک گزینه.
سپس، ویژوال بیسیک ویرایشگر باز می شود.
➤ به Insert Tab >> Module گزینه بروید.
پس از آن، یک ماژول ایجاد خواهد شد.
Step-02 :
➤ زیر را بنویسیدکد
2753
در اینجا، full_txt_str و updated_str را به عنوان رشته اعلام کردیم و سپس full_txt_str را به یک متن تصادفی اختصاص دادیم. string- "Hundred Cars Fifty Cars Ten Cars" . سپس از VBA REPLACE تابع برای جایگزینی Cars بخشی از این رشته تصادفی با Bicycles<10 استفاده می شود> و 1 در اینجا برای شروع جایگزینی از موقعیت 1 این رشته استفاده می شود. در نهایت، ما این رشته متن جدید را به updated_str اختصاص دادیم و با یک کادر پیام ( MsgBox ) نتیجه را خواهیم دید.
➤ F5 را فشار دهید.
سپس یک جعبه پیام با رشته متن جدید با متن جایگزین شده Bicycles <ظاهر می شود. 2>.
➤ برای انجام فرآیند تعویض از نمونه دوم خودروها از کد زیر استفاده کنید.
5324
در اینجا، ما از موقعیت شروع به عنوان 14 استفاده کرده ایم، زیرا می خواهیم قسمتی از رشته را بعد از Hundred Cars داشته باشیم و <1 را جایگزین کنیم> خودروها اینجا.
➤ پس از اجرا کردن کد، کادر پیام زیر را خواهیم داشت. با رشته متن شروع از متن Fifty و با Bicycles در موقعیت Cars .
➤ برای داشتن تنها قسمت آخر این رشته، کد زیر را اعمال می کنیم.
7522
در اینجا، ما از موقعیت شروع به عنوان 25 استفاده کرده ایم زیرا می خواهیم قسمتی از رشته را بعد از Fifty Cars داشته باشیم و Cars را با Bicycles <جایگزین کنیم. 10> اینجا.
در نهایت، یک جعبه پیام خواهیم داشت که قسمت دلخواه ما از رشته جایگزین است. دوچرخه ها .
بیشتر بخوانید: Excel VBA: جایگزینی کاراکتر در رشته بر اساس موقعیت (4 روش موثر)
روش-02: جایگزینی متن برای n-امین وقوع یک رشته تصادفی با استفاده از Excel VBA
در این بخش، یک متن را در یک رشته تصادفی برای تعداد متفاوتی از رخدادها با کمک جایگزین می کنیم. از یک VBA کد.
مراحل :
➤ Step-01 از روش-1<را دنبال کنید 2>.
➤ کد زیر را تایپ کنید.
3080
در اینجا، full_txt_str و updated_str را به عنوان رشته اعلام کرده ایم. و سپس full_txt_str را به یک رشته متن تصادفی اختصاص داد- "صد ماشین پنجاه ماشین ده ماشین" . پس از آن، تابع REPLACE برای جایگزینی Cars بخش این رشته تصادفی با Bicycles <استفاده می شود. 9>, 1 در اینجا برای شروع جایگزینی از موقعیت 1 این رشته استفاده می شود و 1 نهایی است برای شمارش تعداد وقوع با استفاده از 1 به عنوان عدد شمارش، ما جایگزین اولین خودروها را تعریف می کنیم. در نهایت، ما این رشته متن جدید را به updated_str و با a اختصاص داده ایمجعبه پیام ( MsgBox ) نتیجه را خواهیم دید.
➤ F5 را فشار دهید.
بعد، یک جعبه پیام با متن جدید دوچرخه ها در اولین موقعیت ماشین <ظاهر می شود. 2>فقط.
➤ برای جایگزینی دو نمونه اول ماشین با دوچرخه از کد زیر استفاده کنید.
9550
در اینجا، 2 به عنوان عدد شمارش برای جایگزینی دو نمونه اول Cars <2 استفاده می شود>با دوچرخه ها .
پس از اجرای کد، جایگزین دو متن اول خواهید شد خودروهای با دوچرخه .
➤ کد زیر را برای جایگزینی همه نمونه‌ها اعمال کنید از متن Cars .
7423
در اینجا، آخرین آرگومان تابع REPLACE 3 است که شماره شمارش نشان دهنده جایگزینی همه خودروهای با دوچرخه در رشته متنی است.
➤ F5 را فشار دهید.
بعد از آن، ما جعبه پیام زیر را با متن جایگزین Bicycles در رشته داشته باشید.
مطالب مشابه
- نحوه جایگزینی متن با Carriage Return در اکسل (4 روش صاف)
- Excel VBA: نحوه یافتن و جایگزینی متن در سند ورد
- چگونه متن را پس از نویسه خاص در اکسل جایگزین کنیم (3 روش)
- جایگزینی متن یکسلول بر اساس شرایط در اکسل (5 روش آسان)
روش-03: جایگزینی متن در یک رشته تصادفی با InputBox
در اینجا، متن خاصی را جایگزین می کنیم یک رشته تصادفی با یک متن که توسط کاربر با کمک عملکرد VBA InputBox تعریف می شود.
مراحل :
➤ Step-01 of Method-1 را دنبال کنید.
➤ کد زیر را تایپ کنید.
3224
در اینجا، ما اعلام کرده ایم full_txt_str ، new_txt و updated_str به عنوان رشته و سپس full_txt_str به یک رشته متن تصادفی اختصاص داده شد- "صد ماشین پنجاه ماشین ده ماشین" . برای اینکه ورودی تعریف شده توسط کاربر به عنوان متنی که باید با Cars در رشته تصادفی جایگزین شود، از تابع InputBox استفاده کرده ایم و سپس این مقدار را اختصاص داده ایم. به new_txt . سپس از تابع REPLACE برای جایگزینی Cars بخش این رشته تصادفی با new_txt استفاده می شود. در نهایت، ما این رشته متن جدید را به updated_str اختصاص دادیم و با یک کادر پیام ( MsgBox ) نتیجه را خواهیم دید.
➤ F5 را فشار دهید.
پس از آن، یک جعبه ورودی ظاهر می شود که در آن می توانید هر قسمت متنی را که می خواهید در رشته جدید داشته باشید وارد کنید.
➤ Bicycles یا هر متن دیگری را که می خواهید تایپ کنید و سپس OK را فشار دهید.
در نهایت، شما نتیجه زیر را با رشته متن جدید با متن جدید داشته باشید دوچرخه ها درموقعیت خودروها .
بیشتر بخوانید: نحوه جایگزینی متن در فرمول اکسل (7 روش آسان)
روش-04: جایگزینی متن در محدوده رشته‌ها با Excel VBA
در اینجا، قسمت gmail را جایگزین می‌کنیم. شناسه های ایمیل با دامنه های موجود در ستون دامنه جدید ، و برای جمع آوری شناسه های ایمیل جدید، یک ستون جدید درج کرده ایم. شناسه ایمیل نهایی .
مراحل :
➤ Step-01 را دنبال کنید از روش-1 .
➤ کد زیر را تایپ کنید.
3213
در اینجا، ما از حلقه FOR برای اجرای عملیات از <استفاده کرده ایم. 1> ردیف 4 تا ردیف 13 . با کمک عبارت IF-THEN ، بررسی کردیم که آیا شناسه ایمیل ستون D شامل "gmail" <10 است> یا نه، و برای انجام این معیار، بخش "gmail" از شناسه های ایمیل با دامنه های جدید ستون E<جایگزین می شود. 10> برای ایجاد شناسه های جدید در ستون F . در غیر این صورت در سلول های مربوطه ستون F یک جای خالی خواهید داشت.
➤ F5 را فشار دهید .
سپس، شناسه های ایمیل جدید را در ستون شناسه ایمیل نهایی خواهید داشت.
بیشتر بخوانید: Excel VBA برای یافتن و جایگزینی متن در یک ستون (2 مثال)
روش-05: جایگزینی متن در محدوده ای از رشته ها با ورودی کاربر برای یافتن متن
می توانید جایگزین شناسه های ایمیل زیر بادامنه های جدید و اعلام اینکه چه چیزی را باید در شناسه های قبلی جایگزین کنید، یک ورودی کاربر را می توان با پیروی از این روش استفاده کرد.
مراحل :
➤ Step-01 of Method-1 را دنبال کنید.
➤ کد زیر را تایپ کنید.
2709
در اینجا، را تعریف کرده ایم. partal_text به عنوان String و سپس آن را به رشته ای که توسط کاربر از طریق Input Box داده می شود، اختصاص داد.
پس از آن، ما از حلقه FOR برای اجرای عملیات از ردیف 4 تا ردیف 13 استفاده کردیم و با استفاده از عبارت IF-THEN ، بررسی کردیم که آیا شناسه ایمیل ستون D حاوی "gmail" یا نه و برای انجام این معیار، قسمت "gmail" از شناسه های ایمیل با دامنه های جدید ستون E برای ایجاد جایگزین می شود. شناسه های جدید در ستون F . در غیر این صورت در سلول های مربوطه ستون F یک جای خالی خواهید داشت.
➤ F5 را فشار دهید. .
بعد از آن، یک جعبه ورودی خواهید داشت که در آن باید متنی را که می خواهید در محدوده شناسه های ایمیل جستجو کنید تایپ کنید (در اینجا ما داریم gmail ) را وارد کرده و سپس OK را فشار دهید.
در نهایت، ما شناسه های ایمیل به روز شده خود را در نهایی داریم شناسه ایمیل ستون.
بیشتر بخوانید: یافتن و جایگزینی متن در محدوده با Excel VBA (ماکرو و فرم کاربر)
بخش تمرین
برای انجام تمرین توسطخود ما یک بخش تمرین مانند زیر در برگه ای به نام تمرین ارائه کرده ایم. لطفاً خودتان این کار را انجام دهید.
نتیجه‌گیری
در این مقاله سعی کردیم راه‌های جایگزینی متن در یک رشته با استفاده از Excel VBA را بیان کنیم. . امیدوارم برای شما مفید باشد. اگر پیشنهاد یا سوالی دارید، در قسمت نظرات به اشتراک بگذارید.
