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 ...

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

: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(&...

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

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

ไฟล์เดียวกันแต่ทำไมรันที่เครื่องของอาจารย์กับเครื่องของผมทำให้ผลที่ได้ต่างกันแม้ว่าจะคีย์ค่าซ้ำกันในหลายเรคคอคก็ไม่มีการแจ้งเตือนใดๆ หรืออาจจะเป็นที่ตัวโปรแกรม 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$100...

ลองตามนี้ดูอีกครั้งครับ
ที่ 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-...

ลองแบบนี้ดูครับ
ที่ 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$5,MAT...

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