Excel - tallennuspainike

Ongelma

Haluaisin luoda komentopainikkeen "Record" Excel-tiedostoon.

Kun joku napsauttaa painiketta, makro vie solun, johon henkilö on kirjoittanut nimen ja solun, joka sisältää vastaavan päivämäärän, ja tallentaa tiedot työkirjaan.

Ratkaisu

Avaa työkirja
Avaa VBA Alt F11
Kaksoisnapsauta vasemmassa yläkulmassa olevaa ThisWorkbook -painiketta
Napsauta hiiren kakkospainikkeella oikeassa ikkunassa

Kopioi alla oleva koodi tähän ikkunaan

 Sub Macro_Enregistrement () Dim Nom_Fichier, Chemin, Reponse 'A definir Chemin = "C: ..........." "A1 ja A2 vaihtajan suivant vos besoin Nom_Fichier = työarkit (" Feuil1 ") .Range ("A1") ja työarkit ("Feuil1"). Alue ("A2") & ".xlsm" retval = MsgBox ("Voulezvous enregistrer ce fichier: & Nom_Fichier &"? ", VbYesNo) Jos retval = 6 sitten Reponse = "Fichier" & Nom_Fichier & "sauvegardé" ActiveWorkbook.SaveAs Tiedostonimi: = Chemin & Nom_Fichier, _ FileFormat: = xlOpenXMLWorkbookMacroEnabled, LuoBackup: = False Else Reponse = "Fichier non sauvegardé" Lopeta Jos retval = MsgBox (Reponse) Lopeta Sub