: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

สอบถามเกี่ยวกับ Code 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. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: สอบถามเกี่ยวกับ Code VBA เรื่องการลบแถวที่ไม่ต้องการครับ

Re: สอบถามเกี่ยวกับ Code VBA เรื่องการลบแถวที่ไม่ต้องการครับ

#8

by niwat2811 » Sat Nov 24, 2012 2:33 pm

ครับ ยังไม่ค่อยเข้าใจแต่ก็จะพยายามศึกษาต่อไปครับ ขอบคุณท่านอาจารย์มากครับ

Re: สอบถามเกี่ยวกับ Code VBA เรื่องการลบแถวที่ไม่ต้องการครับ

#7

by snasui » Sat Nov 24, 2012 2:22 pm

:D เป็นการใช้ Worksheet Function มาช่วย

สำหรับ Countif ดูที่นี่ครับ http://office.microsoft.com/th-th/excel ... aspx?CTT=1
ส่วน Countifs ดูที่นี่ครับ http://office.microsoft.com/th-th/excel ... aspx?CTT=1

จากนั้นลองแทนค่าดูน่าจะเข้าใจ Code ได้ไม่ยากครับ

Re: สอบถามเกี่ยวกับ Code VBA เรื่องการลบแถวที่ไม่ต้องการครับ

#6

by niwat2811 » Sat Nov 24, 2012 2:18 pm

อาจารย์ครับ ผมได้ลองกด F8 แล้วลอง Run Code ดูที่ละบรรทัดแต่ก็ยังไม่เข้าใจ Code เลยครับ รบกวนท่านอาจารย์ช่วยแจงให้เพื่อความกระจ่างหน่อยนะครับ ตรงนี้ครับ

Code: Select all

With Application
            If .CountIf(rAll, r) <> .CountIfs(rAll, r, rAll.Offset(0, 2), "manual") Then
                r.ClearContents
            End If
        End With
เหมือนกับว่าไปทำค่า r ให้เป็นค่าว่าง แต่งงว่ามันไปเช็คค่าตรงไหน ขอบคุณล่วงหน้าครับ

Re: สอบถามเกี่ยวกับ Code VBA เรื่องการลบแถวที่ไม่ต้องการครับ

#5

by niwat2811 » Sat Nov 24, 2012 2:07 pm

ทดสอบ code แล้วครับ ใช้งานได้ตรงตามที่ต้องการเลยครับ ขอบคุณอาจารย์มากเลยครับ

Re: สอบถามเกี่ยวกับ Code VBA เรื่องการลบแถวที่ไม่ต้องการครับ

#4

by snasui » Sat Nov 24, 2012 2:02 pm

:D ลองปรับ Code เป็นด้านล่างครับ

Code: Select all

Sub Deleterow()
    Dim r As Range
    Dim rAll As Range
    With Sheets("Sheet1")
        Set rAll = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
    End With
    For Each r In rAll
        With Application
            If .CountIf(rAll, r) <> .CountIfs(rAll, r, rAll.Offset(0, 2), "manual") Then
                r.ClearContents
            End If
        End With
    Next r
    rAll.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Re: สอบถามเกี่ยวกับ Code VBA เรื่องการลบแถวที่ไม่ต้องการครับ

#3

by niwat2811 » Sat Nov 24, 2012 1:38 pm

เพื่มเติมครับ อาจจะอธิบายไม่ละเอียด
คือว่า ถ้าเลขที่ใดมีเลขเดียวและประเภทเป็น manual ให้เอาไว้ ไม่ต้องลบครับ แต่ถ้ามีเลขเดียวแต่ประเภทไม่ใช่ manual ให้ลบออกไปเลยครับ
ถ้าเลขที่ใดซ้ำกันไม่ว่าจะซ้ำกี่จำนวนก็แล้วแต่ สมมติว่าเลขที่ซ้ำกัน 5 แถวและประเภทเป็น manual เหมือนกันทั้ง 5 แถว ให้คงเหลือไว้ทั้ง 5 แถว ไม่ต้องลบครับ
แต่ถ้าเลขที่ใด้ซ้ำกันไม่ว่าจะซ้ำกี่จำนวนก็แล้วแต่ สมมติว่าเลขที่ซ้ำกัน 5 แถวและประเภทมีอย่างอื่นปนอยู่ที่ไม่ใช่ manual ทั้งหมดให้ลบออกไปทั้ง 5 แถวนั้นเลยครับ
Attachments
สมุดงาน1.xlsm
(19.88 KiB) Downloaded 28 times

Re: สอบถามเกี่ยวกับ Code VBA เรื่องการลบแถวที่ไม่ต้องการครับ

#2

by snasui » Sat Nov 24, 2012 1:22 pm

:D ช่วยยกตัวอย่างมาด้วยครับว่า ซ้ำ ที่พูดถึงนั้นดูอย่างไร เขียนคำอธิบายในคอลัมน์ D ต่อท้ายรายการต่าง ๆ ที่ต้องการลบ พร้อมอธิบายว่า ที่ลบนั้นเข้าเงื่อนไขใด เพื่อจะได้เข้าใจตรงกันครับ

สอบถามเกี่ยวกับ Code VBA เรื่องการลบแถวที่ไม่ต้องการครับ

#1

by niwat2811 » Sat Nov 24, 2012 12:35 pm

รบกวนสอบถามท่านผู้รู้เรื่องการลบแถวที่ไม่เข้ากับเงื่อนไขที่ต้องการ
เงื่อนไขที่ต้องการ คือ
ถ้าเลขที่บัญชีไม่ซ้ำกัน แต่ประเภทไม่ใช่ manual ให้ลบแถวนั้นออกไป
ถ้าเลขที่บัญชีซ้ำกัน และประเภทเป็น manual เช่น เลขที่ 2222 ซ้ำกันและประเภทเป็น manual ซ้ำกัน ไม่ต้องลบให้คงเหลือไว้เหมือนเดิม
ถ้าเลขที่บัญชีซ้ำกัน แต่ประเภทมีทั้ง manual และ auto เช่น เลขที่ 5555 ซ้ำกัน แต่ประเภทมีทั้ง manual และ auto ให้ลบทั้งสองแถวเลย
คำตอบที่ต้องการอยู่ที่ Sheet3 ครับ รบกวนท่านผู้รู้ช่วยปรับ Code ให้ด้วยครับ
Code อยู่ใน Module1 ชื่อ Sub DeleteRow ครับ
Attachments
สมุดงาน1.xlsm
(19.43 KiB) Downloaded 14 times

Top