Snasui Excel Forum

Posted: **Fri Jan 09, 2015 10:00 pm**

ผมต้องการเขียนสูตร VBA ให้หาข้อมูลซ้ำของ 2 คอลัมน์พร้อมกัน โดยใช้ and มาเชื่อม เงื่อนไขที่ต้องการ ดังนี้
ถ้าชีท sheet2 คอลัมน์ A ข้อมูลในเซลล์ A1 ของชีท sheet1 และ ชีท sheet2 คอลัมน์ C ข้อมูล มีคำว่า table ให้เลือกชีท sheet3 เซลล์ A1
โดยได้ปรับโค้ดเป็นดังนี้

Code: Select all

If Sheets("sheet2").Columns("a:a").Find(Worksheets("sheet1").Range("a1"), LookIn:=xlValues) And Sheets("sheet2").Columns("c:c").Find("table", LookIn:=xlValues).Rows Then
Sheets("sheet3").Select
range("A1").select

พอลองรันโค้ดปรากฎว่าผิดพราด
รบกวนขอคำแนะนำด้วยครับ

Posted: **Fri Jan 09, 2015 10:05 pm**

ไฟล์แนบครับ

Posted: **Sat Jan 10, 2015 6:24 am**

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub go_1()
    If Sheets("sheet2").Columns("a:a").Find(Worksheets("sheet1").Range("a1"), _
        LookIn:=xlValues).Row = _
        Sheets("sheet2").Columns("c:c").Find("table", LookIn:=xlValues).Row Then
        Sheets("sheet3").Select
        Range("A1").Select
    End If
End Sub

Posted: **Sun Jan 11, 2015 8:54 am**

ขอบคุณครับ
ทำได้แล้วครับ

Snasui Excel Forum

VBA ตรวจข้อมูลซ้ำ

VBA ตรวจข้อมูลซ้ำ

Re: VBA ตรวจข้อมูลซ้ำ

Re: VBA ตรวจข้อมูลซ้ำ

Re: VBA ตรวจข้อมูลซ้ำ