ການຊ່ວຍເຫຼືອ LibreOfficeDev 26.8
ກຳນົດຂໍ້ຄວາມຂໍ້ຜິດພາດທີ່ຈະສະແດງເມື່ອມີການປ້ອນຂໍ້ມູນທີ່ບໍ່ຖືກຕ້ອງເຂົ້າໃນເຊວ.
ທ່ານຍັງສາມາດເລີ່ມຕົ້ນມາໂຄຣພ້ອມກັບຂໍ້ຄວາມຂໍ້ຜິດພາດໄດ້. ມີຕົວຢ່າງມາໂຄຣໃຫ້ຢູ່ທ້າຍໜ້ານີ້.
ສະແດງຂໍ້ຄວາມຂໍ້ຜິດພາດທີ່ທ່ານປ້ອນໃນສ່ວນ ເນື້ອໃນ ເມື່ອມີການປ້ອນຂໍ້ມູນທີ່ບໍ່ຖືກຕ້ອງເຂົ້າໃນເຊວ. ຫາກເປີດໃຊ້ງານ, ຂໍ້ຄວາມຈະຖືກສະແດງເພື່ອປ້ອງກັນການປ້ອນຂໍ້ມູນທີ່ບໍ່ຖືກຕ້ອງ.
ໃນທັງສອງກໍລະນີ, ຫາກທ່ານເລືອກ "ຢຸດ", ລາຍການທີ່ບໍ່ຖືກຕ້ອງຈະຖືກລຶບ ແລະ ຄ່າກ່ອນໜ້າຈະຖືກປ້ອນຄືນເຂົ້າໃນເຊວ. ເຊັ່ນດຽວກັນຫາກທ່ານປິດກ່ອງໂຕ້ຕອບ "ຄຳເຕືອນ" ແລະ "ຂໍ້ມູນ" ໂດຍການກົດປຸ່ມ ຍົກເລີກ. ແຕ່ຫາກທ່ານປິດກ່ອງໂຕ້ຕອບດ້ວຍປຸ່ມ ຕົກລົງ, ລາຍການທີ່ບໍ່ຖືກຕ້ອງນັ້ນຈະບໍ່ຖືກລຶບອອກ.
ເລືອກການດຳເນີນການທີ່ທ່ານຕ້ອງການໃຫ້ເກີດຂຶ້ນເມື່ອມີການປ້ອນຂໍ້ມູນທີ່ບໍ່ຖືກຕ້ອງເຂົ້າໃນເຊວ.
ການດຳເນີນການ ຢຸດ ຈະປະຕິເສດລາຍການທີ່ບໍ່ຖືກຕ້ອງ ແລະ ສະແດງກ່ອງໂຕ້ຕອບທີ່ທ່ານຕ້ອງປິດໂດຍການກົດ ຕົກລົງ.
ການດຳເນີນການ ຄຳເຕືອນ ແລະ ຂໍ້ມູນ ຈະສະແດງກ່ອງໂຕ້ຕອບທີ່ສາມາດປິດໄດ້ໂດຍການກົດ ຕົກລົງ ຫຼື ຍົກເລີກ. ລາຍການທີ່ບໍ່ຖືກຕ້ອງຈະຖືກປະຕິເສດກໍຕໍ່ເມື່ອທ່ານກົດ ຍົກເລີກ ເທົ່ານັ້ນ.
ການດຳເນີນການ ປະຕິເສດແບບງຽບ ຈະຮັກສາຄ່າເຊວປັດຈຸບັນໄວ້ ແລະ ບໍ່ສະແດງກ່ອງໂຕ້ຕອບ.
ເປີດກ່ອງໂຕ້ຕອບ ມາໂຄຣ ທີ່ທ່ານສາມາດເລືອກມາໂຄຣທີ່ຈະໃຫ້ເຮັດວຽກເມື່ອມີການປ້ອນຂໍ້ມູນທີ່ບໍ່ຖືກຕ້ອງເຂົ້າໃນເຊວ. ມາໂຄຣຈະເຮັດວຽກຫຼັງຈາກຂໍ້ຄວາມຂໍ້ຜິດພາດຖືກສະແດງ.
ປ້ອນຫົວຂໍ້ຂອງມາໂຄຣ ຫຼື ຂໍ້ຄວາມຂໍ້ຜິດພາດທີ່ທ່ານຕ້ອງການໃຫ້ສະແດງເມື່ອມີການປ້ອນຂໍ້ມູນທີ່ບໍ່ຖືກຕ້ອງເຂົ້າໃນເຊວ.
ປ້ອນຂໍ້ຄວາມທີ່ທ່ານຕ້ອງການໃຫ້ສະແດງເມື່ອມີການປ້ອນຂໍ້ມູນທີ່ບໍ່ຖືກຕ້ອງເຂົ້າໃນເຊວ.
ດ້ານລຸ່ມນີ້ແມ່ນຕົວຢ່າງຟັງຊັນທີ່ສາມາດຮຽກໃຊ້ໄດ້ເມື່ອເກີດຂໍ້ຜິດພາດ. ໝາຍເຫດວ່າມາໂຄຣຈະຮັບເອົາສອງພາຣາມີເຕີທີ່ຖືກສົ່ງຕໍ່ໂດຍ LibreOfficeDev ເມື່ອຟັງຊັນຖືກຮຽກໃຊ້:
CellValue: ຄ່າທີ່ຜູ້ໃຊ້ປ້ອນເຂົ້າ, ໃນຮູບແບບຂໍ້ຄວາມ (String).
CellAddress: ທີ່ຢູ່ຂອງເຊວທີ່ມີການປ້ອນຄ່າເຂົ້າ, ໃນຮູບແບບຂໍ້ຄວາມທີ່ມີຊື່ແຜ່ນງານນຳໜ້າ (ຕົວຢ່າງ: "Sheet1.A1").
ຟັງຊັນຈະຕ້ອງສົ່ງຄືນຄ່າບູລີນ. ຫາກມັນສົ່ງຄືນຄ່າ True, ຄ່າທີ່ປ້ອນເຂົ້າຈະຖືກຮັກສາໄວ້. ຫາກຟັງຊັນສົ່ງຄືນຄ່າ False, ຄ່າທີ່ປ້ອນເຂົ້າຈະຖືກລຶບອອກ ແລະ ຄ່າກ່ອນໜ້າຈະຖືກກູ້ຄືນ.
Function ExampleValidity(CellValue as String, CellAddress as String) as Boolean
Dim msg as String
Dim iAnswer as Integer
Dim MB_FLAGS as Integer
msg = "ຄ່າທີ່ບໍ່ຖືກຕ້ອງ: " & "'" & CellValue & "'"
msg = msg & " ໃນເຊວ: " & "'" & CellAddress & "'"
msg = msg & Chr(10) & "ຍອມຮັບຫຼືບໍ່?"
MB_FLAGS = MB_YESNO + MB_ICONEXCLAMATION + MB_DEFBUTTON2
iAnswer = MsgBox (msg , MB_FLAGS, "ຂໍ້ຄວາມຂໍ້ຜິດພາດ")
ExampleValidity = (iAnswer = IDYES)
End Function