vba แทรกสูตร แบบเดียวกับ row อื่น ให้เลขแถวตรงกัน ต้องปรับโค้ดอย่างไรครับ

[10idlnw]

เมื่อกดปุ่มจะลบแล้วกด No เพื่อยกเลิก อยากให้ cell ที่เลือกกลับมาเป็นสูตรเดิม(เลือกหลาย cell ก็ให้กลับคืนเหมือนเดิม)ทุกอย่างตรงตามแถว ผมลองใช้ vba undo แต่ก็ไม่ได้ โดยมีเงื่อนไขว่า DELETE จะต้องอยู่ column นี้ เท่านั้น ต้องปรับสูตรอย่างไรครับ

Code: Select all

    If Result = vbYes Then
        rng.EntireRow.Delete
    Else
            With rng.Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
            End With
 ''''''''''''''''' มัน undo ไม่ได้''''''''''''''''''''''''''''''''''''''''
            With Application
            .EnableEvents = False
            .Undo
            .EnableEvents = True
            End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Exit Sub
    End If

[snasui]

การ Undo ใน VBA เป็นการยกเลิกการทำซ้ำครั้งสุดท้ายเพียง 1 คำสั่ง ไม่สามารถย้อนไปหลาย ๆ ลำดับได้ครับ

ถ้ามีการดำเนินการเช่น ใส่สี ตีเส้น เปลี่ยนค่า จะสามารถ Undo ได้เฉพาะเปลี่ยนค่าเท่านั้น นอกจาก Undo แล้วก็มี Repeat ด้วย แต่ก็ทำซ้ำครั้งสุดท้ายเช่นเดียวกัน ไม่ได้ทำทั้งชุดคำสั่งใด ๆ

การเขียนให้ Undo จะต้องเขียน Procedure ขึ้นมาใหม่เพื่อนำสิ่งที่เปลี่ยนไปกลับสู่สภาพเดิมครับ

[10idlnw]

ถ้าใช้สูตร Rng.Formura = จะต้องใช้รูปแบบใดครับ ถึงจะตรงกันครับ

[snasui]

Copy สูตรเดิมที่เคยมีเอามาใช้ได้ หรือไม่ก็เขียนสูตรลงไปในเซลล์ที่เปลี่ยนค่าไปแล้วใหม่ การเขียนสูตรลงในเซลล์สามารถใช้การบันทึก Macro แล้วนำ Statement ที่ได้มาปรับใช้ ลองเขียนมาเองก่อนติดแล้วค่อยแนบไฟล์พร้อม Code ล่าสุดมาถามกันต่อครับ

[10idlnw]

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

rng.Formula = "=Sum(F" & rng.Row & "*G" & rng.Row & ")"