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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





مساعدة في تعديل كود لدالة counta

السلام عليكم لقد عملت كود بسيط بحيث في كل مرة يتم اضافة رقم جديد في العمود a يتم عد جميع القيم التي تعبا في ا ..



31-10-2019 02:28 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 214
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 148
الاعجاب : 51
 Online 

السلام عليكم 

لقد  عملت كود بسيط  بحيث  في كل مرة يتم اضافة  رقم جديد  في العمود a  يتم  عد جميع  القيم  التي تعبا في العمود  a   حيث واجهتني مشكلة  بعدم  تنفيد الكود بطريقة صحيحة  حيث يعطي رقم 1    اتمنى من معالجة الكود  وتوضيح ما المشكلة 
اليكم الكود

Sub count()
Dim count_dd As Range
Dim count_cc As Range
lastrow = Cells(Rows.count, "a").End(xlUp).Row
For i = 1 To lastrow
Set count_dd = Range("a" & i)
Set count_cc = Range("b3")
count_cc = WorksheetFunction.CountA(count_dd)
Next i
End Sub
 
 
  counta.xls   تحميل xls مرات التحميل :(4)
الحجم :(42.496) KB







31-10-2019 02:52 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 430
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3401
الاعجاب : 294
 offline 
look/images/icons/i1.gif مساعدة في تعديل كود لدالة counta
الماكرو يجب ان يكون بهذا الشكل

Sub count_A()
Dim count_dd%
count_dd = WorksheetFunction.CountA(Range("A:A"))
Range("C1") = count_dd
End Sub

أثارت هذه المشاركة إعجاب: المبتدأ، YasserKhalil، ali mohamed ali،




31-10-2019 03:59 مساء
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 214
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 148
الاعجاب : 51
 Online 
look/images/icons/i1.gif مساعدة في تعديل كود لدالة counta
شكرا  اخي سليم  كودك  ابسط من كودي وفعال 

أثارت هذه المشاركة إعجاب: YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مطلوب تعديل على كود للوقوف على ورقة معينة صلاح الصغير
8 50 YasserKhalil
ليست بوكس تعديل طريقة البحث Fadel
2 49 Fadel
مساعدة في تعديل كود لطريقة تعديل عرض التواريخ في الليست بوكس المبتدأ
3 33 YasserKhalil
التعديل على كود الإدراج الموجود في الفورم رقم 1 ayman_2000
2 54 ayman_2000
تعديل كود ضبط اظهار رسالة التحذير المبتدأ
5 66 YasserKhalil

الكلمات الدلالية
مساعدة ، تعديل ، لدالة ، counta ،


 







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



الساعة الآن 11:38 صباحا

أعلن هنا
أعلن هنا
أعلن هنا