أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





نسخ معادله لباقي العمود عن طريق كود

السلام عليكم ورحمة الله وبركاته هل ممكن نسخ المعادله بالعمود الذي باللون الاحمر لباقي الخلايا بالعمود عن طريق كود لإن ا ..



24-07-2020 06:42 مساء
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 

السلام عليكم ورحمة الله وبركاته
هل ممكن نسخ  المعادله بالعمود الذي باللون الاحمر لباقي الخلايا بالعمود عن طريق كود
لإن العدد كبير...وسيتم مسح هذا العمود تكرارا ...
وجزاكم الله خيرا
MzUxMTkzMQ7878286838
من فضلك عليك بعدم رفع الملف مضغوط ... طالما حجمه صغير , تجنباً لعدم اهدار وقت الأساتذة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


 
 
  نسخ معادله عن طريق كود.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(16.284) KB


24-07-2020 07:57 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نسخ معادله لباقي العمود عن طريق كود
وعليكم السلام يا دكتور
المفترض أن المنتدى تعليمي ولابد عند طرح موضوع أن ترينا محاولاتك من أجل الوصول للحل ، لأن المنتدى قائم على مبدأ التعلم .. ومبدأ حاول وافشل يكفيك شرف المحاولة
عموماً جرب الكود التالي ووضعت لك شرح لكل سطر من أسطر الكود من أجل الاستفادة من طريقة وكيفية الوصول لحل ، فالفكرة كلها في المنطق المحدد في تطبيق الخطوات من أجل الوصول لحل
Sub Fill_Formula_In_Merged_Cells()
    Rem رقم العمود الهدف المطلوب وضع المعادلة فيه
    Const colTarget As Long = 37
    Rem الإعلان عن المتغيرات المستخدمة في الكود
    Dim ws As Worksheet, lr As Long, r As Long
    Rem إيقاف اهتزاز الشاشة لتسريع الكود
    Application.ScreenUpdating = False
        Rem تعيين ورقة العمل التي سنتعامل معها
        Set ws = ThisWorkbook.Worksheets("Data")
        Rem تحديد رقم آخر صف به بيانات بناءً على العمود الثالث في الورقة
        lr = ws.Cells(Rows.Count, "C").End(xlUp).Row
        Rem حلقة تكرارية من الصف رقم 5 وحتى آخر صف به بيانات
        For r = 5 To lr
            Rem وضع المعادلة في العمود الهدف مع زيادة رقم الصف بمقدار 3
            ws.Cells(r, 37).Formula = "=IFERROR(COUNTIFMultiple(E" & r + 3 & ":AD" & r + 3 & "),"""")"
        Rem الانتقال للصف التالي
        Next r
    Rem استعادة خاصية اهتزاز الشاشة في نهاية الكود
    Application.ScreenUpdating = True
End Sub

24-07-2020 08:09 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif نسخ معادله لباقي العمود عن طريق كود
جزاك الله خيرا استاذ ياسر...بارك الله فيك
والله حاولت جاهدا فيه من صباح باكرا اليوم
حتى أنني قمت بتسجيل ماكرو لذلك...
لكن عند زيادة الخلايا كان يحدث خطأ...
ولم اقم برفع المساعده الا بعد محاولات عديده...
ربنا يبارك فيك

24-07-2020 09:04 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نسخ معادله لباقي العمود عن طريق كود
وجزيت خيراً بمثل ما دعوت لي وزيادة
وجب عليك وضع المحاولات التي حاولتها بحيث نرى ما توصلت إليه 
المهم أن الموضوع تم حله بفضل الله ، والرجاء محاولة التعلم فالأمر بسيط وليس مستحيل كما يظن الكثير من الأعضاء
الحمد لله الذي بنعمته تتم الصالحات




الكلمات الدلالية
معادله ، لباقي ، العمود ، طريق ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 04:13 صباحا