:!: โปรดทราบ
  1. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้
  2. กรุณาอ่านกฎการใช้บอร์ดในตำแหน่งด้านบนของแต่ละบอร์ด
  3. ไฟล์แนบจำเป็นต้องใช้ชื่อเป็นภาษาอังกฤษจึงจะสามารถแนบได้
  4. กรณี Browser ที่ท่านใช้งานแสดงตัวอักษรขนาดเล็ก สามารถปรับตัวอักษรให้ใหญ่ขึ้นได้โดยดูที่ => ปรับขนาดตัวอักษรบน Browser

หาค่าที่ซ้ำกันแบบอัตโนมัติ

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบไฟล์ตัวอย่างมาแทนไฟล์จริงประกอบคำถาม เพื่อป้องกันข้อมูลสำคัญรั่วไหล นอกจากนี้ยังช่วยเพิ่มความสะดวกในการตอบคำถาม
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
dpost
Member
Member
Posts: 7
Joined: Tue Jan 24, 2012 12:25 pm

หาค่าที่ซ้ำกันแบบอัตโนมัติ

Postby dpost » Thu Feb 02, 2012 1:32 pm

เรียน ท่านผู้รู้ทุกท่านครับ
ช่วยดูงานให้ด้วยนะครับ
แนบไฟล์มาให้แล้วครับ
You do not have the required permissions to view the files attached to this post.

User avatar
bank9597
Guru
Guru
Posts: 3453
Joined: Wed Aug 17, 2011 11:49 am
Contact:

Re: หาค่าที่ซ้ำกันแบบอัตโนมัติ

Postby bank9597 » Thu Feb 02, 2012 2:12 pm

:D ลองดูสูตรนี้ว่าใช้ได้ไหมครับ

ที่ B1 คีย์ =COUNTIF($A$1:$A$10,A1) แล้วคัดลอกลงมาครับ
Image Facebook Image Google+ Image Twitter Image เว็บไซต์ Image พุทโธโลยี

User avatar
snasui
Site Admin
Site Admin
Posts: 16063
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: หาค่าที่ซ้ำกันแบบอัตโนมัติ

Postby snasui » Thu Feb 02, 2012 3:48 pm

:D
แล้วถ้าไม่ระบุตัวเลขใน column A1:A10 ได้ไหม เช่น ถ้าเราพิมพ์เลขที่เหมือนกันลงไปแล้วให้หาจำนวนตัวเลขที่ซ้ำกันเองแบบอัตโนมัติได้ไหมครับ
จากที่ถามมายังไม่ค่อยเคลียร์ครับ การหาว่าซ้ำกันหรือไม่ ซ้ำกันจำนวนเท่าใด ปกติจะต้องบอกโปรแกรมให้ทราบว่าเรากำลังจะหาตัวเลขใดว่าซ้ำกันกี่ครั้งครับ
คนควน Image Image Image Image
MVP-Excel (2010-2014)

dpost
Member
Member
Posts: 7
Joined: Tue Jan 24, 2012 12:25 pm

Re: หาค่าที่ซ้ำกันแบบอัตโนมัติ

Postby dpost » Sat Feb 04, 2012 7:47 pm

ผมเองก็งง กับที่อาจารย์สอนอยู่ครับ แต่ที่จับใจความได้
คือ ถ้าต้องการให้ คอลัมน์ A1:A10 ตรวจสอบค่าที่เราคีย์ลงไป ถ้าค่าไหนซ้ำกัน ใ้ห้นับว่าซ้ำกันเท่าไรนะครับ ตัวเลข 3 หลักครับ
เช่น 123
123
123
957
957
คือในช่องคำตอบ ให้แสดงว่า 957 ซ้ำกัน 2 จำนวน
ให้แสดงว่า 123 ซ้ำกัน 3 จำนวน
แบบนี้นะครับ อาจารย์ทุกท่าน

dpost
Member
Member
Posts: 7
Joined: Tue Jan 24, 2012 12:25 pm

Re: หาค่าที่ซ้ำกันแบบอัตโนมัติ

Postby dpost » Sat Feb 04, 2012 7:57 pm

เรียนคุณ bank9597
ในช่อง b1 ใส่สูตร =COUNTIF($A$1:$A$10,A1)
A B(คำตอบที่ได้)
1 3
1 3
2 1
3 1
4 2
5 2
6 1
5 2
4 2
1 3
เป็นคำตอบที่ถูกต้องครับ
แต่ ถ้าอย่างตัวเลข 1 ซ้ำักัน 3 จำนวน ในช่อง B2 ก็แสดงอีก
ใน b2 ไม่ให้แสดงอีกได้ไหมครับ เพราะแสดงในช่อง b1 แล้ว ว่า 1 ซ้ำกัน 3 จำนวน ครับคุณ bank9597

User avatar
snasui
Site Admin
Site Admin
Posts: 16063
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: หาค่าที่ซ้ำกันแบบอัตโนมัติ

Postby snasui » Sat Feb 04, 2012 8:06 pm

:D ถ้าผมเข้าใจถูกต้องก็ตามภาพด้านล่างครับ
  1. ที่เซลล์ B1 คีย์สูตรเพื่อนับว่ามีค่าที่ไม่ซ้ำกี่ค่า
    =SUMPRODUCT(1/COUNTIF(A1:A10,A1:A10))
    Enter
  2. ที่เซลล์ B2 คีย์สูตรเพื่อ List รายการที่ไม่ซ้ำออกมาทั้งหมด
    =IF(ROWS(B$2:B2)>$B$1,"",INDEX($A$1:$A$10,SMALL(IF(MATCH($A$1:$A$10,$A$1:$A$10,0)=ROW($A$1:$A$10)-ROW($A$1)+1,ROW($A$1:$A$10)-ROW($A$1)+1),ROWS(B$2:B2))))
    กดแป้น Ctrl+Shift+Enter แทนการกดแป้น Enter จะเห็นว่าสูตรในภาพด้านล่างครอบด้วย {} > Copy ลงด้านล่าง
  3. ที่เซลล์ C2 คีย์สูตรเพื่อนับว่าแต่ละค่าซ้ำจำนวนเท่าไร
    =COUNTIF($A$1:$A$10,B2)
    Enter > Copy ลงด้านล่าง
You do not have the required permissions to view the files attached to this post.
คนควน Image Image Image Image
MVP-Excel (2010-2014)

User avatar
bank9597
Guru
Guru
Posts: 3453
Joined: Wed Aug 17, 2011 11:49 am
Contact:

Re: หาค่าที่ซ้ำกันแบบอัตโนมัติ

Postby bank9597 » Sun Feb 05, 2012 9:03 am

:D
ถ้าผมเข้าใจถูกต้องก็ตามภาพด้านล่างครับ
ที่เซลล์ B1 คีย์สูตรเพื่อนับว่ามีค่าที่ไม่ซ้ำกี่ค่า
=SUMPRODUCT(1/COUNTIF(A1:A10,A1:A10))
Enter
ที่เซลล์ B2 คีย์สูตรเพื่อ List รายการที่ไม่ซ้ำออกมาทั้งหมด
=IF(ROWS(B$2:B2)>$B$1,"",INDEX($A$1:$A$10,SMALL(IF(MATCH($A$1:$A$10,$A$1:$A$10,0)=ROW($A$1:$A$10)-ROW($A$1)+1,ROW($A$1:$A$10)-ROW($A$1)+1),ROWS(B$2:B2))))
กดแป้น Ctrl+Shift+Enter แทนการกดแป้น Enter จะเห็นว่าสูตรในภาพด้านล่างครอบด้วย {} > Copy ลงด้านล่าง
ที่เซลล์ C2 คีย์สูตรเพื่อนับว่าแต่ละค่าซ้ำจำนวนเท่าไร
=COUNTIF($A$1:$A$10,B2)
Enter > Copy ลงด้านล่าง


ผมอยากใช้วิธีแบบของอาจารย์ครับ แต่ไม่มั่นใจคำถาม เลยตอบแบบง่ายๆไป ว่าแต่สูตรของอาจารย์ยากมากครับ :tt:
Image Facebook Image Google+ Image Twitter Image เว็บไซต์ Image พุทโธโลยี

User avatar
bank9597
Guru
Guru
Posts: 3453
Joined: Wed Aug 17, 2011 11:49 am
Contact:

Re: หาค่าที่ซ้ำกันแบบอัตโนมัติ

Postby bank9597 » Sun Feb 05, 2012 10:00 am

เรียนคุณ bank9597
ในช่อง b1 ใส่สูตร =COUNTIF($A$1:$A$10,A1)
A B(คำตอบที่ได้)
1 3
1 3
2 1
3 1
4 2
5 2
6 1
5 2
4 2
1 3
เป็นคำตอบที่ถูกต้องครับ
แต่ ถ้าอย่างตัวเลข 1 ซ้ำักัน 3 จำนวน ในช่อง B2 ก็แสดงอีก
ใน b2 ไม่ให้แสดงอีกได้ไหมครับ เพราะแสดงในช่อง b1 แล้ว ว่า 1 ซ้ำกัน 3 จำนวน ครับคุณ bank9597


:D ลองตามนี้ดูครับ

ที่ B1 คีย์ =IF(COUNTIF($A$1:$A$10,A1)-COUNTIF(A2:$A$10,A1)=1,COUNTIF($A$1:$A$10,A1),"")
แล้วคัดลอกลงมาครับ
Image Facebook Image Google+ Image Twitter Image เว็บไซต์ Image พุทโธโลยี

logic
Member
Member
Posts: 148
Joined: Thu Mar 18, 2010 1:57 pm

Re: หาค่าที่ซ้ำกันแบบอัตโนมัติ

Postby logic » Sun Feb 05, 2012 10:46 am


:D ลองตามนี้ดูครับ

ที่ B1 คีย์ =IF(COUNTIF($A$1:$A$10,A1)-COUNTIF(A2:$A$10,A1)=1,COUNTIF($A$1:$A$10,A1),"")
แล้วคัดลอกลงมาครับ

อีกวิธีครับ
=IF(COUNTIF($A$1:A1,A1)=1,COUNTIF($A$1:$A$10,A1),"")

User avatar
bank9597
Guru
Guru
Posts: 3453
Joined: Wed Aug 17, 2011 11:49 am
Contact:

Re: หาค่าที่ซ้ำกันแบบอัตโนมัติ

Postby bank9597 » Mon Feb 06, 2012 10:34 am

อีกวิธีครับ
=IF(COUNTIF($A$1:A1,A1)=1,COUNTIF($A$1:$A$10,A1),"")


ขอบคุณมากครับ อิอิ :D
Image Facebook Image Google+ Image Twitter Image เว็บไซต์ Image พุทโธโลยี

dpost
Member
Member
Posts: 7
Joined: Tue Jan 24, 2012 12:25 pm

Re: หาค่าที่ซ้ำกันแบบอัตโนมัติ

Postby dpost » Mon Feb 06, 2012 12:10 pm

ขอบคุณอาจารย์ทุกท่่านครับ

ถูกต้องเลยครับ อาจารย์เฉลยมาตรงกันมากๆๆ

ปล.แล้วจะรบกวนจนกว่าจะเรียนจบนะครับ


Return to “Excel”

Who is online

Users browsing this forum: anutin, Bing [Bot], Google Feedfetcher, Yamazato and 8 guests

cron