ช่วยอธิบายโค้ดนี้ให้หน่อยค่ะจะเอาไปปรับใช้ค่ะ

[thinatda]

ช่วยอธิบายโค้ดนี้ให้หน่อยค่ะจะเอาไปปรับใช้ค่ะ

Code: Select all

Sub savefile()

    If MsgBox("ต้องการ บันทึกข้อมูล ใช่หรือไม่", vbYesNo, "Confirm") = vbNo Then
        Exit Sub
    End If

    savepath = Application.ActiveWorkbook.Path & "\WHT" & "_" & Format(Now, "yyyymmddhhnnss") & ".xlsm"

    ActiveWorkbook.SaveAs Filename:=savepath, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        
    MsgBox "บันทึกข้อมูลเสร็จเรียบร้อย"
    
End Sub

[snasui]

ใจความหลักคือด้านล่างครับ

ถ้าผู้ใช้ตอบ No ให้ออกจากการรัน Code

กำหนดค่าให้กับตัวแปรที่ชื่อว่า saveth เป็นสายอักขระที่เกิดจากการเชื่อมข้อความ ค่าใดที่คั่นด้วยเครื่องหมาย & แสดงว่าเป็นการนำมาเชื่อมกัน

Save ไฟล์เป็นชื่อตาม Path ตามตัวแปร savepath

[thinatda]

ใจความหลักคือด้านล่างครับ

ถ้าผู้ใช้ตอบ No ให้ออกจากการรัน Code

กำหนดค่าให้กับตัวแปรที่ชื่อว่า saveth เป็นสายอักขระที่เกิดจากการเชื่อมข้อความ ค่าใดที่คั่นด้วยเครื่องหมาย & แสดงว่าเป็นการนำมาเชื่อมกัน

Save ไฟล์เป็นชื่อตาม Path ตามตัวแปร savepath

ขอบคุณค่ะ จะลองเอาไปปรับดูค่ะ