Excel Forum

:D ลองปรับแก้ที่บรรทัดนี้ดูครับ
เปลี่ยนการตรวจจับจากซีท All2 เป็น ซีท Report และเพิ่มวงเล็บปิดเข้าไปอีก 1 อัน

With Worksheets("Report")
If Application.countifs(Worksheets("All2").Range("a:a"), .Range("d4")) > 0 Then
MsgBox ("ข้อมูลซ้ำ")
Exit Sub
End If
End With

โค๊ดสามารถทำงานได้แล้วครับ ขอบคุณครับ

:D โค๊ดตัวนี้ครับอาจารย์ All2 ไม่ยอมบันทึก
:D ตัวอย่าง Code ครับ

Dim ra As Range, r As Range
Dim l As Long, i As Integer
With Worksheets("Report")
Set ra = .Range("D4,G4,D6,G6,D8,D10,G10,D12,G12,H12,D14,E14,G14,H14,E16,G16")
End With
With Worksheets("All2")
l = .Range("a" & .Rows.Count).End ...

ขออนุญาตเจ้าของกระทู้หน่อยครับพอดีได้ทดลองโค๊ดที่อาจารย์แนะนำผลปรากฏว่าไม่เกิดการเปลี่ยนแปลงใดๆ เลยครับไม่ทราบว่าเกิดจากอะไร

เข้าไปเปิดดูไฟล์ไม่ได้ครับ

ไฟล์เดียวกันแต่ทำไมรันที่เครื่องของอาจารย์กับเครื่องของผมทำให้ผลที่ได้ต่างกันแม้ว่าจะคีย์ค่าซ้ำกันในหลายเรคคอคก็ไม่มีการแจ้งเตือนใดๆ หรืออาจจะเป็นที่ตัวโปรแกรม Office ไม่สมบูรณ์ ...ขอบคุณอีกครั้งสำหรับคำแนะนำครับ

ขอบคุณครับ ผมได้แนบไฟล์ที่ทดสอบแล้วมาให้ท่านอาจารย์ช่วยตรวจสอบหน่อยครับ พยายามปรับโค๊ดหลายรอบแล้วก็ยังไม่ได้สักที

ทดลองโค๊ดดูแล้วครับไม่มีการแจ้งเตือนใดๆ เมื่อข้อมูลคีย์ซ้ำกันครับ

ขอบคุณครับ...
ได้ทดลองนำไปใช้ดูแล้วยังใช้งานไม่ได้ครับ คีย์วันที่เสร็จกด Enter ระบบก็แจ้งเตือนแล้ว ทั้งๆที่วันที่ที่กรอกก็ไม่ได้ซ้ำกัน

:D ขอคำแนะนำหน่อยครับ...
เกี่ยวกับการแจ้งเตือนเมื่อมีการคีย์ข้อมูลซ้ำกัน 2 ฟิลด์ก็ให้ขึ้นข้อความแจ้งเตือน เช่น ในตารางมีการเก็บข้อมูล 2 ฟิลด์
ID Depart SDate
1 MD 17/3/2566
2 MD 18/3/2566
ถ้ามีการบันทึก Depart เป็น MD และวันที่เป็น 18/3/2566 อีกก็ให้ขึ้นข้อความแจ้งเตือน"ข้อมูลหน่วยงานวันที่นี้บ ...

ลองตามนี้อีกวิธีครับ
ที่ B2 คีย์ =TEXT(A2,"d/m/")&25&TEXT(A2,"yy") Enter แล้ว Copy ลงล่าง

ลองตามนี้ดูครับที่ซีท GS เซลล์ F2 คีย์
=IF(กรอกคะแนน!E2="","",กรอกคะแนน!E2&"->"&IF(กรอกคะแนน!E2<VLOOKUP(E$1,กำหนดคะแนน!$B$2:$D2,2,0)/2,"ไม่ผ่าน","ผ่าน"))

แนบไฟล์ตัวอย่างพร้อมระบุคำตอบที่ต้องการมาด้วยครับเพื่อเพื่อนสมาชิกจะได้ช่วยกันทดสอบ

:D ลองปรับสูตรเดิมตามนี้ดูครับ
ที่ B7 คีย์
=SUMPRODUCT(--($A7=Data!$D$2:$D$100000),--($A$4=Data!$G$2:$G$100000),--(B$6=Data!$C$2:$C$100000),--(SUBSTITUTE(INDEX($B$5:B$5,,AGGREGATE(14,6,IF($B$5: $B$5 <>"",COLUMN($B$5:B$5)-COLUMN($B$5)+1),1)),"M","")=TEXT(Data!$B$2:$B$100000,"m"))) Enter Copy ...

ลองตามนี้ดูอีกครั้งครับ
ที่ B7 คีย์
=SUMPRODUCT(--($A7=Data!$D$2:$D$1199),--($A$4=Data!$G$2:$G$1199),--(B$6=Data!$C$2:$C$1199),--(RIGHT($B$5,(LEN($B$5)-1))=TEXT(Data!$B$2:$B$1199,"m"))) Enter Copy ไปทางขวาและลงล่าง ประยุกต์ใช้กับเซลล์ของเดือนอื่นๆ ตามต้องการ

ลองตามนี้ดูครับ
ที่ B7 คีย์
=SUMPRODUCT(--($A7=Data!$D$2:$D$1199),--($A$4=Data!$G$2:$G$1199),--(B$6=Data!$C$2:$C$1199),--(RIGHT($G$5)=TEXT(Data!$B$2:$B$1199,"m"))) Enter Copy ไปทางขวาและลงล่าง
ประยุกต์ใช้กับเซลล์อื่นๆ

:D ลองตามนี้อีกวิธีดูครับ
1.ที่ B3 คีย์ =DATE($E$1-543,MATCH($C$2,Sheet2!$A$2:$A$13,0),1)
2.ที่ B4 คีย์ =IF(ISNUMBER(B3),IF(MONTH(B3+1)=MONTH(B3),B3+1,""),"") Enter Copy ลงด้านล่าง
3.ลองเปลี่ยนชื่อเดือนที่เซลล์ C2 สังเกตุดูผลของการเปลี่ยนแปลง
หรืออีกวิธี
1.ที่ B3 คีย์ =DATE($E$1-543,MONTH(1&C2),1)
2 ...

ลองแบบนี้ดูครับ
ที่ E2 คีย์ =TEXT(B2,"B1mmm")
หรือ =TEXT(B2,"[$- ]mmm")

สูตร 2 เงื่อนไข ใช้ INDEX MATCH ขึ้น #N/A ไม่แน่ใจว่าใส่ผิดตรงไหน และต้องแก้สูตรอย่างไรครับ
ต้องการให้ข้อมูลมาแสดงที่ Sheet(showme) ที่ B3 โดยอ้างอิง A3 กับ B2 โดยอ้างอิงข้อมูลที่ Sheet(Price) A2-D5 ครับ

:D เสริมอีกทางกรณีใช้ Index Match ลองปรับแก้ตามนี้ดูครับ
ที่ B3 คีย์
=INDEX(Price!$B$2:$D ...

ลองตามนี้ดูครับ
ที่ L6 คีย์
=INDEX($C$5:$C$12,MATCH($J$6,$B$5:$B$12,0))