VBA - زر لحفظ اسم ملف مستند إلى خلية

القضية

أحتاج إلى إنشاء زر يحفظ المستند المعدل كرقم في خلية معينة (على سبيل المثال في A6).

حل

 Sub CommandButton1_Click () '.xlsm أو xls اعتمادًا على ما إذا كنت تريد حفظ وحدات الماكرو. ActiveWorkbook.SaveAs Filename: = "c: \ archive \" & Cells (1، 6) & ".xlsm" Cells (1، 5) = "Archive" If Cells (1، 5) = "Archive" Then CommandButton1.Visible = نهاية خاطئة إذا انتهى الأمر Sub 

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