Snasui Excel Forum

Posted: **Sun Jul 15, 2018 10:51 pm**

ขอสอบถามหน่อยครับจะเพิ่ม Code อย่างไหร่ดี
ถ้าเมื่อกด Send แล้วที่ Sheet2 มีค่าซ้ำโดยยึด IV No เป็นหลัก แล้วให้มีข้อความแสดงการแจ้งเตือน
ใช้การบันทึกโดย RangeName ครับ

ได้ลองทำตามคลิปนี้ดูแล้วติดแต่ Debug หาวิธีดูในเน็ตก็ งงๆครับ
https://www.youtube.com/watch?v=TFX98VDqxQY

Code: Select all

Sub Testsend()
myVal = [IV]
[Table] = myVal
End Sub

Posted: **Mon Jul 16, 2018 8:46 pm**

เซลล์ I5 คีย์สูตร

=SUMPRODUCT(COUNTIF(Sheet2!A2:A10000,Sheet1!H8:H13))

Enter

จากนั้นปรับ Code เป็นด้านล่างครับ

Code: Select all

If [i5] > 0 Then
    MsgBox "Double"
    Exit Sub
End If
[Table].Value = [iv].Value

Snasui Excel Forum

บันทึกข้อมูล ถ้ามีค่าซ้ำให้แจ้งเตือน [VBA]

บันทึกข้อมูล ถ้ามีค่าซ้ำให้แจ้งเตือน [VBA]

Re: บันทึกข้อมูล ถ้ามีค่าซ้ำให้แจ้งเตือน [VBA]