สอบถามโค๊ดการเพิ่มข้อมูลที่ซ้ำกันไม่ได้ครับ VBA

[boylee1928]

อยากทราบว่าเราจะเพิ่มข้อมูลที่ซ้ำกันไม่ได้ในColumnAได้ยังไงครับ ตัวอย่างเพิ่มเลข1เข้าไปในเเถวA1 เเล้วไม่สามารถที่จะเพิ่มเลข1 เข้าไปอีกในColumn A ได้ยังไงด้วยการใช้ VBA รบกวนด้วยนะครับขอบคุณมากครับ

Code: Select all

Private Sub CommandButton_Click()
Dim wks As Worksheet
Dim AddNew As Range

Dim iExit As VbMsgBoxResult
Set wks = Sheet1
Set AddNew = wks.Range("A65356").End(xlUp).Offset(1, 0)
 
AddNew.Offset(0, 0).Value = TextBox1


End Sub

ไฟล์ตัวอย่างครับ

Book1.xlsm

[snasui]

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

Code: Select all

Set wks = Sheet1
Set AddNew = wks.Range("A65356").End(xlUp).Offset(1, 0)
If Application.CountIf(wks.Range("a:a"), Me.TextBox1.Text) = 0 Then
    AddNew.Offset(0, 0).Value = TextBox1
Else
    MsgBox "Check your value again.", vbInformation
End If

[boylee1928]

ขอบคุณมากครับ