ຟັງຊັນ InStrRev [VBA]

ສົ່ງຄືນຕຳແໜ່ງຂອງຂໍ້ຄວາມພາຍໃນຂໍ້ຄວາມອື່ນ, ໂດຍເລີ່ມຈາກເບື້ອງຂວາຂອງຂໍ້ຄວາມ.

ຄ່າຄົງທີ່, ຟັງຊັນ ຫຼື ອັອບເຈັກນີ້ຈະຖືກເປີດໃຊ້ດ້ວຍຄຳສັ່ງ Option VBASupport 1 ທີ່ວາງໄວ້ກ່ອນລະຫັດໂປຣແກຣມໃນໂມດູນ.

ຟັງຊັນ InStrRev ສົ່ງຄືນຕຳແໜ່ງທີ່ພົບຂໍ້ຄວາມທີ່ກົງກັນ ໂດຍນັບຈາກເບື້ອງຂວາ. ຖ້າບໍ່ພົບຂໍ້ຄວາມ, ຟັງຊັນຈະສົ່ງຄືນ 0.

InStrRev (ຂໍ້ຄວາມກວດສອບ ເປັນ String, ຂໍ້ຄວາມຄົ້ນຫາ ເປັນ String [,ເລີ່ມ ເປັນ Long] [, ປຽບທຽບ ເປັນ Integer])

Long

ຂໍ້ຄວາມກວດສອບ: ນິພົດຂໍ້ຄວາມທີ່ທ່ານຕ້ອງການຄົ້ນຫາ.

ຂໍ້ຄວາມຄົ້ນຫາ: ນິພົດຂໍ້ຄວາມທີ່ທ່ານຕ້ອງການຄົ້ນຫາ.

ເລີ່ມ: ນິພົດຕົວເລກທາງເລືອກທີ່ລະບຸຕຳແໜ່ງ ຈາກເບື້ອງຊ້າຍ ໃນຂໍ້ຄວາມທີ່ການຄົ້ນຫາຂໍ້ຄວາມຍ່ອຍເລີ່ມຕົ້ນ. ຖ້າທ່ານລະເວັ້ນພາລາມິເຕີນີ້, ການຄົ້ນຫາຈະເລີ່ມຢູ່ຕົວອັກສອນສຸດທ້າຍຂອງຂໍ້ຄວາມ. ຄ່າສູງສຸດທີ່ອະນຸຍາດແມ່ນ 65535.

ປຽບທຽບ: ນິພົດຕົວເລກທາງເລືອກທີ່ກຳນົດປະເພດຂອງການປຽບທຽບ. ຄ່າຂອງພາລາມິເຕີນີ້ສາມາດເປັນ

1: ຄ່າເລີ່ມຕົ້ນແມ່ນ 1 ເຊິ່ງລະບຸການປຽບທຽບຂໍ້ຄວາມແບບບໍ່ຈຳແນກຕົວພິມໃຫຍ່-ນ້ອຍ.

0: ຄ່າ 0 ລະບຸການປຽບທຽບແບບໄບນາຣີທີ່ຈຳແນກຕົວພິມໃຫຍ່-ນ້ອຍ.

ເພື່ອຫຼີກເວັ້ນຂໍ້ຜິດພາດໃນເວລາດຳເນີນການ, ຫ້າມຕັ້ງພາລາມິເຕີ Compare ຖ້າພາລາມິເຕີສົ່ງຄືນທຳອິດຖືກລະເວັ້ນ.

Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
 sInput = "The book is on the table"
 iPos = InStrRev(sInput,"the",10,1) ' ສົ່ງຄືນ 1, ການຄົ້ນຫາແບບບໍ່ຈຳແນກຕົວພິມໃຫຍ່-ນ້ອຍ
 Print iPos 
 iPos = InStrRev(sInput,"the",10,0) ' ສົ່ງຄືນ 0, ການຄົ້ນຫາແບບຈຳແນກຕົວພິມໃຫຍ່-ນ້ອຍ
 Print iPos
End Sub