احمد غانم

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

السلام عليكم الرجاء المساعدة في الملف المرفق حيث انه اذا كان المبلغ المحصل (عامود F)اكبر من المطلوب(عامود E) يجب ان تكون النتيجة ايجايبة الرجاء المساعدة في تصحيح المعادلة لكم جزيل الشكر تحصيل ايجارات.xlsx

الف شكر استاذ سليم بارك الله جهودك

السلام عليكم بعد تجربة الطريقة اعلاة عدة مرات خلال الإسبوع الماضي تبين انها لا تعمل (اي الإبقاء على تمكين الماكرة مفعلاً) و يجب تكرار خطوات التفعيل في كل مرة يتم فيها فتح برنامج اكسل. لكم جزيل الشكر

السلام عليكم اخ احمد بدرة اشكر استجابتكم بدون شك و بديهي اني احفظ التعديلات و تعمل طالما ان الجهاز شغال لكن عند تشغيل من جديد يجب ان اعيد تمكين الماكروز في كل مرة ؟؟!!!

السلام عليكم اعمل على Office 2016 في كل مرة اشغل فيها برنامج الأكسل يجب ان ادخل الى اعدادات الماكرو لتفعيله من جديد هل هذا صحيح ام ان هناك مشكلة في طريقة تفعيل الماكروز؟؟؟ الرجاء المساعدة لكم جزيل الشكر و التقدير

بارك الله جهودكم استاذ مجدي

الف شكر وجزاك الله كل الخير

بارك الله جهودك استاذ مجدي

الأخ الكريم مصطفى محمود مصطفى لك تحياتي و كل الشكر و التقدير

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

السلام عليكم لدي ملف علامات لأكثر من 300 طالب/ة لا اعلم لماذا لا استطيع عمل AVERAGE لكل طالب علماً اني تأكدت من تحويل تنسيق الأرقام من نص الى ارقام مرفق عينة من الملف حيث ان العلامات في العامود H من الجدول و المعادلة الطلوبة باللون الأخضر لكم جزيل الشكر و التقدير علامات 2018-2019-اوفسينا.rar

السلام عليكم ارجو المعذرة حصل سوء فهم

معذرة استاذ مجدي كأنه لا يوجد اي ( رابط الملف اسفل الفيديو)

ألف مبروك وأتمنى لك مزيدًا من التقدم

الف مبروك و الى مزيد من التقدم

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

السلام عليكم بارك الله جهودكم اخ مجدى يونس

السلام عليكم جرب هذا الكود لأحد الإخوة الكرام في المنتدى: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Const cnNUMCOLS As Long = 35 Const cnHIGHLIGHTCOLOR As Long = 44 'default lt. yellow Static rOld As Range Static nColorIndices(1 To cnNUMCOLS) As Long Dim i As Long Application.ScreenUpdating = False If Not rOld Is Nothing Then 'Restore color indices With rOld.Cells If .Row = ActiveCell.Row Then Exit Sub 'same row, don't restore For i = 1 To cnNUMCOLS If nColorIndices(i) = xlNone Then .Item(i).Interior.ColorIndex = xlNone Else .Item(i).Interior.Color = nColorIndices(i) End If Next i End With End If Set rOld = Cells(ActiveCell.Row, 1).Resize(1, cnNUMCOLS) With rOld For i = 1 To cnNUMCOLS nColorIndices(i) = .Item(i).Interior.Color If .Item(i).Interior.ColorIndex = xlNone Then nColorIndices(i) = xlNone Else nColorIndices(i) = .Item(i).Interior.Color End If Next i .Interior.ColorIndex = cnHIGHLIGHTCOLOR End With Application.ScreenUpdating = True End Sub

بارك الله جهدك و اطال في عمرك اخ مجدي

جزاكم الله كل الخير

احسنت اخ سليم ادامك الله ذخراً و عوناً

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

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

احسنتم بارك الله جهودكم و جعلة زيادة في ميزان اعمالكم الخيرة