พอ สั่ง code ทำงาน เวลา rum เสร็จดูเหมือว่า หน้า sheet จะค้างครับ

[yodpao.b]

พอ สั่ง code ทำงาน เวลา rum เสร็จดูเหมือว่า หน้า sheet จะค้างครับ

0.JPG (27.58 KiB) Viewed 75 times

พอคลิกปุ่มอื่นทำงานปกติครับ แต่พอคลิกปุ่มลูกศรชี้ ก็ทำงานถูกต้อง แตหน้ามันค้างครับ

1.JPG (31.9 KiB) Viewed 75 times

จากรูปด้านบนี้ หลังจาก run แล้วรูปปุ่มมันโชว์ค้าง
ทั้งๆที่สถานะ sheet เปลี่ยนไปเป็น หน้า home แล้วดังรูปด้านล่างครับ

2.JPG (36.41 KiB) Viewed 75 times

ผมต้องคลิกที่หน้าอื่นแล้วค่อยกลับมาหน้า home ครับจะกลับมาปกติดังรูปด้านบน
code ที่ใช้

Code: Select all

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 ผิดปกติไหม
งงมากครับ
แต่ถ้าปุ่มอื่นไม่เป็นนะครับ

[snasui]

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

[yodpao.b]

ไม่น่าเป็นที่ code ดังกล่าวครับ
เพราะ ดูจากรูปนะครับ

11.JPG (31.07 KiB) Viewed 69 times

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

จากรูปล่างมันย้ายไปอยู่หน้าอื่นๆ ครับ

12.JPG (13.8 KiB) Viewed 69 times

13.JPG (17.14 KiB) Viewed 69 times

[yodpao.b]

ไฟล์แนบครับ

[snasui]

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

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

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

[yodpao.b]

ปัญหาคือ ข้อมูลบางส่วนค้างอยู่ในหน้าที่กำลังแสดงผล
แสดงจุดที่ผิดพลาด

0.JPG (15.84 KiB) Viewed 54 times

จากรูปจะเห็นว่า ปุ่มเหล่านี้,มันแสดงอยู่ในหน้า home
แต่ความจริงแล้วในหน้า home จะเป็นรูปอื่น


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

ขั้นตอนการทำงานดังนี้

1.JPG (17.2 KiB) Viewed 54 times

2.JPG (40.75 KiB) Viewed 54 times

มีต่อ

[yodpao.b]

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

4.JPG (38.05 KiB) Viewed 52 times

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

5.JPG (29.11 KiB) Viewed 52 times

ไม่มีการ Debug
จากรูปจะเห็นว่า ปุ่มเหล่านี้,มันแสดงอยู่ในหน้า home
แต่ความจริงแล้วในหน้า home เป็นแบบรูปต่อไป

แสดงผลที่ถูกต้องดังรูปล่าง

6.JPG (22.72 KiB) Viewed 52 times

ซึ่งอยู่หน้า home ครับ

มีต่อ

[yodpao.b]

ไฟล์แนบ

ขอบคุณครับ

[snasui]

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

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

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

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

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

[yodpao.b]

ขอบคุณครับ

[yodpao.b]

โพสต์นี้ขอรบกวนอีกครั้งครับ
ช่วยทำตามขั้นตอนนี้ด้วยครับ

0.JPG (11.47 KiB) Viewed 42 times

คลิกเรียกฟอร์ม

1.JPG (29.17 KiB) Viewed 42 times

เลือกใบยืม และคลิกที่ พิมพ์ใบยืม

แสดงตารางเอดสารดังนี้

2.JPG (38.45 KiB) Viewed 42 times

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

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

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

[yodpao.b]

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

ลองสร้างเองจากสี่เหลี่ยม ผลรับใช้ไม่ได้เหมือนเดิม
ลองปุ่มที่สร้างใหม่จากที่วงกลมก็ใช้ไม่ได้เหมือนเดิม

1.JPG (26.87 KiB) Viewed 41 times

ลอง Run จาก Listbox มาโคร ทำงานได้ปกติ ตัววันที่ไม่มีปัญหาใดๆ

0.JPG (35.02 KiB) Viewed 41 times

เลยลองสร้างปุ่มอีกแบบ

2.JPG (11.12 KiB) Viewed 41 times

ทำงานได้ปกติ ตัววันที่ไม่มีปัญหาใดๆเหมือนกัน

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