ວິທີການໃຊ້ຟັງຊັນກາງຂອງ VBA ໃນ Excel (3 ຕົວຢ່າງ)

Hugh West

16-10-2023 Macros & Excel VBA
  • ແບ່ງປັນນີ້
Hugh West

ໜຶ່ງ​ໃນ​ໜ້າ​ທີ່​ທີ່​ສຳຄັນ​ແລະ​ໃຊ້​ກັນ​ຢ່າງ​ກວ້າງ​ຂວາງ​ທີ່​ພວກ​ເຮົາ​ໃຊ້​ໃນ​ຂະ​ນະ​ທີ່​ເຮັດ​ວຽກ​ກັບ VBA ໃນ Excel ແມ່ນ ຟັງ​ຊັນ​ກາງ ຂອງ VBA . ມັນໃຊ້ສະຕຣິງເປັນຕົວປ້ອນ ແລະສົ່ງຄືນຕົວເລກທີ່ໃຫ້ໄວ້ຈາກກາງຂອງສະຕຣິງເປັນຜົນອອກມາ. ມື້​ນີ້​ໃນ​ບົດ​ຄວາມ​ນີ້, ຂ້າ​ພະ​ເຈົ້າ​ຈະ​ສະ​ແດງ​ໃຫ້​ທ່ານ​ເຫັນ​ວິ​ທີ​ທີ່​ທ່ານ​ສາ​ມາດ​ນໍາ​ໃຊ້ Mid function ຂອງ VBA ໂດຍ​ມີ​ຕົວ​ຢ່າງ​ທີ່​ເຫມາະ​ສົມ​ແລະ​ຮູບ​ພາບ​ທີ່​ເຫມາະ​ສົມ.

ອັນນີ້ຈະສົ່ງຄືນ 9 ຕົວອັກສອນຈາກສະຕຣິງ “Angela Catherine Nevilles” , ເລີ່ມຈາກຕົວອັກສອນ 8th . ມັນແມ່ນ “Catherine” .

ດາວໂຫລດປື້ມຄູ່ມືການປະຕິບັດ

ດາວໂຫລດປື້ມແບບຝຶກຫັດນີ້ເພື່ອປະຕິບັດວຽກງານໃນຂະນະທີ່ ທ່ານກຳລັງອ່ານບົດຄວາມນີ້ຢູ່.

VBA Mid Function.xlsm

ການແນະນຳການເຮັດວຽກກາງຂອງ VBA ໃນ Excel

⧭ ຈຸດປະສົງຂອງຟັງຊັນ:

ຟັງຊັນ ກາງ ໃຊ້ຄ່າເປັນວັດສະດຸປ້ອນ ແລະ ສົ່ງຄືນຕົວເລກຂອງຕົວອັກສອນທີ່ເລີ່ມຈາກຕຳແໜ່ງທີ່ລະບຸຂອງຄ່າເປັນຜົນອອກມາ.

ຄ່າສາມາດເປັນ ສະຕຣິງ, ຕົວເລກ , ຫຼືແມ້ກະທັ້ງ ບູລີນ .

ຕົວຢ່າງ, ຖ້າເຈົ້າໃສ່ Mid(“Angela Catherine Nevilles”,8,9), ມັນຈະກັບຄືນມາ “Catherine” .

ຖ້າທ່ານໃສ່ Mid(12345,2,3), ທ່ານຈະໄດ້ຮັບ 234.

ແລະໃສ່ Mid(False,2,3), ທ່ານຈະໄດ້ຮັບ als .

⧭ Syntax:

The Syntax ຂອງ Mid ຟັງຊັນ ຂອງ VBA ແມ່ນ:

=Mid(String,Start as Long,[Length])

⧭ ອາກິວເມັນ:

<13
ອາກິວເມັນ ຕ້ອງການ / ທາງເລືອກ ຄໍາອະທິບາຍ
ສະຕຣິງ ຕ້ອງການ ສະຕຣິງຈາກ ເຊິ່ງຈໍານວນຕົວອັກສອນຈະຖືກສົ່ງຄືນ.
ເລີ່ມ ຕ້ອງການ ຕົວອັກສອນເລີ່ມຕົ້ນຂອງສະຕຣິງທີ່ຈະຖືກສົ່ງຄືນ.
ຄວາມຍາວ ທາງເລືອກ ຈຳນວນຕົວອັກສອນທີ່ຈະຖືກສົ່ງຄືນ. ຄ່າເລີ່ມຕົ້ນແມ່ນ 1.

⧭ ຄ່າກັບຄືນ:

ສົ່ງຄືນຕົວເລກຂອງຕົວອັກສອນທີ່ໃຫ້ມາຈາກກາງ ຂອງສະຕຣິງໃດໜຶ່ງ, ເລີ່ມຕົ້ນຈາກຕຳແໜ່ງທີ່ກຳນົດໄວ້.

3 ຕົວຢ່າງຂອງໜ້າທີ່ກາງຂອງ VBA ໃນ Excel

ເທື່ອນີ້, ເຮົາມາສຳຫຼວດ ຟັງຊັນກາງ ຂອງ VBA ໂດຍ​ລະ​ອຽດ​ມີ​ບາງ​ຕົວ​ຢ່າງ.

1. ການແຍກຕົວເລກທີ່ລະບຸໄວ້ຈາກກາງຂອງບາງ ID ໂດຍໃຊ້ຟັງຊັນກາງຂອງ VBA ໃນ Excel

ນີ້ພວກເຮົາມີຊຸດຂໍ້ມູນທີ່ມີ IDs ແລະ ຊື່ ຂອງພະນັກງານບາງຄົນຂອງບໍລິສັດທີ່ເອີ້ນວ່າ Saturn Group.

ຢູ່ບ່ອນນີ້, ທີ 4 ຫາ 7 ຕົວອັກສອນຂອງແຕ່ລະຕົວ ID ໝາຍເຖິງປີທີ່ເຂົ້າຮ່ວມຂອງພະນັກງານທີ່ກ່ຽວຂ້ອງ.

ຕອນນີ້ພວກເຮົາຈະພັດທະນາ ຟັງຊັນທີ່ກຳນົດໂດຍຜູ້ໃຊ້ ໂດຍໃຊ້ ຟັງຊັນກາງ ຂອງ VBA . ມັນຈະແຍກປີທີ່ເຂົ້າຮ່ວມຂອງພະນັກງານແຕ່ລະຄົນອອກຈາກ ID ພະນັກງານ .

ທ່ານສາມາດໃຊ້ລະຫັດ VBA ຕໍ່ໄປນີ້:

⧭ ລະຫັດ VBA: 

6134

ໝາຍເຫດ: ລະຫັດນີ້ສ້າງຟັງຊັນທີ່ເອີ້ນວ່າ Jolining_Year .

⧭ ຜົນອອກມາ:

ດໍາເນີນການນີ້ ເຮັດວຽກຢູ່ໃນຕາລາງໃດນຶ່ງຂອງແຜ່ນງານຂອງເຈົ້າທີ່ມີ ID ເປັນອາກິວເມັນ.

ຢູ່ນີ້, ໃນຕາລາງ D4 , ພວກເຮົາໄດ້ໃສ່ສູດ:

=Joining_Year(B4)

ມັນໄດ້ສົ່ງຄືນປີທີ່ເຂົ້າຮ່ວມຂອງພະນັກງານທໍາອິດ, 2021 .

ຕອນນີ້ທ່ານສາມາດລາກ ໄດ້. ຕື່ມ Handle ເພື່ອຮັບປີທີ່ເຫຼືອຂອງພະນັກງານທີ່ເຫຼືອ.

⧭ ຄໍາອະທິບາຍຂອງລະຫັດ:

  • ທຳອິດ, ພວກເຮົາປະກາດຟັງຊັນທີ່ເອີ້ນວ່າ Jolining_Year ທີ່ໃຊ້ ID ເປັນການປ້ອນຂໍ້ມູນໂດຍແຖວ Function Joining_Year(ID) .
  • ຫຼັງຈາກນັ້ນ, ພວກເຮົາສະກັດ 4 ຕົວອັກສອນຈາກ ID ເລີ່ມຈາກຕໍາແໜ່ງ 4 , ໂດຍແຖວ Joining_Year = Mid(ID, 4, 4).
  • ແຖວ ຟັງຊັນສິ້ນສຸດ ປະກາດການສິ້ນສຸດຂອງຟັງຊັນ.

2. ການສະກັດສ່ວນຂະຫຍາຍຈາກບາງທີ່ຢູ່ອີເມວໂດຍໃຊ້ຫນ້າທີ່ກາງຂອງ VBA ໃນ Excel

ຕອນນີ້ພວກເຮົາໄດ້ເພີ່ມຄໍລໍາໃຫມ່ໃສ່ຊຸດຂໍ້ມູນ, ເຊິ່ງປະກອບດ້ວຍທີ່ຢູ່ອີເມວຂອງພະນັກງານ.

ຄັ້ງ​ນີ້​ພວກ​ເຮົາ​ຈະ​ສະ​ກັດ​ອອກ​ສ່ວນ​ຂະ​ຫຍາຍ​ຂອງ​ທີ່​ຢູ່​ອີ​ເມວ​ໂດຍ​ການ​ນໍາ​ໃຊ້​ຫນ້າ​ທີ່ Mid ຂອງ VBA .

The ລະຫັດ VBA ຈະເປັນ:

⧭ ລະຫັດ VBA: 

4498

ໝາຍເຫດ: ລະຫັດນີ້ ສ້າງຟັງຊັນທີ່ເອີ້ນວ່າ Extension .

⧭ Output:

Run this ເຮັດວຽກຢູ່ໃນຕາລາງໃດໆຂອງແຜ່ນງານຂອງເຈົ້າດ້ວຍ ອີເມລ໌ທີ່ຢູ່ ເປັນອາກິວເມັນ.

ທີ່ນີ້, ໃນຕາລາງ E4 , ພວກເຮົາໄດ້ໃສ່ສູດ:

=Extension(D4)

ມັນໄດ້ສົ່ງຄືນສ່ວນຂະຫຍາຍຂອງທີ່ຢູ່ອີເມວທຳອິດແລ້ວ.

ຈາກນັ້ນທ່ານສາມາດລາກ Fill Handle ເພື່ອແຍກສ່ວນຂະຫຍາຍຂອງອີເມວທັງໝົດອອກໄດ້. ທີ່ຢູ່.

⧭ ຄໍາອະທິບາຍຂອງລະຫັດ

  • ທໍາອິດ, ພວກເຮົາປະກາດຟັງຊັນທີ່ເອີ້ນວ່າ ສ່ວນຂະຫຍາຍ ທີ່ເອົາຊື່ໃດນຶ່ງມາໃສ່ໃນແຖວ Function Extension(Email_Address) .
  • ຈາກນັ້ນພວກເຮົາຈະເລີ່ມການຊໍ້າຄືນດ້ວຍ for-loop ທີ່ກວດເບິ່ງແຕ່ລະຕົວອັກສອນຂອງ ທີ່ຢູ່ອີເມວ ເພື່ອເບິ່ງວ່າມັນເປັນ @ ຫຼືບໍ່ໂດຍແຖວ ຖ້າ Mid(Email_Address, i, 1) = “@” ຈາກນັ້ນ .
  • ຖ້າມັນພົບ @ , ມັນຈະແຍກສ່ວນຂະຫຍາຍທີ່ຕ້ອງການອອກຈາກ ທີ່ຢູ່ອີເມວ ໂດຍແຖວ Extension = Mid(Email_Address, i + 1, Len(Email_Address) – (i + 4)) .
  • ສຸດທ້າຍ, ພວກເຮົາປະກາດການສິ້ນສຸດຂອງຟັງຊັນ.

3. ການກວດສອບບາງຂໍ້ຄວາມເພື່ອເບິ່ງວ່າພວກມັນມີຂໍ້ຄວາມສະເພາະຫຼືບໍ່

ໜຶ່ງໃນການນຳໃຊ້ທີ່ສຳຄັນທີ່ສຸດຂອງ ຟັງຊັນກາງ ແມ່ນເພື່ອກວດເບິ່ງວ່າຂໍ້ຄວາມມີຂໍ້ຄວາມສະເພາະຫຼືບໍ່. .

ມາພັດທະນາຟັງຊັນເພື່ອກວດເບິ່ງວ່າ ທີ່ຢູ່ອີເມວ ມີຄຳວ່າ “gmail” ຫຼືບໍ່.

ທ່ານສາມາດໃຊ້ສິ່ງຕໍ່ໄປນີ້ VBA ລະຫັດ:

⧭ ລະຫັດ VBA: 

2459

ໝາຍເຫດ: ລະຫັດນີ້ສ້າງຟັງຊັນ ເອີ້ນວ່າ ກຳລັງກວດສອບ .

⧭ ຜົນອອກມາ:

ເປີດໃຊ້ຟັງຊັນນີ້ຢູ່ໃນຕາລາງໃດກໍໄດ້ ຂອງແຜ່ນງານຂອງທ່ານທີ່ມີສອງຂໍ້ຄວາມເປັນ argument.

ທີ່ນີ້, ໃນຕາລາງ E4 , ພວກເຮົາໄດ້ໃສ່ສູດ:

=Checking(D4,"gmail")

ມັນກັບຄືນມາ ແມ່ນ ເພາະວ່າທີ່ຢູ່ອີເມວທີ 1 ເປັນທີ່ຢູ່ Gmail .

ຈາກນັ້ນທ່ານສາມາດລາກໄດ້. ຕື່ມ Handle ເພື່ອເຮັດອັນດຽວກັນກັບທຸກ ID ອີເມວ.

⧭ ຄໍາອະທິບາຍຂອງລະຫັດ:<2

  • ກ່ອນອື່ນ, ພວກເຮົາປະກາດຟັງຊັນທີ່ເອີ້ນວ່າ ການກວດສອບ ເຊິ່ງໃຊ້ເວລາສອງຂໍ້ຄວາມເປັນ argument ໂດຍແຖວ Function Checking(Text1,Text2) .
  • ຫຼັງຈາກນັ້ນ, ພວກເຮົາເລີ່ມຕົ້ນສໍາລັບ loop ທີ່ກວດເບິ່ງແຕ່ລະພາກສ່ວນຂອງ Text1 ໂດຍເລີ່ມຕົ້ນຈາກຕໍາແຫນ່ງ 1 , ເພື່ອເບິ່ງວ່າມັນເທົ່າກັບ Text2 ຫຼືບໍ່. , ໂດຍແຖວ ຖ້າ Mid(Text1, i, Len(Text2)) = Text2 ຫຼັງຈາກນັ້ນ .
  • ຖ້າມັນພົບ Text2 , ມັນຈະສົ່ງກັບ “ແມ່ນ” , ຖ້າບໍ່ດັ່ງນັ້ນມັນຈະສົ່ງກັບ “ບໍ່” .
  • ສຸດທ້າຍ, ພວກເຮົາສະຫຼຸບຟັງຊັນໂດຍແຖວ ຟັງຊັນສິ້ນສຸດ .

ສິ່ງທີ່ຄວນຈື່

  • ອາກິວເມັນ ທີ 1 ຂອງ ຟັງຊັນກາງ ບໍ່ຈໍາເປັນຕ້ອງເປັນສະຕຣິງສະເໝີ. ມັນສາມາດເປັນ string , ເປັນ number , ຫຼືແມ່ນແຕ່ຄ່າ boolean .
  • ແຕ່ 2nd ແລະ ອາກິວເມັນທີ 3 ຕ້ອງເປັນ ຕົວເລກ . ພວກມັນສາມາດເປັນ ຈຳນວນເຕັມ ຫຼື ເສດສ່ວນ ແຕ່ຕ້ອງເປັນ ຕົວເລກ . ຖ້າພວກເຂົາເປັນ ເສດສ່ວນ , ຫຼັງຈາກນັ້ນ ກາງຟັງຊັນ ຈະປ່ຽນພວກມັນເປັນ ຈຳນວນເຕັມ .
ຕອບຜ່ານມາ ວິທີການສ້າງບັນຊີລາຍຊື່ແບບເຄື່ອນໄຫວແບບເຄື່ອນໄຫວໂດຍໃຊ້ Excel OFFSET (3 ວິທີ)
ຕອບຕໍ່ໄປ ວິ​ທີ​ການ​ຄິດ​ໄລ່ Pearson Correlation Coefficient ໃນ Excel (4 ວິ​ທີ​)

Hugh West ເປັນຄູຝຶກ Excel ທີ່ມີປະສົບການສູງແລະນັກວິເຄາະທີ່ມີປະສົບການຫຼາຍກວ່າ 10 ປີໃນອຸດສາຫະກໍາ. ລາວຈົບປະລິນຍາຕີສາຂາບັນຊີ ແລະການເງິນ ແລະປະລິນຍາໂທສາຂາບໍລິຫານທຸລະກິດ. Hugh ມີຄວາມກະຕືລືລົ້ນໃນການສອນແລະໄດ້ພັດທະນາວິທີການສອນທີ່ເປັນເອກະລັກທີ່ງ່າຍຕໍ່ການຕິດຕາມແລະເຂົ້າໃຈ. ຄວາມຮູ້ຊ່ຽວຊານຂອງລາວກ່ຽວກັບ Excel ໄດ້ຊ່ວຍໃຫ້ນັກຮຽນແລະຜູ້ຊ່ຽວຊານຫລາຍພັນຄົນໃນທົ່ວໂລກປັບປຸງທັກສະຂອງເຂົາເຈົ້າແລະດີເລີດໃນອາຊີບຂອງພວກເຂົາ. ຜ່ານ blog ຂອງລາວ, Hugh ແບ່ງປັນຄວາມຮູ້ຂອງລາວກັບໂລກ, ສະຫນອງການສອນ Excel ຟຣີແລະການຝຶກອົບຮົມອອນໄລນ໌ເພື່ອຊ່ວຍໃຫ້ບຸກຄົນແລະທຸລະກິດສາມາດບັນລຸທ່າແຮງຂອງພວກເຂົາ.