اذهب الي المحتوي
أوفيسنا

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

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

السلام عليكم

كود جميل من الاستاذ ابو حنين لمسح محتويات خاية

و لكني أريد ان اضع رزاً للانطلاق ،كي بيدأ هذا الكود بعمله

فما هي الطريقة /افيدوني أرجوكم يا استاذ

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

الي الاخ ابو حنين سامحني كل ماحل مشكلة تظهر مشكلة اخرى اذكلنت الخلية بها معادلة لااريد ان تمسح اريد مسح الناتج فقط لانه متغير والمعادلة ثابتة مع العلم سوف تكون هذة الخلية محمية ميما بعد وشكراً تعبتك معاي

مسح محتوى .rar

قام بنشر

اخي السؤال غير واضح

ان كنت تريد مسح الناتج مع ترك المعادلة فيكفي مسح القيم الموجودة في A و B  و يكون الكود بالشكل

Sub sClear()

Dim cel As Range
For Each cel In Range("C1:C10")
cel.Offset(0, -1) = "": cel.Offset(0, -2) = ""
Next

End Sub

و ان كان هناك توضيح آخر فارجو طرحه

قام بنشر

اخوانى الاعزاء استفدت كثيرا من علمكم جعله الله فى ميزان حسناتكم ، كود الاخوة الافاضل رائع جدا و مطلوب و اشكر الاخ محمد الخازمى على طلبه 

و لكن من المفيد ان يكون كود المسح على الخلايا المدخلة فقط و ليس على المعادلات حيث ان المعادلات يمكن حمايتها

و لكن مع وجود مدخلات كثيرة فقد يرى ان يتم مسحها بعد زمن معين فهل يمكن افادتى و ليكن مسح المحتويات فى

العمودين a  و b مثلا فى مرفق اخونا محمد و ماذا لو اعمدة متفرقة هل يمكن تحديد الاعمدة من خلال اظهار الاعمدة المراد مسحها

فهذا الموضوع يفيدنى كثيرا فى عملى مع العلم اننى ليس لدى خبرة بالاكواد

و جزاكم الله خير جزاء

قام بنشر

ريد ان تمحي القيمة التي في العمود سي بدون مسح المعادلة التي تستخدمها الخلية طبعن والمعادلة هي الخلية ان العمود سي يساود الخلية في العمود بي وهذا علي سبيل المثال تعبتك ماي سامحني اخي للتنبه وسوف تكون الخلية سي محمية للعلم لنها تكون خلية استدعاء بينات فقط ويستخجم التحرير فيها وشكراً

مسح محتوى+.rar

قام بنشر

كود رائع و جميل من الاساتذة الافاضل 

اخوكم ليس له علم بالاكواد فبرجاء المساعده فى مسح محتويات نطاق كبير من الخلايا دون مسح المعادلات و ليكن مثلا DM6:PC1500 مع التعريف بكيفية التغيير فى النطاق حسب الحاجة

و اشكركم كل الشكر 

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