ສາລະບານ
ຫາກທ່ານກໍາລັງຊອກຫາວິທີທີ່ຈະ ແທນທີ່ຂໍ້ຄວາມໃນສະຕຣິງ ການນໍາໃຊ້ Excel VBA , ຫຼັງຈາກນັ້ນທ່ານຈະເຫັນວ່າບົດຄວາມນີ້ເປັນປະໂຫຍດ. ການປ່ຽນບາງສ່ວນຂອງຂໍ້ຄວາມອາດຈະປະຫຍັດເວລາຫຼາຍໃນການພິມຕົວໜັງສືອີກຄັ້ງ. ດັ່ງນັ້ນ, ໃຫ້ພວກເຮົາເຂົ້າໄປໃນບົດຄວາມຕົ້ນຕໍເພື່ອຮູ້ລາຍລະອຽດກ່ຽວກັບວຽກງານການທົດແທນນີ້.
ດາວໂຫລດ Workbook
ປ່ຽນຂໍ້ຄວາມໃນ String.xlsm
5 ວິທີການປ່ຽນຂໍ້ຄວາມໃນ String ໂດຍໃຊ້ Excel VBA
ທີ່ນີ້, ພວກເຮົາມີຊຸດຂໍ້ມູນຕໍ່ໄປນີ້ປະກອບດ້ວຍບັນທຶກຂອງພະນັກງານທີ່ມີ ID ອີເມວຂອງເຂົາເຈົ້າ. ວຽກງານຂອງພວກເຮົາແມ່ນເພື່ອທົດແທນຊື່ໂດເມນເກົ່າກັບໃຫມ່. ໃນວິທີການຕໍ່ໄປນີ້, ພວກເຮົາຈະເຮັດວຽກກັບຊຸດຂໍ້ມູນນີ້ພ້ອມກັບບາງສະຕຣິງຂໍ້ຄວາມແບບສຸ່ມເພື່ອທົດແທນຂໍ້ຄວາມທີ່ຕ້ອງການດ້ວຍລະຫັດ VBA .
ພວກເຮົາໄດ້ໃຊ້ Microsoft Excel 365 ເວີຊັ່ນຢູ່ບ່ອນນີ້, ທ່ານສາມາດໃຊ້ເວີຊັນອື່ນຕາມຄວາມສະດວກສະບາຍຂອງເຈົ້າ.
ວິທີ-01: ປ່ຽນຂໍ້ຄວາມເລີ່ມຕົ້ນຈາກຕຳແໜ່ງ n-th ຂອງສະຕຣິງສຸ່ມ
ທີ່ນີ້, ພວກເຮົາຈະປ່ຽນແທນຂໍ້ຄວາມໃນສະຕຣິງຂໍ້ຄວາມສຸ່ມສໍາລັບຕໍາແຫນ່ງເລີ່ມຕົ້ນທີ່ແຕກຕ່າງກັນ.
ຂັ້ນຕອນ-01 :
➤ ໄປທີ່ແຖບ ຜູ້ພັດທະນາ >> Code Group >> Visual Basic Option.
ຈາກນັ້ນ, Visual Basic Editor ຈະເປີດຂຶ້ນ.
➤ ໄປທີ່ Insert Tab >> Module Option.
ຫຼັງຈາກນັ້ນ, ໂມດູນ ຈະຖືກສ້າງຂຶ້ນ.
ຂັ້ນຕອນ-02 :
➤ ຂຽນຕໍ່ໄປນີ້ລະຫັດ
6501
ທີ່ນີ້, ພວກເຮົາໄດ້ປະກາດ full_txt_str ແລະ updated_str ເປັນ String ແລະຈາກນັ້ນໄດ້ມອບໝາຍ full_txt_str ເປັນຂໍ້ຄວາມສຸ່ມ. string- “ຮ້ອຍລົດຫ້າສິບລົດສິບຄັນ” . ຈາກນັ້ນ VBA ຟັງຊັນ REPLACE ຖືກໃຊ້ເພື່ອປ່ຽນແທນ Cars ສ່ວນໜຶ່ງຂອງສາຍສຸ່ມນີ້ດ້ວຍ ລົດຖີບ<10 ແລະ 1 ຖືກໃຊ້ຢູ່ບ່ອນນີ້ເພື່ອເລີ່ມການປ່ຽນແທນຈາກຕຳແໜ່ງ 1 ຂອງສະຕຣິງນີ້. ສຸດທ້າຍ, ພວກເຮົາໄດ້ມອບໝາຍຂໍ້ຄວາມໃໝ່ນີ້ໃຫ້ກັບ updated_str ແລະດ້ວຍກ່ອງຂໍ້ຄວາມ ( MsgBox ) ພວກເຮົາຈະເຫັນຜົນ.
➤ ກົດ F5 .
ຈາກນັ້ນ ກ່ອງຂໍ້ຄວາມ ຈະປະກົດຂຶ້ນພ້ອມກັບສະຕຣິງຂໍ້ຄວາມໃໝ່ທີ່ມີຕົວໜັງສືຖືກແທນທີ່ ລົດຖີບ .
➤ ເພື່ອເຮັດຂະບວນການປ່ຽນແທນຈາກຕົວຢ່າງທີສອງຂອງ ລົດ ໃຊ້ລະຫັດຕໍ່ໄປນີ້.
5359
ຢູ່ນີ້, ພວກເຮົາໄດ້ໃຊ້ຕຳແໜ່ງເລີ່ມຕົ້ນເປັນ 14 ເພາະວ່າພວກເຮົາຕ້ອງການມີສ່ວນຂອງສາຍຫຼັງ ຮ້ອຍຄັນ ແລະປ່ຽນແທນ <1. ລົດ ທີ່ນີ້.
➤ ຫຼັງຈາກ ແລ່ນ ລະຫັດ, ພວກເຮົາຈະມີ ກ່ອງຂໍ້ຄວາມຕໍ່ໄປນີ້ ດ້ວຍ ຂໍ້ຄວາມສະຕຣິງ ເລີ່ມຕົ້ນຈາກຂໍ້ຄວາມ ຫ້າສິບ ແລະດ້ວຍ ລົດຖີບ ຢູ່ໃນຕຳແໜ່ງຂອງ ລົດ .
➤ ສໍາລັບການມີພຽງສ່ວນສຸດທ້າຍຂອງສາຍນີ້, ພວກເຮົາໃຊ້ລະຫັດຕໍ່ໄປນີ້.
3463
ຢູ່ນີ້, ພວກເຮົາໄດ້ໃຊ້ຕຳແໜ່ງເລີ່ມຕົ້ນເປັນ 25 ເນື່ອງຈາກວ່າພວກເຮົາຕ້ອງການທີ່ຈະມີພາກສ່ວນຂອງສາຍພາຍຫຼັງ ຫ້າສິບລົດ ແລະທົດແທນການ ລົດ ດ້ວຍ ລົດຖີບ ທີ່ນີ້.
ສຸດທ້າຍ, ພວກເຮົາຈະມີ ກ່ອງຂໍ້ຄວາມ ທີ່ມີສ່ວນທີ່ຕ້ອງການຂອງພວກເຮົາຂອງສະຕຣິງທີ່ມີການທົດແທນດ້ວຍ ລົດຖີບ .
ອ່ານເພີ່ມເຕີມ: Excel VBA: ແທນທີ່ຕົວອັກສອນໃນສະຕຣິງຕາມຕຳແໜ່ງ (4 ວິທີທີ່ມີປະສິດທິພາບ)
Method-02: Substitute Text for n-th Occurrence of a Random String ໂດຍໃຊ້ Excel VBA
ໃນພາກນີ້, ພວກເຮົາຈະປ່ຽນແທນຂໍ້ຄວາມໃນສະຕຣິງແບບສຸ່ມສໍາລັບຕົວເລກຂອງເຫດການທີ່ເກີດຂຶ້ນໂດຍການຊ່ວຍເຫຼືອ. ຂອງ VBA code.
ຂັ້ນຕອນ :
➤ ປະຕິບັດຕາມ ຂັ້ນຕອນ-01 ຂອງ Method-1 .
➤ ພິມລະຫັດຕໍ່ໄປນີ້.
4482
ທີ່ນີ້, ພວກເຮົາໄດ້ປະກາດ full_txt_str ແລະ updated_str ເປັນ String ແລະຫຼັງຈາກນັ້ນໄດ້ມອບໝາຍ full_txt_str ໃສ່ຂໍ້ຄວາມສຸ່ມ- “ຮ້ອຍລົດຫ້າສິບລົດສິບຄັນ” . ຫຼັງຈາກນັ້ນ, ຟັງຊັນ REPLACE ຖືກໃຊ້ເພື່ອປ່ຽນແທນ ລົດ ສ່ວນຂອງສາຍສຸ່ມນີ້ດ້ວຍ ລົດຖີບ 9>, 1 ຖືກໃຊ້ຢູ່ບ່ອນນີ້ເພື່ອເລີ່ມການປ່ຽນແທນຈາກຕຳແໜ່ງ 1 ຂອງສະຕຣິງນີ້, ແລະສຸດທ້າຍ 1 ແມ່ນ ສໍາລັບການນັບຈໍານວນຂອງການເກີດຂຶ້ນ. ໂດຍການນໍາໃຊ້ 1 ເປັນຕົວເລກນັບພວກເຮົາກໍາລັງກໍານົດການທົດແທນຂອງ ລົດທໍາອິດ ເທົ່ານັ້ນ. ສຸດທ້າຍ, ພວກເຮົາໄດ້ມອບໝາຍຂໍ້ຄວາມໃໝ່ນີ້ໃຫ້ກັບ updated_str ແລະດ້ວຍ aກ່ອງຂໍ້ຄວາມ ( MsgBox ) ພວກເຮົາຈະເຫັນຜົນໄດ້ຮັບ.
➤ ກົດ F5 .
ຫຼັງຈາກນັ້ນ, ກ່ອງຂໍ້ຄວາມ ຈະປະກົດຂຶ້ນພ້ອມກັບຂໍ້ຄວາມໃໝ່ ລົດຖີບ ໃນ ຕຳແໜ່ງທຳອິດ ຂອງ ລົດ ເທົ່ານັ້ນ.
➤ ສຳລັບການປ່ຽນແທນສອງຕົວຢ່າງທຳອິດຂອງ ລົດ ດ້ວຍ ລົດຖີບ <10 ໃຊ້ລະຫັດຕໍ່ໄປນີ້.
4891
ທີ່ນີ້, 2 ຖືກໃຊ້ເປັນຕົວເລກການນັບເພື່ອປ່ຽນແທນສອງຕົວຢ່າງທຳອິດຂອງ ລົດ ກັບ ລົດຖີບ .
ຫຼັງຈາກແລ່ນລະຫັດແລ້ວ, ເຈົ້າຈະຖືກປ່ຽນແທນສອງຕົວໜັງສືທຳອິດ ລົດ ກັບ ລົດຖີບ .
➤ ໃຊ້ລະຫັດຕໍ່ໄປນີ້ເພື່ອແທນທີ່ທຸກກໍລະນີ ຂອງຂໍ້ຄວາມ ລົດ .
6885
ນີ້, argument ສຸດທ້າຍຂອງ ຟັງຊັນ REPLACE ແມ່ນ 3 ເຊິ່ງແມ່ນ ການນັບຕົວເລກຊີ້ບອກການປ່ຽນແທນທັງໝົດຂອງ ລົດ ດ້ວຍ ລົດຖີບ ໃນຂໍ້ຄວາມ.
➤ ກົດ F5 .
ຫຼັງຈາກນັ້ນ, ພວກເຮົາຈະ ມີ ກ່ອງຂໍ້ຄວາມ ຕໍ່ໄປນີ້ກັບຂໍ້ຄວາມທີ່ປ່ຽນແທນ ລົດຖີບ ໃນສະຕຣິງ.
ການອ່ານທີ່ຄ້າຍຄືກັນ
- ວິທີແທນທີ່ຂໍ້ຄວາມດ້ວຍການສົ່ງຄືນໃນ Excel (4 ວິທີທີ່ລຽບງ່າຍ)
- Excel VBA: ວິທີການຊອກຫາ ແລະ ແທນທີ່ຂໍ້ຄວາມໃນ Word Document
- ວິທີປ່ຽນຂໍ້ຄວາມຫຼັງຈາກຕົວອັກສອນສະເພາະໃນ Excel (3 ວິທີ)
- ປ່ຽນຂໍ້ຄວາມຂອງ aCell ອີງຕາມເງື່ອນໄຂໃນ Excel (5 ວິທີງ່າຍໆ)
Method-03: ແທນທີ່ຂໍ້ຄວາມໃນ String Random ດ້ວຍ InputBox
ທີ່ນີ້, ພວກເຮົາຈະປ່ຽນແທນຂໍ້ຄວາມທີ່ແນ່ນອນຂອງ ສະຕຣິງແບບສຸ່ມທີ່ມີຂໍ້ຄວາມທີ່ຈະຖືກກໍານົດໂດຍຜູ້ໃຊ້ໂດຍການຊ່ວຍເຫຼືອຂອງ ຟັງຊັນ VBA InputBox .
ຂັ້ນຕອນ :
➤ ປະຕິບັດຕາມ ຂັ້ນຕອນ-01 ຂອງ ວິທີການ-1 .
➤ ພິມລະຫັດຕໍ່ໄປນີ້.
8075
ທີ່ນີ້, ພວກເຮົາໄດ້ປະກາດ full_txt_str , new_txt , ແລະ updated_str ເປັນ String ແລະຈາກນັ້ນໄດ້ມອບໝາຍ full_txt_str ເປັນ string text- “ຮ້ອຍລົດຫ້າສິບລົດສິບຄັນ” . ເພື່ອໃຫ້ມີການປ້ອນຂໍ້ມູນໂດຍຜູ້ໃຊ້ກຳນົດເອງເປັນຂໍ້ຄວາມທີ່ຈະຖືກແທນທີ່ດ້ວຍ Cars ໃນສະຕຣິງແບບສຸ່ມ, ພວກເຮົາໄດ້ໃຊ້ຟັງຊັນ InputBox ແລະຫຼັງຈາກນັ້ນກຳນົດຄ່ານີ້. ເຖິງ new_txt . ຈາກນັ້ນ ຟັງຊັນ REPLACE ຖືກໃຊ້ເພື່ອປ່ຽນແທນ Cars ສ່ວນໜຶ່ງຂອງສະຕຣິງແບບສຸ່ມນີ້ດ້ວຍ new_txt . ສຸດທ້າຍ, ພວກເຮົາໄດ້ມອບໝາຍຂໍ້ຄວາມໃໝ່ນີ້ໃຫ້ກັບ updated_str ແລະດ້ວຍກ່ອງຂໍ້ຄວາມ ( MsgBox ) ພວກເຮົາຈະເຫັນຜົນໄດ້ຮັບ.
➤ ກົດ F5 .
ຫຼັງຈາກນັ້ນ, ກ່ອງປ້ອນຂໍ້ມູນ ຈະປາກົດຂຶ້ນ ບ່ອນທີ່ທ່ານສາມາດໃສ່ພາກສ່ວນຂໍ້ຄວາມໃດນຶ່ງທີ່ທ່ານຕ້ອງການທີ່ຈະມີຢູ່ໃນສະຕຣິງໃຫມ່.
➤ ພິມ ລົດຖີບ ຫຼືຂໍ້ຄວາມອື່ນໆທີ່ທ່ານຕ້ອງການ ແລ້ວກົດ ຕົກລົງ .
ສຸດທ້າຍ, ທ່ານຈະ ມີຜົນໄດ້ຮັບຕໍ່ໄປນີ້ກັບຂໍ້ຄວາມໃຫມ່ທີ່ມີຂໍ້ຄວາມໃຫມ່ ລົດຖີບ inຕຳແໜ່ງຂອງ ລົດ .
ອ່ານເພີ່ມເຕີມ: ວິທີການປ່ຽນຂໍ້ຄວາມໃນສູດ Excel (7 ວິທີງ່າຍໆ)
Method-04: ແທນທີ່ຂໍ້ຄວາມຢູ່ໃນຂອບເຂດຂອງ Strings ດ້ວຍ Excel VBA
ທີ່ນີ້, ພວກເຮົາຈະປ່ຽນແທນ gmail ສ່ວນຂອງ ids ອີເມລ໌ກັບໂດເມນໃນຖັນ ໂດເມນໃຫມ່ , ແລະເພື່ອສະສົມ ids ອີເມວໃຫມ່ທີ່ພວກເຮົາໄດ້ໃສ່ຖັນໃຫມ່; ລະຫັດອີເມວສຸດທ້າຍ .
ຂັ້ນຕອນ :
➤ ປະຕິບັດຕາມ ຂັ້ນຕອນ-01 ຂອງ Method-1 .
➤ ພິມລະຫັດຕໍ່ໄປນີ້.
3869
ທີ່ນີ້, ພວກເຮົາໄດ້ໃຊ້ FOR loop ເພື່ອປະຕິບັດການດໍາເນີນການຈາກ ແຖວທີ 4 ເຖິງ ແຖວທີ 13 . ດ້ວຍຄວາມຊ່ວຍເຫຼືອຂອງ IF-THEN , ພວກເຮົາໄດ້ກວດເບິ່ງວ່າອີເມລ໌ ids ຂອງ ຖັນ D ມີ “gmail” <10 ຫຼືບໍ່, ແລະສຳລັບການປະຕິບັດຕາມເງື່ອນໄຂນີ້, “gmail” ສ່ວນຂອງ ids ອີເມວຈະຖືກແທນທີ່ດ້ວຍໂດເມນໃໝ່ຂອງ ຖັນ E ເພື່ອສ້າງ ids ໃໝ່ໃນ ຖັນ F . ຖ້າບໍ່ດັ່ງນັ້ນເຈົ້າຈະມີຊ່ອງຫວ່າງຢູ່ໃນຕາລາງທີ່ສອດຄ້ອງກັນຂອງ ຖັນ F .
➤ ກົດ F5 .
ຈາກນັ້ນ, ທ່ານຈະມີ ID ອີເມວໃໝ່ຢູ່ໃນຖັນ Final Email Id ຖັນ.
ອ່ານເພີ່ມເຕີມ: Excel VBA ເພື່ອຊອກຫາ ແລະປ່ຽນແທນຂໍ້ຄວາມໃນຖັນ (2 ຕົວຢ່າງ)
Method-05: ປ່ຽນຂໍ້ຄວາມຢູ່ໃນຂອບເຂດຂອງ Strings ດ້ວຍການປ້ອນຂໍ້ມູນຂອງຜູ້ໃຊ້ເພື່ອຊອກຫາຂໍ້ຄວາມ
ທ່ານສາມາດປ່ຽນແທນ ຕິດຕາມ ids ອີເມລ໌ກັບໂດເມນໃໝ່ ແລະປະກາດສິ່ງທີ່ຈະແທນທີ່ໃນ ids ທີ່ຜ່ານມາ ຜູ້ໃຊ້ສາມາດເຂົ້າໄດ້ໂດຍການປະຕິບັດຕາມວິທີການນີ້.
ຂັ້ນຕອນ :
➤ ປະຕິບັດຕາມ ຂັ້ນຕອນ-01 ຂອງ ວິທີ-1 .
➤ ພິມລະຫັດຕໍ່ໄປນີ້.
2043
ທີ່ນີ້, ພວກເຮົາໄດ້ກໍານົດ partial_text ເປັນ String ແລະຈາກນັ້ນໄດ້ມອບໝາຍໃຫ້ເປັນສະຕຣິງທີ່ຈະໃຫ້ໂດຍຜູ້ໃຊ້ໂດຍຜ່ານ ກ່ອງປ້ອນຂໍ້ມູນ .
ຫຼັງຈາກນັ້ນ, ພວກເຮົາໄດ້ນໍາໃຊ້ FOR loop ເພື່ອປະຕິບັດການປະຕິບັດຈາກ ແຖວ 4 ຫາ ແຖວ 13 , ແລະການນໍາໃຊ້ ຖະແຫຼງການ IF-THEN , ພວກເຮົາໄດ້ກວດເບິ່ງວ່າອີເມລ໌ ids ຂອງ ຖັນ D ມີ “gmail” ຫຼື ບໍ່. ແລະສໍາລັບການປະຕິບັດຕາມເງື່ອນໄຂນີ້, “gmail” ສ່ວນຂອງ ids ອີເມວຈະຖືກແທນທີ່ດ້ວຍໂດເມນໃຫມ່ຂອງ ຖັນ E ເພື່ອສ້າງ ids ໃໝ່ໃນ ຖັນ F . ຖ້າບໍ່ດັ່ງນັ້ນເຈົ້າຈະມີຊ່ອງຫວ່າງຢູ່ໃນຕາລາງທີ່ສອດຄ້ອງກັນຂອງ ຖັນ F .
➤ ກົດ F5 .
ຫຼັງຈາກນັ້ນ, ທ່ານຈະມີ ກ່ອງປ້ອນຂໍ້ມູນ ບ່ອນທີ່ທ່ານຕ້ອງພິມຂໍ້ຄວາມທີ່ທ່ານຕ້ອງການຄົ້ນຫາໃນຂອບເຂດຂອງ ids ອີເມວ (ທີ່ນີ້ພວກເຮົາມີ ເຂົ້າໄປ gmail ) ແລະຫຼັງຈາກນັ້ນກົດ OK .
ສຸດທ້າຍ, ພວກເຮົາມີ ids ອີເມວສະບັບປັບປຸງຂອງພວກເຮົາຢູ່ໃນ ສຸດທ້າຍ Email Id column.
ອ່ານເພີ່ມເຕີມ: ຊອກຫາ ແລະປ່ຽນຂໍ້ຄວາມໃນໄລຍະໃດໜຶ່ງດ້ວຍ Excel VBA (Macro and UserForm)
ພາກປະຕິບັດ
ສຳລັບການປະຕິບັດໂດຍຕົວທ່ານເອງພວກເຮົາໄດ້ສະຫນອງໃຫ້ເປັນ ພາກປະຕິບັດ ຄືຂ້າງລຸ່ມນີ້ໃນແຜ່ນທີ່ມີຊື່ ການປະຕິບັດ . ກະລຸນາເຮັດມັນດ້ວຍຕົວທ່ານເອງ.
ສະຫຼຸບ
ໃນບົດຄວາມນີ້, ພວກເຮົາໄດ້ພະຍາຍາມທີ່ຈະກວມເອົາວິທີການປ່ຽນແທນຂໍ້ຄວາມໃນສະຕຣິງໂດຍການນໍາໃຊ້ Excel VBA . ຫວັງວ່າເຈົ້າຈະເຫັນວ່າເປັນປະໂຫຍດ. ຖ້າຫາກທ່ານມີຄໍາແນະນໍາຫຼືຄໍາຖາມໃດໆ, ກະລຸນາແບ່ງປັນໃຫ້ເຂົາເຈົ້າໃນພາກສ່ວນຄໍາຄິດເຫັນ
