Snasui Excel Forum

snasui wrote: มันจะดึงข้อมูลมาให้ได้ก็ต่อเมื่อค่าที่คีย์เป็นประเภทเดียวกัน เช่นเป็นตัวเลขเหมือนกัน เป็น Text เหมือนกัน จากไฟล์ที่แนบมาได้กำหนดให้เป็น Text แต่ต้นทางเป็น Number ครับ การ Lookup และการ Match ต้องคำนึงถึงสิ่งเหล่านี้เป็นลำดับแรกเสมอจะลืมไม่ได้ครับ

snasui wrote: ผมเขียน Countif สำหรับตรวจสอบค่าซ้ำสับตำแหน่ง ที่ถูกเป็นตามตามด้านล่างครับ

Code: Select all

If Application.CountIf(rCheck, Target) > 1 Then
    MsgBox ("Double!!!")
End If

snasui wrote: ในโพสต์นี้ครับ viewtopic.php?p=21211#p21211

If Application.CountIf(rCheck, Target) > 1 Then
    MsgBox ("Double!!!")
End If

snasui wrote: ลองดูส่วนประกอบใน Countif ครับ จะเห็นว่ามันวางสับตำแหน่งกัน ให้ใช้อันหลังนี้ไปแทนอันเดิมครับ

สำหรับด้านล่างคือ Code ที่ผมปรับเพิ่มเติมโดยเอาการดักค่าผิดพลาดออกไป

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    Dim rCheck As Range
    Dim ColAmount As Integer
    Dim ColName As Integer
    Dim lng As Long
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 1 Then
        With Sheets("Sheet2")
            Set rCheck = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
        End With
        With Sheets("Sheet1")
            Set Rng = .Range("A1", .Range("C" & Rows.Count).End(xlUp))
        End With
        ColName = 2
        ColAmount = 3
        lng = Application.CountIf(Rng.Resize(, 1), Target)
        If lng >= 1 Then
            If Application.CountIf(rCheck, Target) > 1 Then
                MsgBox ("Double!!!")
            End If
            Target.Offset(0, 2) = Application.VLookup(Target, Rng, ColAmount, 0)
            Target.Offset(0, 1) = Application.VLookup(Target, Rng, ColName, 0)
        Else
             Target.Font.Color = vbRed
             Target.Font.Bold = True
        End If
    End If
End Sub

snasui wrote: Code นี้เป็นการ Check Event ว่าเมื่อเซลล์ในคอลัมน์ A มีการเปลี่ยนแปลงก็ให้ทำงาน คำว่า Target คือเซลล์ใด ๆ ที่เปลี่ยนแปลง ไม่จำเป็นต้องประกาศตัวแปรเพิ่ม เนื่องจากโปรแกรมรับค่ามาจากเหตุการณ์ที่ไปกระทำกับเซลล์และได้ประกาศไว้เรียบร้อยแล้ว นั่นคือตามด้านล่าง ซึ่งเป็นการประกาศต่อท้ายชื่อของ Procedure

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)

และ Code จะถูกวางอยู่ในชีทที่เราต้องการใช้ดักการเปลี่ยนแปลงในเซลล์ เมื่อวางถูกที่แล้วแต่ยังทำงานไม่ได้ ผมก็คงช่วยได้เท่านี้ครับ เพราะในเครื่องผมทำงานได้เป็นปกติทุกประการ

snasui wrote: Code นี้เป็นการ Check Event ว่าเมื่อเซลล์ในคอลัมน์ A มีการเปลี่ยนแปลงก็ให้ทำงาน คำว่า Target คือเซลล์ใด ๆ ที่เปลี่ยนแปลง ไม่จำเป็นต้องประกาศตัวแปรเพิ่ม เนื่องจากโปรแกรมรับค่ามาจากเหตุการณ์ที่ไปกระทำกับเซลล์และได้ประกาศไว้เรียบร้อยแล้ว นั่นคือตามด้านล่าง ซึ่งเป็นการประกาศต่อท้ายชื่อของ Procedure

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)

และ Code จะถูกวางอยู่ในชีทที่เราต้องการใช้ดักการเปลี่ยนแปลงในเซลล์ เมื่อวางถูกที่แล้วแต่ยังทำงานไม่ได้ ผมก็คงช่วยได้เท่านี้ครับ เพราะในเครื่องผมทำงานได้เป็นปกติทุกประการ