Snasui Excel Forum

snasui wrote: อยู่ที่การกำหนดค่า Relative References ตามภาพด้านล่างครับ

อ้ออย่างนี้นี่เอง สงสัยมือไปกดโดนค่ะ ไม่ได้ตั้งใจจะกำหนดแบบนี้เลย ขอบคุณมากเลยค่ะ

มารายงานผลค่ะ ได้ตามที่ต้องการ ขอบคุณมากๆๆนะคะที่ให้คำแนะนำ

ป.ล. อีกปัญหานึง เวลาบันทึกสูตรลง macro เช่น =B2 แล้ว ตอน run macro กลับขึ้นเป็น =RC[-1] แทน เพราะสาเหตุอะไรเหรอคะ งงค่ะ

อันนี้ยังงงอยู่เลยค่ะ

ลองปรับโค๊ดเป็นแบบนี้ดูครับ ว่าใช้ได้ตามต้องการไหม
Sub simpleXlsMerger4()

Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object

Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")

Set dirObj ...

ที่อธิบายมานี้คอลัมน์ S และ Q คอลัมน์ไหนอยู่ก่อนหรืออยู่หลัง ลองทบทวนแล้วอธิบายมาใหม่ครับ

ว้าย ขอโทษค่ะ เขียนผิด สับสนไปหน่อย อายจัง

ตามรูปนี้ บรรทัดสุดท้ายสิ้นสุดที่ M ส่วนคอลัมน์สุดท้ายอยู่ที่ Q ค่ะ

[img][img]http://upic.me/i/4o/va5lp.jpg[/img][/img]

:roll: เอ่อ ไม่แน่ใจว่าทำอะไรผิดกฎไหม แต่ได้ลองไปหาคำตอบเอาเองแล้ว ก็ยังจนปัญญาอยู่ดีค่ะ ยังไม่สามารถรวมไฟล์จนถึงบรรทัดสุดท้ายได้จริงๆเลยค่ะ รบกวนผู้รู้ชี้แนะอีกครั้งค่ะ:oops:

ป.ล. อีกปัญหานึง เวลาบันทึกสูตรลง macro เช่น =B2 แล้ว ตอน run macro กลับขึ้นเป็น =RC[-1] แทน เพราะสาเหตุอะไรเหรอคะ งงค่ะ ...

ลืมแนบไฟล์ตัวอย่างค่ะ

ติดปัญหาอีกนิดนึงค่ะ ถ้าหากว่า ข้อมูลจริงๆจนถึงบรรทัดสุดท้ายของแต่ละไฟล์นั้นอยู่ที่คอลัมน์ S แต่ข้อมูลทั้งหมดยาวไปจนถึงคอลัมน์ Q จะใช้คอลัมน์ไหนอ้างอิงคะ

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

พอเปลี่ยนเป็น Q ก็ดึงข้อมูลให ...

เรียบร้อยค่ะ ได้ผลตามต้องการ ขอบคุณมากๆนะคะ

ลองแก้แบบนี้ค่ะ พอใช้ได้ไหมคะ ภายใต้เงื่อนไข
1. อยากให้แสดงข้อมูลรวมที่ sheet5
2. ข้อมูลแต่ละไฟล์สิ้นสุดที่คอลัมน์ Q
3. อยากให้รวมข้อมูลตั้งแต่แถว 1

Set dirObj = mergeObj.Getfolder(Sheets("Sheet5").Range("A1"))
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks ...

รบกวนถามเพิ่มเติม
1. ถ้าหาก เปลี่ยนที่อยู่ของโฟลเดอร์ให้เป็น Range A1 แล้วค่อยก๊อปปี้ที่อยู่มาวางไว้ที่ A1 แทนที่จะต้องไปแก้ใน code มันก็รวมไฟล์ให้เหมือนกัน แต่มันจะรวมไว้ที่ sheet 1 เสมอ แต่ถ้าอยากให้มันไปรวมไว้ที่ sheet 2 ต้องเพิ่มตรงไหนบ้าง ลองเติม Sheets("Sheet2").Select แต่ไม่ได้ผลค่ะ

2.ถ้าข ...

Ohhได้แล้วค่ะ ขอบคุณมากๆๆเลยค่ะ

ตรงเลข 50, 51 นี่ คือกะเผื่อไว้ใช่ไหมคะ สามารถเปลี่ยนตัวเลขได้ใช่ไหม ขอบคุณอีกครั้งค่ะ

ต้องการตัดคำที่อยู่ตรงกลางข้อความค่ะ

เช่น 1. บริษัท ABC ต้องการคำตอบแค่ บริษัท เท่านั้น ไม่สนใจเลขข้างหน้า หรือชื่อต่อท้ายด้านหลังเลยค่ะ จะลองใช้ MID แต่ไม่ทราบจะกำหนดเงื่อนไขอย่างไรให้มันได้คำตอบที่ต้องการค่ะ

ขอบคุณค่ะสำหรับคำแนะนำ

จะลองใช้ macro เขียนดูก่อนค่ะ แล้วจะมารายงานผลให้ทราบ ขอบคุณมากนะคะ


edit: ใช้ macro ช่วย สำเร็จแล้วค่ะ เว็บนี้มีประโยชน์มากเลย ขอบคุณที่แชร์พื้นที่ให้ความรู้กันนะคะ

ลืมอีกประเด็นหนึ่งคือ ไฟล์ข้อมูลมีการ merge cell + wrap text ไว้ด้วย ถ้าจะให้ตอนรวมไฟล์ ยกเลิกการ merge พวกนี้ไปด้วยเลยได้ไหมคะ เพิ่ม code ตรงไหนได้บ้าง ถ้าไม่งั้นคงต้องกดยกเลิกเองค่ะ ก็ยังพอไหวค่ะไฟล์เดียว

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

:thup: ขอบพระคุณมากค่ะ ได้ครบถ้วนตามที่ต้องการเลยค่ะ

อยากทราบเป็นความรู้หน่อยค่ะ ช่วยอธิบายโค้ดเดิมให้หน่อยได้ไหมคะ มันใช้ไม่ได้เพราะมีปัญหาอะไร จะเกี่ยวกับคอลัมภ์ไหม เพราะอันใหม่นี้ปรับตรงคอลัมภ์เป็น o และช่วง offset ด้วยค่ะ มันส่งผลยังไงบ้างคะ

ความรู้เรื่อง VBA ยังไม่ชำนาญค่ะ เพิ่งเริ่มจะห ...

แนบไฟล์ตัวอย่าง result คือ รายงานที่ต้องการ ส่วน merge test คือ ไฟล์ที่มี code ค่ะ

ขอบคุณมากค่ะ

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


ตั้งใจว่าจะต้องดัดแปลงข้อมูลอีกครั้ง โดยใช้ macro ช่วย แต่ต้องทำหลังจากที่รวมไฟล์ได้แล้วค่ะ แต่จะให้มาทำทีละไฟล์ 30 ไฟล์ User ไม่ไหวค่ะ

คิดเองว่า ข้อมูลม ...

ต้องเอาหัวรายงานมาใส่บรรทัดของแต่ละรายละเอียดครับ


ขยายความหน่อยได้ไหมคะ ว่าต้องจัการอย่างไรจึงจะสะดวกสุด ถ้า copy แปะ ทุกไฟล์ User บอกไม่ไหวค่ะ

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

หรือมีวิธีอื่นที่ดีกว่านี้ ขอคำชี้แนะด ...

ajsudkedt wrote:http://www.snasui.com/download/file.php?id=6960
ไม่รู้ว่าตัวนี้จะตอบโจทย์ได้ไหม ลองดูครับ

ลองดูแล้ว มันออกมาแต่หัวรายงาน แต่รายละเอียดไม่มีให้เลยค่ะ

สวัสดีค่ะ มีปัญหาเรื่อง excel สอบถามดังนี้ค่ะ

อยาก merge ไฟล์ หลายๆไฟล์ ให้กลายเป็นไฟล์เดียวกัน จากที่หาความรู้ใน google มา ได้ code VBA มาจาก web ต่างประเทศ จะเอามาประยุกต์ใช้ดู แต่ปรากฎว่าผลลัพธ์ที่รวมสำเร็จแล้ว ออกมาไม่ครบทุกบรรทัดค่ะ

รบกวนถามผู้รู้ว่า ต้องปรับ CODE เป็นอย่างไรคะ จึงจะให ...