Excel

จะขอแปะก็ไปขอที่แม่พลอยโน่น 

[มังกร]

โอ๊ว แบบนี้อยากรู้มานานแล้วค่ะว่า ทำได้ไหม (ทำยังไงยังไม่เคยคิดเลย)
ยากเกินกว่าที่จะสอนป่ะคะ ถ้าไม่ยากเกินก็ขอสมัครเป็นศิษย์ด้วยคนน้า..
 

[มังกร]

ย้ายไปถามที่ http://www.f0nt.com/forum/index.php/topic,13734.msg1369680.html#msg1369680 แทนค่ะ

[มังกร]

ถามค่ะ สมมติแอนมีไฟล์ชื่อ กรุงเทพ เป็นแบบนี้


แล้วแอนก็มีไฟล์ชื่อ เชียงใหม่ เป็นแบบนี้


แล้วแอนก็ยังมีไฟล์พื้นที่อื่นๆในลักษณะคล้ายๆกันนี้อีกคือ
มี format ตารางเหมือนกันและ มีข้อมูลถึงแค่ row ที่ 4 เหมือนกัน

ทีนี้สิ่งที่ต้องการคือ อยากรวมไฟล์ย่อยๆพวกนั้นทั้งหมด (มีประมาณ 20 กว่าไฟล์)
เข้ามารวมในไฟล์เดียว แบบ


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

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

โจทย์ยากนะเนี่ย ...

เป็น Macro ได้หรือเปล่าอ่ะครับพี่แอน  ตอนนี้แบบเดียวที่คิดออกคือใช้ Macro 





ป.ล. รู้สึกว่า Excel มัน import data ได้นะ ... แต่ผมทำไม่เป็น 

ขออนุญาตเบิ้ลครับ  


พอดีเขียน Macro เสร็จแล้วเอาตัวอย่างมาให้ดูครับ



<a href="http://img3.f0nt.com/flash/cf00f3da173b9b79318dc0337cb0f963.swf" target="_blank">http://img3.f0nt.com/flash/cf00f3da173b9b79318dc0337cb0f963.swf</a>


ช่อง Linecount คือ Row เริ่มต้นที่จะให้โปรแกรมนำเข้าข้อมูลเข้ามานะครับ

ไฟล์ที่จะนำเข้าข้อมูล ข้อมูลจะต้องอยู่บนชีทที่ชื่อ Sheet1 เท่านั้นนะครับ ไม่งั้นจะ error (แต่สามารถแก้ไขจาก Source ได้)

ข้อมูลใน Sheet1 ที่จะนำเข้า ห้ามเว้นบรรทัด ถ้าเว้นโปรแกรมจะนำเข้าข้อมูลจนถึงส่วนที่เว้นเท่านั้น หลังจากนั้นมันจะเพิกเฉย (เกิดจากการเขียนเช็คการสิ้นสุดข้อมูลแบบห้วน ๆ ของผมเอง)





ทั้งนี้ทั้งนั้น ขอขอบคุณ

http://www.exceltip.com/st/Read_information_from_a_closed_workbook_using_VBA_in_Microsoft_Excel/473.html

http://www.mrexcel.com/td0009.html



ป.ล. เปิด Macro ก่อนใช้งานนะครับ

[=[FileName]SheetName!Cell]

ใช้ formula แบบนี้ก็ได้นะครับ ง่ายดี

=[FileName]SheetName!Cell

เช่น

=[กรุงเทพ.xlsx]Sheet1!A1 หรือเอาแค่ =[กรุงเทพ]Sheet1!A1

แล้วมันจะอ้างอิงที่อยู่ไฟล์แบบนี้ให้

โค้ด:

='C:\Documents and Settings\NooKSTLYE\My Documents\test-excel\[กรุงเทพ.xlsx]Sheet1'!A1

พอจะไล่อีกไฟล์ก็

=[กรุงเทพ]Sheet1!A1
=[กรุงเทพ]Sheet1!A2
=[กรุงเทพ]Sheet1!A3
=[เชียงใหม่]Sheet1!A1
=[เชียงใหม่]Sheet1!A2
=[เชียงใหม่]Sheet1!A3

ที่มา : Google --> Pantip
http://topicstock-tech.pantip.com/tech/software/topicstock/2009/05/SA2765929/SA2765929.html

ตูว่าแล้วว่ามันต้องมีวิธีที่ง่ายกว่านี้





ป.ล. +พี่นุ๊ก

[มังกร]

 
ขอบคุณทั้งคู่เลย บวกๆ
เดี๋ยวลองก่อน น่าจะได้ทั้ง 2 วิธี

สูตรตามที่นุ๊กบอกก็ใช้ได้นะ

แต่ระวังเรื่องชื่อไฟล์และที่อยู่ของไฟล์ด้วย (file path)
ใส่สูตรแล้วห้ามขยับไฟล์ไปไหน หรือเปลี่ยนชื่อไฟล์
เพราะถ้าสูตรมันหาไฟล์ไม่เจอ มันจะแสดงข้อมูลเก่า ที่ยังไม่อัพเดต

เช่น ถ้าเกิดเปลี่ยนอายุหนุ่มในไฟล์กรุงเทพเป็น 19 แล้ว
ถ้าเกิดหาไฟล์หลักมันหาไฟล์กรุงเทพไม่เจอ หนุ่มก็จะยังอายุ 29 เหมือนเดิม

[มังกร]

แอบสงสัย

ถ้าเราแก้ไฟล์ที่อ้างอิงมา ไฟล์ใหม่นี้ก็จะอัพเดทตัวเองอัตโนมัติ ทั้งสองวิธีรึเปล่า

หรือไม่อัพเดททั้ง 2 วิธี

ของผมไม่อัพเดทแน่นอนครับ เพราะเป็นการเปิดไฟล์ขึ้นมาดึงข้อมูลแล้วก็ปิดไปเท่านั้นครับ ไม่ได้เชื่อมโยงกับไฟล์ภายนอกแต่อย่างใด

(แปลว่าดึงข้อมูลมาเสร็จแล้วก็ไม่สนแล้วว่าไฟล์ที่ดึงข้อมูลเข้ามานั้นจะอยู่ที่ไหน)

[มังกร]

งานที่ว่านี้ไม่ต้อง update แหละ ดึงแล้วก็จบ 
แต่...
ดันมี column ว่าง
โปรแกรมเด้งออกเลย สงสัยต้องแก้ code เอา 

วิธีที่ใช้สูตรจะอัพเดตข้อมูลให้นะ ถ้าไฟล์อ้างอิงมีการเปลี่ยนแปลงข้อมูล
โดยมันจะถามก่อนว่าจะอัพเดตข้อมูลไหม
พอกดอัพเดตปุ๊บ ข้อมูลก็จะเปลี่ยนตาม

แต่ถ้า

แต่ระวังเรื่องชื่อไฟล์และที่อยู่ของไฟล์ด้วย (file path)
ใส่สูตรแล้วห้ามขยับไฟล์ไปไหน หรือเปลี่ยนชื่อไฟล์
เพราะถ้าสูตรมันหาไฟล์ไม่เจอ มันจะแสดงข้อมูลเก่า ที่ยังไม่อัพเดต

ข้อมูลจะเหมือนเดิมจ๊ะ

[มังกร]

โอ้ว

พี่หนุ่มเซียน(เอ็ก)เซล