Page 1 of 1
สอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกัน
Posted: Fri Apr 19, 2013 1:59 pm
by niwat2811
รบกวนท่านผู้รู้ ขอสอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกันออกให้เหลือเพียงหัวข้อเดียว
จากตัวอย่างนี้ จะมีหัวข้อใหญ่ทั้งหมด 7 หัวข้อ คือ 1-7 แต่ว่าต้องการลบให้เหลือแค่เพียงหัวข้อเดียว โดยลบจากล่างขึ้นบน
ได้ทดลอง Run Macro ดูแล้ว แต่ไม่ได้ผลตามต้องการ ไม่ทราบว่าควรปรับอย่างไรดีครับ
Code อยู่ใน Module1 ชื่อ DeleteDups
ขอบคุณทุกท่านล่วงหน้าครับ
Re: สอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกัน
Posted: Fri Apr 19, 2013 3:10 pm
by snasui
จากตัวอย่างที่แนบมา ยกตัวอย่างข้อ 6 ซึ่งซ้ำกัน มีข้อย่อยไม่เท่ากัน จะทราบได้อย่างไรว่าต้องการลบชุดใด เก็บชุดใดไว้ครับ
Re: สอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกัน
Posted: Fri Apr 19, 2013 3:20 pm
by niwat2811
จากตัวอย่างจะเห็นว่ามีข้อ 6. ซึ่งซ้ำกันอยู่ 3 หัวข้อ และเลขที่บัญชีภายใต้ข้อ 6. มีอยู่ทั้งรวมทั้งสิ้น 21 เลขที่บัญชี
ต้องการที่จะลบ ข้อ 6. จากด้านล่างขึ้นไป 2 หัวข้อ ให้เหลือเพียงหัวข้อเดียว ส่วนเลขที่บัญชีให้คงเหลือไว้ 21 บัญชีเหมือนเดิมครับ
Re: สอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกัน
Posted: Fri Apr 19, 2013 3:28 pm
by snasui
ลองปรับ Code เป็นตามด้านล่างครับ
Code: Select all
Sub DeleteDups()
Dim x As Long
Dim LastRow As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For x = LastRow To 6 Step -1
If IsNumeric(Left(Range("A" & x), 1)) Then
If Application.WorksheetFunction.CountIf(Range("A1:A" & x), _
Range("A" & x)) > 1 Then
Range("A" & x).EntireRow.Delete
End If
End If
Next x
End Sub
Re: สอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกัน
Posted: Fri Apr 19, 2013 3:44 pm
by niwat2811
แจ้งผลครับ Code ที่ท่านอาจารย์ให้มาใช้ได้ตรงตามความต้องการครับ
อยากเรียนถามต่อว่า
If IsNumeric(Left(Range("A" & x), 1))
หมายความว่าอย่างไรครับ
Re: สอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกัน
Posted: Fri Apr 19, 2013 3:46 pm
by nattasiray
ขอให้สร้างตัวอย่างใหม่ ใส่เลขที่บัญชีสมมุติ พร้อม ผลลัพธ์ที่ต้องการครับ เพราะตารางที่คุณให้มายากแก่การทำความเข้าใจ
ตารางบันทึกข้อมูลของคุณควรเป็นตารางฐานข้อมูลครับ แต่ที่คุณส่งมาเป็น Report ควรกลับไปแก้ไขการตารางฐานข้อมูลก่อน
แฟ้มของคุณยังไม่ใช้แบบอักษร TH SarbanPSK ขนาด 16 พอยน์เริ่มต้น ตามประกาศสำนักนายกรัฐมนตรี เพราะทันทีที่คุณแทรกเวิร์คชีตใหม่ ยังเป็น Tahoma ขนาด 11 พอยน์ อยู่
การกำหนดแบบอักษรเริ่มต้นให้กับแฟ้ม
แท็บ Home (หน้าหลัก)
คลิกปุ่ม สไตล์เซลล์ (Cells Styles)
คลิกขวาที่ปกติ (Normal) เลือกปรับเปลี่ยน (Modify...)
คลิกปุ่มรูปแบบ (format...) เพื่อเรียกกรอบโต้ตอบรูปแบบ (Format)
คลิกแท็บแบบอักษร (Font)
กำหนดที่ช่องแบบอักษร Th SarabunPSK (แต่ให้ใช้ Ths Sarabun New -จะดีกว่า)
กำหนดขนาด 16
คลิกปุ่มตกลง (OK) ตามกรอบโต้ตอบต่าง ๆ
ส่วนการกำหนดแบบอักษรเริ่มต้นให้กับโปรแกรม ศึกษาที่
http://www.youtube.com/watch?v=uPHiIaYVWRA
Re: สอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกัน
Posted: Fri Apr 19, 2013 3:55 pm
by niwat2811
ขอบคุณ คุณ nattasiray ที่ช่วยชี้แนะครับ ตัวอย่างที่ได้แนบมานั้นเป็นตัวอย่างที่ได้สรุปมาในรูปแบบของรายงานซึ่งเป็นอย่างนั้นจริง ๆ ครับ
ซึ่งจริง ๆ แล้วข้อมูลจะมีมากกว่านี้มากครับ เวลามาตรวจสอบรายงานแต่ละสาขาทำให้ใช้เวลาค่อนข้างมาก
ผมเลยต้องการที่จะนำมาทำเป็น Database ซึ่งจะได้ช่วยประหยัดเวลาในการตรวจสอบ จะได้ง่ายต่อการสรุปข้อมูลครับ
Re: สอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกัน
Posted: Fri Apr 19, 2013 9:29 pm
by snasui
niwat2811 wrote:แจ้งผลครับ Code ที่ท่านอาจารย์ให้มาใช้ได้ตรงตามความต้องการครับ
อยากเรียนถามต่อว่า
If IsNumeric(Left(Range("A" & x), 1)) Then
หมายความว่าอย่างไรครับ
หมายความว่า ถ้าอักขระด้านซ้ายสุด 1 อักขระของเซลล์ Ax เป็นตัวเลขแล้ว
Re: สอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกัน
Posted: Fri Apr 19, 2013 9:58 pm
by nattasiray
คุณควรเปลี่ยนการบันทึกข้อมูลให้อยู่ในรูปแบบตารางที่ผมส่งให้ดู เพื่อสะดวกต่อการคัดกรอก นับจำนวนของบัญชีแยกตามภาค เขต สาขา เป็นต้น และควรใช้ data validation จำกัดช่วงขอบเขตข้อมูลที่สามารถป้อนลงในเซลล์ได้
ลองหาหนังสือ จัดการฐานข้อมูลด้วยไมโครซอฟต์เอ็กเซล 2010 มาอ่านด้วยครับ ในเล่มดังกล่าวจะมีหลักการออกแบบฐานข้อมูล บันทึกข้อมูล
Re: สอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกัน
Posted: Sat Apr 20, 2013 9:11 am
by niwat2811
ขอบคุณท่านอาจารย์และคุณ nattasiray ที่ช่วยชี้แนะครับ