khairi ali قام بنشر ديسمبر 30, 2020 مشاركة قام بنشر ديسمبر 30, 2020 السلام عليكم ورحمة الله وبركاته بعد التحية في الملف المرفق أريد التعديل على كود لمعرفة حالة الطالب في الامتحان غائب أو حاضر الفرز.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 30, 2020 مشاركة قام بنشر ديسمبر 30, 2020 هذا الماكرو 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 2 رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر ديسمبر 30, 2020 الكاتب مشاركة قام بنشر ديسمبر 30, 2020 بارك الله فيك أستاذ سليم على مرورك على هذا الموضوع ..... لكن هناك مشكلة وهي الطالب رقم 5 غائب وكتب أم أسمه حاضر رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر ديسمبر 31, 2020 الكاتب مشاركة قام بنشر ديسمبر 31, 2020 السلام عليكم ورحمة الله وبركاته تم الوصول للحل الشكر لكل من مر على الموضوع الفرز.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 31, 2020 أفضل إجابة مشاركة قام بنشر ديسمبر 31, 2020 (معدل) تعديل بسيط على الكود مع وضع معادلة مناسبة في العامود 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 بواسطه سليم حاصبيا 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان