jall77

بارك الله فيك ,جعله الله في ميزان حسناتكم

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

ننتظر منكم الجواب بارك الله فيكم

السلام عليكم نطلب منكم مساعدتي في تعديل كود تحديد رتبة تلميذ لمادة معينة داخل فصله بحيث يتغير حسب عمود و الصف لقد ساعدني أحد اعضاء هذا المنتدى المتميز في تحديد هذا الكود لكن بالنسبة خلية محدد ActiveSheet.Range("H6") = Application.WorksheetFunction.Rank([H5], Sheets(sh).Range("D" & ri & ":D" & rf)) أرغب في كود يتغير بتغير الصف و العمود مثل الشكل التالي : ActiveSheet.Cells(i, 9) = Application.WorksheetFunction.Rank(Cells(i, 8), Sheets(sh).Range(Cells(ri, cl), Cells(rf, cl))) وبارك الله فيكم Classeur1.zip

جزاك الله عنا كل خير

أطلب منكم تعديل كود المعادلة المتعلقة بتحديد رتبة الطالب في الفصل نموذج في المرفقات بارك الله فيكم Classeur1.zip

لقد وجدت كود للأستاذ : يحيى حسين Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range Static Cell As Range Static TheFormula As String Set Rng = Range("A1:A20") If Not Application.Intersect(Target, Rng) Is Nothing Then If Not Cell Is Nothing Then Cell.Formula = TheFormula End If Set Cell = ActiveCell With Cell TheFormula = .Formula .Value = .Value End With Else With Cell .Formula = TheFormula End With End If End Sub

هذا اول عملي أنجزته بعد اطلاع على مشاركات اساتذة الفضلاء في هذا المنتدى . البرنامج الذي انجزته يعمل بشكل عادي لكن عند اضافة كود حماية معادلة الخلايا اصبح هناك مشكل لم استطيع حله الكود الذي وضعته في البداية هو Activesheet.unprotect وفي النهاية وضعتActivesheet.protect البرنامج في المرفقات Bureau.rar

جعله الله في ميزان حسناتك

نرجوا منكم مساعدة لأني محتاج لهذا البرنامج تقيلوا تحياتي