Snasui Excel Forum

:D ตัวอย่างการปรับ Code ครับ

Dim x As Range
Application.EnableEvents = True
If Target.Count < 100000 Then
Application.ScreenUpdating = False
For Each x In Target
If Not Intersect(Range("B:B"), x) Is Nothing Then
If x.Value = "" And x.Offset(0, -1).Value = "" Then
x.Offset(0, 1).Value ...

:D Code ในไฟล์จะทำงานเมื่อเซลล์ใด ๆ มีการเปลี่ยนแปลงครับ ถ้าจะให้ Code ทำงานต้องคีย์ค่าในเซลล์ใด ๆ ในคอลัมน์ A เสียก่อนครับ

ควรมีตัวอย่างข้อมูลในไฟล์ตัวอย่าง พร้อมทั้งอธิบายว่าต้องการให้แสดงผลลัพธ์ในเซลล์ไหนเป็นอย่างไร จะได้สะดวกในการทำความเข้าใจครับ



ขอโทษครับ ลืมใส่กรณีตัวอย่างให้ ผมแนบไฟล ...

สวัสดีครับ เพิ่งสมัครสมาชิกครับ
พบเจอปัญหา VBA code ครับ คือ อยากจะเปรียบเทียบคอลั่ม A และคอลั่ม B ในแต่ละ Row, ถ้า 2 ช่องมีค่าเท่ากันให้แสดงคอลั่ม C ว่า "QC completed" แต่ถ้าต่างกันให้แสดงว่า "QC not completed"
จากไฟล์แนบผมนำโค้ดจากอินเตอร์เน็ตมาแก้ไข ซึ่งก่อนหน้านี้ใช้กับ Timestamp แล้วได้ผล แต่ก ...