:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

อยากให้ข้อมูลไปอยู่ในแต่ละ Sheet โดยยึดจาก "Date"

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
wisitsakbenz
Silver
Silver
Posts: 533
Joined: Mon Sep 09, 2019 3:13 pm
Excel Ver: 2013

อยากให้ข้อมูลไปอยู่ในแต่ละ Sheet โดยยึดจาก "Date"

#1

Post by wisitsakbenz »

เรียน อาจารย์ครับ

จากข้อมูลใน Sheet "Smit" อยากให้ข้อมูลไปอยู่ในแต่ละ Sheet โดยยึดจาก "Date" โดย
วันที่ 1 ให้อยู่ใน Sheet "D01"
วันที่ 2 ให้อยู่ใน Sheet "D02"
ไปเรื่อยๆ ตามตัวอย่างในแต่ละ Sheet (ไฟล์มีขนาดใหญ่ เลยตัดแค่ 15 วันครับ)
อาจารย์พอมีสูตรหรือไม่ครับ ขอบคุณครับ
You do not have the required permissions to view the files attached to this post.
Xcelvba
Silver
Silver
Posts: 592
Joined: Thu Feb 03, 2022 9:04 am
Excel Ver: 2019

Re: อยากให้ข้อมูลไปอยู่ในแต่ละ Sheet โดยยึดจาก "Date"

#2

Post by Xcelvba »

ลองสูตรนี้ครับ

=IFERROR(INDEX(Smit!A:A,AGGREGATE(15,6,ROW(Smit!$A$2:$A$579)/(DAY(Smit!$A$2:$A$579)=(NUMBERVALUE(SUBSTITUTE(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255),"D","")))),ROWS('D01'!B$5:B5))),"")

Copy ไปในส่วนที่เกี่ยวข้องครับ
wisitsakbenz
Silver
Silver
Posts: 533
Joined: Mon Sep 09, 2019 3:13 pm
Excel Ver: 2013

Re: อยากให้ข้อมูลไปอยู่ในแต่ละ Sheet โดยยึดจาก "Date"

#3

Post by wisitsakbenz »

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

ได้แล้วครับ ขอบคุณครับ
Last edited by wisitsakbenz on Fri Apr 28, 2023 3:14 pm, edited 1 time in total.
Xcelvba
Silver
Silver
Posts: 592
Joined: Thu Feb 03, 2022 9:04 am
Excel Ver: 2019

Re: อยากให้ข้อมูลไปอยู่ในแต่ละ Sheet โดยยึดจาก "Date"

#4

Post by Xcelvba »

แก้ส่วนนี้ครับ

=IFERROR(INDEX(Smit!A:A,AGGREGATE(15,6,ROW(Smit!$A$2:$A$579)/(DAY(Smit!$A$2:$A$579)=(NUMBERVALUE(SUBSTITUTE(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255),"D","")))),ROWS(B$5:B5))),"")
You do not have the required permissions to view the files attached to this post.
wisitsakbenz
Silver
Silver
Posts: 533
Joined: Mon Sep 09, 2019 3:13 pm
Excel Ver: 2013

Re: อยากให้ข้อมูลไปอยู่ในแต่ละ Sheet โดยยึดจาก "Date"

#5

Post by wisitsakbenz »

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

ได้แล้วครับ ขอบคุณครับ
wisitsakbenz
Silver
Silver
Posts: 533
Joined: Mon Sep 09, 2019 3:13 pm
Excel Ver: 2013

Re: อยากให้ข้อมูลไปอยู่ในแต่ละ Sheet โดยยึดจาก "Date"

#6

Post by wisitsakbenz »

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

หลังจากที่ใช้งานจริง ใช้เวลาในการประมวลผลนานมาก เนื่องจากข้อมูลมีประมาณ 10,000 Row
อาจารย์พอมีสูตรที่ทำให้ประมวลผลเร็วกว่านี้หรือไม่ครับ
ขอบคุณครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30988
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: อยากให้ข้อมูลไปอยู่ในแต่ละ Sheet โดยยึดจาก "Date"

#7

Post by snasui »

:D ตัวอย่างสูตรเพื่อลดการคำนวณซ้ำ ๆ ตามด้านล่าง กรณีใช้สูตรจำนวนมากย่อมทำให้คำนวณช้า อาจจะเลือกใช้ VBA เข้ามาช่วยเพื่อลดภาระของไฟล์ครับ
  1. ที่ A1 คีย์ใช้สูตรเดิมที่เขียนมาเองแล้ว คือ
    =--RIGHT(CELL("filename",A1),2)
    Enter
  2. ที่ B5 คีย์
    =IFERROR(INDEX(Smit!A:A,AGGREGATE(15,6,ROW(Smit!$A$2:$A$579)/(DAY(Smit!$A$2:$A$579)=$A$1),ROWS(B$5:B5))),"")
    Enter > Copy ลงด้านล่าง > Copy ไปยังคอลัมน์ด้านชวาที่เกี่ยวข้อง
wisitsakbenz
Silver
Silver
Posts: 533
Joined: Mon Sep 09, 2019 3:13 pm
Excel Ver: 2013

Re: อยากให้ข้อมูลไปอยู่ในแต่ละ Sheet โดยยึดจาก "Date"

#8

Post by wisitsakbenz »

เรียน อาจารย์ snasui และ อาจารย์ Xcelvba

ได้แล้วครับ ขอบคุณอาจารย์ทั้ง 2 มากครับ
wisitsakbenz
Silver
Silver
Posts: 533
Joined: Mon Sep 09, 2019 3:13 pm
Excel Ver: 2013

Re: อยากให้ข้อมูลไปอยู่ในแต่ละ Sheet โดยยึดจาก "Date"

#9

Post by wisitsakbenz »

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

หลังจากที่ทดสอบใช้งาน ยังประมวลผลช้า ขึ้น Calculate ตลอด
สามารถปรับสูตรได้หรือไม่ครับ ขอบคุณครับ
You do not have the required permissions to view the files attached to this post.
User avatar
norkaz
Gold
Gold
Posts: 1758
Joined: Wed Jan 12, 2011 7:59 pm
Excel Ver: 2013,365

Re: อยากให้ข้อมูลไปอยู่ในแต่ละ Sheet โดยยึดจาก "Date"

#10

Post by norkaz »

...

หากไฟล์ไม่มีความผิดปกติ

ลองปรับสูตรไปตรงๆ แบบไม่ให้ติดค่า Array เต็มรูป หรือ Array ซ่อนรูปแบบ Aggregate อาจจะพอช่วยได้ ในกรณีที่ข้อมูลมีจำนวนมากๆ

ชีท Smit

N2
=DAY(A2)
Copy ลงไป

ชีท D01
M5
=IF($A$1=Smit!N2,ROW(Smit!N2))
Copy ลงไป

N5
=SMALL($M$5:$M$582,A5)
Copy ลงไป

B5
=IFERROR(INDEX(Smit!A:A,$N5),"")
Copy ลงไป และ Copy ไปคอลัมน์ ที่เกี่ยวข้อง


** สนับสนุนฟอรั่ม กรุณาช่วยคลิกโฆษณาหน้าเพจครับ **

Norkaz
You do not have the required permissions to view the files attached to this post.
Post Reply