نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية مسح محتويات خلية محددة على فتح والخروج في مصنف إكسيل؟

تتحدث هذه المقالة عن محو محتويات خلية محددة عند فتح مصنف إكسيل أو إغلاقه.

محو محتويات الخلية المحددة في المصنف مفتوحا وخروجا

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

محو محتويات الخلية المحددة في المصنف مفتوحا وخروجا


يرجى القيام على النحو التالي لمسح محتويات خلية محددة على المصنف فتح والخروج.

أولا، تحتاج إلى حفظ المصنف الذي تحتاج إلى مسح محتويات خلية محددة على فتح أو الخروج كمصنف إكسيل تمكين ماكرو.

1. من فضلك اضغط قم بتقديم > حفظ باسم > صور جاهزة. انظر لقطة الشاشة:

2. في ال حفظ باسم مربع الحوار، الرجاء تحديد مجلد لحفظ المصنف، أدخل اسما جديدا في اسم الملف مربع كما تحتاج، حدد مصنف تمكين ماكرو إكسيل من سافا كنوع القائمة المنسدلة، ثم انقر فوق حفظ .

3. في ظهرت مايكروسوفت إكسل مربع الحوار، الرجاء النقر فوق OK زر كما يظهر أدناه قطة.

4. افتح المصنف الماكرو الذي قمت بحفظه الآن، واضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

5. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة، انقر نقرا مزدوجا ThisWorkbook في الجزء الأيمن، ثم قم بنسخ التعليمات البرمجية أدناه فبا في إطار التعليمات البرمجية.

رمز فبا شنومك: مسح محتويات الخلية المحددة على المصنف مفتوحة

Private Sub Workbook_Open()
'Updated by Extendoffice 20190712
    Application.EnableEvents = False
        Worksheets("test").Range("A1:A11").Value = ""
    Application.EnableEvents = True
End Sub

رمز فبا شنومك: مسح محتويات الخلية المحددة على الخروج المصنف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20190712
    Worksheets("test").Range("A1:A11").Value = ""
End Sub

ملاحظة:: في الرموز أعلاه، والاختبار، و أكسنومك: أكسنومك هو اسم ورقة العمل ونطاق الخلية سوف مسح محتويات من. يرجى تغييرها حسب الحاجة.

6. اضغط على قديم + Q مفاتيح للخروج ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

من الآن فصاعدا، عند فتح أو إغلاق المصنف، سيتم مسح محتويات الخلية المحددة في ورقة عمل معينة تلقائيا.


مقالات ذات صلة:


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    H · 3 months ago
    Hello, for the range how would I enter the code if I want to select multiple range or cells?
  • To post as a guest, your comment is unpublished.
    Sanjay Sharma · 4 months ago
    Dear sir/madam, my sheet is protected and only specified cell (for data clearing) is not protected but when i enter the value in the specified & then re-open the excel file then value is cleared by VBA code but the specified cell is protected, i have to un-protect cell by un-protecting the sheet edit the editable range again & again so please fix.
    Thanks in advance
    • To post as a guest, your comment is unpublished.
      crystal · 3 months ago
      Hi Sanjay Sharma,
      Sorry for the inconvinience. Please apply the below VBA codes and remember to replace the sheet name and the range to your needs. Thank you for your comment.

      VBA code 1:
      Private Sub Workbook_Open()
      Application.EnableEvents = False
      Worksheets("Sheet1").Range("A1:A11").Value = ""
      Application.EnableEvents = True
      End Sub

      VBA code 2:
      Private Sub Workbook_BeforeClose(Cancel As Boolean)
      Worksheets("Sheet1").Range("A1:A11").Value = ""
      End Sub