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

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


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





تطبيق الدالة على كل العمود

السلام عليكم من فضلكم و المرجو مساعدتي اريد تطبق هذا الكود علي العمود G لكن باختلاف الشرط في العمود F اي في كل سطر يتغي ..



12-06-2020 06:40 مساء
ANASS1
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-04-2018
رقم العضوية : 5696
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 22-1-1990
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 46
 offline 

السلام عليكم
من فضلكم و المرجو مساعدتي 
اريد تطبق هذا الكود علي العمود G لكن باختلاف الشرط في العمود F اي في كل سطر يتغير الشرط F1 , F2, F3 ....
nl = Range("F" & Rows.Count).End(xlUp).Row
x = Application.WorksheetFunction.CountIfs(Columns(2), "A", Columns(1), Range("F1"))
Range("G1:G" & nl) = x

اترجاكم مساعدتي
jT4GZ_11 لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  11.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(17.188) KB


12-06-2020 07:54 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif تطبيق الدالة على كل العمود
هذا الماكرو

Option Explicit

Sub SALIM_Ifs()
Dim A%, F%
F = Range("F" & Rows.Count).End(3).Row
A = Range("A" & Rows.Count).End(3).Row
With Range("G1").Resize(F)
.Formula = "=COUNTIFS($B$2:$B$" & A & "," & "B2,$A$2:$A$" & A & ",F1)"
.Value = .Value
End With

End Sub


12-06-2020 10:19 مساء
مشاهدة مشاركة منفردة [2]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif تطبيق الدالة على كل العمود
شكر وتقدير باحترام من اخيك استاذى

12-06-2020 11:03 مساء
مشاهدة مشاركة منفردة [3]
ANASS1
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-04-2018
رقم العضوية : 5696
المشاركات : 48
الجنس : ذكر
تاريخ الميلاد : 22-1-1990
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 46
 offline 
look/images/icons/i1.gif تطبيق الدالة على كل العمود
شكرا كبيرا لك استاذ سليم
جزاك الله خيرا




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


 










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

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