Page 1 of 1
ขอรบกวนนะครับ ขอสอบถามการบันทึกย้ายข้อมูลไปอีกชีทไม่ให้ทับกัน
Posted: Fri Mar 20, 2015 11:01 pm
by entaneer0352
workbook.xlsm
เมื่อทำการกดบันทึกข้อมูลจะถูกเซฟไปยังชีท Database ครับ
***ผมต้องการให้ข้อมูลที่เซฟในชีท Database นั้นเรียงกันลงไปไม่ให้มันทับกันในการกดบันทึกในแต่ละครั้งครับ** ผมควรทำอย่างไงครับ ^^
Re: ขอรบกวนนะครับ ขอสอบถามการบันทึกย้ายข้อมูลไปอีกชีทไม่ให้ทับกัน
Posted: Sat Mar 21, 2015 12:27 am
by snasui
Re: ขอรบกวนนะครับ ขอสอบถามการบันทึกย้ายข้อมูลไปอีกชีทไม่ให้ทับกัน
Posted: Wed Mar 25, 2015 10:33 pm
by entaneer0352
ผมได้ลองเอาสูตรของอาจารย์ไปปรับใช้แล้วครับ แต่มันเซฟได้ครั้งล่ะข้อมูลเดียว
ซึ่งผมต้องการเซฟข้อมูลทั้งชุด โดยในแต่ละครั้งเราไม่ทราบจำนวนข้อมูลครับ
รบกวนอาจารย์ช่วยชี้แนะหน่อยครับ
Re: ขอรบกวนนะครับ ขอสอบถามการบันทึกย้ายข้อมูลไปอีกชีทไม่ให้ทับกัน
Posted: Wed Mar 25, 2015 11:58 pm
by snasui
แนบตัวอย่างที่ลองปรับเองมาด้วย จะได้ช่วยตอบต่อไปจากนั้นครับ
Re: ขอรบกวนนะครับ ขอสอบถามการบันทึกย้ายข้อมูลไปอีกชีทไม่ให้ทับกัน
Posted: Thu Mar 26, 2015 2:40 am
by entaneer0352
ผมขอส่งเป็นลิ้งโหลดไฟล์นะครับ เพราะเนื่องจากไฟล์มีขนาดใหญ่เกินไปครับ
http://www.upload-thai.com/dl/345c779cf ... 82899db78d
Re: ขอรบกวนนะครับ ขอสอบถามการบันทึกย้ายข้อมูลไปอีกชีทไม่ให้ทับกัน
Posted: Thu Mar 26, 2015 2:57 am
by entaneer0352
โดยที่ชีท Data พอกดบันทึกข้อมูล ข้อมูลก็จะถูกบันทึกลงในชีท DataBase ครับ แต่เมื่อกดบันทึกข้อซ้ำอีกครั้งหนึ่งข้อมูลที่มาบันทึกนั้นไม่ต่อกันครับ (ข้อมูลที่ชีท Data นั้นมีสูตรแสดงค่าทุกเซลครับ)
Re: ขอรบกวนนะครับ ขอสอบถามการบันทึกย้ายข้อมูลไปอีกชีทไม่ให้ทับกัน
Posted: Thu Mar 26, 2015 9:52 pm
by snasui
ปรับไฟล์เป็นแค่ตัวอย่างให้มีขนาดไม่เกิน 300kb แล้วแนบมาที่ฟอรัมนี้ครับ
Re: ขอรบกวนนะครับ ขอสอบถามการบันทึกย้ายข้อมูลไปอีกชีทไม่ให้ทับกัน
Posted: Fri Mar 27, 2015 1:30 am
by entaneer0352
อาจารย์ครับผมแนบตัวอย่างมาเรียบร้อยครับ
Re: ขอรบกวนนะครับ ขอสอบถามการบันทึกย้ายข้อมูลไปอีกชีทไม่ให้ทับกัน
Posted: Fri Mar 27, 2015 6:43 am
by snasui
ลบข้อมูลในชีท Database ทิ้งใหม่ให้หมด > ปรับ Code เป็นตามด้านล่างแล้วทดสอบดูใหม่ครับ
Code: Select all
Dim countData As Double
Sheets("Data").Select
countData = Application.Count(Range("a2:a100000"))
Range("A2:F2").Resize(countData).Copy
Sheets("DataBase").Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Re: ขอรบกวนนะครับ ขอสอบถามการบันทึกย้ายข้อมูลไปอีกชีทไม่ให้ทับกัน
Posted: Fri Mar 27, 2015 11:44 am
by entaneer0352
Code ทั้งหมดทำงานได้ครับอาจารย์ ขอบคุณอาจารย์มากๆเลยครับ