التفوق - ماكرو لتسجيل زر

القضية

أرغب في إنشاء زر أمر "تسجيل" في ملف Excel.

عندما ينقر شخص ما على الزر ، يأخذ الماكرو الخلية حيث أدخل الشخص اسمه وخلية تحتوي على التاريخ المعني وحفظ البيانات في مصنف.

حل

  • افتح المصنف الخاص بك
  • افتح VBA Alt F11
  • انقر مرتين على اليسار على ThisWorkbook في أعلى اليسار
  • انقر بزر الماوس الأيمن في النافذة اليمنى

انسخ الرمز أدناه في هذه النافذة

 Sub Macro_Enregistrement () Dim Nom_Fichier، Chemin، Reponse 'A definir Chemin = "C: \ ............ \"' A1 et A2 a changer suivant vos besoin Nom_Fichier = Worksheets ("Feuil1") .Range ("A1") وأوراق العمل ("Feuil1"). Range ("A2") & ".xlsm" retval = MsgBox ("Voulez- vous enregistrer ce fichier:" & Nom_Fichier & "؟"، vbYesNo) إذا retval = 6 Then Reponse = "Fichier" & Nom_Fichier & "sauvegardé" ActiveWorkbook.SaveAs Filename: = Chemin & Nom_Fichier، _ FileFormat: = xlOpenXMLWorkbookMacroEnabled ، CreateBackup: = False Else Reponse = "Retich نهاية الفرعية
  • إنشاء زر وتعيين الماكرو.

بفضل f894009 لهذه النصيحة.

المقال السابق المقالة القادمة

نصائح الأعلى