ทะเบียนหนังสือรับ ตัวอย่าง

wiroj

unread,

Sep 9, 2012, 5:07:16 AM9/9/12

to

เรียน อ.สำเริง และเพื่อนสมาชิกทุกท่าน

ขอรบกวนอาจารย์ และเพื่อนสมาชิก ช่วยสร้างแบบฟอร์มสำหรับบันทึกทะเบียนหนังสือรับ-ส่ง เพื่อให้บันทึกลงใน sheet ที่กำหนด 

ซึ่งผมได้สร้างไว้แล้วแต่ยังไม่สามารถใช้ได้

รายละเอียดตามไฟล์ที่แนบมา

ขอบคุณครับ

ธุรการใหม่ หัวใจไอที

แบบฟอร์มบันทึกทะเบียนหนังสือรับ-ส่ง.xlsx

Samroeng

unread,

Sep 11, 2012, 5:24:06 AM9/11/12

to

เรียน คุณวิโรจน์ และเพื่อนสมาชิก

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

หลักการทำงาน
ผมแยกส่วนหนังสือรับ-หนังสือส่งออกจากกันให้ชัดเจน แล้วทำพื้นที่พักข้อมูลชั่วคราวไว้ข้างหลัง และใช้การตั้งชื่อช่วงข้อมูลแบบ Dynamic เพื่อระบุพื้นข้อมูลต้นทาง และพื้นที่ในชีทปลายทาง จากนั้น ก็ใช้ VBA แบบสั้นๆ ช่วยในการบันทึกข้อมูล

ก่อนใช้งาน ต้องเปิดการใช้ Macro ด้วยนะครับ

อ.สำเริง

ปล.ไฟล์นี้สำหรับ Excel 2007-2010 เท่านั้น


แบบฟอร์มบันทึกทะเบียนหนังสือรับ-ส่ง.xlsm

Boontiwa

unread,

Sep 11, 2012, 7:03:42 AM9/11/12

to excel for hr

เรียนอาจารย์สำเริงคะ

ขอบคุณสำหรับตัวอย่างไฟล์ข้อมูลซึ่งสามารถนำไปใช้งานจริงได้เลยค่ะ.. ^__^

แต่หนูมีปัญหาเรื่องการนำไฟล์ไปใช้งาน (เนื่องจากยังอ่อนเรื่องการใช้Excelอยู่พอควร)  ในกรณีที่ฟิวข้อมูลลงไปแล้วต้องการบันทึก จะขึ้นข้อความว่า "ไฟล์.xls is locked for editing"... กรณีเช่นนี้ต้องปลดล็อคอย่างไรคะ

รบกวนอาจารย์ด้วยค่ะ

ขอบคุณค่ะ

บุญทิวา


Samroeng

unread,

Sep 11, 2012, 8:12:45 AM9/11/12

to

เรียน คุณบุญทิวา

หมายถึงว่าไฟล์อื่นใช่มั๊ยครับ (เพราะไฟล์ที่ผมแนบมาในเมล์นี้ ไม่ได้ล๊อคอะไรเลย)

จากที่ถามมา น่าจะเกิดจากมีการป้องกันการแก้ไข (Protect sheet) การแก้ไข ให้ทำดังนี้

Excel2003 : เข้าไปที่เมนู Tools > Protection > Unprotect sheet

Excel2007-2010 : ให้คลิกขวาที่ชื่อชีทนั้น แล้วเลือก Unprotect sheet

อ.สำเริง

Sent from Samsung Galaxy S-II

Boontiwa

unread,

Sep 12, 2012, 12:47:59 AM9/12/12

to excel for hr

เรียน อาจารย์สำเริง

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

สำหรับไฟล์แบบฟอร์มบันทึกทะเบียนหนังสือรับ-ส่ง อันนี้ หนูมีคำถามต่อค่ะ
Sheet Form column: "C19" (หนังสือส่ง) หากต้องการคีย์ข้อมูลวันที่ลงไปเอง(เหมือนหนังสือรับ) ต้องไปแก้ไขสูตรอย่างไรคะ

หนูลองcopy จาก "C6" (หนังสือรับ) มาวาง แต่พอเวลากดบันทึกหนังสือส่งไปแล้ว ข้อมูลวันที่ยังอยู่ ไม่ได้หายไปเหมือน column อื่นๆ น่ะค่ะ

รบกวนอาจารย์อีกครั้งค่ะ

ขอบพระคุณค่ะ

Samroeng

unread,

Sep 12, 2012, 1:22:06 AM9/12/12

to

เรียน คุณอุ๋ย

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

กรณีนี้ ถ้าไล่ macro เป็น ก็ลองเข้าไปเพิ่มคำสั่ง เพื่อลบวันที่ด้วย ก็ไม่ยากครับ เข้าไปดูรหัสคำสั่ง โดยการคลิกขวาที่ชื่อชีท เลือก view code แล้วดับเบิลคลิกที่ module1 ครับ

อ.สำเริง

Sent from Samsung Galaxy S-II

rewat.sithkankiat

unread,

Sep 12, 2012, 1:50:35 AM9/12/12

to

เป็นข้อมูลที่ดีมากเลยครับ

หากแต่จะรบกวนช่วยอธิบาย แมโคร จักขอบคุณยิ่งครับ

Application.ScreenUpdating = False

ThisWorkbook.Activate

MyVar = [RecvData]

[RecvTarget] = MyVar

ActiveWorkbook.Save

Application.Goto Reference:="RecvClear"

Selection.ClearContents

Range("C5").Select

Application.ScreenUpdating = True

MsgBox ("บันทึกข้อมูลหนังสือรับ เรียบร้อยแล้ว")

แต่ละบรรทัดเพื่อเป็นความรู้ เล็กๆ น้อยๆ ครับ ต่อไปคงจะเขียนแบบนี้ได้บ้างครับ

รู้เป็นบางบรรทัดเท่านั้นเองครับ

ขอบคุณครับ

Boontiwa

unread,

Sep 12, 2012, 1:51:17 AM9/12/12

to excel for hr

เรียนอาจารย์

ขอบคุณอีกครั้งค่ะ ^^

(แหะๆ จำชื่อเล่นอุ๋ยได้ด้วยอ่ะ  อายจัง ^_^)

อุ๋ยจะจัดฝึกอบรม In-house Training อีกแล้วค่ะ อาจจะต้องมีทั้ง word   excel  powerpoint โดยแบ่ง train แต่ละหลักสูตรเป็นรุ่นๆ ไป หากอาจารย์จะแนะนำวิทยากรมืออาชีพ(เหมือนอาจารย์) จะขอบคุณมากเลยค่ะ

ด้วยความนับถือ

อุ๋ยค่ะ

ป๋าหมาก

unread,

Sep 12, 2012, 6:31:24 AM9/12/12

to

Application.ScreenUpdating = False                          หยุดการเคลื่อนไหวของหน้าจอ

ThisWorkbook.Activate                                           ให้สมุดงานที่บันทึกมาโครนี้ Active

MyVar = [RecvData]                                                 เก็บค่าจากช่วง RecvData ไปไว้ที่ MyVar

[RecvTarget] = MyVar                                              ส่งค่าจาก MyVar ไปเก็บยัง RecTarget

ActiveWorkbook.Save                                             สั่งบันทึก

Application.Goto Reference:="RecvClear"             เลือกช่วง RevClear

Selection.ClearContents                                         ลบค่าในช่วงที่เลือก

Range("C5").Select                                                 เลือกเซลล์ C5

Application.ScreenUpdating = True                        เคลื่อนไหวหน้าจอให้เป็นปกติ

MsgBox ("บันทึกข้อมูลหนังสือรับ เรียบร้อยแล้ว")  แสดงกล่องข้อความ

Pabhawarin Sukyong

unread,

Sep 3, 2013, 3:47:05 AM9/3/13

to

เรียน อาจารย์

ขอมูลน่าสนใจมากเลยคะ ดิฉันลองทำแล้วแต่บันทึกไม่ได้ รบกวน อาจารย์ช่วยแนะนำด้วยคะ (ดิฉันทำการบันทึกไฟล์ที่ อ. ลงไว้ให้ โดยการกดดาวน์โหลด์ แล้วก็ลองทำการบันทึก แล้วก็ไม่สำเร็จคะ) 

ขอบคุณคะ

เมื่อ วันอังคารที่ 11 กันยายน ค.ศ. 2012, 16 นาฬิกา 24 นาที 50 วินาที UTC+7, อ.สำเริง เขียนว่า:

Samroeng

unread,

Sep 3, 2013, 6:58:34 AM9/3/13

to Excel4HR

เนื่องจากไฟล์ชุดนี้ ต้องเปิดให้ Macro ทำงานด้วย จึงจะสามารถคลิกปุ่มบันทึกได้ ฉะนั้น ตอนเปิดไฟล์ขึ้นมา จะต้องคลิกยอมรับ Macro enable ด้วยนะครับ

อ.สำเริง

Y.Samroeng Tel.081-4239828
Send from Galaxy Tab

--
******************
|= คุณได้รับเมล์นี้ เพราะคุณเป็นสมาชิกกลุ่ม "Excel_for_HR" ของ อ.สำเริง ยิ่งถาวรสุข

Pabhawarin Sukyong

unread,

Sep 3, 2013, 9:32:10 PM9/3/13

to

เรียน อ.สำเริง

ขอบคุณมากคะ ใช้ได้แล้วคะ และจะพยายามนำสิ่งที่ อ. มาเผยแพร่ มาพัฒนาตนเองคะและที่ทำงานคะ

ขอบคุณคะ

รัชชุกาญจน์ มองเพ็ชร

unread,

Nov 12, 2015, 4:46:28 AM11/12/15

to Excel_for_HR

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

เมื่อ วันอังคารที่ 11 กันยายน ค.ศ. 2012 16 นาฬิกา 24 นาที 06 วินาที UTC+7, อ.สำเริง เขียนว่า:

Samroeng

unread,

Nov 12, 2015, 4:48:43 AM11/12/15

to Excel4HR

ลองขยายความกว้างของคอลัมน์นั้น เพื่อให้วันที่แสดงได้เต็มคอลัมน์ครับ

อ.สำเริง

กองแผนและพัฒนา มหาวิทยาลัยหัวเฉียวเฉลิมพระเกียรติ

unread,

Nov 17, 2015, 9:42:04 PM11/17/15

to Excel_for_HR

ตรงช่อง ที่  ในฟอร์มทะเบียนหนังสือส่ง อยากจะเพิ่มตัวเลือกอีกทำยังไงค่ะ หรือต้องการพิมพ์ลงไปเองต้องทำแบบไหน

เมื่อ วันพฤหัสบดีที่ 12 พฤศจิกายน ค.ศ. 2015 16 นาฬิกา 48 นาที 43 วินาที UTC+7, อ.สำเริง เขียนว่า:

เหมี่ยวจัง ..จ๋า

unread,

Nov 17, 2015, 9:42:04 PM11/17/15

to อ.สำเริง

คุณเอก คะ

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

ขอบคุณคะ

ประวัติพนักงานทั้งหมด 58.xlsx

Samroeng

unread,

Nov 18, 2015, 2:58:59 AM11/18/15

to Excel4HR

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

อ.สำเริง

Samroeng

unread,

Nov 18, 2015, 3:13:47 AM11/18/15

to Excel4HR

คุณเหมียว

ปัญหาเกิดจาก การที่ไม่ได้ล๊อกเซลอ้างอิงครับ

ทั้งเซลเดือนที่เลือก และเซลช่วงรายชื่อเดือนที่ไป MATCH

ดังนั้น เมื่อคัดลอกสูตรไป เซลอ้างอิงก็เลยเพี้ยนไป

ลองดูในไฟล์แนบครับ

อ.สำเริง

ประวัติพนักงานทั้งหมด 58.xlsx

unread,

Dec 4, 2017, 8:04:38 AM12/4/17

to Excel_for_HR

ขออนุญาตถามนะคะ  ทราบมาว่าการลงทะเบียนหนังสือรับหนังสือส่งมีแบบออนไลน์  แต่ทำไม่เป็นทำยังไงคะพอจะตอบได้มั๊ยคะพอดีเป็นธุรการโรงเรียนคะทำงาน  3  โรงเรียนคะ

เมื่อ วันอาทิตย์ที่ 9 กันยายน ค.ศ. 2012 2 นาฬิกา 07 นาที 16 วินาที UTC-7, wiroj เขียนว่า:

unread,

Feb 8, 2018, 11:52:49 PM2/8/18

to Excel_for_HR

โปรแกรมเป็นคุณต่องานสารบัญมากเลยครับ แต่อยากเพิ่มอีกหนึ่ง เป็น data3  หนังสือสั่งการ เพื่อลงหนังสือคำสั่งอะครับ

กรุณาด้วย ลองก๊อบวางแล้วทำไม่ไปเป็น คือส่วนปุ่มบันทึกอะคับ ไม่รู้จะให้มันไป data3 ยังไงครับ

wanicha k

unread,

Feb 10, 2018, 4:12:21 AM2/10/18

to

ใช้ google form ก็สะดวกดีนะคะ //พอสรุปออกมาให้เลือกเอาตัวที่เป็น spread sheet หน้าตาคล้ายๆ Excel / พอexport ออกมา เป็น format Excel เอาไปสรุปเพื่อทำงานต่อได้เลยค่ะ