Snasui Excel Forum

หวังว่าอาจารย์ยังไม่ได้ดูนะครัับ
เจอสาเหตุและการแก้ไขแล้วครับ
สาเหตุ เป็นที่ปุ่ม
เป็นที่ปุ่มที่สร้างขึ้นมา อันที่จริงผมcopy ปุ่มมาจากไฟล์ที่ได้จาก web

ลองสร้างเองจากสี่เหลี่ยม ผลรับใช้ไม่ได้เหมือนเดิม
ลองปุ่มที่สร้างใหม่จากที่วงกลมก็ใช้ไม่ได้เหมือนเดิม
[attachment=1]1.JPG[/attachment]

ลอง Run จาก Listbox มาโคร ทำงานได้ปกติ ตัววันที่ไม่มีปัญหาใดๆ
[attachment=2]0.JPG[/attachment]
เลยลองสร้างปุ่มอีกแบบ[attachment=0]2.JPG[/attachment]
ทำงานได้ปกติ ตัววันที่ไม่มีปัญหาใดๆเหมือนกัน

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

โพสต์นี้ขอรบกวนอีกครั้งครับ
ช่วยทำตามขั้นตอนนี้ด้วยครับ
[attachment=2]0.JPG[/attachment]คลิกเรียกฟอร์ม


[attachment=1]1.JPG[/attachment]
เลือกใบยืม และคลิกที่ พิมพ์ใบยืม

แสดงตารางเอดสารดังนี้
[attachment=0]2.JPG[/attachment]
ใน เซล ฺB4 จากตัวอย่างเป็น 2 พ.ค. 2563
แก้ไขวันที่ เป็นวันใดก็ได้ แล้วกด enter
ผมลองแก้เป็น 5/4/2020 แล้วกด enter
ที่เซล B4 จะแสดงค่าเดิมคือ 2 พ.ค. 2563

แต่ค่าที่ผมแก้ใหม่ 5/4/2020 จะไปโชวที่ sheet "name" เซล B4

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

ขอบคุณครับ

:D ผมลองแล้วไม่มีอาการค้างที่ว่านั้นครับ

การที่หน้าจอไม่วูบวาบเกิดได้จากการสั่งให้หน้าจอหยุดนิ่งเพื่อให้ Code ทำงานเร็ว เช่น [c]application.screenupdating = false[/c]

คำว่า Debug ที่ผมกล่าวถึง คือการติดตามดูความผิดพลาดของ Code สามารถดูการทำงานของ Code ได้บ้างเพื่อจะได้ทราบเบื้องต้นว่า Code Module ใด Procedure ใดทำงานไม่ตรงตามที่ต้องการ เพื่อจะใช้หาสาเหตุของการเกิดและแก้ไข Bug

คำว่า Debug ในความหมายที่ผมใช้โดยปกติไม่ได้หมายถึงการ Error ถ้าเป็น Error ผมจะเรียก Error ไม่เรียก Debug

ส่วนการ Debug คือการติดตามการเกิด Error แก้ Error หรือแก้ Bug ครับ

ไฟล์แนบ

ขอบคุณครับ

แสดงผลทางรูปล่าง

[attachment=2]4.JPG[/attachment]

แสดงผลดังนี้
หลังจาก Run code แล้ว คำสั่งสุดท้าย จะสั่งให้ไปหน้า home

[attachment=1]5.JPG[/attachment]
ไม่มีการ Debug
จากรูปจะเห็นว่า ปุ่มเหล่านี้,มันแสดงอยู่ในหน้า home
แต่ความจริงแล้วในหน้า home เป็นแบบรูปต่อไป

แสดงผลที่ถูกต้องดังรูปล่าง
[attachment=0]6.JPG[/attachment]
ซึ่งอยู่หน้า home ครับ

มีต่อ

ปัญหาคือ ข้อมูลบางส่วนค้างอยู่ในหน้าที่กำลังแสดงผล
แสดงจุดที่ผิดพลาด
[attachment=2]0.JPG[/attachment]
จากรูปจะเห็นว่า ปุ่มเหล่านี้,มันแสดงอยู่ในหน้า home
แต่ความจริงแล้วในหน้า home จะเป็นรูปอื่น


ต้องการ ในหน้าสุดท้ายที code สั่งให้โชว์ ไม่ควรมีข้อมูลบางส่วนค้างอยู่

ขั้นตอนการทำงานดังนี้[attachment=1]1.JPG[/attachment][attachment=0]2.JPG[/attachment]


มีต่อ

:D ไม่เข้าใจปัญหาครับ

ช่วยสรุปมาใหม่อีกรอบว่าปัญหาคืออะไร ต้องการคำตอบเป็นแบบใด Code ชุดใดที่แสดงค่าผิดพลาด สงสัยว่าเกิดจากบรรทัดไหน :?:

การใช้ Code จำเป็นต้อง Debug ได้เองบ้าง คือสามารถที่จะติดตามการทำงานของ Code ว่าทำงานอย่างไร ติดขัดหรือผิดพลาดอยู่ในตำแหน่งใด ไม่เช่นนั้นก็จะศึกษา Code ได้อย่างลำบากอย่างยิ่งครับ

ไฟล์แนบครับ

ไม่น่าเป็นที่ code ดังกล่าวครับ
เพราะ ดูจากรูปนะครับ
[attachment=2]11.JPG[/attachment]
หลังจาก
Run พอมาถึงหน้านี้ ผมลองแก้ข้อความดังรูป
แก้เป็น QQQQQ ในช่องเมนูบาร์ แก้ได้ครับ แต่ช่อง เชลด้านล่างกับแสดงค่าเดิมครับ
เปิดไปดูหน้าอื่นๆ กับพบว่า QQQQQ ไปอยู่หน้าอื่น
และลองแก้วันที่ ก็พบว่า ไปอยู่หน้าอื่น เช่นกัน
และถ้าลอง Runใหม่อีกรอบ แล้วแก้ไขแบบเดิม จะพบว่าผลผิดเหมือนเดิม
แต่ที่ต่างออกไป มันจะไม่อยู่ที่หน้าเดิมมันอาจย้ายไปอยู่หน้าอื่น ครับ

จากรูปล่างมันย้ายไปอยู่หน้าอื่นๆ ครับ
[attachment=1]12.JPG[/attachment][attachment=0]13.JPG[/attachment]

:D ช่วยแนบไฟล์มาด้วยจะได้ช่วยทดสอบให้ได้ครับ

Sub Macro_Savedata()

    Dim msgValue As VbMsgBoxResult

    msgValue = MsgBox("ท่านต้องการ บันทึกรายการเครื่องมือในเอกสารใบนี้ ลงในฐานข้อมูลการเบิกยืม/คืน ใช่หรือไม่ ?", vbYesNo + vbInformation, "Confirmation")

    If msgValue = vbNo Then Exit Sub
    
    Sheets("Addrequisition1").Select
    'If copy
    If Range("B3") <> "" Then
        Range("B2:O2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
            Else
                Range("B2:O2").Select
                Selection.Copy
    End If
    
    Sheets("DatabaseREQSIT").Select
    'If Paste
    If Range("A6") <> "" Then
        Range("A5").Select
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            Else
                Range("A6").Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
    End If

        
    Call Macro_ClearData
    
    Sheets("Home").Select
        
End Sub

พอ สั่ง code ทำงาน เวลา rum เสร็จดูเหมือว่า หน้า sheet จะค้างครับ
[attachment=2]0.JPG[/attachment]
พอคลิกปุ่มอื่นทำงานปกติครับ แต่พอคลิกปุ่มลูกศรชี้ ก็ทำงานถูกต้อง แตหน้ามันค้างครับ
[attachment=1]1.JPG[/attachment]
จากรูปด้านบนี้ หลังจาก run แล้วรูปปุ่มมันโชว์ค้าง
ทั้งๆที่สถานะ sheet เปลี่ยนไปเป็น หน้า home แล้วดังรูปด้านล่างครับ
[attachment=0]2.JPG[/attachment]
ผมต้องคลิกที่หน้าอื่นแล้วค่อยกลับมาหน้า home ครับจะกลับมาปกติดังรูปด้านบน
code ที่ใช้
[code]Sub Macro_Savedata()

Dim msgValue As VbMsgBoxResult

msgValue = MsgBox("ท่านต้องการ บันทึกรายการเครื่องมือในเอกสารใบนี้ ลงในฐานข้อมูลการเบิกยืม/คืน ใช่หรือไม่ ?", vbYesNo + vbInformation, "Confirmation")

If msgValue = vbNo Then Exit Sub

Sheets("Addrequisition1").Select
'If copy
If Range("B3") <> "" Then
Range("B2:O2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Else
Range("B2:O2").Select
Selection.Copy
End If

Sheets("DatabaseREQSIT").Select
'If Paste
If Range("A6") <> "" Then
Range("A5").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If


Call Macro_ClearData

Sheets("Home").Select

End Sub
[/code]
ช่วยดูด้วยครับว่า code ผิดปกติไหม
งงมากครับ
แต่ถ้าปุ่มอื่นไม่เป็นนะครับ