รบกวนสอบถามคำสั่ง VBA ที่เช็คว่าถ้ามีข้อมูลใน ColumnB แล้ว

[akung]

ให้ระบบแจ้งว่าต้องการเปลี่ยนแปลงหรือไม่ ตรวจสอบอย่างไรดีครับ โดยที่ พอคีย์ ColumnA ระบบจะถามก่อนที่ข้อมูลใน ColumnA จะเปลี่ยนแปลง รบกวนด้วยครับ

Code: Select all

 If Target.Column = 1 Then
        
        With Sheets("Á.¤.")
            Set rCheck = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
        End With
        
        With Sheets("Data")
            Set Rng = .Range("A1", .Range("H" & Rows.Count).End(xlUp)) 'Range H ¤×Í Column ÊØ´·éÒ·Õè´Ö§
        End With
        
        ColName = 2
        ColAmount = 3
        ColIDMKT = 4
        ColNameMKT = 5
        ColBranch = 6
        ColPhone = 7
        
        lng = Application.CountIf(Rng.Resize(, 1), Target)
        
        If lng >= 1 Then
            Target.Offset(0, 1) = Application.VLookup(Target, Rng, ColName, 0)
            Target.Offset(0, 2) = Application.VLookup(Target, Rng, ColAmount, 0)
            Target.Offset(0, 5) = Application.VLookup(Target, Rng, ColIDMKT, 0)
            Target.Offset(0, 6) = Application.VLookup(Target, Rng, ColNameMKT, 0)
            Target.Offset(0, 8) = Application.VLookup(Target, Rng, ColBranch, 0)
            Target.Offset(0, 9) = Application.VLookup(Target, Rng, ColPhone, 0)
            Target.Offset(0, 3).Activate 'ä»·Õè ColumnD
        Else
            '¶éÒäÁèÁÕã¹°Ò¹¢éÍÁÙÅ
            MsgBox ("àÅ¢·ÕèºÑ­ªÕ¹ÕéäÁèÁÕã¹°Ò¹¢éÍÁÙÅ")
            Target.Offset(0, 0).Activate
            Target.Offset(0, 1) = "Êѹ¹Ô°Ò¹ÇèÒ»Ô´ºÑ­ªÕáÅéÇ"
            Target.Font.Color = vbRed
             Target.Font.Bold = True
            Target.Offset(0, 2) = ""
            Target.Offset(0, 5) = ""
            Target.Offset(0, 6) = ""
            Target.Offset(0, 8) = ""
            Target.Offset(0, 9) = ""
        End If

[snasui]

ตัวอย่าง Code

Code: Select all

Dim Confirm as Integer
If Target.Column = 1 Then
     Confirm = MsgBox("Are you sure?",VbYesNo)
End if
If Confirm = VbYes then
   'Do something
Else
   Exit sub
end if

[akung]

ขออภัยอาจารย์ที่ผมให้ข้อมูลไม่ชัดเจนครับ คือ ผมต้องการให้

1. เมือคีย์ที่ ColumnA แล้วให้ไปเช็คว่า ColumnB ในแถวเดียวกันมีข้อมูลอยู่หรือเปล่า
2. ถ้ามีข้อมูลอยู่ให้ถามว่าต้องการแก้ไขหรือไม่
3. ถ้าไม่ต้องการแก้ไขให้ ColumnA ยังคงข้อมูลตั้งแต่แรกก่อนที่คีย์ข้อมูลใหม่ใน ColumnA
4. ถ้าต้องการแก้ไข ก็ทำการตาม ขั้นตอนเดิม


สรุป คือ ต้องการให้ระบบถามยืนยันก่อนในกรณีที่ ColumnB ในแถวนั้น มีข้อมูลอยู่แล้วครับ ขอบคุณครับ

[snasui]

ที่เขียนมายังเป็น Concept เดิมที่ผมตอบไป เพิ่มแค่ขั้นตอนการตรวจสอบครับ

[akung]

Code: Select all

Dim Confirm as Integer
If Target.Column = 1 Then
     Confirm = MsgBox("Are you sure?",VbYesNo)
End if
If Confirm = VbYes then
   'Do something
Else
  Application.Undo
  Exit Sub
End If

ขอบคุณครับอาจารย์ ขออภัยที่ตอบช้าครับ จากการทดสอบ ถ้ากรณีตอบ No ระบบจะวนถามคำถามเดิมตลอดครับ ต้องตอบ Yes ถึงจะหลุดจาก Loop ครับ ไม่เ้ข้าใจว่าทำไมครับ

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

[snasui]

แนบไฟล์ตัวอย่างพร้อม Code มาดูกัน จะได้สะดวกในการช่วยตรวจสอบ หาสาเหตุและแนวทางแก้ไขครับ

[akung]

แนบไฟล์ตัวอย่างมาแล้วครับ

เมนูที่ใช้คีย์ข้อมูลคือ Sheets "ม.ค." ครับ โดยคีย์ข้อมูลที่ Column A แล้วระบบไปจะไปดึงข้อมูลใน Sheets "DATA" มาใส่ให้ครับ รบกวนอาจารย์ด้วยครับ

[snasui]

ช่วยอธิบายวิธีการทดสอบ ค่าที่ใช้ในการทดสอบ ผลที่ได้ ผลลัพธ์ที่ต้องการมาด้วยครับ

[akung]

ช่วยอธิบายวิธีการทดสอบ ค่าที่ใช้ในการทดสอบ ผลที่ได้ ผลลัพธ์ที่ต้องการมาด้วยครับ

วิธีการทดสอบครับ

1. ให้ไปที่ Sheets "ม.ค." แล้วคีย์ที่ Column A โดยลองไปดูข้อมูลใน Sheet "DATA" ที่เป็นฐานข้อมูลมาสัก 1 Record แล้วคีย์เลขที่รหัสลงไป เช่น 11-12345 ระบบจะดึงข้อมูลใน ColumnB จนถึง column สุดท้ายใน Sheet "DATA" มาไว้ที่ Sheet "ม.ค." ทันที่ หลักการเดี่ยวกับ Vlookup

2. ในกรณีที่เคยมีการคีย์ข้อมูลไปแล้ว แต่ต้องการแก้ไข ระบบจะถามว่าต้องการแก้ไขหรือไม่

ความต้องการคือ

เมื่อมีการเปลี่ยนแปลง และเมื่อตอบว่า No ให้สิ่งที่คีย์เปลี่ยนกลับไปข้อมูลเดิม เช่น ข้อมูลเดิมเป็น 11-12345 แต่มีการคีย์ เป็น 11-00000 แล้วเปลี่ยนใจไม่เปลี่ยน คือ กด "์NO" ให้ข้อมูลกลับไปเป็น 11-12345 เหมือนเดิม

ปัญหาคือ

ถ้าตอบ No ระบบจะถามคำถาม วน Loop ไม่เลิก คาดว่าเป็นเพราะคำสั่ง Application.Undo

รบกวนผู้รู้ทุกท่านขอเทคนิคแก้ไข เคสนี้ด้วยครับ ขอบคุณครับ

[snasui]

ค่อย ๆ ถามตอบกันไปครับ

จากไฟล์ที่แนบมา ผมคีย์ 12-12345 ซึ่งมีในฐานข้อมูลคือชีท DATA แต่โปรแกรมฟ่องว่าไม่มีในฐานข้อมูล แก้ตรงนี้ก่อนครับ

[akung]

ค่อย ๆ ถามตอบกันไปครับ

จากไฟล์ที่แนบมา ผมคีย์ 12-12345 ซึ่งมีในฐานข้อมูลคือชีท DATA แต่โปรแกรมฟอ้งว่าไม่มีในฐานข้อมูล แก้ตรงนี้ก่อนครับ

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

[akung]

ทำการแก้ไขเรียบร้อยแล้วครับ รบกวนด้วยครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    'Other code
    Application.EnableEvents = False
    If Target.Count > 1 Then Exit Sub
       'Other code
    End If
    Application.EnableEvents = True
End Sub

[akung]

ขอความหมายของคำสั่งนี้หน่อยครับอาจารย์

Application.EnableEvents = False

สำหรับ Code ใช้งานได้ครับ มีเพิ่ม Application.EnableEvents = True เข้าไปหลังคำสั่งอีกที่ตรง Application.Undo ก็สมบูรณ์ครับ ขอบคุณครับ

และถ้าต้องการให้ตอนถาม Yes No ให้สถานะเตรียมไปอยู่ตรง No ต้องทำอย่างไรครับ

[logic]

ลองดู Code นี้ครับ

Code: Select all

Confirm = MsgBox("คุณต้องการแก้ไขข้อมูลใช่หรือไม่ !?", vbYesNo + vbDefaultButton2)

[akung]

ลองดู Code นี้ครับ

Code: Select all

Confirm = MsgBox("คุณต้องการแก้ไขข้อมูลใช่หรือไม่ !?", vbYesNo + vbDefaultButton2)

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

[snasui]

ขอความหมายของคำสั่งนี้หน่อยครับอาจารย์

Application.EnableEvents = False

เป็นการเขียน Code เพื่อให้โปรแกรมไม่ต้องไปเรียกใช้ Event ใด ๆ หาก Code หลังจาก Application.EnableEvents = False ไปทำให้เกิด Event และเมื่อเพิ่ม Application.EnableEvents = False เอาไว้แล้วควรจะปิดด้วย Application.EnableEvents = True เสมอ เพื่อให้โปรแกรมกลับมายังสภาพที่พร้อมจะทำงานตาม Event อีกครั้ง