ສາລະບານ
ເມື່ອພວກເຮົາມີຊຸດຂໍ້ມູນຂະໜາດໃຫຍ່ໃນປຶ້ມວຽກ Excel ຂອງພວກເຮົາ, ບາງຄັ້ງມັນກໍ່ສະດວກຖ້າພວກເຮົາສາມາດໝູນແຖວເພື່ອດຶງເອົາຜົນໄດ້ຮັບສະເພາະທີ່ພວກເຮົາຢາກໄດ້ມາ. ການປະຕິບັດ VBA ແມ່ນວິທີທີ່ມີປະສິດທິພາບທີ່ສຸດ, ໄວທີ່ສຸດ, ແລະປອດໄພທີ່ສຸດເພື່ອດໍາເນີນການໃດໆໃນ Excel. ໃນບົດຄວາມນີ້, ພວກເຮົາຈະສະແດງໃຫ້ທ່ານ 11 ວິທີການທີ່ແຕກຕ່າງກັນກ່ຽວກັບວິທີການ loop ຜ່ານແຖວຂອງຕາຕະລາງ ໃນ Excel ກັບ VBA macro .
ດາວໂຫລດ Workbook
ທ່ານສາມາດດາວນ໌ໂຫລດສະບັບປະຕິບັດ Excel workbook ໄດ້ຟຣີຈາກທີ່ນີ້. 11 ວິທີການກັບ VBA ເພື່ອ Loop ຜ່ານແຖວຂອງຕາຕະລາງໃນ Excel
ປະຕິບັດຕາມພາກນີ້, ທ່ານຈະຮຽນຮູ້ວິທີການ loop ຜ່ານແຖວຂອງຕາຕະລາງ ດ້ວຍ 11 ວິທີທີ່ແຕກຕ່າງກັນ, ເຊັ່ນ: loop ຜ່ານແຖວຈົນກ່ວາຕາລາງຫວ່າງເປົ່າ, loop ຜ່ານແຖວຈົນກ່ວາຊອກຫາຄ່າສະເພາະ, loop ຜ່ານແຖວແລະສີຂອງເຊນສະເພາະແລະອື່ນໆ. ດ້ວຍ VBA macro ໃນ Excel.
<8
ຂ້າງເທິງນີ້ແມ່ນຊຸດຂໍ້ມູນຕົວຢ່າງທີ່ບົດຄວາມນີ້ຈະປະຕິບັດຕາມເພື່ອອະທິບາຍວິທີການ.
1. ຝັງ VBA ເພື່ອ loop ຜ່ານແຕ່ລະເຊລໃນທຸກໆແຖວຂອງຕາຕາລາງໂດຍເລກອ້າງອີງເຊລ
ຫາກທ່ານຕ້ອງການ ການ loop ຜ່ານແຕ່ລະເຊລໃນທຸກໆແຖວຂອງຕາຕະລາງ ໃນແຜ່ນງານ Excel ຂອງທ່ານ ແລະໄດ້ຮັບ ໝາຍເລກອ້າງອີງເຊລເປັນຄ່າກັບຄືນ , ຈາກນັ້ນປະຕິບັດຕາມຂັ້ນຕອນທີ່ໄດ້ກ່າວມາຂ້າງລຸ່ມນີ້.
ຂັ້ນຕອນ:
- ໃນຕອນເລີ່ມຕົ້ນ. , ກົດ Alt + F11 ເທິງແປ້ນພິມຂອງທ່ານ ຫຼືໄປvariable.
3645
ລະຫັດນີ້ຢູ່ທີ່ນີ້ສໍາລັບການ looping ຜ່ານແຖວຈາກ 1 ຫາ 15. ຖ້າມັນພົບຄໍາສະເພາະ “ Edge ” ມັນຈະສີເຊັລທີ່ຖືຄໍາ. ມັນສືບຕໍ່ເຮັດອັນນີ້ຈົນກວ່າມັນຈະສຳເລັດການສະແກນຂໍ້ມູນທັງໝົດຈາກແຖວທີ 1 ຫາ 15 ໃນການຄົ້ນຫາຄຳສັບ.
ອ່ານເພີ່ມເຕີມ: ວິທີໃຊ້ VLOOKUP Table Array ໂດຍອີງໃສ່ ຄ່າເຊລໃນ Excel
ການອ່ານທີ່ຄ້າຍຄືກັນ
- ຟັງຊັນ TABLE ມີຢູ່ໃນ Excel ບໍ?
- ວິທີແປງຕາຕະລາງເປັນລາຍການໃນ Excel (3 ວິທີດ່ວນ)
- ປ່ຽນໄລຍະເປັນຕາຕະລາງໃນ Excel (5 ວິທີງ່າຍໆ)
- ໃຊ້ສູດໃນຕາຕະລາງ Excel ຢ່າງມີປະສິດທິພາບ (ມີ 4 ຕົວຢ່າງ)
- ຊື່ຕາຕະລາງ Excel: ທັງໝົດທີ່ເຈົ້າຕ້ອງຮູ້
7. ນຳໃຊ້ VBA ເພື່ອ loop ຜ່ານແຕ່ລະແຖວ ແລະໃສ່ສີທຸກແຖວຄີກໃນ Excel
ຈາກພາກກ່ອນ, ພວກເຮົາໄດ້ຮຽນຮູ້ວິທີໃສ່ສີຕາລາງທີ່ມີຄ່າສະເພາະ. ໃນພາກນີ້, ພວກເຮົາຈະຮຽນຮູ້ວິທີການ loop ຜ່ານແຕ່ລະແຖວຂອງຕາຕະລາງແລະສີທຸກແຖວຄີກ ດ້ວຍ VBA macro ໃນ Excel.
ຂັ້ນຕອນການປະຕິບັດຂະບວນການ ໄດ້ຖືກອະທິບາຍໄວ້ຂ້າງລຸ່ມນີ້.
ຂັ້ນຕອນ:
- ດັ່ງທີ່ສະແດງກ່ອນ, ເປີດ Visual Basic Editor ຈາກ ຜູ້ພັດທະນາ ແຖບ ແລະ ໃສ່ a ໂມດູນ ໃນປ່ອງຢ້ຽມລະຫັດ.
- ຈາກນັ້ນ, ສຳເນົາ ລະຫັດຕໍ່ໄປນີ້ ແລະ ວາງ ມັນໃສ່ ປ່ອງຢ້ຽມລະຫັດ.
9510
ລະຫັດຂອງທ່ານໃນປັດຈຸບັນພ້ອມທີ່ຈະແລ່ນ.
- ດຽວນີ້ ແລ່ນ macro ແລະເບິ່ງຮູບຕໍ່ໄປນີ້ເພື່ອເບິ່ງຜົນໄດ້ຮັບ. 2> ຫຼັງຈາກ looping ຜ່ານແຖວທັງໝົດທີ່ຢູ່ໃນຕາຕະລາງຂອງ worksheet.
VBA Code Explanation
3588
ກໍານົດຕົວແປ.
1846
ກຳນົດໄລຍະທີ່ພວກເຮົາຈະເຮັດວຽກນຳ.
4211
ສ່ວນຂອງລະຫັດນີ້ຫມາຍເຖິງການຊໍ້າຄືນຜ່ານແຖວທັງໝົດ, ເລີ່ມຈາກແຖວຕໍ່ໄປຂອງແຖວປັດຈຸບັນ, B4 . ຖ້າ mod ຂອງການແບ່ງຕົວເລກແຖວດ້ວຍ 2 ແມ່ນເທົ່າກັບຈໍານວນແຖວທີ່ສົ່ງຄືນທີ່ເກັບໄວ້ໃນປະເພດຈໍານວນເຕັມ, ຫຼັງຈາກນັ້ນລະຫັດນີ້ຈະໃສ່ສີທຸກແຖວທີ່ຖືກສະກັດໂດຍການຄິດໄລ່ດ້ວຍດັດຊະນີສີທີ່ລະບຸໄວ້ໃນລະຫັດ. ມັນສືບຕໍ່ເຄື່ອນຍ້າຍຜ່ານແຖວທັງໝົດຈົນກວ່າມັນໄປຮອດຈຸດສິ້ນສຸດ.
8. ນຳໃຊ້ VBA ເພື່ອເລື່ອນຜ່ານແຖວ ແລະສີທຸກແຖວຄູ່ໃນ Excel
ໃນພາກກ່ອນ, ພວກເຮົາໄດ້ຮຽນຮູ້ວິທີໃສ່ສີທຸກແຖວຄີກຂອງຕາຕະລາງ. ໃນພາກນີ້, ພວກເຮົາຈະຮຽນຮູ້ວິທີ ການ loop ຜ່ານແຕ່ລະແຖວຂອງຕາຕະລາງ ແລະສີທຸກແຖວຄູ່ ດ້ວຍ VBA macro ໃນ Excel.
ຂັ້ນຕອນເພື່ອປະຕິບັດຂະບວນການແມ່ນໄດ້ສົນທະນາຂ້າງລຸ່ມນີ້.
ຂັ້ນຕອນ:
- ທຳອິດ, ເປີດ ຕົວແກ້ໄຂ Visual Basic ຈາກແຖບ ຜູ້ພັດທະນາ ແລະ ແຊກ a ໂມດູນ ໃນປ່ອງຢ້ຽມລະຫັດ.
- ຈາກນັ້ນ, ສຳເນົາ ລະຫັດຕໍ່ໄປນີ້ ແລະ ວາງ ມັນໃສ່ໃນປ່ອງຢ້ຽມລະຫັດ.
5585
ຕອນນີ້ລະຫັດຂອງເຈົ້າພ້ອມແລ້ວແລ່ນ.
- ຕໍ່ໄປ, ແລ່ນ ມາໂຄຣ ແລະເບິ່ງຮູບຕໍ່ໄປນີ້ເພື່ອເບິ່ງຜົນໄດ້ຮັບ.
ທັງໝົດ ແຖວເລກຄູ່ແມ່ນເປັນສີ ຫຼັງຈາກ looping ຜ່ານແຖວທັງໝົດທີ່ຢູ່ໃນຕາຕະລາງຂອງແຜ່ນງານ.
ຄຳອະທິບາຍລະຫັດ VBA
7898
ກຳນົດຕົວແປ.
7624
ກຳນົດໄລຍະທີ່ພວກເຮົາຈະເຮັດວຽກນຳ.
2105
ລະຫັດນີ້ເລີ່ມເຮັດຊ້ຳພາຍຫຼັງ. ສາມແຖວຈາກແຖວປະຈຸບັນ, B4 . ມັນໃຫ້ສີມັນກ່ອນ ຈາກນັ້ນເພີ່ມການນັບແຖວດ້ວຍ 2 ແລະສືບຕໍ່ໃສ່ສີຈົນກວ່າມັນຈະໄປຮອດແຖວສຸດທ້າຍຂອງຊຸດຂໍ້ມູນ.
9. ນຳໃຊ້ Macro ເພື່ອ Iterate ຜ່ານແຖວຈົນກ່ວາ Blank Cell ໃນ Excel
ຖ້າທ່ານຕ້ອງການໃຫ້ລະຫັດຂອງທ່ານເຮັດວຽກຄືກັບວ່າມັນຈະ loop ຜ່ານແຖວທັງໝົດຂອງຕາຕະລາງ ແລະຢຸດເມື່ອມັນມາຮອດຕາລາງຫວ່າງເປົ່າ , ຫຼັງຈາກນັ້ນພາກນີ້ແມ່ນສໍາລັບທ່ານ. ທ່ານສາມາດປະຕິບັດໜ້າວຽກນັ້ນໄດ້ທັງ FOR Loop ແລະ Do-Until Loop ໃນ Excel VBA .
9.1. ດ້ວຍ FOR Loop
ຂັ້ນຕອນ ເລື່ອນຜ່ານແຖວໃນຕາຕະລາງຈົນກ່ວາຕາລາງຫວ່າງເປົ່າທີ່ມີ FOR Loop ໃນ VBA Excel ແມ່ນໃຫ້ຢູ່ຂ້າງລຸ່ມນີ້.
ຂັ້ນຕອນ:
- ຕອນທໍາອິດ, ເປີດ Visual Basic Editor ຈາກແຖບ ຜູ້ພັດທະນາ ແລະ Insert a ໂມດູນ ຢູ່ໃນປ່ອງຢ້ຽມລະຫັດ.
- ຫຼັງຈາກນັ້ນ, ສຳເນົາ ລະຫັດຕໍ່ໄປນີ້ ແລະ ວາງ ມັນເຂົ້າໄປໃນປ່ອງຢ້ຽມລະຫັດ.
8118
ຕອນນີ້ລະຫັດຂອງເຈົ້າພ້ອມແລ່ນແລ້ວ.
- ຈາກນັ້ນ, ແລ່ນ macro ແລະຜົນໄດ້ຮັບແມ່ນສະແດງຢູ່ໃນ gif ຂ້າງລຸ່ມນີ້.
ຫຼັງຈາກແລ່ນ macro, ມັນ ເລີ່ມ looping ຜ່ານແຖວທັງຫມົດ ໃນຕາຕະລາງ. ແລະເມື່ອມັນໄປຮອດ ຕາລາງຫວ່າງເປົ່າ, Cell B8 , ມັນ ຢຸດການເຮັດຊ້ຳ .
ຄຳອະທິບາຍລະຫັດ VBA
7486
ກຳນົດຕົວແປ.
4671
ປິດເຫດການອັບເດດໜ້າຈໍ.
6776
ເກັບແຖວທັງໝົດເລີ່ມແຕ່ Cell B4 ຈົນຮອດແຖວສຸດທ້າຍ.
4560
ເລືອກ Cell B4 .
9085
ລະຫັດນີ້ເລີ່ມ looping ຜ່ານແຖວທັງໝົດ. ເມື່ອມັນພົບຕາລາງຫວ່າງຢູ່ໃນແຖວ ຈາກນັ້ນເລືອກມັນ ແລະສືບຕໍ່ສະແກນແຖວຈົນກວ່າມັນຈະສິ້ນສຸດ.
2607
ເປີດເຫດການອັບເດດໜ້າຈໍ.
9.2. ດ້ວຍ Do-Until Loop
ຂັ້ນຕອນ loop ຜ່ານແຖວຈົນກ່ວາຕາລາງຫວ່າງເປົ່າທີ່ມີ Do-Until loop ໃນ VBA ແມ່ນໃຫ້ຂ້າງລຸ່ມນີ້.
ຂັ້ນຕອນ:
- ທຳອິດ, ເປີດ Visual Basic Editor ຈາກແຖບ Developer ແລະ Insert a ໂມດູນ ໃນປ່ອງຢ້ຽມລະຫັດ.
- ຈາກນັ້ນ, ສຳເນົາ ລະຫັດຕໍ່ໄປນີ້ ແລະ ວາງ ມັນໃສ່ໃນປ່ອງຢ້ຽມລະຫັດ.
3635
ຕອນນີ້ລະຫັດຂອງທ່ານພ້ອມທີ່ຈະເປີດໃຊ້ແລ້ວ.
- ຕໍ່ມາ, ແລ່ນ ມາໂຄຣ. ຜົນໄດ້ຮັບແມ່ນສະແດງຢູ່ໃນ gif ຕໍ່ໄປນີ້.
ຫຼັງຈາກແລ່ນ macro, ມັນເລີ່ມ looping ຜ່ານແຖວທັງຫມົດ ໃນຕາຕະລາງແລະຫນຶ່ງຄັ້ງ. ມັນໄປຮອດ ຕາລາງຫວ່າງເປົ່າ, Cell B8 , ມັນ ຢຸດການຊໍ້າຄືນ .
ລະຫັດ VBAຄໍາອະທິບາຍ
8478
ເລືອກເຊລທີ່ພວກເຮົາຈະເຮັດວຽກ.
6220
ເລີ່ມຕົ້ນ ແລະສືບຕໍ່ looping ຈົນກວ່າຈະພົບເຫັນຕາລາງທີ່ຫວ່າງເປົ່າ.
9747
ເມື່ອຕາລາງຫວ່າງເປົ່າແມ່ນ. ພົບເຫັນຢູ່ໃນແຖວ ຈາກນັ້ນເລືອກມັນ ແລະຢຸດການຊໍ້າຄືນ.
10. VBA Macro ເພື່ອ Iterate ຜ່ານແຖວຈົນກ່ວາຫຼາຍຕາລາງເປົ່າໃນ Excel
ໃນພາກກ່ອນ, ທ່ານໄດ້ຮຽນຮູ້ວິທີການຢຸດການ loop ເມື່ອພົບຕາລາງຫວ່າງເປົ່າ. ແຕ່ຈະເຮັດແນວໃດຖ້າເຈົ້າບໍ່ຢາກຢຸດການຊໍ້າຄືນຈົນກວ່າຈະພົບຕາລາງເປົ່າຫຼາຍອັນ ແທນທີ່ຈະເປັນພຽງອັນດຽວເທົ່ານັ້ນ. ດ້ວຍ VBA Excel ແມ່ນສະແດງຢູ່ລຸ່ມນີ້.
ຂັ້ນຕອນ:
- ກ່ອນອື່ນໝົດ, ເປີດ Visual Basic Editor ຈາກ Developer tab ແລະ Insert a Module in the code window.
- ຫຼັງຈາກນັ້ນ, copy the following code and ວາງ ມັນໃສ່ໜ້າຕ່າງລະຫັດ.
4657
ຕອນນີ້ລະຫັດຂອງເຈົ້າພ້ອມແລ້ວທີ່ຈະເປີດໃຊ້.
- ດຽວນີ້, ແລ່ນ macro ແລະເບິ່ງ gif ຕໍ່ໄປນີ້ສໍາລັບຜົນໄດ້ຮັບ. ຕາລາງຫວ່າງທຳອິດ, Cell B8 . ມັນຢຸດເມື່ອມັນພົບ ສອງຕາລາງຫວ່າງທີ່ຕິດຕໍ່ກັນຢູ່ໃນ Cell B16 .
ຄຳອະທິບາຍລະຫັດ VBA
1505
ເລືອກຕາລາງ ທີ່ພວກເຮົາຈະເຮັດວຽກຈາກ.
1522
ເລີ່ມຕົ້ນ ແລະສືບຕໍ່ການ looping ຈົນກ່ວາສອງຈຸລັງເປົ່າຕິດຕໍ່ກັນຈະພົບເຫັນ.ເລືອກມັນແລ້ວຢຸດການຊໍ້າຄືນ.
11. ຝັງ VBA ເພື່ອ Loop ຜ່ານແຖວໂດຍການລວມຄໍລໍາທັງຫມົດຈົນກ່ວາຫວ່າງຢູ່ໃນ Excel
ພາກນີ້ຈະສະແດງໃຫ້ທ່ານເຫັນວິທີການ loop ຜ່ານແຖວທັງຫມົດໃນຕາຕະລາງແລະ concatenate ຖັນທັງຫມົດຈົນກ່ວາຕາລາງຫວ່າງເປົ່າ. ພົບກັບ VBA Excel.
ມາຮຽນຮູ້ວິທີເຮັດແນວນັ້ນດ້ວຍ VBA macro ໃນ Excel.
ຂັ້ນຕອນ:
- ທຳອິດ, ເປີດ Visual Basic Editor ຈາກແຖບ Developer ແລະ Insert a Module ຢູ່ໃນປ່ອງຢ້ຽມລະຫັດ.
- ຈາກນັ້ນ, ສຳເນົາ ລະຫັດຕໍ່ໄປນີ້ ແລະ ວາງ ມັນໃສ່ໃນປ່ອງຢ້ຽມລະຫັດ.
5361
ລະຫັດຂອງທ່ານ ຕອນນີ້ພ້ອມທີ່ຈະແລ່ນແລ້ວ.
- ຕໍ່ມາ, ແລ່ນ macro ແລະເບິ່ງ gif ຕໍ່ໄປນີ້ສໍາລັບຜົນໄດ້ຮັບ.
ດັ່ງທີ່ທ່ານສາມາດເບິ່ງຈາກ gif ຂ້າງເທິງນັ້ນແມ່ນວ່າມີ pop-up MsgBox ສະແດງໃຫ້ທ່ານເຫັນ ຄ່າທີ່ປະສົມຂອງຖັນທັງຫມົດທີ່ຢູ່ໃນທຸກ ແຖວ ຈາກຕາຕະລາງຂອງແຜ່ນງານ Excel ຂອງທ່ານ. ແຕ່ມັນ ຢຸດເມື່ອມັນມາຮອດຕາລາງຫວ່າງເປົ່າ .
ຄຳອະທິບາຍລະຫັດ VBA
8207
ກຳນົດຕົວແປ.
8821
ຕັ້ງຊື່ແຜ່ນງານທີ່ພວກເຮົາຈະເຮັດວຽກນຳ (“ ConcatenatingAllColUntilBlank ” ແມ່ນຊື່ແຜ່ນງານໃນປຶ້ມວຽກ).
8396
ກຳນົດໄລຍະທີ່ພວກເຮົາຈະເຮັດວຽກນຳ.
7730
ຊິ້ນສ່ວນຂອງລະຫັດນີ້ເລີ່ມຕົ້ນ loop ກັບ array. ມັນສືບຕໍ່ loop ຈົນກ່ວາມັນກັບຄືນ subscript ທີ່ໃຫຍ່ທີ່ສຸດຂອງ array ແລະຂອບເຂດຕ່ໍາຂອງມິຕິທໍາອິດ. ຫຼັງຈາກນັ້ນ, ມັນເຂົ້າໄປໃນ iteration ຂອງການສະກັດຂອບເຂດຕ່ໍາຂອງມິຕິທີສອງ. ຫຼັງຈາກນັ້ນ, ມັນຜ່ານຄ່າທີ່ສະກັດທັງຫມົດຢູ່ໃນຕົວແປ iResult ໂດຍການສົມທົບພວກມັນແລະຖິ້ມຜົນໄດ້ຮັບໃນ MsgBox. ມັນສືບຕໍ່ເຮັດແນວນັ້ນຈົນກວ່າມັນຈະພົບເຫັນຕາລາງທີ່ຫວ່າງເປົ່າ.
ຂໍ້ສະຫຼຸບ
ເພື່ອສະຫຼຸບ, ບົດຄວາມນີ້ໄດ້ສະແດງໃຫ້ທ່ານເຫັນ 11 ວິທີທີ່ມີປະສິດທິພາບໃນວິທີການ loop ຜ່ານແຖວ. ຂອງຕາຕະລາງ ໃນ Excel ດ້ວຍ VBA macro . ຂ້າພະເຈົ້າຫວັງວ່າບົດຄວາມນີ້ຈະເປັນປະໂຫຍດຫຼາຍສໍາລັບທ່ານ. ທ່ານສາມາດຖາມຄໍາຖາມໃດໆກ່ຽວກັບຫົວຂໍ້.
ໄປທີ່ແຖບ ນັກພັດທະນາ -> Visual Basic ເພື່ອເປີດ Visual Basic Editor .
- ຕໍ່ໄປ, ໃນປ່ອງຢ້ຽມປ໊ອບອັບ, ຈາກປຸ່ມ ແຖບເມນູ, ຄລິກ Insert -> ໂມດູນ .
- ຈາກນັ້ນ, ສຳເນົາ ລະຫັດຕໍ່ໄປນີ້ ແລະ ວາງ ໃສ່ໃນລະຫັດ ປ່ອງຢ້ຽມ.
9522
ຕອນນີ້ລະຫັດຂອງເຈົ້າພ້ອມແລ່ນແລ້ວ.
- ດຽວນີ້, ກົດ F5 ເທິງເຄື່ອງຂອງເຈົ້າ. ແປ້ນພິມ ຫຼືຈາກແຖບເມນູເລືອກ Run -> ດໍາເນີນການ Sub/UserForm . ທ່ານຍັງສາມາດຄລິກທີ່ ໄອຄອນຫຼິ້ນຂະໜາດນ້ອຍ ໃນແຖບເມນູຍ່ອຍເພື່ອແລ່ນມາໂຄຣໄດ້.
- ຫຼືໄປທີ່ ເປັນພະຍານທາງສາຍຕາ ແລະປຽບທຽບຊຸດຂໍ້ມູນ ແລະຜົນໄດ້ຮັບ, ທ່ານສາມາດ ບັນທຶກ ລະຫັດ ແລະ ກັບໄປທີ່ແຜ່ນວຽກ ທີ່ມີຄວາມສົນໃຈ.
- ຈາກບ່ອນນັ້ນ, ທ່ານສາມາດຄລິກ Macros ຈາກແຖບ Developer , ເລືອກຊື່ Macro, ແລະຈາກນັ້ນຄລິກ Run .
ຫຼັງຈາກການປະຕິບັດລະຫັດສົບຜົນສໍາເລັດ, ເບິ່ງ gif ຂ້າງເທິງນີ້ເພື່ອເບິ່ງຜົນໄດ້ຮັບ. ຈະມີປັອບອັບ MsgBox ສະແດງໃຫ້ທ່ານເຫັນ ໝາຍເລກອ້າງອີງເຊລຂອງແຕ່ລະຕາລາງຈາກແຕ່ລະແຖວ ຈາກຕາຕະລາງໃນແຜ່ນ Excel ຂອງທ່ານ.
ການອະທິບາຍລະຫັດ VBA
8411
ເພື່ອເອົາເລກແຖວສຸດທ້າຍໃນຕາຕະລາງໂດຍການຊອກຫາຖັນ B.
4876
ຕັ້ງເລກແຖວ 4, ຈາກບ່ອນທີ່ຂໍ້ມູນຂອງພວກເຮົາເລີ່ມຕົ້ນ.
5744
ເພື່ອ loop ຈາກແຖວທໍາອິດ.
4861
ຕັ້ງຖັນເລກ 2, ຈາກບ່ອນທີ່ຂໍ້ມູນຂອງພວກເຮົາເລີ່ມຕົ້ນ.
9847
ເລີ່ມ looping ຜ່ານແຖວເພື່ອຮັບສຸດທ້າຍ.ຈໍານວນຖັນໂດຍການປະເມີນແຖວປະຈຸບັນຈົນຮອດແຖວສຸດທ້າຍ.
4220
ການເພີ່ມການ looping ຖັນຈາກແຖວທໍາອິດໄປຈົນຮອດແຖວສຸດທ້າຍ.
9387
ລະຫັດນີ້ເຮັດວຽກເພື່ອປະມວນຜົນ, ເພີ່ມຂຶ້ນຫຼັງຈາກແຕ່ລະອັນ. iteration ແລະສະແດງຜົນຂອງລະຫັດ.
ອ່ານເພີ່ມເຕີມ: ວິທີເພີ່ມແຖວໃໝ່ໂດຍອັດຕະໂນມັດໃນຕາຕະລາງ Excel
2 . ນຳໃຊ້ VBA ເພື່ອ loop ຜ່ານແຕ່ລະເຊລໃນແຕ່ລະແຖວດ້ວຍຄ່າ
ຫາກທ່ານຕ້ອງການ loop ຜ່ານແຕ່ລະເຊລໃນທຸກໆແຖວຂອງຕາຕະລາງ ແລະຖິ້ມຄ່າທີ່ຢູ່ໃນເຊລເປັນຄ່າກັບຄືນ. , ຈາກນັ້ນພາກນີ້ຈະຊ່ວຍໃຫ້ທ່ານຊອກຫາວິທີການເຮັດແນວນັ້ນກັບ VBA Excel.
ທ່ານສາມາດເຮັດໄດ້ກັບ ListObject ແລະກັບ DataBodyRange ຄຸນສົມບັດຂອງ VBA . ພວກເຮົາຈະສະແດງລະຫັດມະຫາພາກທີ່ມີທັງວັດຖຸ ແລະຄຸນສົມບັດ.
2.1. ດ້ວຍ ListObject
ຂັ້ນຕອນໃນການ loop ຜ່ານແຕ່ລະຕາລາງໃນທຸກໆແຖວຂອງຕາຕະລາງໂດຍຄ່າຕາລາງດ້ວຍ ListObject ໃນ VBA Excel ແມ່ນໃຫ້ຢູ່ຂ້າງລຸ່ມນີ້.
ຂັ້ນຕອນ:
- ວິທີດຽວກັນ, ເປີດ Visual Basic Editor ຈາກແຖບ ຜູ້ພັດທະນາ ແລະ ໃສ່ a ໂມດູນ ໃນປ່ອງຢ້ຽມລະຫັດ.
- ຈາກນັ້ນ, ໃນປ່ອງຢ້ຽມລະຫັດ, ສຳເນົາ ລະຫັດຕໍ່ໄປນີ້ ແລະ ວາງ ມັນ.
1130
ຕອນນີ້ລະຫັດຂອງທ່ານພ້ອມທີ່ຈະແລ່ນແລ້ວ.
- ຫຼັງຈາກນັ້ນ, ແລ່ນ ມາໂຄຣ ດັ່ງທີ່ພວກເຮົາໄດ້ສະແດງໃຫ້ທ່ານເຫັນໃນພາກຂ້າງເທິງ. ຜົນໄດ້ຮັບແມ່ນສະແດງຢູ່ໃນ gifຂ້າງລຸ່ມນີ້.
ຈະມີປັອບອັບ MsgBox ສະແດງໃຫ້ທ່ານເຫັນຄ່າ ປະຕິບັດໂດຍທຸກໆຕາລາງຈາກແຕ່ລະແຖວ ຈາກຕາຕະລາງໃນເອກະສານ Excel ຂອງທ່ານ.
ຄໍາອະທິບາຍລະຫັດ VBA
8264
ກໍານົດຕົວແປ.
6948
ຊິ້ນນີ້ ຂອງລະຫັດທໍາອິດເລີ່ມຕົ້ນ looping ຜ່ານແຖວໃນຕາຕະລາງ (“ TblStudents ” ແມ່ນຊື່ຕາຕະລາງຂອງພວກເຮົາ). ຈາກນັ້ນໃສ່ຖັນສຳລັບແຕ່ລະແຖວ. ຫຼັງຈາກນັ້ນ, ໃຫ້ຜ່ານຄ່າຂອງເຊນໃນ MsgBox. ຈາກນັ້ນໄປທີ່ຖັນຖັດໄປ. ຫຼັງຈາກສຳເລັດການ iteration ຜ່ານຖັນທັງໝົດຂອງແຖວໜຶ່ງ, ຈາກນັ້ນມັນໄປແຖວຕໍ່ໄປ ແລະ ສືບຕໍ່ຂະບວນການເຮັດຊ້ຳໄປຈົນຮອດແຖວສຸດທ້າຍ.
2.2. ດ້ວຍ DataBodyRange Property
ເພື່ອໃຫ້ມີຄວາມສະເພາະເຈາະຈົງກັບຂໍ້ມູນທີ່ສະກັດອອກມາຈາກຕາຕະລາງ, ທ່ານສາມາດໃຊ້ຄຸນສົມບັດ DataBodyRange ຂອງ ListObject . DataBodyRange ຄຸນສົມບັດຈະຖິ້ມໃຫ້ທ່ານຜົນໄດ້ຮັບທີ່ມີໄລຍະຈາກລາຍການລະຫວ່າງແຖວຫົວ ແລະແຖວແຊກ.
ຂັ້ນຕອນວິທີທີ່ທ່ານສາມາດ loop ຜ່ານແຕ່ລະຕາລາງໃນທຸກໆແຖວ. ຂອງຕາຕະລາງໂດຍຄ່າຕາລາງທີ່ມີ DataBodyRange ໃນ VBA Excel ແມ່ນໃຫ້ໄວ້ຂ້າງລຸ່ມນີ້.
ຂັ້ນຕອນ:
- ດັ່ງທີ່ສະແດງ. ກ່ອນ, ເປີດ Visual Basic Editor ຈາກແຖບ ຜູ້ພັດທະນາ ແລະ Insert a Module ໃນປ່ອງຢ້ຽມລະຫັດ.
- ຈາກນັ້ນ. , ສຳເນົາ ລະຫັດຕໍ່ໄປນີ້ ແລະ ວາງ ມັນໃສ່ໃນໜ້າຕ່າງລະຫັດ.
6111
ຕອນນີ້ລະຫັດຂອງເຈົ້າພ້ອມແລ່ນແລ້ວ.
- ຕໍ່ມາ, ແລ່ນ macro ແລະເບິ່ງ gif ຕໍ່ໄປນີ້ເພື່ອເບິ່ງຜົນໄດ້ຮັບ.
ຈະມີ pop-up MsgBox ສະແດງໃຫ້ທ່ານເຫັນ ຄ່າທີ່ປະຕິບັດໂດຍແຕ່ລະຕາລາງຈາກແຕ່ລະແຖວ ຈາກຕາຕະລາງໃນເອກະສານ Excel ຂອງທ່ານ.
ຄໍາອະທິບາຍລະຫັດ VBA
7645
ກຳນົດຕົວແປ.
3218
ລະຫັດນີ້ທຳອິດຈະເລີ່ມການ looping ຜ່ານແຖວໃນຕາຕະລາງ (“ TblStdnt ” ແມ່ນຊື່ຕາຕະລາງຂອງພວກເຮົາ) ແລະສົ່ງຄືນຄ່າຊ່ວງຂອງຄ່າທີ່ບໍ່ຮວມ. ແຖວຫົວຂອງຕາຕະລາງ. ຫຼັງຈາກນັ້ນ, ຜ່ານມູນຄ່າຂອງໄລຍະໃນ MsgBox. ຈາກນັ້ນມັນໄປແຖວຕໍ່ໄປເພື່ອແຍກໄລຍະ ແລະສືບຕໍ່ຂັ້ນຕອນການຊໍ້າຄືນໄປຈົນຮອດແຖວສຸດທ້າຍ.
3. ນຳໃຊ້ VBA Macro ເພື່ອ Iterate ຜ່ານແຖວໂດຍການລວມຖັນໃນ Excel
ພາກນີ້ຈະສະແດງວິທີການ loop ຜ່ານແຖວໃນຕາຕະລາງໂດຍການລວມຖັນກັບຖັນທໍາອິດ ຈາກຊຸດຂໍ້ມູນຂອງທ່ານ ໃນ Excel.
ຕົວຢ່າງ, ສໍາລັບຊຸດຂໍ້ມູນຂອງພວກເຮົາ, ທໍາອິດ, ພວກເຮົາຈະເຮັດຊ້ໍາໂດຍຜ່ານ John ໃນ Cell B5 ແລະ 101 ໃນ Cell C5 ໂດຍການສົມທົບພວກມັນແລ້ວເຮັດຊ້ໍາອີກຄັ້ງ. John in Cell B5 ແລະ 89 ໃນ Cell D5 ໂດຍການສົມທົບພວກມັນຈາກ ແຖວທີ 5 .
ໃຫ້ພວກເຮົາສະແດງວິທີທີ່ທ່ານສາມາດເຮັດແນວນັ້ນກັບ VBA macro ໃນ Excel.
ຂັ້ນຕອນ:
- ຕອນທໍາອິດ, ເປີດ Visual Basic Editor ຈາກ Developer tab ແລະ Insert a Module in the code window.
- ອັນທີສອງ, ໃນປ່ອງຢ້ຽມລະຫັດ, copy ຕໍ່ໄປນີ້ ລະຫັດແລະ ວາງ ມັນ.
9847
ຕອນນີ້ລະຫັດຂອງທ່ານພ້ອມໃຊ້ງານແລ້ວ.
- ອັນທີສາມ, ແລ່ນ ມະຫາພາກ. ເບິ່ງ gif ຂ້າງລຸ່ມນີ້ເພື່ອເບິ່ງຜົນໄດ້ຮັບ.
ຈະມີປັອບອັບ MsgBox ສະແດງໃຫ້ທ່ານເຫັນຄ່າ ຂອງເຊລຈາກຖັນທຳອິດ ແລະ ຖັນທີສອງ ( John ໃນ Cell B5 ຈາກຖັນ B ແລະ 101 ໃນ Cell C5 ຈາກຖັນ C ) ແລະຫຼັງຈາກນັ້ນ ຄ່າທີ່ປະສົມກັນ. ຂອງເຊລຈາກຖັນທຳອິດ ແລະ ຖັນທີສາມ ( John ໃນ Cell B5 ຈາກຖັນ B ແລະ 89 ໃນ Cell D5 ຈາກຖັນ D ) ຂອງ ແຖວເລກ 5<2> ຈາກຊຸດຂໍ້ມູນຂອງທ່ານ. ແລະການປະຕິບັດການສົມທົບນີ້ຈະສືບຕໍ່ຈົນກ່ວາມັນໄປຮອດແຖວສຸດທ້າຍຂອງຕາຕະລາງ.
ຄໍາອະທິບາຍລະຫັດ VBA
9481
ກໍານົດຕົວແປ.
4857
ຈາກນັ້ນລະຫັດຈະເລືອກຕາຕະລາງຈາກຊີດທີ່ມີການເຄື່ອນໄຫວ (“ TblConcatenate ” ໃນຊື່ຕາຕະລາງຂອງພວກເຮົາ).
4183
ຫຼັງຈາກນັ້ນ, ເລີ່ມການເຮັດໃຫມ່ໃນແຕ່ລະແຖວບໍ່ລວມເອົາສ່ວນຫົວຂອງ ຖັນ. ຖ້າການຊໍ້າຄືນພົບການຈັບຄູ່ໃນໄລຍະລະຫວ່າງສ່ວນຫົວຖັນ ແລະແຖວນັ້ນມັນເກັບຄ່າຢູ່ໃນຕົວແປ iValue .
2090
ຖ້າເງື່ອນໄຂຂ້າງເທິງນີ້ບໍ່ໄດ້ຮັບການປະຕິບັດ, ຫຼັງຈາກນັ້ນ. ລະຫັດຖິ້ມຄ່າໃນ MsgBox ແລະສິ້ນສຸດເງື່ອນໄຂ. ຫຼັງຈາກນັ້ນ, ມັນຍ້າຍໄປ looping ໃນໄລຍະອື່ນແລະສືບຕໍ່ iterating ຈົນກ່ວາແຖວສຸດທ້າຍ. ເມື່ອມັນໄປຮອດແຖວສຸດທ້າຍ, macro ຈະສິ້ນສຸດການປະຕິບັດລະຫັດ.
4. ຝັງ Macro ເພື່ອ Iterateຜ່ານແຖວໂດຍການລວມຖັນທັງໝົດໃນຕາຕະລາງໃນ Excel
ໃນພາກນີ້, ພວກເຮົາຈະຮຽນຮູ້ວິທີ ປະກອບຖັນທັງໝົດທີ່ແຕ່ລະແຖວຖື ໃນຊຸດຂໍ້ມູນດ້ວຍ VBA macro ໃນ Excel.
ຂັ້ນຕອນການດຳເນີນການທີ່ສະແດງຢູ່ລຸ່ມນີ້.
ຂັ້ນຕອນ:
- ທຳອິດ, ເປີດ ຕົວແກ້ໄຂ Visual Basic ຈາກແຖບ ຜູ້ພັດທະນາ ແລະ ໃສ່ a ໂມດູນ ໃນປ່ອງຢ້ຽມລະຫັດ.
- ຈາກນັ້ນ, ສຳເນົາ ລະຫັດຕໍ່ໄປນີ້ ແລະ ວາງ ມັນໃສ່ໜ້າຕ່າງລະຫັດ.
8895
ຕອນນີ້ລະຫັດຂອງເຈົ້າພ້ອມແລ້ວທີ່ຈະເປີດໃຊ້.
<3
- ຕໍ່ໄປ, Run the macro code.
ດັ່ງທີ່ເຈົ້າເຫັນຈາກ gif ຂ້າງເທິງນັ້ນແມ່ນວ່າມີ ປັອບອັບ MsgBox ສະແດງໃຫ້ທ່ານເຫັນຄ່າ ຂອງຖັນທັງໝົດທີ່ຢູ່ໃນທຸກແຖວ ຈາກຕາຕະລາງຂອງແຜ່ນງານ Excel ຂອງທ່ານ.
ຄຳອະທິບາຍລະຫັດ VBA
6642
ກຳນົດຕົວແປ.
5873
ຕັ້ງຊື່ຊີດທີ່ພວກເຮົາຈະເຮັດວຽກນຳ (“ ConcatenatingAllCol ” ແມ່ນຊື່ແຜ່ນງານ. ໃນປຶ້ມວຽກ).
7447
ເດ ປັບຊື່ຕາຕະລາງທີ່ພວກເຮົາຈະເຮັດວຽກກັບ (“ TblConcatenateAll ” ແມ່ນຊື່ຕາຕະລາງໃນຊຸດຂໍ້ມູນຂອງພວກເຮົາ).
1798
ເລີ່ມການຊໍ້າຄືນຜ່ານແຕ່ລະແຖວຂອງຕາຕະລາງ.
9486
ເລີ່ມການຊໍ້າຄືນຜ່ານແຕ່ລະຖັນຂອງແຕ່ລະແຖວຂອງຕາຕາລາງ.
3199
ເກັບຜົນໄດ້ຮັບໂດຍການຕັດຄ່າແຕ່ລະຖັນຂອງແຕ່ລະແຖວນຳມາ. ຫຼັງຈາກການສະແກນໂດຍຜ່ານຖັນທັງຫມົດທີ່ຢູ່ໃນແຕ່ລະແຖວ, ມັນຜ່ານການຜົນໄດ້ຮັບໃນ MsgBox. ຫຼັງຈາກນັ້ນ, ອີກເທື່ອຫນຶ່ງເລີ່ມຕົ້ນ looping ໃນແຖວຕໍ່ໄປແລະສືບຕໍ່ looping ຈົນກ່ວາມັນໄປຮອດແຖວສຸດທ້າຍຂອງຕາຕະລາງ.
ອ່ານເພີ່ມເຕີມ: ວິທີຈັດຮຽງຫຼາຍຖັນຂອງຕາຕະລາງດ້ວຍ Excel VBA (2 ວິທີ)
5. ຢຸດ Iteration ຖ້າຄ່າພົບໂດຍການ Loop ຜ່ານແຖວຂອງຕາຕະລາງດ້ວຍ VBA Macro
ສົມມຸດວ່າທ່ານຕ້ອງການ loop ຜ່ານແຖວຂອງຕາຕະລາງຂອງເຈົ້າມີ ແລະຢຸດການ looping ເມື່ອມັນພົບຄ່າສະເພາະ . ທ່ານສາມາດເຮັດແນວນັ້ນໄດ້ດ້ວຍລະຫັດ macro ງ່າຍໆ.
ມາຮຽນຮູ້ວິທີເຮັດແນວນັ້ນ VBA ໃນ Excel.
ຂັ້ນຕອນ:
- ທຳອິດ, ເປີດ Visual Basic Editor ຈາກແຖບ Developer ແລະ Insert a Module ໃນປ່ອງຢ້ຽມລະຫັດ.
- ຈາກນັ້ນ, ຢູ່ໃນປ່ອງຢ້ຽມລະຫັດ, ສຳເນົາ ລະຫັດຕໍ່ໄປນີ້ ແລະ ວາງ ມັນ.
9305
ລະຫັດຂອງທ່ານຕອນນີ້ພ້ອມທີ່ຈະເປີດໃຊ້ແລ້ວ. .
- ຕໍ່ມາ, ແລ່ນ ມາໂຄຣ.
- ມັນຈະ ເລີ່ມ loop ແລະຢຸດມັນເມື່ອມັນ. ຊອກຫາຄ່າສະເພາະ (“ Edge ”) ໃນໄລຍະ ແລະຖິ້ມຜົນລັບ ໃນ MsgBox .
ດັ່ງທີ່ເຈົ້າສາມາດເຫັນຈາກຮູບຂ້າງເທິງ, ມີ MsgBox ປາກົດຂຶ້ນສະແດງໃຫ້ທ່ານເຫັນ ທີ່ຢູ່ຕາລາງ, $B$10 , ບ່ອນທີ່ພວກເຮົາພົບເຫັນ ຄ່າທີ່ລະບຸໄວ້, “ Edge ” .
ຄຳອະທິບາຍລະຫັດ VBA
6612
ກຳນົດຄ່າ variable.
3121
ລະຫັດນີ້ຢູ່ນີ້ສໍາລັບການ looping ຜ່ານແຖວຈາກ 1 ຫາ 15. ຖ້າມັນພົບຄໍາສັບສະເພາະ.“ Edge ” ຫຼັງຈາກນັ້ນມັນຜ່ານຜົນໄດ້ຮັບດ້ວຍທີ່ຢູ່ຕາລາງທີ່ຖືຄໍາ. ມັນສືບຕໍ່ເຮັດອັນນີ້ຈົນກວ່າມັນຈະສຳເລັດການສະແກນຂໍ້ມູນທັງໝົດຈາກແຖວທີ 1 ຫາ 15 ໃນການຊອກຫາຄຳສັບ.
ອ່ານເພີ່ມເຕີມ: ວິທີການແຊກ ຫຼື ລຶບແຖວ ແລະຖັນຈາກຕາຕະລາງ Excel
6. VBA ເພື່ອ Loop ຜ່ານແຕ່ລະແຖວແລະສີຄ່າສະເພາະໃນ Excel
ຈະເຮັດແນວໃດຖ້າທ່ານບໍ່ຕ້ອງການຖິ້ມທີ່ຢູ່ຕາລາງຂອງຄ່າທີ່ລະບຸໄວ້ໃນ MsgBox? ເຈົ້າອາດຈະຕ້ອງການ ສີເຊລທີ່ມີຄ່າ ທີ່ເຈົ້າກໍາລັງຊອກຫາ.
ມາຮຽນຮູ້ວິທີເຮັດແນວນັ້ນດ້ວຍ VBA macro.
ຂັ້ນຕອນ:
- ວິທີດຽວກັນ, ເປີດ Visual Basic Editor ຈາກແຖບ ຜູ້ພັດທະນາ ແລະ Insert a ໂມດູນ ໃນປ່ອງຢ້ຽມລະຫັດ.
- ຈາກນັ້ນ, ສຳເນົາ ລະຫັດຕໍ່ໄປນີ້ ແລະ ວາງ ມັນໃສ່ໃນປ່ອງຢ້ຽມລະຫັດ.
7874
ຕອນນີ້ລະຫັດຂອງທ່ານພ້ອມແລ່ນແລ້ວ.
- ຫຼັງຈາກນັ້ນ, ແລ່ນ macro.
- ມັນຈະ ເລີ່ມການ loop ແລະຢຸດມັນເມື່ອມັນຊອກຫາຄ່າສະເພາະ (“ Edge ”) ໃນຂອບເຂດ ແລະ ສີເຊລ ດ້ວຍ ColorIndex ທີ່ເຈົ້າລະບຸໄວ້ໃນລະຫັດ.
ດັ່ງທີ່ເຈົ້າເຫັນຈາກຮູບຂ້າງເທິງ, C ell B10 , ບ່ອນທີ່ພວກເຮົາພົບເຫັນຄ່າທີ່ລະບຸໄວ້, “ Edge ” ເປັນສີ ຫຼັງຈາກການປະຕິບັດລະຫັດ.
ຄຳອະທິບາຍລະຫັດ VBA
2383
ກຳນົດການ