Excel - ปุ่มแมโครเพื่อบันทึก

ปัญหา

ฉันต้องการสร้างปุ่มคำสั่ง "บันทึก" ในไฟล์ Excel

เมื่อมีคนคลิกที่ปุ่มมาโครจะใช้เซลล์ที่บุคคลนั้นป้อนชื่อและเซลล์ของเขาที่มีวันที่ที่เกี่ยวข้องและบันทึกข้อมูลในสมุดงาน

สารละลาย

เปิดสมุดงานของคุณ
เปิด VBA Alt F11
ดับเบิลคลิกซ้ายที่ ThisWorkbook ที่มุมบนซ้าย
คลิกขวาในหน้าต่างด้านขวา

คัดลอกรหัสด้านล่างในหน้าต่างนี้

 ย่อย Macro_Enregistrement () Dim Nom_Fichier, Chemin, Reponse 'A Chemin definir = "C: \ ............ \"' A1 และ A2 และผู้เปลี่ยนที่อยู่ใกล้ ๆ Nom_Fichier = แผ่นงาน ("Feuil1") .Range ("A1") & แผ่นงาน ("Feuil1"). ช่วง ("A2") & ".xlsm" retval = MsgBox ("Voulez- vous enregistrer ce fichier:" & Nom_Fichier & "?", vbYesNo) = 6 จากนั้น Reponse = "Fichier" & Nom_Fichier & "sauvegardé" ActiveWorkbook.SaveAs Filename: = Chemin & Nom_Fichier, _ FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False Repse = "Fichier" & Msnfgieré = "Fichier" ส่วนท้าย