Excel - makro salvestamise nupp

Probleem

Sooviksin luua Exceli failis käsunupu "Record".

Kui keegi klõpsab nupule, võtab makro raku, kuhu isik on sisestanud oma nime ja lahtri, mis sisaldab vastavat kuupäeva ja salvestab andmed töövihikusse.

Lahendus

Avage oma töövihik
Avage VBA Alt F11
Topeltklõpsake vasakus vasakus nurgas nuppu ThisWorkbook
Paremklõpsake parempoolses aknas

Kopeerige allolev kood sellesse aknasse

 Sub Macro_Enregistrement () Dim Nom_Fichier, Chemin, Reponse 'A definir Chemin = "C: ..........." "A1 ja A2 muutuja suivant vos besoin Nom_Fichier = töölehed (" Feuil1 ") .Range ("A1") ja töölehed ("Feuil1"). Vahemik ("A2") & ".xlsm" retval = MsgBox ("Voulezvous enregistrer ce fichier: & Nom_Fichier &"? ", VbYesNo) Kui retval = 6 Siis Reponse = "Fichier" & Nom_Fichier & "sauvegardé" ActiveWorkbook.SaveAs Failinimi: = Chemin & Nom_Fichier, _ FileFormat: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False Else Reponse = "Fichier non sauvegardé" Lõpp Kui retval = MsgBox (Reponse) Lõpeta alam