โปรแกรมบันทึกข้อมูลผู้ประสบอุทกภัย

[palmy]

รบกวนอาจารย์ช่วยเหลือด่วนครับ เพื่อใช้บันทึกรายชื่อผู้ประสบอุกทกภัย

[snasui]

ต้องขออภัยที่จะบอกว่าคงจะด่วนไม่ได้ครับ

ผมดูแล้วคงต้องปรับเรื่องการบันทึกข้อมูล สิ่งที่น่าจะต้องเพิ่มคือสถานะของคนนั้น ๆ ว่าเป็นผู้ติดตามหรือเป็นสมาชิกในครอบครัว การกำหนดผู้ติดตามเป็นต้วเลขว่า 1, 2 ฯลฯ จะไม่สามารถทราบได้ว่าบุคคลที่ระบุว่าเป็นผู้ติดตามนั้นรหัสใด รหัสครอบครัวใด เป็นต้น

การสรุปเป็นรายงานต่าง ๆ หากเป็นไปได้ให้ใช้ PivotTable มาช่วยครับ

[palmy]

คงต้องรบกวนอาจารย์ด้วยครับ ตอนนี้รายชื่อผู้ประสบภัยที่เข้ามาพักเพิ่มขึ้นมาก
ผู้ประสบภัยบางท่าน รายชื่อตกหล่นหายไป .....
ในส่วนหน้าเมนู ถ้ามีการแจ้งเตือนว่ามีรายชื่อผู้เข้าพักนี้แล้ว มีแจ้งให้ทราบก่อนแก้ไขหรือบันทึก
ก็จะดีมากเลยครับ
ขอขอบพระคุณล่วงหน้าครับ

[snasui]

ผมเขียนตัวอย่าง Code สำหรับการสร้างรหัส, การเพิ่ม Record, การปรับปรุง, การ Clear Data มาให้แล้ว

สำหรับการบันทึกให้บันทึกเป็นครอบครัวไปครับ กรณีเป็นการเพิ่มข้อมูลใหม่ ให้คีย์ข้อมูลในช่องที่ไม่ได้ระบายสีจากนั้นคลิกปุ่ม สร้างรหัส แล้วค่อยคลิกปุ่ม เพิ่มรายการ ดูไฟล์แนบประกอบครับ

[palmy]

เรียนอาจารย์ครับ
ทดลองนำมาใช้แล้ว มีข้อเงื่อนไขเพิ่มเติมดังนี้ครับ
1.บางครั้งพนักงานจะทยอยพาผู้ติดตามมา ไม่ได้มาพร้อมกัน เมื่อมีการค้นหาข้อมูลเก่า ดึงข้อมูลมาแล้วเพิ่มผู้ติดตามสร้างเป็นรหัสครอบครัวเดียวกัน และคนละรหัสบัตร คนเดิมก็รหัสเดิมครับ
2.การค้นหา เมื่อค้นหาคนใดคนหนึ่ง สามารถเชื่อมโยงดึงข้อมูลทั้งครอบครัวออกมาเพื่อปรับปรุงรายการได้ไหมครับ เพราะ
การย้ายออก ในบางครั้งจะย้ายออกทั้งครอบครัว ก็จะสามารถแก้ไขรายการการย้ายออกได้
3.เมื่อบันทึกวันที่และเวลาย้ายออก พอจะทำเงื่อนไขให้มีรายชื่อผู้ย้ายออกมีข้อมูลไปปรากฎในอีก Sheet เป็นสรุปรายการผู้ที่ย้ายออก เช่นเดียวกับในSheet Database แต่ข้อมูลใน Sheet Database ก็ยังมีรายชื่อเช่นเดิมไม่ต้องลบ
4.ทั้งนี้ อยากเพิ่ม Sheet ผู้เข้าพักปัจจุบัน ที่มีลักษณะเช่นเดียวกับ Sheet Database ที่่จะมีเฉพาะผู้ที่พักอาศัยอยู่ ผู้ที่ย้ายออกก็สรุปใน Sheet ผู้ที่ย้ายออก สรุปคือ มี Sheet รายงาน 3 ตัว คือ Sheet Database ของอาจารย์ที่มีข้อมูลครบถ้วนทั้งหมด และมีเพิ่มเติมอีก 2 Sheet คือ ผู้เข้าพักปัจจุบัน และผู้ที่ย้ายออก ที่จะช่วยกรองข้อมูล โดยใช้เงื่อนไขเดียวกับข้อ 3 ครับ (บันทึกผู้เข้าพัก มีข้อมูลปรากฎใน Sheet Database และ ผู้เข้าพักปัจจุบัน เมื่อดึงข้อมูลมาปรับปรุงรายการที่มีการย้ายออก ก็มีข้อมูลปรากฎใน Sheet Database เช่นเดิม แต่ ในSheet ผู้เข้าพักปัจจุบันจะหายไป แล้วไปปรากฎใน Sheet ผู้ที่ย้ายออกแทน )
5. ถ้าอาจารย์พอมีเวลา ช่วยทำ Link ดึงข้อมูลผู้เข้าพักเป็นตัวเลขไปอยู่ใน Sheet Zone ครับ เพราะที่ง่ายในการตรวจสอบดูว่า Zoneใดมีที่ว่างให้ผู้เข้าพักน่ะครับ
ขอความกรุณาจากอาจารย์อีกครั้งนะครับ

[snasui]

จากที่ถามมาเกี่ยวกับบุคคลในครอบครัวเพิ่มเข้ามาทีหลังนั้น ผมเพิ่ม Code มาให้ตามด้านล่าง ให้สร้างปุ่มแล้ว Assign Macro เพิ่มเติมเข้ามาสำหรับกรณีนี้ครับ

Code: Select all

Sub AdditionalCode()
    Dim i As Integer, rt As Range
    Dim rs As Range, rtAll As Range
    Dim j As Integer, k As Integer
    With Sheets("Form")
        Set rtAll = .Range(.Range("C" & Rows.Count) _
            .End(xlUp).Offset(1, 0), .Range("E" & Rows.Count).End(xlUp) _
            .Offset(0, -2))
    End With
    With Sheets("Database")
        i = .Range("A" & Rows.Count).End(xlUp)
        j = .Range("B" & Rows.Count).End(xlUp)
    End With
    k = Sheets("Form").Range("C" & Rows.Count).End(xlUp)
    For Each rt In rtAll
        i = i + 1: j = j + 1
        rt.Offset(0, -2) = i
        rt.Offset(0, -1) = j
        rt = k
    Next rt
End Sub

การค้นหาครอบครัวจากรหัสของบุคคลให้ทำการค้นหาตามเลขที่บัตรก่อน แล้วดูว่าบุคคลนี้รหัสครอบครัวเป็นเลขใด จากนั้นค้นหาด้วยรหัสครอบครัวอีกรอบก็จะได้ข้อมูลตามต้องการ

ส่วนการทำรายงานอย่างที่บอกไปแล้วให้ทำด้วย PivotTable จะสามารถทราบได้ว่าใครยังไม่ย้าย ใครย้ายไปแล้ว ฯลฯ หรืออย่างง่ายที่สุดใช้การ Filter ข้อมูลที่ต้องการจากฐานข้อมูลโดยตรง จะได้ลดการเขียน Code

เนื่องจากผมกำลังจะเดินทางไปปฏิบัติงานต่างจังหวัดจึงไม่สามารถปรับปรุง Code ให้ได้ ถ้าปรับเองไม่ได้ก็ให้ Manual ไปก่อน ด้วยเงื่อนไขที่ค่อนข้างเยอะทั้งที่มีอยู่แล้วและจะเพิ่มเข้ามา อีกทั้งมีเวลาที่จำกัด ผมเห็นว่าไม่จำเป็นต้องทำให้สมบูรณ์ตามที่ต้องการไปทุกอย่าง จะเสียเวลาไปโดยใช่เหตุครับ

[bank9597]

เยี่ยมไปเลยครับ ปรับใช้ได้เยอะเลย