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

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


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





كود VBA من أجل تحديد خلية و اعطاءها دالة

السلام عليكم و رحمة الله و بركاته عندي هذا الملف و المطلوب انه يعطي للخلية بالأصفر في كل ورقة معادلة COUNTA بحيث تقوم بح ..


موضوع مغلق


12-02-2022 07:30 مساء
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 

السلام عليكم و رحمة الله و بركاته
عندي هذا الملف و المطلوب انه يعطي للخلية بالأصفر في كل ورقة معادلة COUNTA بحيث تقوم بحساب أول خلية فارغة من العمود B الى أخر خلية في نفس العمود كما هو مبين في الملف
كما انني قمت بعمل كود و لكنه لم ينجح 
فمثلا في الشيت الاولى تكون الخلية C24 عبارة عن معادلة  CountA(B24:B65536) حيث B24 هي اول خلية فارغة و B65536 أخر خلية فارغة
و جزاكم الله خيرا
 
 
 
  NBVAL.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(24.766) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم نور الدين
جرب الكود بهذا الشكل
Sub Test()
    Dim ws As Worksheet, lr As Long
    Application.ScreenUpdating = False
        For Each ws In ThisWorkbook.Worksheets
            lr = ws.Cells(Rows.Count, 2).End(xlUp).Row + 1
            ws.Cells(lr, 3).Formula = "= COUNTA(B" & lr & ":B65536)"
        Next ws
    Application.ScreenUpdating = True
End Sub
عرض الإجابة




12-02-2022 07:52 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود VBA من أجل تحديد خلية و اعطاءها دالة
وعليكم السلام أخي الكريم نور الدين
جرب الكود بهذا الشكل
Sub Test()
    Dim ws As Worksheet, lr As Long
    Application.ScreenUpdating = False
        For Each ws In ThisWorkbook.Worksheets
            lr = ws.Cells(Rows.Count, 2).End(xlUp).Row + 1
            ws.Cells(lr, 3).Formula = "= COUNTA(B" & lr & ":B65536)"
        Next ws
    Application.ScreenUpdating = True
End Sub

12-02-2022 08:14 مساء
مشاهدة مشاركة منفردة [2]
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 
look/images/icons/i1.gif كود VBA من أجل تحديد خلية و اعطاءها دالة
السلام عليكم و رحمة الله و بركاته
جزاكم الله خيرا أخي ياسر و حفظك الله من كل سوء
 

12-02-2022 08:57 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود VBA من أجل تحديد خلية و اعطاءها دالة
وجزيت خيراً بمثل ما دعوت لي وزيادة



الكلمات الدلالية
اعطاء ، الخلية ، معادلة ،


 










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

الساعة الآن 07:23 صباحا