39 3.10 ขั้นตอนการใช้งาน Start วัดความกว้าง ความยาว ความสูงของบรรจุภัณฑ์ น ้าหนักสินของสินค้าและพาเลท น าข้อมูลที่หามาใส่ในช่องข้อมูลของ Userform ที่สร้างไว้ หาเงื่อนไขในการวาง เรื่องการวางซ้อนกันสูงสุดใน เงื่อนไขของบรรจุภัณฑ์ น ้าหนักสูงสุดที่พาเลทรับได้ ความสูงที่สามารถน าพาเลทเข้า rack ได้ กด run เพื่อให้ข้อมูลการค านวณออกมา พนักงานน าข้อมูลไปเป็นข้อมูลใน การตัดสินใจ ภาพที่ 3.4 ขั้นตอนการใช้งาน
บทที่ 4 ผลการวิจัย จากจุดเริ่มต้นของงานวิจัยผู้วิจัยได้มองเห็นปัญหาในการจัดเรียงบรรจุภัณฑ์บนพาเลทของ องค์การเภสัชกรรมกรณีศึกษา โดยจำเป็นจะต้องมีการกำหนดมาตรฐานในการจัดเรียงสินค้าให้ สามารถดำเนินงานได้ง่าย และแม่นยำมากขึ้น ผู้วิจัยจึงทำการศึกษาในเรื่องการคำนวณปริมาตรสูงสุด ในการจัดวางบรรจุภัณฑ์โดยใช้ โปรแกรมสำเร็จรูป VBA หรือการวัดขนาดของสินค้ามาทำการศึกษา เพื่อการหาปริมาตรสูงสุดในการจัดเรียงสินค้าเพื่อเป็นตัวช่วยตัดสินใจให้ง่ายต่อการปฏิบัติงาน และ เพิ่มความสะดวกรวดเร็วในการทำงานให้กับพนักงานผู้วิจัยจึงเขียนโค๊ดโปรแกรมสำเร็จรูป VBA ขึ้น เพื่อช่วยในการคำนวณ โดยผู้วิจัยได้สรุปผลดังต่อไปนี้ 4.1 ผลการออกแบบ และพัฒนาขั้นตอนการทำงานของโปรแกรมสำเร็จรูป VBA 4.2 ผลการออกแบบ และพัฒนาฐานข้อมูลการทำงานของโปรแกรมสำเร็จรูป VBA 4.3 ผลจากการทดลองใช้โปรแกรมสำเร็จรูป VBA 4.1 ผลการออกแบบ และพัฒนาขั้นตอนการทำงานของโปรแกรมสำเร็จรูป VBA หลังจากผู้วิจัยศึกษาถึงปัญหาในการจัดเรียงสินค้าบนขนาดพาเลทใหม่ ภายในคลังสินค้าของ บริษัทกรณีศึกษา โดยมีความจำเป็นอย่างมากที่ต้องมีการกำหนดมาตรฐานในการจัดเรียงสินค้าบนพา เลท ผู้วิจัยจึงออกแบบขั้นตอนการคำนวณของโปรแกรมสำเร็จรูป VBA และนำมาลองเขียนโค๊ด จากนั้นนำที่เขียนขึ้นมาลองใช้กับสินค้าภายในคลังเพื่อทดสอบเพื่อจะได้นำจุดบกพร่องมาปรับปรุงแก้ ไช เพื่อให้การทำงานของโค๊ดที่เขียนขึ้นตอบสนองความต้องการของผู้ใช้งาน 4.2 ผลการออกแบบ และพัฒนาฐานข้อมูลการทำงานของโปรแกรมสำเร็จรูป VBA จากผลการทดลองเขียนสมการ และออกแบบขั้นตอนการทำงานของโปรแกรมสำเร็จรูป VBA ทำให้มีหน้าตาของ Userform ที่รับข้อมูลเข้า และตารางแสดงผลดังนี้ 4.2.1 หน้าตา Userform ที่รับข้อมูลเข้า ประกอบด้วย 4 ส่วนหลักๆ ส่วนที่ 1 ข้อมูลของสินค้า - ความกว้าง - ความยาว - ความสูง - น้ำหนัก ส่วนที่ 2 ข้อมูลของพาเลท ภาพที่ 3.4 ขั้นตอนการใช้งาน VBA
41 - ความกว้าง - ความยาว - ความสูง - น้ำหนัก ส่วนที่ 3 เงื่อนไขเพิ่มเติม - น้ำหนักสูงสุดที่พาเลทรับได้ - สินค้าสามารถวางซ้อนได้ไม่เกินกี่ชั้น ส่วนที่ 4 หน่วยของสินค้า - ขวด - ยาฉีด - หลอด - กล่อง ส่วนอื่นๆก็จะประกอบด้วย - ชื่อของสินค้า - สถานที่จัดเก็บ - ปุ่มคำนวณ - ปุ่มปิดหน้าต่าง ภาพที่ 4.1 หน้าตา Userform ที่รับเพิ่มเนื้อหาและรูปแบบการมใช้งาน 4.2.2 ตารางแสดงผล ประกอบ ด้วย 7 ปัจจัย คือ 1 ชื่อของสินค้า 2 สถานที่เก็บ
42 3 จำนวนที่วางได้ในหนึ่งชั้น 4 จำนวนชั้นสูงสุดที่วางได้บนพาเลท 5 จำนวนสูงสุดที่วางได้ต่อหนึ่งพาเลท 6 น้ำหนักทั้งหมดต่อหนี่งพาเลท 7 หน่วยของสินค้าฃ ภาพที่ 4.2 ตารางแสดงผล 4.3 ผลจากการทดลองใช้โปรแกรมสำเร็จรูป VBA การวิจัยครั้งนี้ผู้วิจัยเลือกศึกษาสินค้าเป็นยาประเภท ควบคุม ขององค์การเภสัชกรรม คลัง 1 แผนกสำรองผลิตภัณฑ์องค์การ ซึ่งสินค้าที่ ใช้ในการวิจัยครั้งนี้มีทั้งหมด 24 ตัว จากสินค้าทั้งหมด 490 ตัว จากการศึกษาครั้งนี้ผู้วิจัยได้ทำการศึกษาเกี่ยวกับการคำนวณปริมาตรสูงสุดในการวางสินค้า บนพาเลท เพื่อเป็นตัวช่วยในการตัดสินใจว่าควรจะวางอย่างไร เพื่อไขปัญหาที่เกิดขึ้นในปัจจุบัน คือ ขณะที่มีการเปลี่ยนขนาดพาเลทยังไม่มีการคำนวณการวางว่าจะวางบนพาเลทได้เท่าไหร่เนื่องจากยังมี การวางแบบเดิมอยู่ 4.3.1 ข้อมูลของสินค้า ก่อนทำการทดลองใช้โค๊ดโปรแกรมสำเร็จรูป VBA ที่เขียนขึ้น ผู้วิจัยได้เก็บข้อมูลของ สินค้าเป็นยาประเภท ควบคุม ขององค์การเภสัชกรรม คลัง 1 แผนกสำรองผลิตภัณฑ์องค์การ ทั้งหมด 24 ตัว โดยมีจำนวนสินค้าทั้งหมด 490 ตัว และโซนของสินค้า ลำดับ Zone Product 1 F01 AMITRIPTYLINE HCL 10 mg แผง FOIL 2 AMITRIPTYLINE HCL 25 mg แผง FOIL 3 HALOPERIDOL 2 mg 4 HALOPERIDOL 5 mg ตารางที่ 4.1 ชื่อของสินค้าและโซนของสินค้า
43 ลำดับ Zone Product 5 F01 PREDNISOLONE 5 mg 6 F02 RISPERIDONE 1 mg/ml 7 F04 TRIFLAZINE 5 mg 8 F05 LORSARTAN POTASSIUM 50 mg (LORSARTAN GPO 50) 9 LORSARTAN POTASSIUM 100 mg (LORSARTAN GPO 100) 10 RISPERIDONE 1 mg จิตเวช 11 RISPERIDONE 2 mg จิตเวช 12 F09 CHLORPHENIRAMINE MALEATE SYRUP 2mg/5ml 13 F14 SIBANNAC CBD OIL 10 ml 14 SIBANNAC THC OIL 5 ml 15 SIBANNAC THC FORTE CANNABIS OIL 10 ml 16 SIBANNAC THC:CBD OIL 5 ml 17 SILDENAFIL TABLET 50 mg (SIDEGRA) 18 SILDENAFIL TABLET 100 mg (SIDEGRA) 19 DIAZIPAM INJECTION 10mg/2ml (ampule) 20 F16 DIAZIPAM 2 mg 21 DIAZIPAM 5 mg ตารางที่ 4.1 ชื่อของสินค้าและโซนของสินค้า (ต่อ)
44 ตารางที่ 4.1 ชื่อของสินค้าและโซนของสินค้า (ต่อ) ลำดับ Zone Product 22 F16 DIAZIPAM 10 mg 23 PHENOBARBITONE 30 mg 24 PHENOBARBITONE 60 mg 4.3.2 ข้อมูลเฉพาะตัวของสินค้า ผู้วิจัยได้เก็บข้อมูลของสินค้าโดยการวัดขนาด ความกว้าง ความยาว และความสูง ของสินค้า เพื่อที่จะกำหนดปริมาณสินค้าในแต่ละพาเลท โดยนำมาทำการคำนวณหาค่าที่ตั้งเป็น มาตรฐานในโปรแกรมการจัดเรียงสินค้าบนพาเลท Dimension of Goods ที่ผู้วิจัยได้สร้างขึ้น ลำดับ Product ขนาดของสินค้า น้ำหนัก กว้าง ยาว สูง (กก.) 1 AMITRIPTYLINE HCL 10 mg แผง FOIL 30 46.5 19 3.1 2 AMITRIPTYLINE HCL 25 mg แผง FOIL 34 40.5 23.5 3.9 3 HALOPERIDOL 2 mg 26.5 32.5 13 2.8 4 HALOPERIDOL 5 mg 26.5 32.5 13 2.8 5 PREDNISOLONE 5 mg 19.5 24 9 1.5 6 RISPERIDONE 1 mg/ml 27 50.5 15.5 4.2 7 TRIFLAZINE 5 mg 19 44 15.5 4.3 ตารางที่ 4.2 ข้อมูลความกว้าง ความยาว และความสูงและน้ำหนักของสินค้า
45 ลำดับ Product ขนาดของสินค้า น้ำหนัก กว้าง ยาว สูง (กก.) 8 LOSARTAN POTASSIUM 50 mg (LORSARTAN GPO 50) 31 39 20 2.2 9 LOSARTAN POTASSIUM 100 mg (LORSARTAN GPO 100) 30 36.5 14 3.3 10 RISPERIDONE 1 mg จิตเวช 24 32 16.5 1.4 11 RISPERIDONE 2 mg จิตเวช 24 32 16.5 1.4 12 CHLORPHENIRAMINE MALEATE SYRUP 2mg/5ml 20.5 41.5 10.5 7.5 13 SIBANNAC CBD OIL 10 ml 19.5 24 25.5 1.4 14 SIBANNAC THC OIL 5 ml 17.5 21.5 8.5 1 15 SIBANNAC THC FORTE CANNABIS OIL 10 ml 19.5 24 9 1.4 16 SIBANNAC THC:CBD OIL 5 ml 17.5 21.5 8.5 1 17 SILDENAFIL TABLET 50 mg (SIDEGRA) 17.5 21.5 8.5 0.3 18 SILDENAFIL TABLET 100 mg (SIDEGRA) 20.5 24.5 9.5 0.5 19 DIAZEPAM INJECTION 10mg/2ml (ampule) 36 51.5 41 15.5 ตารางที่ 4.2 ข้อมูลความกว้าง ความยาว และความสูงและน้ำหนักของสินค้า (ต่อ
46 ลำดับ Product ขนาดของสินค้า น้ำหนัก กว้าง ยาว สูง (กก.) 20 DIAZEPAM 2 mg 26.5 32.5 13 2.5 21 DIAZEPAM 5 mg 30 36.5 14 4.8 22 DIAZEPAM 10 mg 30 36.5 14 4.8 23 PHENOBARBITONE 30 mg 20.5 24.5 9.5 2 24 PHENOBARBITONE 60 mg 19 44 15.5 3.7 ตารางที่ 4.2 ข้อมูลความกว้าง ความยาว และความสูงและน้ำหนักของสินค้า (ต่อ) 4.3.3 ทดลองใช้โปรแกรมในการเขียน หลังจากที่ได้ข้อมูลของสินค้าแล้ว ผู้วิจัยเลยได้ทำการทดลองใช้โค๊ดโปรแกรม สำเร็จรูป VBA ที่เขียนขึ้น และนำผลลัพธ์ที่ได้ออกมาเปรียบเทียบกับการวางแบบเก่าเนื่องจากยังไม่มี การคำนวณการวางใหม่เลยยังคงใช้การวางแบบเดิมถึงแม้จะมีการเปลี่ยนขนาดพาเลท โดยเรียงลำดับ ตามความที่ในการหยิบจากทฤษฎีพาเลโต้ เพื่อเป็นตัวเลือกในการตัดสินใจว่าควรจะวางไว้ที่โลเคชั่น ไหน ชื่อสินค้า รูปแบบ การจัด ชั้นที่ 1 วาง ได้เท่าไหร่ จำนวนชั้น สูงสุดที่วาง ได้ จำนวน ทั้งหมดที่ วางได้ น้ำหนัก ทั้งหมด (KG) DIAZIPAM INJECTION 10mg/2ml (ampule) เดิม 4 2 8 124 VBA 6 3 18 279 ตารางที่ 4.3 แสดงการเปรียบเทียบข้อมูลการจัดเรียงแบบเดิมและการวางแบบใช้โปรแกรมสำเร็จรูป VBA คำนวณออกมา
47 ชื่อสินค้า รูปแบบ การจัด ชั้นที่ 1 วางได้ เท่าไหร่ จำนวนชั้น สูงสุดที่ วางได้ จำนวน ทั้งหมดที่ วางได้ น้ำหนัก ทั้งหมด (KG) RISPERIDONE 1 mg จิตเวช เดิม 12 8 96 134.4 VBA 15 8 120 168 PHENOBARBITONE 60 mg เดิม 10 7 70 259 VBA 14 9 126 466.2 DIAZEPAM 5 mg เดิม 9 7 63 302.4 VBA 10 10 100 480 RISPERIDONE 2 mg จิตเวช เดิม 12 8 96 134.4 VBA 15 8 120 168 DIAZEPAM 10 mg เดิม 8 5 40 192 VBA 10 10 100 480 PHENOBARBITONE 30 mg เดิม 16 7 112 224 VBA 23 15 345 690 ตารางที่4.3 แสดงการเปรียบเทียบข้อมูลการจัดเรียงแบบเดิมและการวางแบบใช้โปรแกรมสำเร็จรูป VBA คำนวณออกมา (ต่อ)
48 ชื่อสินค้า รูปแบบ การจัด ชั้นที่ 1 วางได้ เท่าไหร่ จำนวนชั้น สูงสุดที่ วางได้ จำนวน ทั้งหมดที่ วางได้ น้ำหนัก ทั้งหมด (KG) SILDENAFIL TABLET 100 mg (SIDEGRA เดิม 16 14 224 112 VBA 23 15 345 172.5 DIAZEPAM 2 mg เดิม 9 7 63 157.5 VBA 13 11 143 357.5 CHLORPHENIRAMINE MALEATE SYRUP 2mg/5ml เดิม 10 10 100 750 VBA 14 10 140 Overloaded SILDENAFIL TABLET 50 mg (SIDEGRA) เดิม 25 15 375 112.5 VBA 31 17 527 158.1 LOSARTAN POTASSIUM 100 mg (LORSARTAN GPO 100) เดิม 8 9 72 237.6 VBA 10 10 100 330 ตารางที่4.3 แสดงการเปรียบเทียบข้อมูลการจัดเรียงแบบเดิมและการวางแบบใช้โปรแกรมสำเร็จรูป VBA คำนวณออกมา (ต่อ)
49 ชื่อสินค้า รูปแบบ การจัด ชั้นที่ 1 วางได้ เท่าไหร่ จำนวนชั้น สูงสุดที่ วางได้ จำนวน ทั้งหมดที่ วางได้ น้ำหนัก ทั้งหมด (KG) LOSARTAN POTASSIUM 50 mg (LORSARTAN GPO 50) เดิม 6 6 36 79.2 VBA 9 7 63 138.6 HALOPERIDOL 5 mg เดิม 9 9 81 226.8 VBA 13 11 143 400.4 AMITRIPTYLINE HCL 25 mg แผง FOIL เดิม 6 5 30 117 VBA 8 6 48 187.2 AMITRIPTYLINE HCL 10 mg แผง FOIL เดิม 6 5 30 93 VBA 8 7 56 173.6 HALOPERIDOL 2 mg เดิม 9 9 81 226.8 VBA 13 11 143 400.4 ตารางที่4.3 แสดงการเปรียบเทียบข้อมูลการจัดเรียงแบบเดิมและการวางแบบใช้โปรแกรมสำเร็จรูป VBA คำนวณออกมา (ต่อ)
50 ตารางที่4.3 แสดงการเปรียบเทียบข้อมูลการจัดเรียงแบบเดิมและการวางแบบใช้โปรแกรมสำเร็จรูป VBA คำนวณออกมา (ต่อ) ชื่อสินค้า รูปแบบ การจัด ชั้นที่ 1 วาง ได้เท่าไหร่ จำนวนชั้น สูงสุดที่วาง ได้ จำนวน ทั้งหมดที่ วางได้ น้ำหนัก ทั้งหมด (KG) PREDNISOLONE 5 mg เดิม 16 9 144 216 VBA 25 16 400 600 SIBANNAC THC:CBD OIL 5 ml เดิม 25 10 250 250 VBA 31 17 527 527 SIBANNAC THC FORTE CANNABIS OIL 10 ml เดิม 16 10 160 224 VBA 25 16 400 560 SIBANNAC THC OIL 5 ml เดิม 25 10 250 250 VBA 31 17 527 527 SIBANNAC CBD OIL 10 ml เดิม 16 5 80 112 VBA 25 5 125 175 TRIFLAZINE 5 mg เดิม 10 7 70 301 VBA 14 9 126 541.8
51 ชื่อสินค้า รูปแบบ การจัด ชั้นที่ 1 วาง ได้เท่าไหร่ จำนวนชั้น สูงสุดที่วาง ได้ จำนวน ทั้งหมดที่ วางได้ น้ำหนัก ทั้งหมด (KG) RISPERIDONE 1 mg/ml เดิม 6 8 48 201.6 VBA 8 9 72 302.4 ตารางที่4.3 แสดงการเปรียบเทียบข้อมูลการจัดเรียงแบบเดิมและการวางแบบใช้โปรแกรมสำเร็จรูป VBA คำนวณออกมา (ต่อ) จากตารางที่ 4.3 พบว่าจากสินค้าที่เลือกศึกษาจำนวน 24 ตัว มีสินค้าทั้งหมด 23 ตัว ที่ โปรแกรมสามารถคำนวณผลลัพธ์ออกมาได้ตามเงื่อนไขมีปริมาณการวางที่มากกว่าการวางแบบเดิม โดยมีการทดลองจัดเรียงโดยใช้การคำนวณผ่านโปรแกรมสำเร็จรูป VBA ในการตัดสินใจพบว่า สามารถ จัดเรียงสินค้าได้จริงตามผลลัพธ์ของการใช้โปรแกรม และมีสินค้า 1 ตัวที่ไม่สามารถคำนวณ ออกมาได้และขึ้น Overloaded เนื่องจากมีน้ำหนักที่เกินเงื่อนไขที่กำหนด ภาพที่ 4.3 การทดลองการเรียงสินค้า
52 4.3.4 ผลลัพธ์แสดงความแตกต่าง หลังจากใช้ชุดข้อมูลที่ได้มาเข้าไปคำนวณโดยใช้โค๊ดโปรแกรมสำเร็จรูป VBA ที่เขียน ขึ้น แล้วนำผลลัพธ์ที่ได้มาเปรียบเทียบกับการวางแบบเก่าว่าแบบไหนมีการวางที่ดีกว่ากันโดยนำ ปริมาณสูงสุดที่วางได้ต่อพาเลทมาลบกันแล้วนำไปหาร้อยละแสดงความแตกต่าง ชื่อสินค้า ความ แตกต่าง จำนวนที่ แตกต่าง ร้อยละ DIAZIPAM INJECTION 10mg/2ml (ampule) เพิ่มขึ้น 10 8−18 8 100=125 RISPERIDONE GPO-RISPERIDONE TAB1mg6x10's เพิ่มขึ้น 24 96−120 96 100=25 PHENOBARBITONE 60 mg เพิ่มขึ้น 56 70−126 70 100=80 DIAZEPAM 5 mg เพิ่มขึ้น 37 63−100 63 100=58.73 RISPERIDONE 2 mg จิตเวช เพิ่มขึ้น 24 96−120 96 100=25 DIAZEPAM 10 mg เพิ่มขึ้น 60 40−100 40 100=150 PHENOBARBITONE 30 mg เพิ่มขึ้น 233 112−345 112 100=208.04 SILDENAFIL TABLET 100 mg (SIDEGRA เพิ่มขึ้น 121 224−345 224 100=54.02 ตารางที่ 4.4 ตารางแสดงการเปรียบเทียบความแตกต่างและร้อยละ
53 ชื่อสินค้า ความ แตกต่าง จำนวนที่ แตกต่าง ร้อยละ DIAZEPAM 2 mg เพิ่มขึ้น 80 63−143 63 100=126.98 CHLORPHENIRAMINE MALEATE SYRUP 2mg/5ml เพิ่มขึ้น 40 คิดไม่ได้เนื่องจากไม่ตรงตาม เงื่อนไข SILDENAFIL TABLET 50 mg (SIDEGRA) เพิ่มขึ้น 152 375−527 375 100=40.53 LOSARTAN POTASSIUM 100 mg (LORSARTAN GPO 100) เพิ่มขึ้น 28 72−100 72 100=38.89 LOSARTAN POTASSIUM 50 mg (LORSARTAN GPO 50) เพิ่มขึ้น 27 36−63 36 100=75 HALOPERIDOL 5 mg เพิ่มขึ้น 62 81−143 81 100=76.54 AMITRIPTYLINE HCL 25 mg แผง FOIL เพิ่มขึ้น 18 30−48 30 100=60 AMITRIPTYLINE HCL 10 mg แผง FOIL เพิ่มขึ้น 26 30−56 30 100=86.67 ตาราที่ 4.4 ตารางแสดงการเปรียบเทียบความแตกต่างและร้อยละ (ต่อ)
54 ชื่อสินค้า ความ แตกต่าง จำนวนที่ แตกต่าง ร้อยละ HALOPERIDOL 2 mg เพิ่มขึ้น 62 81−143 81 100=76.54 PREDNISOLONE 5 mg เพิ่มขึ้น 256 144−400 144 100=177.78 SIBANNAC THC:CBD OIL 5 ml เพิ่มขึ้น 277 250−527 250 100=110.8 SIBANNAC THC FORTE CANNABIS OIL 10 ml เพิ่มขึ้น 240 160−400 160 100=150 SIBANNAC THC OIL 5 ml เพิ่มขึ้น 277 250−527 250 100=110.8 SIBANNAC CBD OIL 10 ml เพิ่มขึ้น 45 80−125 80 100=56.25 TRIFLAZINE 5 mg เพิ่มขึ้น 56 70−126 70 100=80 RISPERIDONE 1 mg/ml เพิ่มขึ้น 24 48−72 48 100=50 ตาราที่ 4.4 ตารางแสดงการเปรียบเทียบความแตกต่างและร้อยละ (ต่อ) จากตารางที่ 4.4 พบว่ามีค่าเฉลี่ยของสินค้าเพิ่มขึ้นอยู่ที่ร้อยละ 86.77 ต่อพาเลท ซึ่งสินค้าที่มี การเพิ่มของร้อยละมากที่สุดคือ PHENOBARBITONE 30 mg มีจำนวนที่ต่างอยู่ที่ 233 คิดเป็นร้อย ละ 208.04 ต่อมาร้อยละมากที่สุดรองลงมาคือ PREDNISOLONE 5 mg มีจำนวนที่ต่างอยู่ที่ 256 คิด เป็นร้อยละ 177.78 ต่อมาร้อยละมากที่สุดรองลงมาคือ DIAZEPAM 10 mg มีจำนวนที่ต่างอยู่ที่ 60 คิดเป็นร้อยละ 150 ต่อมาร้อยละมากที่สุดรองลงมาคือ SIBANNAC CBD OIL 10 ml มีจำนวนที่ต่าง อยู่ที่ 240 คิดเป็นร้อยละ 150 ต่อมาร้อยละมากที่สุดรองลงมาคือ DIAZEPAM 2 mg มีจำนวนที่ต่าง
55 อยู่ที่ 80 คิดเป็นร้อยละ 126.98 ต่อมาร้อยละมากที่สุดรองลงมาคือ DIAZIPAM INJECTION 10mg/2ml (ampule) มีจำนวนที่ต่างอยู่ที่ 10 คิดเป็นร้อยละ 125 ต่อมาร้อยละมากที่สุดรองลงมา คือ SIBANNAC THC:CBD OIL 5 ml และ SIBANNAC THC OIL 5 ml มีจำนวนที่ต่างเท่ากันอยู่ที่ 277 คิดเป็นร้อยละ 110.8 ต่อมาร้อยละมากที่สุดรองลงมาคือ AMITRIPTYLINE HCL 10 mg แผง FOIL มีจำนวนที่ต่างอยู่ที่ 26 คิดเป็นร้อยละ 86.67 ต่อมาร้อยละมากที่สุดรองลงมาคือ PHENOBARBITONE 60 mg และ TRIFLAZINE 5 mg มีจำนวนที่ต่างเท่ากันอยู่ที่ 56 คิดเป็นร้อยละ 80 ต่อมาร้อยละมากที่สุดรองลงมาคือ HALOPERIDOL 5 mg และ HALOPERIDOL 2 mg มีจำนวน ที่ต่างเท่ากันอยู่ที่ 62 คิดเป็นร้อยละ 76.54 ต่อมาร้อยละมากที่สุดรองลงมาคือ LOSARTAN POTASSIUM 50 mg (LORSARTAN GPO 50) มีจำนวนที่ต่างอยู่ที่ 27 คิดเป็นร้อยละ 75 ต่อมาร้อย ละมากที่สุดรองลงมาคือ AMITRIPTYLINE HCL 25 mg แผง FOIL มีจำนวนที่ต่างอยู่ที่ 18 คิดเป็น ร้อยละ 60 ต่อมาร้อยละมากที่สุดรองลงมาคือ DIAZEPAM 5 mg มีจำนวนที่ต่างอยู่ที่ 37 คิดเป็นร้อย ละ 58.73 ต่อมาร้อยละมากที่สุดรองลงมาคือ SIBANNAC CBD OIL 10 ml มีจำนวนที่ต่างอยู่ที่ 45 คิดเป็นร้อยละ 56.25 ต่อมาร้อยละมากที่สุดรองลงมาคือ SIBSILDENAFIL TABLET 100 mg (SIDEGRA) มีจำนวนที่ต่างอยู่ที่ 121 คิดเป็นร้อยละ 54.02 ต่อมาร้อยละมากที่สุดรองลงมาคือ RISPERIDONE 1 mg/ml มีจำนวนที่ต่างอยู่ที่ 24 คิดเป็นร้อยละ 50 ต่อมาร้อยละมากที่สุดรองลงมา คือ SILDENAFIL TABLET 50 mg (SIDEGRA) มีจำนวนที่ต่างอยู่ที่ 152 คิดเป็นร้อยละ 40.53 ต่อมา ร้อยละมากที่สุดรองลงมาคือ CHLORPHENIRAMINE MALEATE SYRUP 2mg/5ml มีจำนวนที่ต่าง อยู่ที่ 40 คิดเป็นร้อยละ 40 ต่อมาร้อยละมากที่สุดรองลงมาคือ LOSARTAN POTASSIUM 100 mg (LORSARTAN GPO 100) มีจำนวนที่ต่างอยู่ที่ 28 คิดเป็นร้อยละ 38.89 ต่อมาร้อยละน้อยที่สุด คือ RISPERIDONE GPO-RISPERIDONE TAB1mg6x10's และ RISPERIDONE 2 mg จิตเวช มีจำนวนที่ ต่างเท่ากันอยู่ที่ 24 คิดเป็นร้อยละ 25 เนื่องจาก CHLORPHENIRAMINE MALEATE SYRUP 2mg/5ml มีการคำนวณออกมาแล้ว ไม่เข้าเงื่อนไขแล้วทำให้ขึ้น Overloaded การเปรียบเทียบจึงไม่เป็นผล เพราะค่าที่แสดงออกมายังไม่ ถูกต้อง เนื่องจากสินค้ายังไม่มีการคำนวณใหม่ ขณะ ที่มีเริ่มมีการเปลี่ยนพาเลทไปแล้ว ทำให้สินค้า ทุกตัวยังมีการวางแบบเดิมจึงไม่สามารถใช้ประสิทธิภาพของพาเลทได้เต็มที่ ทำให้ผลลัพธ์ที่ได้จากการ ใช้โค๊ดโปรแกรมสำเร็จรูป VBA คำนวณมีปริมาณการวางที่มากกว่าแบบเก่า
บทที่ 5 สรุปผลการวิจัย อภิปราย และข้อเสนอแนะ ในการประยุกต์ใช้โปรแกรมสำเร็จรูป VBA ในการคำนวณบรรจุภัณฑ์สินค้าบนพาเลท กรณีศึกษาองค์การเภสัชกรรม ผลการศึกษาพบว่า การนำโปรแกรมสำเร็จรูป VBA มีวัตถุประสงค์เพื่อ เพื่อสร้างชุดคำสั่งที่สามารถตอบสนองความต้องการขององค์กรได้ โดยที่ทำให้สามารถคำนวณจำนวน กล่องบนพาเลทออกมาได้มีประสิทธิภาพและแม่นยำที่สุดภายใต้เงื่อนไขของสินค้า เข้ามาใช้นั้น สามารถช่วยในการตัดสินใจวางบรรจุภัณฑ์ได้ โดยสรุปสาระสำคัญไว้ดังนี้ 5.1 สรุปผลการดำเนินงาน 5.1.1 สรุปผลการทำงานของโปรแกรมสำเร็จรูป VBA สรุปผลจากการดำเนินงานของวิจัยดังกล่าว ทำให้สร้างชุดคำสั่งที่สามารถกรอกข้อมูลเพื่อใช้ ในการคำนวณข้อมูลออกมาและแสดงผลออกมาในรูปแบบของตารางทำให้ง่ายต่อการค้นหาและดู สินค้า ซึ่งผลที่แสดงออกมาจะมี ชื่อสินค้า สถานที่จัดเก็บ จำนวนในการวางบนชั้นแรก จำนวนชั้น สูงสุดที่สามารถวางได้ น้ำหนักสินค้าทั้งหมด หน่วยของสินค้า โดยผลที่ออกมาจะมาจากการคำนวณ โดยที่เริ่มจากการหารพื้นที่ของบรรจุภัณฑ์และพาเลท หลังจากนั้นนำพื้นที่ของพาเลทตั้งหาร ด้วยพื้นที่ของบรรจุภัณฑ์ ก็จะได้ปริมาณสูงสุดที่วางได้บนพาเลทในหนึ่งชั้น จากนั้นหาจำนวนชั้นมากที่สุดที่สามารถนำเข้า rack ได้ โดยการนำ ( hi สูงสุดที่สามารถ นำเข้า rack ได้ – (ความสูงบรรจุภัณฑ์ + ความสูงพาเลท)) ทั้งหมดหารด้วย ความสูงบรรจุภัณฑ์ แล้ว บวกด้วย 1 ก็จะได้จำนวนชั้นสูงสุดที่สามารถวางได้ จากนั้นนำ ปริมาณสูงสุดที่วางได้บนพาเลทในหนึ่งชั้น x จำนวนชั้นสูงสุดที่สามารถวางได้ จะ ได้ปริมาณสูงสุดที่สามารถวางได้ต่อหนึ่งพาเลท ท้ายที่สุดนำ ปริมาณสูงสุดที่สามารถวางได้ต่อหนึ่งพาเลท x น้ำหนักสินค้าต่อหนึ่งบรรจุภัณฑ์ จะได้น้ำหนักทั้งหมดของสินค้าต่อหนึ่งพาเลท โดยที่น้ำหนักทั้งหมดของสินค้าต่อหนึ่งพาเลทจะต้องไม่เกินน้ำหนักที่พาเลทรับได้ และ จำนวนชั้นสูงสุดที่สามารถวางได้ จะต้องไม่เกิน hi สูงสุดที่สามารถนำเข้า rack ได้ 5.1.2 สรุปผลจากการใช้โปรแกรมจำลอง VBA จากการที่ได้ทดลองใช้โปรแกรมจำลอง VBA ในการคำนวณสินค้านั้นมีการนำไปเปรียบเทียบ กับการวางแบบเก่า ซึ่งสินค้าที่มีการวางได้เพิ่มมากสุด 3 อันดับแรก คือ
57 ลำดับ ชื่อสินค้า ร้อยละ 1 PHENOBARBITONE 30 mg 208.04 2 PREDNISOLONE 5 m 177.78 3 DIAZEPAM 10 mg 150 ตารางที่ 5.1 สินค้าที่มีการวางได้เพิ่มมากสุด 3 อันดับแรก และการวางได้เพิ่มได้น้อยสุด 3 อันดับท้าย คือ ลำดับ ชื่อสินค้า ร้อยละ 1 LOSARTAN POTASSIUM 100 mg (LORSARTAN GPO 100) 38.89 2 RISPERIDONE GPO-RISPERIDONE TAB1mg6x10's 25 3 RISPERIDONE 2 mg 25 ตารางที่ 5.2 สินค้าที่มีการวางได้เพิ่มได้น้อยสุด 3 อันดับท้าย และมีสินค้าหนึ่งตัวที่คำนวณออกมาแล้วมีค่าแสดงว่า Overloaded คือ CHLORPHENIRAMINE MALEATE SYRUP 2mg/5ml สาเหตุที่แสดงผลออกมาแบบนี้ก็เพราะว่า น้ำหนักรวมทั้งหมดของ สินค้าต่อพาเลทเกินเกณฑ์ที่พาเลทจะสามารถรับได้ วิธีแก้ไขคือลบบรรจุภัณฑ์ออกไปทีละชิ้นจนกว่า น้ำหนักของสินค้าทั้งหมดจะไม่เกินที่พาเลทรับไหวด้วยตนเอง 5.2 ข้อจำกัดในการศึกษา 1) มีระยะเวลาในการศึกษาและดำเนินการศึกษารายงานวิจัยน้อย โดยมีระยะเวลาเพียง 4 เดือน ตั้งแต่เดือน กรกฎาคม ถึง เดือนตุลาคม พ.ศ. 2566 2) การขอข้อมูลนั้นสามารถขอข้อมูลได้ยาก เนื่องจากข้อมูลบางอย่างไม่สามารถเปิดเผยได้ 3) การศึกษาวิธีการใช้เครื่องมือนั้นยากเนื่องจากเป็นเรื่องที่ต้องมีความรู้เฉพาะทางใน ระดับนึงทำให้โปรแกรมจำลองที่เขียนออกมานั้นยังมีข้อผิดพลาดอยู่
58 5.3 ข้อเสนอแนะ ในการประยุกต์ใช้โปรแกรมสำเร็จรูป VBA ในการคำนวณบรรจุภัณฑ์สินค้าบนพาเลท กรณีศึกษาองค์การเภสัชกรรม แม้ว่าผลลัพธ์ที่ได้นั้นเป็นไปตามวัตถุประสงค์แล้วก็ตาม แต่การที่จะทำ ให้วิจัยนี้สมบูรณ์แบบมากขึ้น ต้องเพิ่มสิ่งต่างๆดังนี้ 1)ควรมีการเพิ่มช่องเงื่อนไขเรื่อง Hi ตามความสูงของแร็คในแต่ละโลเคชั่น เนื่องจากวิจัยชิ้น นี้สร้างเพื่อคำนวณความจุในการวางเนื่องจากการเปลี่ยนขนาดพาเลทเพื่อไปทึ่คลังรังสิตจึงมีการ กำหนด Hi แบบตายตัวในสูตรไว้ที่ 160 ซม. 2)ควรมีการเพิ่มคำสั่งการทำซ้ำในส่วนของการคำนวณที่น้ำหนักเกินที่พาเลท เมื่อมีการ คำนวณออกมาแล้วพบว่าเกินจะต้องมีการลบจำนวนของบรรจุภัณฑ์ออกไปทีละชิ้นจนกว่าน้ำหนัก ของสินค้าทั้งหมดจะไม่เกินน้ำหนักที่พาเลทสามารถรับได้ เพราะโค๊ดที่ใช้กับวิจัยนี้เวลาคำนวณออก มาแล้วเกินยังต้องมานั่งลบเองออกไปบางส่วน
59 บรรณานุกรม ณภัสณรรฑ์ วงษ์สมาจารย์.2560.การประยุกต์ใช้ระบบการบริหารสินค้าคงคลังร่วมกันโดย ผู้ขาย (VMI) ในอุตสาหกรรมอิเล็กทรอนิกส์กรณีศึกษาโรงงานผลิตอินเวอร์เตอร์ วิทยานิพนธ์วิศวกรรมศาสตร์มหาบัณฑิต สาขาวิชาการจัดการทางวิศวกรรม ภาควิชา วิศวกรรมอุตสาหการ บัณฑิตวิทยาลัย มหาวิทยาลัยธรรมศาสตร์. ธันว์ระวี สุวรรณหงษ์.2560.การจัดการสินค้าคงคลัง เพื่อลดจำนวนการขนส่งในกรณี เร่งด่วน กรณีศึกษา บริษัทผลิตเลนส์แว่นตา.วิทยานิพนธ์วิศวกรรมศาสตร์ มหาบัณฑิต สาขาวิชาการพัฒนางานอุตสาหกรรม ภาควิชาวิศวกรรมอุตสาหการ บัณฑิต วิทยาลัย มหาวิทยาลัยธรรมศาสตร์. นภัสสร สกุลประดิษฐ์.2560.การจัดการสินค้าคงคลังในโรงงานผลิต และกระจายสินค้าแช่ แข็ง.วิทยานิพนธ์วิศวกรรมศาสตร์มหาบัณฑิต สาขาวิชาการพัฒนางานอุตสาหกรรม ภาควิชาวิศวกรรมอุตสาหการ บัณฑิตวิทยาลัย มหาวิทยาลัยธรรมศาสตร์. ปิยะวัฒน์ จิรเทียนธรรม.2560. ชุดคำสั่งสำเร็จการวิเคราะห์สถานภาพพลังงานเพื่อ วางแผนพลังงานระดับชุมชน.วิทยานิพนธ์วิทยาศาสตร์มหาบัณฑิต สาขาวิชาการ พัฒนางานอุตสาหกรรม ภาควิชาวิศวกรรมอุตสาหการ บัณฑิตวิทยาลัย มหาวิทยาลัยธรรมศาสตร์. พิศาล สีนวล.2559.การใช้โปรแกรมทางคณิตศาสตร์สำหรับแก้ปัญหาจัดสรรทรัพยากร เพื่อลดเวลาในการวางแผนการผลิต.วิทยานิพนธ์วิศวกรรมศาสตร์มหาบัณฑิต วิชา เทคโนโลยีเพื่อการพัฒนายั่งยืน คณะวิทยาศาสตร์และเทคโนโลยีบัณฑิตวิทยาลัย มหาวิทยาลัยธรรมศาสตร์. มานิต ทินกุล.2564.แผนธุรกิจ คลังสินค้าให้เช่าในพื้นที่ EEC.วิทยานิพนธ์บริหารธุรกิจ มหาบัณฑิต คณะพาณิชย์ศาสตร์และการบัญชี บัณฑิตวิทยาลัย มหาวิทยาลัยธรรมศาสตร์. ศิริรัตน์ แต้ปีติกุล.2563.แผนธุรกิจจัดสร้างศูนย์กลางกระจายยาและจัดส่งยาให้ร้านยา. วิทยานิพนธ์บริหารธุรกิจมหาบัณฑิต คณะพาณิชย์ศาสตร์และการบัญชี บัณฑิตวิทยาลัย มหาวิทยาลัยธรรมศาสตร์.
60 ศิโรวัลลิ์ ยินดี.2557.การประยุกต์แนวความคิดการบริหารสินค้าคงคลังระบบ VMI เพื่อ เพิ่มประสิทธิภาพคลังสินค้าโรงงานตัวอย่าง.วิทยานิพนธ์วิศวกรรมศาสตร์มหาบัณฑิต สาขาวิชาการพัฒนางานอุตสาหกรรม ภาควิชาวิศวกรรมอุตสาหการคณะวิศวกรรมศาสตร์ บัณฑิตวิทยาลัย มหาวิทยาลัยธรรมศาสตร์. อภิวัฒน์ ตั้งวราภรณ์.2563.การศึกษาความเป็นไปได้ในการใช้ RFID เพื่อป้องกันการ ปลอมปนในระบบหมุนเวียนพาเลท.วิทยานิพนธ์วิศวกรรมศาสตร์มหาบัณฑิตสาขาวิชา การพัฒนางานอุตสาหกรรม ภาควิชาวิศวกรรมอุตสาหการคณะวิศวกรรมศาสตร์ บัณฑิต วิทยาลัย มหาวิทยาลัยธรรมศาสตร์.
61 ประวัติผู้ศึกษา ชื่อ - สกุล นายณฐาภพ กลิ่นนาค วันเดือน ปี ที่เกิด วันที่ 18 มกราคม พ.ศ. 2545 ภูมิลำเนา 1222/395 หมู่บ้านศุภาลัยการ์ เด้นวิลล์รังสิตคลอง2 ถนน เรียบ คลองรังสิต ตำบล ประชาธิปัตย์ อำเภอ ธัญบุรี จังหวัด ปทุมธานี 12130 ประวัติการศึกษา: ระดับมัธยมศึกษาตอนต้น: โรงเรียนหอวัง จังหวัดกรุงเทพฯ ระดับมัธยมศึกษาตอนปลาย: โรงเรียนหอวัง จังหวัดกรุงเทพฯ ระดับอุดมศึกษา: ปริญญาตรี บริหารธุรกิจบัณฑิต หลักสูตรการจัดการโลจิสติกส์และซัพพลายเชน คณะบริหารธุรกิจ มหาวิทยาลัยเทคโนโลยีราชมงคลธัญบุรี รูปภาพ หน้าตรง ชุดนักศึกษา
62 ภาคผนวก ก 1. ภาษา VB ที่ผู้วิจัยใช้ในการเขียนโค๊ดโปรแกรมสำเร็จรูป VBA 1 Private Sub CommandButton1_Click() 2 Dim gwidght As Double 3 Dim glenght As Double 4 Dim gheight As Double 5 Dim gweight As Double 6 Dim gresult1 As Double 7 Dim pwidght As Double 8 Dim plenght As Double 9 Dim pheight As Double 10 Dim pweight As Double 11 Dim presult2 As Double 12 Dim result3 As Double 13 Dim result33 As String 14 Dim result4 As String 15 Dim result5 As String 16 Dim result6 As Double 17 Dim result66 As String 18 Dim cmax As Double 19 Dim cstack As Double 20 Dim valueA As Double 21 22 Dim location As String 23 Dim resultoption As String 24 25 gwidght = CDbl(Me.TextBox2.Value)
63 26 glenght = CDbl(Me.TextBox3.Value) 27 gheight = CDbl(Me.TextBox4.Value) 28 gweight = CDbl(Me.TextBox5.Value) 29 pwidght = CDbl(Me.TextBox6.Value) 30 plenght = CDbl(Me.TextBox7.Value) 31 pheight = CDbl(Me.TextBox8.Value) 32 pweight = CDbl(Me.TextBox9.Value) 33 cmax = CDbl(Me.TextBox10.Value) 34 cstack = CDbl(Me.TextBox11.Value) 35 location = UserForm1.TextBox12.Value 36 goodsname = UserForm1.TextBox1.Value 37 If OptionButton1.Value = True Then 38 resultoption = "Bottle" 39 ElseIf OptionButton2.Value = True Then 40 resultoption = "Injection" 41 ElseIf OptionButton3.Value = True Then 42 resultoption = "Tube" 43 ElseIf OptionButton4.Value = True Then 44 resultoption = "Box" 45 End If 46 gresult1 = gwidght * glenght 47 presult2 = pwidght * plenght 48 result3 = presult2 / gresult1 49 result33 = CStr(Int(result3)) 50 51 valueA = ((160 - (gheight + pheight)) / gheight) + 1 52 53 If valueA <= cstack Then 54 result4 = CStr(Int(valueA))
64 55 Else: result4 = cstack 56 End If 57 58 result5 = CStr(Int(result33 * result4)) 59 60 If result5 * gweight <= cmax Then 61 result6 = result5 * gweight 62 Else: result66 = "verloaded" 63 End If 64 65 Set ws = ThisWorkbook.Sheets("Sheet1") 66 Set tbl = ws.ListObjects("Table1") 67 Set newRow = tbl.ListRows.Add 68 69 newRow.Range(1, 1).Value = goodsname 70 newRow.Range(1, 2).Value = location 71 newRow.Range(1, 3).Value = result33 72 newRow.Range(1, 4).Value = result4 73 newRow.Range(1, 5).Value = result5 74 newRow.Range(1, 6).Value = result6 & result66 75 newRow.Range(1, 7).Value = resultoption 76 End Sub 77 78 Private Sub CommandButton2_Click() 79 Unload UserForm1 80 End Sub
65 2. แผนผังการประมวลผลภายในการทำงานของโปรแกรมสำเร็จรูป VBA Start คุณสมบัติของบรรจุภัณฑ์ ความ กว้าง ความยาว ความสูง น้ำหนัก กว้าง × ยาว = พื้นที่ของบรรจุภัณฑ์ พื้นที่ของพาเลท พื้นที่ของบรรจุภัณฑ์ = จำนวนบรรจุภัณฑ์ในชั้นแรก [ สูงสุดที่สามารถน าเข้า ได้−(ความสูงสินค้า+ความสูงพาเลท) ความสูงสินค้า ] +1 ∩ เงื่อนไขในการวางซ้อนกันของบรรจุภัณฑ์ และน้ำหนักสูงสุดที่พาเลทรับได้ จำนวนชั้นสูงสุดที่วางได้× จำนวนบรรจุภัณฑ์ในชั้นแรก = จำนวนบรรจุภัณฑ์ทั้งหมดที่วางได้ต่อหนึ่งพาเลท
66 3.ขั้นตอนในการใช้งานโปรแกรมสำเร็จรูป VBA Start วัดความกว้าง ความยาว ความสูงของบรรจุภัณฑ์ น ้าหนักสินของสินค้าและพาเลท น าข้อมูลที่หามาใส่ในช่องข้อมูลของ Userform ที่สร้างไว้ หาเงื่อนไขในการวาง เรื่องการวางซ้อนกันสูงสุดใน เงื่อนไขของบรรจุภัณฑ์ น ้าหนักสูงสุดที่พาเลทรับได้ ความสูงที่สามารถน าพาเลทเข้า rack ได้ กด run เพื่อให้ข้อมูลการค านวณออกมา พนักงานน าข้อมูลไปเป็นข้อมูลใน การตัดสินใจ
67 ภาคผนวก ข
68
69
70
71
72
73
74
75