snasui.com ยินดีต้อนรับ
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ 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]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
natthaporn
Member
Posts: 187 Joined: Sun Jul 15, 2012 10:54 pm
#1
Post
by natthaporn » Sun Jul 23, 2017 1:34 pm
โจทย์ ผลลัพธ์
A 01
B 02
A 01
A 01
A 01
B 02
C 03
C 03
A 01
A 01
D 04
B 02
B 02
เงื่อนไขคือ
ดิฉันต้องการให้ตัวเลขที่ column C running ตามข้อมูลที่ใน column B ค่ะ
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 30917 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#2
Post
by snasui » Sun Jul 23, 2017 4:24 pm
ตัวอย่างสูตรครับ
เซลล์ A3 คีย์สูตรเพื่อเป็นคอลัมน์ช่วย
=IF(COUNTIF(B$3:B3,B3)=1,SUMPRODUCT(1/COUNTIF(B$3:B3,B$3:B3)),"")
Enter > Copy ลงด้านล่าง
เซลล์ C3 คีย์สูตร
=TEXT(INDEX($A$3:$A$15,MATCH(B3,$B$3:$B$15,0)),"00")
Enter > Copy ลงด้านล่าง
natthaporn
Member
Posts: 187 Joined: Sun Jul 15, 2012 10:54 pm
#3
Post
by natthaporn » Tue Jul 25, 2017 7:50 pm
ได้ผลลัพธ์ตามที่ต้องการแล้วค่ะ ขอบคุณอาจารย์มากค่ะ
natthaporn
Member
Posts: 187 Joined: Sun Jul 15, 2012 10:54 pm
#4
Post
by natthaporn » Thu Aug 03, 2017 9:27 pm
อาจารย์ พอดิฉันนำสูตรไปใช้กับข้อมูลที่มีปริมาณมาก ๆ ตั้งแต่ 2,000 แถว ปรากฎว่าใช้เวลาในการ run สูตรนานมากค่ะ
อาจารย์หรือท่านอื่น ๆ พอจะแนะนำสูตรเพิ่มเติมได้ไหมค่ะ
ขอบคุณมากค่ะ
logic
Gold
Posts: 1510 Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365
#5
Post
by logic » Fri Aug 04, 2017 8:35 am
ลองดูครับ
A3 =IFERROR(INDEX($B$3:$B$15,SMALL(IF(FREQUENCY(MATCH($B$3:$B$15,$B$3:$B$15,0),ROW($B$3:$B$15)-ROW($B$3)+1),ROW($B$3:$B$15)-ROW($B$3)+1),ROWS(A$3:A3))),"") สูตรนี้เป็นสูตร Array คัดลอกสูตรไปวางแล้วกด Ctrl+Shift+Enter แล้วค่อยคัดลอกสูตรไปด้านล่างจนได้ผลลัพธ์เป็นเซลล์ว่าง ๆ
C3 =TEXT(MATCH(B3,$A$3:$A$10,0),"00") คัดลอกสูตรลงด้านล่างจนถึงข้อมูลสุดท้าย
natthaporn
Member
Posts: 187 Joined: Sun Jul 15, 2012 10:54 pm
#6
Post
by natthaporn » Fri Aug 04, 2017 6:04 pm
ขอบคุณสำหรับสูตรเพิ่มเติมค่ะ แต่ดิฉันนำไปทดลองแล้ว ปรากกฎว่าต้องใช้เวลานานเหมือนกันค่ะ ตอนนี้ข้อมูลเพิ่มเป็น 10,000 row แล้ว
เวลา update ข้อมูลแต่ละครั้งต้องใช้เวลาประมาณ 25-30 นาทีค่ะ บางครั้ง file ก็ error ไปเลยค่ะ
ดิฉันรบกวนขอคำแนะนำด้วยค่ะ เพราะข้อมูลนี้ต้องใช้บ่่อยมากค่ะ
ขอบคุณค่ะ
snasui
Site Admin
Posts: 30917 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#7
Post
by snasui » Fri Aug 04, 2017 6:19 pm
ตามสูตรคุณ logic ในคอลัมน์ A ให้คัดลอกลงด้านล่างไปเพียงเจอเซลล์ว่าง ไม่ควรเผื่อไปจนเท่ากับข้อมูลที่มี
สูตรที่ทำงานลักษณะนี้ทำงานช้าเป็นเรื่องปกติ หากต้องการให้เร็วจำเป็นต้องใช้ VBA ซึ่งต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ
ไม่เช่นนั้นในขั้นตอนแรกให้ใช้การ Remove Dupplicate เข้ามาช่วย วิธีการคือ คัดลอกค่าในคอลัมน์ B แล้วนำมาวางในคอลัมน์ A > คลุมข้อมูลที่ได้ > เข้าเมนู Data > Remove Duplicate > Continue with the current selection > Remove Duplicates > ทำเครื่องหมายที่ My data has headers > OK หากในส่วนนี้ไม่เป็นสูตรจะทำให้คำนวณเร็วขึ้นมากครับ
menem
Silver
Posts: 549 Joined: Mon Jan 26, 2015 11:02 am
#8
Post
by menem » Fri Aug 04, 2017 8:18 pm
C3
=text(code(b3)-64,"00")
แบบนี้ใช้ได้ไหมครับ?
natthaporn
Member
Posts: 187 Joined: Sun Jul 15, 2012 10:54 pm
#9
Post
by natthaporn » Tue Aug 22, 2017 8:08 am
ขอบคุณทุกท่านสำหรับคำแนะนำค่ะ
ลองทำตามอาจารย์ดูแล้ว คำนวณเร็วขึ้นค่ะ ส่วนที่คุณ menem แนะนำลองเอาไปใช้กับข้อมูลจริงแล้วได้ค่าเท่ากันหมด และเป็นค่าติดลบด้วยค่ะ
ดิฉันจะรบกวนขอความหมายของสูตรนี้ได้ไหมค่ะ จะได้เอาไปประยุกต์ใช้ เพราะใช้สูตรนี้กับข้อมูลทดสอบตาม file ที่แนบไปใช้ได้แต่ใช้กับข้อมูลจริงแล้วได้ค่าตามที่แจ้งไปด้านบนค่ะ
ขอบคุณมากค่ะ
snasui
Site Admin
Posts: 30917 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#10
Post
by snasui » Tue Aug 22, 2017 6:05 pm
natthaporn wrote: ส่วนที่คุณ menem แนะนำลองเอาไปใช้กับข้อมูลจริงแล้วได้ค่าเท่ากันหมด และเป็นค่าติดลบด้วยค่ะ
สูตรที่คุณ menem แนะนำไปเป็นการใช้กับโจทย์นี้เท่านั้น คือคอลัมน์ B ตามไฟล์ที่แนบมาจะต้องเป็นตัวอักษร A, B, C... ตามตัวอย่างครับ