aaaaamine1 قام بنشر فبراير 24, 2019 مشاركة قام بنشر فبراير 24, 2019 السلام عليكم الرجاء منكم حل هذا الإشكال في الملف المرفق و الشكر الجزيل مسبقا دمتم أوفياء لهذا المنتدى الرائع و المثمر. الملف.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 24, 2019 مشاركة قام بنشر فبراير 24, 2019 ربما كان المطلوب الكود Option Explicit Sub fil_data() Dim S_rg As Range Dim I%, m% Dim st1$, st2$ Range("g3", Range("g4").End(4)).Resize(, 4).ClearContents Set S_rg = Range("b3", Range("b4").End(4)).Resize(, 4) For I = 1 To S_rg.Rows.Count If S_rg.Cells(I, 4) <> "مشطب" Then If S_rg.Cells(I, 3) & S_rg.Cells(I, 4) <> "3 جامعي" & "ناجح" Then Cells(m + 3, "G") = S_rg.Cells(I, 1) Cells(m + 3, "H") = S_rg.Cells(I, 2) Select Case S_rg.Cells(I, 3) & S_rg.Cells(I, 4) Case "1 جامعي" & "معيد": st1 = "1 جامعي": st2 = "نعم" Case "1 جامعي" & "ناجح": st1 = "2 جامعي": st2 = "لا" Case "2 جامعي" & "معيد": st1 = "2 جامعي": st2 = "نعم" Case "2 جامعي" & "ناجح": st1 = "3 جامعي": st2 = "لا" End Select Cells(m + 3, "I") = st1: Cells(m + 3, "j") = st2 m = m + 1 End If End If Next End Sub الملف مرفق jama3i.xlsm 1 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر فبراير 24, 2019 مشاركة قام بنشر فبراير 24, 2019 السلام عليكم وحل آخر بالمعادلات... بن علية حاجي الملف.xlsx 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر فبراير 24, 2019 مشاركة قام بنشر فبراير 24, 2019 بارك الله فيكم جميعا كلها حلول ممتازة احسنتما اساتذتى الكرام 1 رابط هذا التعليق شارك More sharing options...
aaaaamine1 قام بنشر فبراير 24, 2019 الكاتب مشاركة قام بنشر فبراير 24, 2019 أشكركم جميعا الحل تمام أرجو أن تكون مساعدتكم صدقة جارية و دمتم أوفياء لهذا الصرح الكبير الرجاء من أساتذتنا الكرام التفضل بترتيب الطلبة في السنة الجامعية المقبلة بحسب المستوى و لكم جزيل الشكر و الإمتنان مسبقا. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.