ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
narongc
Member
Posts: 28 Joined: Wed Jan 04, 2012 12:02 pmExcel Ver: 2010, 2016
#1
Post
by narongc Mon Jan 09, 2012 4:19 pm
เนื่องจากต้องจัดทำ Code สินค้า ซึ่งมีจำนวนที่เยอะหลายหมื่น recode จากหลายๆ ไฟล์ๆ ละ หลายๆ sheet เข้าด้วยกัน ไม่ทราบว่ามีวิธีไหนสะดวกและรวดเร็วกว่าการ copy มาวางมั้ยครับ ส่งไฟล์ตัวอย่างมาให้ดูด้วยครับ หลังจากทดลองทำจากข้อมูลที่แนะนำแล้วไม่เป็นผล
http://www.mediafire.com/?772sk0qkyi3z16c
รบกวนขอคำชี้แนะ และวิธีทำด้วยนะครับ
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 31155 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#2
Post
by snasui Mon Jan 09, 2012 4:27 pm
ลองตามนี้ครับ
ที่เซลล์ A2 คีย์
=IF($O2<>"",INDIRECT("
' "&$O2&"
' !"&SUBSTITUTE(ADDRESS(1,COLUMN()),1,"")&COUNTIF($O$2:$O2,$
O 2)+1),"")
Enter > Copy ไปทางขวาและลงด้านล่าง
narongc
Member
Posts: 28 Joined: Wed Jan 04, 2012 12:02 pmExcel Ver: 2010, 2016
#3
Post
by narongc Tue Jan 10, 2012 9:16 am
แล้วในช่อง Q2 อ่ะครับท่านทำไมมันมีค่าเป็น 1 ทั้งๆ ที่ผม copy สูตรจาก Q1 ลงมา
snasui
Site Admin
Posts: 31155 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#4
Post
by snasui Tue Jan 10, 2012 9:22 am
ปรับสูตรใน Q1 ใหม่เป็นตามด้านล่างครับ
=COUNTA(INDIRECT("
' "&P1&"
' !"&"A2:A60"))
Enter > Copy ลงด้านล่าง
สังเกตว่าผมจะเพิ่ม
' เข้าไปด้วย เพื่อให้ครอบคลุมถึงชื่อชีทที่มีตัวเลขหรือวรรคผสมอยู่ครับ
narongc
Member
Posts: 28 Joined: Wed Jan 04, 2012 12:02 pmExcel Ver: 2010, 2016
#5
Post
by narongc Tue Jan 10, 2012 9:56 am
ผมพยายามเพ่งดูหลายครั้งว่ามันคืออะไร เนื่องจากมันเบลอเล็กน้อย เลยไม่กล้าเติมลงไป ขอบคุณมากๆ เลยนะครับ
narongc
Member
Posts: 28 Joined: Wed Jan 04, 2012 12:02 pmExcel Ver: 2010, 2016
#6
Post
by narongc Tue Jan 10, 2012 10:04 am
ข้อมูลระหว่าง A58 - A114 ขึ้น Error #REF! หมดเลยครับ มันคืออะไรหรอครับ เหลือแค่จุดเดียวแล้วครับผม
snasui
Site Admin
Posts: 31155 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#7
Post
by snasui Tue Jan 10, 2012 10:10 am
ควรจะ Copy สูตรที่ผมเขียนไว้ให้ไปใช้แทนการคีย์เปลี่ยนเอง เนื่องจากเป็นไปได้ว่าเปลี่ยนไม่หมด อย่างเช่นสูตรนี้
snasui wrote: ลองตามนี้ครับ
ที่เซลล์ A2 คีย์
=IF($O2<>"",INDIRECT("
' "&$O2&"
' !"&SUBSTITUTE(ADDRESS(1,COLUMN()),1,"")&COUNTIF($O$2:$O2,$
O 2)+1),"")
Enter > Copy ไปทางขวาและลงด้านล่าง
สังเกตว่าผมเติม
' เข้าไปเช่นเดียวกัน
narongc
Member
Posts: 28 Joined: Wed Jan 04, 2012 12:02 pmExcel Ver: 2010, 2016
#8
Post
by narongc Tue Jan 10, 2012 11:16 am
Ok ! เลยครับท่านสมบูรณ์แบบจริงๆ ไม่รู้จะขอบใจอย่างไรดีสำหรับน้ำใจของท่าน ขอชื่นชมจากใจจริงๆ ครับ
narongc
Member
Posts: 28 Joined: Wed Jan 04, 2012 12:02 pmExcel Ver: 2010, 2016
#9
Post
by narongc Fri Jan 20, 2012 12:10 pm
ต้องการจะลบข้อมูลที่เป็น 0 ออกจากรายการที่มีจำนวนมากๆ โดยไม่ให้ไปกระทบกับตัวเลขที่มีค่าในกลุ่มแถวเดียว โดยปกติผมจะใช้วิธี Replace All แต่ถ้าข้อมูลเป็นดังตัวอย่างจะทำได้อย่างไรครับ
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 31155 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#10
Post
by snasui Fri Jan 20, 2012 1:27 pm
ใช้การ Filter โดยเข้าเมนู Data > Filter เข้ามาช่วยแทนการ Find > Replace ครับ
narongc
Member
Posts: 28 Joined: Wed Jan 04, 2012 12:02 pmExcel Ver: 2010, 2016
#11
Post
by narongc Fri Jan 20, 2012 6:12 pm
snasui wrote: ใช้การ Filter โดยเข้าเมนู Data > Filter เข้ามาช่วยแทนการ Find > Replace ครับ
โอ๊ววววววว นั่นสินะ ขอบคุณนะครับท่าน
bank9597
Guru
Posts: 3868 Joined: Wed Aug 17, 2011 11:49 am
#12
Post
by bank9597 Fri Jan 20, 2012 6:20 pm
เยี่ยมจริงๆครับ
Forum Rules อย่าใช้ภาษาแชทในการตอบ-ถาม ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ 
