តារាងមាតិកា
ប្រសិនបើអ្នកកំពុងស្វែងរកវិធីដើម្បី ជំនួសអត្ថបទក្នុងខ្សែអក្សរ ដោយប្រើ Excel VBA នោះអ្នកនឹងឃើញថាអត្ថបទនេះមានប្រយោជន៍។ ការជំនួសផ្នែកអត្ថបទជាក់លាក់មួយអាចសន្សំសំចៃពេលវេលាច្រើនក្នុងការវាយអក្សរម្តងទៀត។ ដូច្នេះ សូមចូលទៅក្នុងអត្ថបទចម្បង ដើម្បីដឹងពីព័ត៌មានលម្អិតអំពីកិច្ចការជំនួសនេះ។
ទាញយកសៀវភៅការងារ
ជំនួសអត្ថបទក្នុង String.xlsm
5 វិធីដើម្បីជំនួសអត្ថបទក្នុងខ្សែអក្សរដោយប្រើ Excel VBA
នៅទីនេះ យើងមានសំណុំទិន្នន័យខាងក្រោមដែលមានកំណត់ត្រាមួយចំនួនរបស់បុគ្គលិកដែលមានលេខសម្គាល់អ៊ីមែលរបស់ពួកគេ។ ភារកិច្ចរបស់យើងគឺដើម្បីជំនួសឈ្មោះដែនចាស់ជាមួយនឹងឈ្មោះថ្មី។ នៅក្នុងវិធីសាស្រ្តខាងក្រោម យើងនឹងធ្វើការជាមួយសំណុំទិន្នន័យនេះ រួមជាមួយនឹងខ្សែអក្សរចៃដន្យមួយចំនួន ដើម្បីជំនួសអត្ថបទដែលចង់បានជាមួយនឹងកូដ VBA ។
យើងបានប្រើ Microsoft Excel 365 កំណែនៅទីនេះ អ្នកអាចប្រើកំណែផ្សេងទៀតណាមួយតាមភាពងាយស្រួលរបស់អ្នក។
Method-01៖ ជំនួសអត្ថបទដោយចាប់ផ្តើមពីទីតាំង n-th នៃ Random String
នៅទីនេះ យើងនឹងជំនួសអត្ថបទក្នុងខ្សែអក្សរចៃដន្យសម្រាប់ទីតាំងចាប់ផ្តើមផ្សេងៗគ្នា។
ជំហាន-01 :
➤ ចូលទៅកាន់ អ្នកអភិវឌ្ឍន៍ ផ្ទាំង >> Code Group >> Visual Basic Option។
បន្ទាប់មក Visual Basic Editor នឹងបើកឡើង។
➤ ចូលទៅកាន់ Insert Tab >> Module Option។
បន្ទាប់ពីនោះ ម៉ូឌុល នឹងត្រូវបានបង្កើត។
ជំហាន-02 :
➤ សរសេរដូចខាងក្រោមcode
7103
នៅទីនេះ យើងបានប្រកាស full_txt_str និង updated_str ជា String ហើយបន្ទាប់មកបានកំណត់ full_txt_str ទៅជាអត្ថបទចៃដន្យ string- “ឡានរាប់រយ ហាសិបឡាន ដប់ឡាន” ។ បន្ទាប់មក VBA អនុគមន៍ REPLACE ត្រូវបានប្រើដើម្បីជំនួស រថយន្ត ផ្នែកនៃខ្សែចៃដន្យនេះជាមួយនឹង កង់ និង 1 ត្រូវបានប្រើនៅទីនេះ ដើម្បីចាប់ផ្តើមការជំនួសពីទីតាំង 1 នៃខ្សែអក្សរនេះ។ ជាចុងក្រោយ យើងបានកំណត់ខ្សែអក្សរថ្មីនេះទៅ updated_str ហើយជាមួយនឹងប្រអប់សារ ( MsgBox ) យើងនឹងឃើញលទ្ធផល។
➤ ចុច F5 ។
បន្ទាប់មក ប្រអប់សារ នឹងបង្ហាញជាមួយខ្សែអក្សរថ្មីជាមួយនឹងអត្ថបទជំនួស កង់ .
➤ ដើម្បីដំណើរការជំនួសពីឧទាហរណ៍ទីពីរនៃ រថយន្ត ប្រើលេខកូដខាងក្រោម។
7185
នៅទីនេះ យើងបានប្រើទីតាំងចាប់ផ្តើមជា 14 ព្រោះយើងចង់មានផ្នែកនៃខ្សែបន្ទាប់ពី រយរថយន្ត ហើយជំនួស រថយន្ត នៅទីនេះ។
➤ បន្ទាប់ពី រត់ លេខកូដ យើងនឹងមាន ប្រអប់សារខាងក្រោម ជាមួយ ខ្សែអក្សរ ចាប់ផ្តើមពីអត្ថបទ ហាសិប និងជាមួយ កង់ នៅក្នុងទីតាំងរបស់ រថយន្ត ។
➤ សម្រាប់តែផ្នែកចុងក្រោយនៃខ្សែនេះ យើងកំពុងអនុវត្តលេខកូដខាងក្រោម។
9424
នៅទីនេះ យើងបានប្រើទីតាំងចាប់ផ្តើមជា 25 ព្រោះយើងចង់មានផ្នែកនៃខ្សែបន្ទាប់ពី រថយន្តហាសិប ហើយជំនួស រថយន្ត ដោយ កង់ នៅទីនេះ។
ជាចុងក្រោយ យើងនឹងមាន ប្រអប់សារ ជាមួយនឹងផ្នែកដែលយើងចង់បាននៃខ្សែអក្សរដែលមានការជំនួសដោយ កង់ ។
អានបន្ថែម៖ Excel VBA៖ ជំនួសតួអក្សរក្នុងខ្សែអក្សរតាមទីតាំង (4 វិធីមានប្រសិទ្ធភាព)
Method-02៖ ជំនួសអត្ថបទសម្រាប់ n-th កើតឡើងនៃ Random String ដោយប្រើ Excel VBA
នៅក្នុងផ្នែកនេះ យើងនឹងជំនួសអត្ថបទក្នុងខ្សែអក្សរចៃដន្យសម្រាប់លេខផ្សេងគ្នានៃការកើតឡើងដោយមានជំនួយពី នៃ VBA code។
ជំហាន :
➤ អនុវត្តតាម ជំហាន-01 នៃ Method-1 .
➤ វាយលេខកូដខាងក្រោម។
8915
នៅទីនេះ យើងបានប្រកាស full_txt_str និង updated_str ជា String ហើយបន្ទាប់មកបានកំណត់ full_txt_str ទៅជាអក្សរចៃដន្យ- “ឡានមួយរយហាសិបឡានដប់ឡាន” ។ បន្ទាប់ពីនោះ អនុគមន៍ REPLACE ត្រូវបានប្រើដើម្បីជំនួស រថយន្ត ផ្នែកនៃខ្សែចៃដន្យនេះជាមួយនឹង កង់ , 1 ត្រូវបានប្រើនៅទីនេះ ដើម្បីចាប់ផ្តើមការជំនួសពីទីតាំង 1 នៃខ្សែអក្សរនេះ ហើយចុងក្រោយ 1 គឺ សម្រាប់រាប់ចំនួននៃការកើតឡើង។ ដោយប្រើ 1 ជាលេខរាប់ យើងកំណត់ការជំនួស រថយន្តដំបូង តែប៉ុណ្ណោះ។ ជាចុងក្រោយ យើងបានកំណត់ខ្សែអក្សរថ្មីនេះទៅ updated_str និងជាមួយ aប្រអប់សារ ( MsgBox ) យើងនឹងឃើញលទ្ធផល។
➤ ចុច F5 ។
បន្ទាប់មក ប្រអប់សារ នឹងបង្ហាញជាមួយអត្ថបទថ្មី កង់ នៅក្នុង ទីតាំងដំបូង នៃ រថយន្ត ប៉ុណ្ណោះ> ប្រើលេខកូដខាងក្រោម។
4648
នៅទីនេះ 2 ត្រូវបានប្រើជាលេខរាប់ ដើម្បីជំនួសឧទាហរណ៍ពីរដំបូងនៃ រថយន្ត ជាមួយ កង់ ។
បន្ទាប់ពីដំណើរការកូដ អ្នកនឹងមានការជំនួសអត្ថបទពីរដំបូង រថយន្ត ជាមួយ កង់ ។
➤ អនុវត្តកូដខាងក្រោមដើម្បីជំនួសករណីទាំងអស់ នៃអត្ថបទ រថយន្ត ។
3669
នៅទីនេះ អាគុយម៉ង់ចុងក្រោយនៃមុខងារ REPLACE គឺ 3 ដែលជា លេខរាប់ដែលបង្ហាញពីការជំនួស រថយន្តទាំងអស់ ជាមួយ កង់ នៅក្នុងខ្សែអក្សរ។
➤ ចុច F5 ។
បន្ទាប់ យើងនឹង មាន ប្រអប់សារ ខាងក្រោមជាមួយនឹងអត្ថបទជំនួស កង់ នៅក្នុងខ្សែអក្សរ។
ការអានស្រដៀងគ្នា
- របៀបជំនួសអត្ថបទជាមួយនឹងការបញ្ជូនត្រឡប់មកវិញនៅក្នុង Excel (4 វិធីសាស្រ្តរលូន)
- Excel VBA: របៀបស្វែងរក និង ជំនួសអត្ថបទក្នុងឯកសារ Word
- របៀបជំនួសអត្ថបទបន្ទាប់ពីតួអក្សរជាក់លាក់នៅក្នុង Excel (3 វិធីសាស្រ្ត)
- ជំនួសអត្ថបទនៃក្រឡាផ្អែកលើលក្ខខណ្ឌក្នុង Excel (5 វិធីសាស្រ្តងាយស្រួល)
វិធីសាស្រ្ត-03៖ ជំនួសអត្ថបទក្នុងខ្សែអក្សរចៃដន្យជាមួយប្រអប់បញ្ចូល
នៅទីនេះ យើងនឹងជំនួសអត្ថបទជាក់លាក់នៃ ខ្សែអក្សរចៃដន្យដែលមានអត្ថបទដែលនឹងត្រូវបានកំណត់ដោយអ្នកប្រើប្រាស់ដោយមានជំនួយពី មុខងារ VBA InputBox ។
ជំហាន :
➤ អនុវត្តតាម ជំហាន-01 នៃ វិធីសាស្រ្ត-1 ។
➤ វាយលេខកូដខាងក្រោម។
6303
នៅទីនេះ យើងបានប្រកាស full_txt_str , new_txt , និង updated_str ជា String ហើយបន្ទាប់មកបានកំណត់ full_txt_str ទៅខ្សែអក្សរចៃដន្យ- “ឡានរាប់រយ ហាសិបឡាន ដប់ឡាន” ។ ដើម្បីឱ្យមានការបញ្ចូលដែលកំណត់ដោយអ្នកប្រើប្រាស់ជាអត្ថបទដែលត្រូវជំនួសដោយ រថយន្ត នៅក្នុងខ្សែអក្សរចៃដន្យ យើងបានប្រើមុខងារ ប្រអប់បញ្ចូល ហើយបន្ទាប់មកបានកំណត់តម្លៃនេះ ទៅ new_txt ។ បន្ទាប់មក អនុគមន៍ REPLACE ត្រូវបានប្រើដើម្បីជំនួស រថយន្ត ផ្នែកនៃខ្សែអក្សរចៃដន្យនេះជាមួយ new_txt ។ ជាចុងក្រោយ យើងបានកំណត់ខ្សែអក្សរថ្មីនេះទៅ updated_str ហើយជាមួយនឹងប្រអប់សារមួយ ( MsgBox ) យើងនឹងឃើញលទ្ធផល។
➤ ចុច F5 ។
បន្ទាប់ពីនោះ ប្រអប់បញ្ចូល នឹងលេចឡើងដែលអ្នកអាចបញ្ចូលផ្នែកអត្ថបទណាមួយដែលអ្នកចង់មាននៅក្នុងខ្សែអក្សរថ្មី។
➤ វាយ កង់ ឬអត្ថបទផ្សេងទៀតដែលអ្នកចង់បាន រួចចុច យល់ព្រម ។
ជាចុងក្រោយ អ្នកនឹង ទទួលបានលទ្ធផលដូចខាងក្រោមជាមួយនឹងខ្សែអក្សរថ្មីដែលមានអត្ថបទថ្មី កង់ ក្នុងទីតាំងរបស់ រថយន្ត ។
អានបន្ថែម៖ របៀបជំនួសអត្ថបទក្នុងរូបមន្ត Excel (7 វិធីងាយៗ)
Method-04៖ ជំនួស Text in a range of Strings with Excel VBA
នៅទីនេះ យើងនឹងជំនួស gmail ផ្នែកនៃ លេខសម្គាល់អ៊ីមែលដែលមានដែននៅក្នុងជួរឈរ ដែនថ្មី ហើយដើម្បីប្រមូលលេខសម្គាល់អ៊ីមែលថ្មី យើងបានបញ្ចូលជួរឈរថ្មីមួយ។ លេខសម្គាល់អ៊ីមែលចុងក្រោយ ។
ជំហាន :
➤ អនុវត្តតាម ជំហាន-01 នៃ Method-1 ។
➤ វាយលេខកូដខាងក្រោម។
2404
នៅទីនេះ យើងបានប្រើ FOR loop ដើម្បីប្រតិបត្តិប្រតិបត្តិការពី ជួរទី 4 ទៅ ជួរទី 13 ។ ដោយមានជំនួយពីសេចក្តីថ្លែងការណ៍ IF-THEN យើងបានពិនិត្យថាតើលេខសម្គាល់អ៊ីមែលរបស់ ជួរឈរ D មាន “gmail” ឬអត់ ហើយសម្រាប់ការបំពេញលក្ខណៈវិនិច្ឆ័យនេះ “gmail” ផ្នែកនៃលេខសម្គាល់អ៊ីមែលនឹងត្រូវបានជំនួសដោយដែនថ្មីនៃ ជួរ E ដើម្បីបង្កើតលេខសម្គាល់ថ្មីនៅក្នុង ជួរ F ។ បើមិនដូច្នេះទេ អ្នកនឹងមានចន្លោះទទេនៅក្នុងក្រឡាដែលត្រូវគ្នានៃ ជួរឈរ F ។
➤ ចុច F5 .
បន្ទាប់មក អ្នកនឹងមានលេខសម្គាល់អ៊ីមែលថ្មីនៅក្នុងជួរឈរ លេខសម្គាល់អ៊ីមែលចុងក្រោយ ។
អានបន្ថែម៖ Excel VBA ដើម្បីស្វែងរក និងជំនួសអត្ថបទក្នុងជួរឈរមួយ (ឧទាហរណ៍ 2)
Method-05: ជំនួសអត្ថបទក្នុងជួរនៃខ្សែអក្សរជាមួយនឹងការបញ្ចូលរបស់អ្នកប្រើដើម្បីស្វែងរកអត្ថបទ
អ្នកអាចជំនួស ខាងក្រោម លេខ សម្គាល់ អ៊ី ម៉ែ ល ជាមួយដែនថ្មី និងប្រកាសនូវអ្វីដែលត្រូវជំនួសនៅក្នុងលេខសម្គាល់មុន ដែលការបញ្ចូលរបស់អ្នកប្រើប្រាស់អាចត្រូវបានប្រើដោយធ្វើតាមវិធីនេះ។
ជំហាន :
➤ អនុវត្តតាម ជំហាន-01 នៃ វិធីសាស្រ្ត-1 ។
➤ វាយលេខកូដខាងក្រោម។
3501
នៅទីនេះ យើងបានកំណត់ partial_text ជា String ហើយបន្ទាប់មកបានកំណត់វាទៅខ្សែអក្សរដែលនឹងត្រូវបានផ្តល់ឱ្យដោយអ្នកប្រើប្រាស់តាមរយៈ ប្រអប់បញ្ចូល ។
បន្ទាប់មក យើងបានប្រើ FOR loop ដើម្បីប្រតិបត្តិប្រតិបត្តិការពី Row 4 ទៅ Row 13 ហើយប្រើ សេចក្តីថ្លែងការណ៍ IF-THEN យើងបានពិនិត្យថាតើលេខសម្គាល់អ៊ីមែលរបស់ ជួរឈរ D មាន “gmail” ឬ ទេ។ ហើយសម្រាប់ការបំពេញតាមលក្ខណៈវិនិច្ឆ័យនេះ “gmail” ផ្នែកនៃលេខសម្គាល់អ៊ីមែលនឹងត្រូវបានជំនួសដោយដែនថ្មីនៃ ជួរឈរ E ដើម្បីបង្កើត លេខសម្គាល់ថ្មីនៅក្នុង ជួរ F ។ បើមិនដូច្នេះទេ អ្នកនឹងមានចន្លោះទទេនៅក្នុងក្រឡាដែលត្រូវគ្នានៃ ជួរឈរ F ។
➤ ចុច F5 .
បន្ទាប់ពីនោះ អ្នកនឹងមាន ប្រអប់បញ្ចូល ដែលអ្នកត្រូវវាយអត្ថបទដែលអ្នកចង់ស្វែងរកក្នុងជួរលេខសម្គាល់អ៊ីមែល (នៅទីនេះយើងមាន បញ្ចូល gmail ) ហើយបន្ទាប់មកចុច យល់ព្រម ។
ជាចុងក្រោយ យើងកំពុងមានលេខសម្គាល់អ៊ីមែលដែលបានធ្វើបច្ចុប្បន្នភាពរបស់យើងនៅក្នុង ចុងក្រោយ លេខសម្គាល់អ៊ីមែល ជួរឈរ។
អានបន្ថែម៖ ស្វែងរក និងជំនួសអត្ថបទក្នុងជួរជាមួយ Excel VBA (ម៉ាក្រូ និងទម្រង់អ្នកប្រើប្រាស់)
ផ្នែកអនុវត្ត
សម្រាប់ការអនុវត្តដោយខ្លួនអ្នកយើងបានផ្តល់នូវផ្នែក Practice ដូចខាងក្រោមក្នុងសន្លឹកដែលមានឈ្មោះ Practice ។ សូមធ្វើវាដោយខ្លួនអ្នក។
សេចក្តីសន្និដ្ឋាន
នៅក្នុងអត្ថបទនេះ យើងបានព្យាយាមគ្របដណ្តប់វិធីដើម្បីជំនួសអត្ថបទក្នុងខ្សែអក្សរដោយប្រើ Excel VBA ។ សង្ឃឹមថាអ្នកនឹងយល់ថាវាមានប្រយោជន៍។ ប្រសិនបើអ្នកមានសំណូមពរ ឬចម្ងល់ផ្សេងៗ សូមចែករំលែកវានៅក្នុងផ្នែកមតិយោបល់។
