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

Macro | ลบรายการ (Row) ที่มีเงื่อนไขตามที่กำหนดด้วย Script

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟลที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
User avatar
SaturdayAugust™
Member
Member
Posts: 14
Joined: Tue Apr 06, 2010 12:13 pm
Contact:

Macro | ลบรายการ (Row) ที่มีเงื่อนไขตามที่กำหนดด้วย Script

#1

Postby SaturdayAugust™ » Mon Apr 12, 2010 6:45 pm

เรียน คุณคนควน

รบกวนขอสอบถามครับ ผมมีข้อมูลชุดหนึ่งแล้วต้องการใช้ Script ให้ Delete row ตามที่กำหนดไว้ใน Cell ดังเอกสารแนบครับผม

ขอบคุณครับ
You do not have the required permissions to view the files attached to this post.
Attapon Koompai (อรรถพล คุ้มภัย)
: SaturdayAugust™, http://www.SaturdayAugust.com

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

Re: Macro | ลบรายการ (Row) ที่มีเงื่อนไขตามที่กำหนดด้วย Scri

#2

Postby snasui » Mon Apr 12, 2010 7:45 pm

:D ลองใช้ Code นี้ Run ดูครับ

Code: Select all

Option Explicit

Sub DelRow()
Dim r As Range
Dim i As Integer
With Worksheets("Sheet1")
    Set r = .Range(.Range("D2"), .Range("D65536").End(xlUp))
End With
For i = r.Rows.Count To 1 Step -1
    If r(i) = "H7" Then
        r(i).EntireRow.Delete
    End If
Next i
End Sub

su019
Member
Member
Posts: 50
Joined: Fri Aug 12, 2011 11:24 pm

Re: Macro | ลบรายการ (Row) ที่มีเงื่อนไขตามที่กำหนดด้วย Scri

#3

Postby su019 » Sat Aug 13, 2011 1:03 am

เราต้องสร้างปุ่ม แล้ว Assign Macro ตามสูตรของคุณ หรือว่าเอา Code ไปวางที่ View code เลยค่ะ
แล้วถ้าเกิดลบได้ บรรทัดถัดไปจะร่นขึ้นมาแทนเลยหรือเปล่าค่ะ

พอดีลองทำตามมแล้ว ไม่ประสบความสำเร็จค่ะ

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

Re: Macro | ลบรายการ (Row) ที่มีเงื่อนไขตามที่กำหนดด้วย Scri

#4

Postby snasui » Sat Aug 13, 2011 1:09 am

:D จะทำปุ่มแล้ว Assign Macro หรือไม่ก็ได้ ถ้าทำปุ่มแล้ว Assign Macro การจะให้ Code ทำงานก็คลิกที่ปุ่ม หากไม่ได้ Assign Macro ก็ต้อง Manual Run

การ Manual Run คือกดแป้น Alt+F8 > เลือก Macro ที่ต้องการ Run > คลิก Run

สำหรับ Code ด้านบนหากบรรทัดถูกลบไปก็จะขยับบรรทัดขึ้นด้านบนเพราะเป็นการลบบรรทัด ไม่ใช่การ Clear Data ในบรรทัดนั้น กรณีที่ลองทำเองแล้ว Code ไม่ทำงานหรือทำงานไม่ถูกต้อง ลองแนบไฟล์มากับกระทู้ จะช่วยดูให้ครับ

su019
Member
Member
Posts: 50
Joined: Fri Aug 12, 2011 11:24 pm

Re: Macro | ลบรายการ (Row) ที่มีเงื่อนไขตามที่กำหนดด้วย Scri

#5

Postby su019 » Sat Aug 13, 2011 1:59 pm

ตอนนี้ทำตามได้แล้วค่ะ

ถามเพิ่มเติมนะค่ะ ถ้าเราต้องการ key ที่ช่อง G1 แล้วให้ code ทำงาน ต้องเพิ่มเติมตรงไหนค่ะ ตอนนี้ต้องเขามาแก้ไข code ที่ต้องการลบใน code ของ macro ค่ะ ถึงจะลบขอมูลได้ค่ะ

ขอบคุณค่ะ

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

Re: Macro | ลบรายการ (Row) ที่มีเงื่อนไขตามที่กำหนดด้วย Scri

#6

Postby snasui » Sat Aug 13, 2011 2:12 pm

:D สามารถใช้ Worksheet_Change Event เพื่อดักจับการเปลี่ยนแปลงในเซลล์ G1 ได้ครับ เมื่อ G1 เป็นแปลงก็ไปเรียก Code ที่ชื่อ DelRow ให้ทำงาน

ซึ่ง Worksheet_Change ก็ให้วางใน Code ใน Sheet ที่ต้องการดักจับการเปลี่ยนแปลง (ในโปรแกรม VBE)

ตัวอย่าง Code

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$1" Then
    DelRow
End If
End Sub


Return to “Excel”

Who is online

Users browsing this forum: 060090, March201711 and 34 guests