วันศุกร์ที่ 18 ตุลาคม พ.ศ. 2556

การสร้าง Drop down list และกำหนดเงื่อนไข ใน Excel 2010

เมื่อมีการใช้ Drop-down list ใน Excel เพื่อให้เลือกตัวเลือก เมื่อผู้ใช้เลือกแล้ว ให้จัดการบางอย่าง เช่น แสดงหรือซ่อนเซลล์ ดังตัวอย่างข้างล่างนี้

ในตัวอย่างข้างบน มีการสร้าง Drop-down list ที่เซลล์ G32 เพื่อให้ผู้ใช้เลือกว่า มีการแบ่งข้อคำถามของแบบสอบถามออกเป็นด้าน ๆ หรือไม่ เมื่อผู้ใช้เลือกว่า มีการแบ่งด้านออกเป็นด้าน ๆ ให้แสดงช่วงบรรทัดที่ 33-40 เพื่อให้กรอกข้อมูล แต่ถ้าผู้ใช้ระบุว่า ไม่มีการแบ่งช่วง ให้ซ่อนเซลล์ บรรทัดที่ 33-40

หลักการ

สร้าง Drop-down list โดยใช้ Data Validation จากนั้นเขียน VBA ของ Sheet ที่ใช้งาน ให้ตรวจสอบการเปลี่ยนแปลงในเซลล์ที่มี Drop-down list จากนั้นจึงกำหนดเงื่อนไขที่ต้องการ

การสร้าง Drop-down list
  1. คลิกที่เซลล์ที่ต้องการสร้าง ในตัวอย่างคือ G32
  2. ไปที่ ข้อมูล > การตรวจความถูกต้องของข้อมูล
  3. จะเปิดหน้าต่างการตรวจสอบความถูกต้องของข้อมูล ในแถบการตั้งค่า > อนุญาตให้:  ให้เลือก รายการ
  4. ในช่องแหล่งข้อมูลให้พิมพ์ตัวเลือกในรายการ คั่นด้วยเครื่องหมายคอมม่า ในตัวอย่าง จะให้เลือกว่า มี หรือไม่มี (มี,ไม่มี)
  5. กด ตกลง
การกำหนดเงื่อนไขเมื่อผู้ใช้เลือกตัวเลือกจาก Drop-down list
  1. กดปุ่ม Alt + F11 เพื่อเปิดหน้าต่าง การเขียนโค้ด
  2. คลิกเลือกแผ่นงานที่มี Drop-down list ที่สร้างขึ้น เพื่อเขียนโค้ดสำหรับแผ่นงานนี้
  3. เขียนโค้ด ต่อไปนี้
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$32" Then
    If Range("G32") = "ไม่มี" Then
        ActiveSheet.Rows("33:40").EntireRow.Hidden = True
    Else
        ActiveSheet.Rows("33:40").EntireRow.Hidden = Fasle
    End If
    End If
    End Sub
  4. บันทึกข้อมูล และกลับไปที่หน้าจอปกติ เมื่อมีการระบุว่าไม่มีข้อมูล แถวที่กำหนดจะถูกซ่อน ดังภาพ

ไม่มีความคิดเห็น:

แสดงความคิดเห็น