Page 1 of 1
โปรแกรมบันทึกข้อมูลผู้ประสบอุทกภัย
Posted: Wed Nov 02, 2011 9:56 pm
by palmy
Re: โปรแกรมบันทึกข้อมูลผู้ประสบอุทกภัย
Posted: Thu Nov 03, 2011 8:46 am
by snasui
ต้องขออภัยที่จะบอกว่าคงจะด่วนไม่ได้ครับ
ผมดูแล้วคงต้องปรับเรื่องการบันทึกข้อมูล สิ่งที่น่าจะต้องเพิ่มคือสถานะของคนนั้น ๆ ว่าเป็นผู้ติดตามหรือเป็นสมาชิกในครอบครัว การกำหนดผู้ติดตามเป็นต้วเลขว่า 1, 2 ฯลฯ จะไม่สามารถทราบได้ว่า
บุคคลที่ระบุว่าเป็นผู้ติดตามนั้นรหัสใด รหัสครอบครัวใด เป็นต้น
การสรุปเป็นรายงานต่าง ๆ หากเป็นไปได้ให้ใช้ PivotTable มาช่วยครับ
Re: โปรแกรมบันทึกข้อมูลผู้ประสบอุทกภัย
Posted: Thu Nov 03, 2011 9:27 am
by palmy
คงต้องรบกวนอาจารย์ด้วยครับ ตอนนี้รายชื่อผู้ประสบภัยที่เข้ามาพักเพิ่มขึ้นมาก
ผู้ประสบภัยบางท่าน รายชื่อตกหล่นหายไป .....
ในส่วนหน้าเมนู ถ้ามีการแจ้งเตือนว่ามีรายชื่อผู้เข้าพักนี้แล้ว มีแจ้งให้ทราบก่อนแก้ไขหรือบันทึก
ก็จะดีมากเลยครับ
ขอขอบพระคุณล่วงหน้าครับ
Re: โปรแกรมบันทึกข้อมูลผู้ประสบอุทกภัย
Posted: Thu Nov 03, 2011 4:05 pm
by snasui
ผมเขียนตัวอย่าง Code สำหรับการสร้างรหัส, การเพิ่ม Record, การปรับปรุง, การ Clear Data มาให้แล้ว
สำหรับการบันทึกให้บันทึกเป็นครอบครัวไปครับ กรณีเป็นการเพิ่มข้อมูลใหม่ ให้คีย์ข้อมูลในช่องที่ไม่ได้ระบายสีจากนั้นคลิกปุ่ม สร้างรหัส แล้วค่อยคลิกปุ่ม เพิ่มรายการ ดูไฟล์แนบประกอบครับ
Re: โปรแกรมบันทึกข้อมูลผู้ประสบอุทกภัย
Posted: Sun Nov 06, 2011 9:48 am
by 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ใดมีที่ว่างให้ผู้เข้าพักน่ะครับ
ขอความกรุณาจากอาจารย์อีกครั้งนะครับ
Re: โปรแกรมบันทึกข้อมูลผู้ประสบอุทกภัย
Posted: Sun Nov 06, 2011 11:32 am
by 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 ไปก่อน ด้วยเงื่อนไขที่ค่อนข้างเยอะทั้งที่มีอยู่แล้วและจะเพิ่มเข้ามา อีกทั้งมีเวลาที่จำกัด ผมเห็นว่าไม่จำเป็นต้องทำให้สมบูรณ์ตามที่ต้องการไปทุกอย่าง จะเสียเวลาไปโดยใช่เหตุครับ
Re: โปรแกรมบันทึกข้อมูลผู้ประสบอุทกภัย
Posted: Mon Nov 07, 2011 9:26 am
by bank9597
เยี่ยมไปเลยครับ ปรับใช้ได้เยอะเลย
