لاستخدام VBA لإغلاق مصنف، استخدم الأسلوب Workbook.Close، وللخروج من Excel، استخدم الأسلوب Application.Quit.
فيما يلي بعض أمثلة التعليمات البرمجية: قم بإغلاق المصنف النشط والمطالبة بما إذا كنت تريد الحفظ إذا كانت هناك تغييرات في المصنف:
انسخ رمز الكود كما يلي:
Sub CloseWorkbook()
ActiveWorkbook.Close
نهاية الفرعية
إذا كنت تريد تجنب المطالبات، يمكنك إضافة المعلمة "SaveChanges"، مثل حفظ المصنف وإغلاقه مباشرة:
انسخ رمز الكود كما يلي:
Sub ClostAndSaveWorkbook()
ActiveWorkbook.Close Savechanges:=True
نهاية الفرعية
قم بتغيير "صحيح" في الكود أعلاه إلى "خطأ" لإغلاق المصنف مباشرة دون حفظه.
قم بإغلاق كافة المصنفات المفتوحة والمطالبة بما إذا كنت تريد الحفظ:
انسخ رمز الكود كما يلي:
Sub CloseAllWorkbooks()
على خطأ استئناف التالي
المصنفات.إغلاق
نهاية الفرعية
قم بالخروج من Excel ومطالبتك بحفظ المصنف الذي تم تغييره:
انسخ رمز الكود كما يلي:
سوبكويتكسل ()
التطبيق.إنهاء
نهاية الفرعية
احفظ المصنف النشط وقم بإنهاء Excel:
انسخ رمز الكود كما يلي:
Sub SaveActiveWorkAndQuit()
ActiveWorkbook.Save
التطبيق.إنهاء
نهاية الفرعية
لن يطالبك التعليمة البرمجية التالية بحفظ المصنف عند الخروج من Excel.
احفظ كافة المصنفات المفتوحة وقم بإنهاء Excel:
انسخ رمز الكود كما يلي:
Sub SaveAllAndQuit()
لكل wbk في المصنفات
wbk.Save
التالي
التطبيق.إنهاء
نهاية الفرعية
الخروج من Excel دون حفظ أي تغييرات:
انسخ رمز الكود كما يلي:
SubQutiAndNoAlerts()
Application.DisplayAlerts = خطأ
التطبيق.إنهاء
نهاية الفرعية
فيما يلي بعض العمليات الشائعة في VBA:
افتح مصنفًا جديدًا
انسخ رمز الكود كما يلي:
المصنفات.إضافة
احصل على اسم المصنف الأول
انسخ رمز الكود كما يلي:
المصنفات(1).الاسم
الحصول على عدد المصنفات المفتوحة
انسخ رمز الكود كما يلي:
المصنفات.العدد
تنشيط المصنف المفتوح الثاني
انسخ رمز الكود كما يلي:
المصنفات(2).تنشيط
تنشيط المصنف Chap02.xls
انسخ رمز الكود كما يلي:
المصنفات ("Chap02.xls").تنشيط
يتم حفظ المصنف النشط حاليًا باسم NewChap.xls
انسخ رمز الكود كما يلي:
اسم الملف ActiveWorkbook.SaveAs:="NewChap.xls"
أغلق المصنف الأول
انسخ رمز الكود كما يلي:
المصنفات(1).إغلاق
قم بإغلاق المصنف النشط حاليًا دون حفظ التغييرات
انسخ رمز الكود كما يلي:
ActiveWorkbook.Close SaveChanges:=False
أغلق كافة المصنفات المفتوحة
انسخ رمز الكود كما يلي:
المصنفات.إغلاق
إذا قمت بتشغيل المثال الأخير، فسيتم الآن إغلاق كافة المصنفات الخاصة بك.
تأكد من فتح مصنف جديد قبل استخدامه في ورقة العمل.
عند إضافة ورقة عمل واحدة، يجب أن تعرف كيفية إضافة ورقة عمل جديدة إلى المصنف، ومعرفة كيفية تحديد ورقة عمل أو مجموعة من أوراق العمل، ومعرفة كيفية تسمية أوراق العمل ونسخها ونقلها وحذفها.
في VB، تتطلب كل مهمة أسلوبًا أو خاصية متخصصة.
إضافة ورقة عمل جديدة
انسخ رمز الكود كما يلي:
أوراق العمل.إضافة
احصل على اسم ورقة العمل الأولى
انسخ رمز الكود كما يلي:
أوراق عمل(1).الاسم
حدد ورقة العمل المسماة "ورقة 3"
انسخ رمز الكود كما يلي:
أوراق عمل(3).اختر
حدد أوراق العمل الأولى والثالثة والرابعة
انسخ الكود كما يلي: أوراق العمل(Array(1,3,4)).Select
تنشيط ورقة العمل المسماة "الورقة1"
انسخ رمز الكود كما يلي:
أوراق العمل("الورقة1").تنشيط
انقل الورقة "الورقة 2" قبل الورقة "الورقة 1"
انسخ رمز الكود كما يلي:
أوراق العمل("الورقة2").النقل قبل:=أوراق العمل("الورقة1")
إعادة تسمية ورقة العمل "ورقة 2" إلى "المصروفات"
انسخ رمز الكود كما يلي:
أوراق العمل("ورقة2").الاسم = "النفقات"
الحصول على عدد أوراق العمل في المصنف الحالي
انسخ رمز الكود كما يلي:
أوراق العمل.العدد
احذف ورقة العمل "المصروفات" الموجودة في المصنف الحالي
انسخ رمز الكود كما يلي:
أوراق عمل("النفقات").حذف