ฉันใช้เครื่องมือแผ่นงาน สร้างแผ่นดัชนีด้วยปุ่ม (VBA) เมื่อฉันเลือกปุ่มใดปุ่มหนึ่ง โค้ดจะทำงานตามที่ควรจะเป็น ยกเว้นแต่จะมีข้อความว่า "ไม่สามารถเปิดใช้งาน ODBC ได้ โค้ดดังกล่าวอาจถูกลบหรือเปลี่ยนชื่อแล้ว" ข้อผิดพลาด. มันทำเช่นเดียวกันสำหรับแผ่นงานทั้งหมด มีปัญหาอะไร?? รหัสมีดังนี้:
ย่อย GoToButton1_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("ODBC")). เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน ODBC ได้ อาจถูกลบหรือเปลี่ยนชื่อแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด
ย่อย GoToButton2_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต ("Master") เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน Master ได้ มันอาจถูกลบหรือเปลี่ยนชื่อไปแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด
ย่อย GoToButton3_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("ALL")). เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งานได้ทั้งหมด อาจถูกลบหรือเปลี่ยนชื่อไปแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด
ย่อย GoToButton4_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("จ่าย")).เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน PAID ได้ อาจถูกลบหรือเปลี่ยนชื่อไปแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด
ย่อย GoToButton5_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("SETTLED")).เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน SETTLED ได้ อาจถูกลบหรือเปลี่ยนชื่อไปแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด
ย่อย GoToButton6_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("CLOSED")).เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน CLOSED ได้ อาจถูกลบหรือเปลี่ยนชื่อไปแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด
ย่อย GoToButton7_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("NON-VIABLE")).เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน NON-VIABLE ได้ อาจถูกลบหรือเปลี่ยนชื่อแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด
ย่อย GoToButton8_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("ถูกกฎหมาย")).เปิดใช้งาน
หาก Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน LEGAL ได้ อาจถูกลบหรือเปลี่ยนชื่อแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด
ย่อย GoToButton9_Click()
เกี่ยวกับข้อผิดพลาดต่อไป
ชีต("SUMMARY")).เปิดใช้งาน
ถ้า Err <> 0 แสดงว่า MsgBox "ไม่สามารถเปิดใช้งาน SUMMARY ได้ อาจถูกลบหรือเปลี่ยนชื่อไปแล้ว"
เมื่อเกิดข้อผิดพลาด GoTo 0
ย่อยสิ้นสุด