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

[khairi ali]

السلام عليكم ورحمة الله وبركاته 

بعد التحية 

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

الفرز.xlsm

[سليم حاصبيا]

هذا الماكرو

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

 

[khairi ali]

بارك الله فيك أستاذ سليم على مرورك على هذا الموضوع ..... لكن هناك مشكلة وهي الطالب رقم 5 غائب  وكتب أم أسمه حاضر 

[khairi ali]

السلام عليكم ورحمة الله وبركاته

تم الوصول للحل الشكر لكل من مر على الموضوع

الفرز.xlsm

[سليم حاصبيا]

تعديل بسيط على الكود مع وضع معادلة مناسبة في العامود Z (يمكن اخفاءه)

Private Sub CommandButton2_Click()
Dim ws As Worksheet: Set ws = Sheets("inpout1")
Dim lr As Integer
Dim R, Ahe3b$, Hather$
 Ahe3b = "غائب": Hather = "حاضر"
 
 ws.Range("w5:w500").ClearContents
lr = ws.Range("b" & Rows.Count).End(xlUp).Row
 For R = 5 To lr
  ws.Cells(R, "W") = _
  Choose(ws.Cells(R, "Z") + 1, Hather, Ahe3b)
 Next

End Sub

 

Khiri.xlsm

تم تعديل ديسمبر 31, 2020 بواسطه سليم حاصبيا