اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

شباب ابحث عن ماكرو يقوم بالتالي:

اذا الخلية A1 تساوي 1

قم بحفظ الملف

ثم

قم باغلاق الملف

ثم

قم بفتح نفس الملف

هل هذا ممكن ؟

تحياتي لكم

Example.zip

قام بنشر (معدل)

عليكم السلام

الكود التالى يغلق الملف بعد حفظه بدون رسائل تحذير

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Sheets(1).Range("a1") = 1 Then

with Application

     .ActiveWorkbook.Save

     .ActiveWorkbook.Close

     .DisplayAlerts = False

End With

End If

End Sub

أما فتح نفس الملف بعد إغلاقة!

فكيف سينفذ كود الفتح و الملف مغلق أصلا؟

ربما رزقنا الله علما فى هذا

Example-kemas.rar

تم تعديل بواسطه kemas
قام بنشر

هلا فيك kemas

الفكرة التي افكر فيها ... هي ان اضع الماكرو بملف يكون دائماً مفتوح

والملف الآخر الذي فيه خلية A1 هو الملف الذي يتم اغلاقه ثم فتحه ...

هل هذا ممكن ؟؟؟

تحياتي لك

قام بنشر

السلام عليكم

اخي Kemas

كلامك صحيح مائة بالمائة تبعا للمطلوب الاول

و لكن اخي pinkpanther

بناء علي طلبك

قم باغلاق الملف

ثم

قم بفتح نفس الملف

هل هذا ممكن ؟

اريد ان استفسر فقط لماذا بعد الحفظ والقفل

يعاد الفتح مرة اخري مادام انه بالفعل مفتوح فمن باب

اولي ان يتم الحفظ و عدم الاغلاق نرجوا شرح ما الهدف للمعلوميه فقط

تحياتي

قام بنشر

هلا فيك aah_aah2008

المشكلة ان ملف الاكسل مربوط بسيرفر ... والسيرفر يقطع احياناً

واذا قطع ما يتحدث ملف الاكسل حتى يتم اغلاقه وفتحه من جديد ...

هل بالامكان عمل ذلك بالماكرو ؟

تحياتي لك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information