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

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


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





تعديل كود معرفة حالة الطالب حاضر أو غائب

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


موضوع مغلق


30-12-2020 09:14 مساء
Khairi
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 181
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 116
 offline 

السلام عليكم ورحمة الله وبركاته
أخواني الكرام في هذا الصرح العملاق أشكركم على تعاونكم معي 
في الملف المرفق أريد تعديل كود معرفة حالة الطالب غائب أو حاضر
 
 
  الفرز.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(487.341) KB



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


Private Sub CommandButton2_Click()

Dim ws As Worksheet: Set ws = Sheets("inpout1")

Dim lr As Integer

Dim R, Ahe3b$, Hather$

 Ahe3b = "غ": Hather = "حاضر"

 ws.Range("ai5:ai500").ClearContents

lr = ws.Range("b" & Rows.Count).End(xlUp).Row

 For R = 5 To lr

  If ws.Cells(R, "B") <> vbNullString Then

     If Application.CountIf(ws.Cells(R, "H").Resize(, 15), Ahe3b) >= 6 Then

        ws.Cells(R, "AI") = "غائب"

     Else

        ws.Cells(R, "AI") = Hather

     End If

  End If

 Next R

 End Sub

​




 




 


Salim Hasbaya


 










عرض الإجابة




30-12-2020 09:46 مساء
مشاهدة مشاركة منفردة [1]
أحمد يوسف
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 483
الجنس : ذكر
الدعوات : 2
يتابعهم : 4
يتابعونه : 11
قوة السمعة : 1129
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif تعديل كود معرفة حالة الطالب حاضر أو غائب
وعليكم السلام ... كان عليك لزاما عدم عمل تشتيت ورفع مشاركتك هنا أيضاً , طالما انك تحصلت بالفعل على كود الحل من قبل استاذنا الكبير سليم حاصبيا ... له منا كل المحبة والإحترام


Private Sub CommandButton2_Click()

Dim ws As Worksheet: Set ws = Sheets("inpout1")

Dim lr As Integer

Dim R, Ahe3b$, Hather$

 Ahe3b = "غ": Hather = "حاضر"

 ws.Range("ai5:ai500").ClearContents

lr = ws.Range("b" & Rows.Count).End(xlUp).Row

 For R = 5 To lr

  If ws.Cells(R, "B") <> vbNullString Then

     If Application.CountIf(ws.Cells(R, "H").Resize(, 15), Ahe3b) >= 6 Then

        ws.Cells(R, "AI") = "غائب"

     Else

        ws.Cells(R, "AI") = Hather

     End If

  End If

 Next R

 End Sub

​




 




 


Salim Hasbaya


 













الكلمات الدلالية
تعديل ، معرفة ، حالة ، الطالب ، حاضر ، غائب ،


 










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

الساعة الآن 11:54 مساء