ຟັງຊັນ Choose

ສົ່ງຄືນຄ່າທີ່ເລືອກຈາກລາຍການຂອງອາກິວເມັນ (arguments).

  Choose (Index As Integer, Expression1[, Expression2, ... [, Expression_n]]) As Variant

Variant. ຄ່າທີ່ໄດ້ມາຈາກພາລາມິເຕີ Index.

Index: ນິພົດຕົວເລກໃດໜຶ່ງທີ່ຖືກປັດເປັນຈຳນວນຖ້ວນ. Index ຮັບຄ່າຈຳນວນຖ້ວນເລີ່ມຕົ້ນທີ່ 1 ເພື່ອກຳນົດວ່າຈະສົ່ງຄືນຕົວເລືອກໃດໃນບັນດາຕົວເລືອກທີ່ມີ.

Expression1, Expression2, …, Expression_n: ນິພົດຕ່າງໆທີ່ແທນແຕ່ລະຕົວເລືອກທີ່ເປັນໄປໄດ້.

ຟັງຊັນ Choose ຈະສົ່ງຄືນຄ່າຈາກລາຍການນິພົດໂດຍອີງຕາມຄ່າດັດຊະນີ (index). ຖ້າ Index = 1, ຟັງຊັນຈະສົ່ງຄືນນິພົດທຳອິດໃນລາຍການ, ຖ້າ Index = 2, ມັນຈະສົ່ງຄືນນິພົດທີສອງ ແລະ ຕໍ່ໆໄປ.

ຖ້າຄ່າດັດຊະນີນ້ອຍກວ່າ 1 ຫຼື ໃຫຍ່ກວ່າຈຳນວນນິພົດທີ່ມີໃນລາຍການ, ຟັງຊັນຈະສົ່ງຄືນຄ່າ Null.

ຂໍ້ຜິດພາດ #5 ຈະເກີດຂຶ້ນເມື່ອລະພາລາມິເຕີໄວ້. ຂໍ້ຜິດພາດ #13 ຈະເກີດຂຶ້ນຖ້າ Index ມີຄ່າເທົ່າກັບ Null.

ຕົວຢ່າງຕໍ່ໄປນີ້ໃຊ້ຟັງຊັນ Choose ເພື່ອເລືອກສະຕຣິງຈາກຫຼາຍສະຕຣິງທີ່ປະກອບກັນເປັນເມນູ:

Sub ExampleChoose
    Print ChooseMenu(2) ' "Save Format"
    MsgBox Choose(index :=  -5, 9, "Basic", PI) ' Null
    MsgBox Choose(index := 3.14, 9, "Basic", PI) ' PI
End Sub
 
Function ChooseMenu(Index As Integer)
    ChooseMenu = Choose(Index, "Quick Format", "Save Format", "System Format")
End Function