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

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


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


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

Preview




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

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



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

لقد  عملت كود بسيط  بحيث  في كل مرة يتم اضافة  رقم جديد  في العمود 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
المشاركات : 543
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 26
قوة السمعة : 4119
الاعجاب : 198
 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




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل كود اختصار الصنف احمد 9598
0 22 احمد 9598
طلب تعديل لشيت حضور وانصراف saberb3a7
0 31 saberb3a7
فورم اضافة وتعديل وحذف وحفظ الملف مجدى يونس
19 971 مجدى يونس
ماكرو بحث وتعديل البيانات oshebly
1 47 oshebly
تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم خالد الشاعر
12 96 YasserKhalil

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


 








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

الساعة الآن 05:29 صباحا

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