يوسف عطا

من قائمة أدوات حماية إلغاء حماية ضع الباسوورد يصبح الملف غير محمى وبعد التعديل الذى تريده والخروج من الخلية يعود الملف للوضع المحمى تلقائياً

جارى احضار كود للاخ الغالى ابو نصار يقوم بهذا العمل كلمة السر 123 الكود يوضع فى حدث ThisWorkbook Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range) Dim rFormulaCheck As Range On Error Resume Next Sh.Unprotect Password:="123" With Selection .Locked = False .FormulaHidden = False End With If Target.Cells.Count = 1 Then If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With Sh.Protect Password:="123", UserInterFaceOnly:=True End If ElseIf Target.Cells.Count > 1 Then Set rFormulaCheck = Selection.SpecialCells(xlCellTypeFormulas) If Not rFormulaCheck Is Nothing Then With Selection.SpecialCells(xlCellTypeFormulas) .Locked = True .FormulaHidden = True End With Sh.Protect Password:="123", UserInterFaceOnly:=True End If End If On Error GoTo 0 End Sub

تفضل أخى الكريم تم وضع الكود فى حدث فتح الوورك بوك لا تنسى تخفيض الأمان ليتم تشغيل الماكرو تلقائياً والشكر موصول للأخ عامر وكل الأخوة المشاركين ناطق.rar

بالفعل يمكن أن تتم عملية القراءة بمجرد فتح الملف وجارى عمل مثال لسيادتكم

هل يمكن أن يوضع الكود بحيث يقرأ من الشيت مباشرة ؟؟ وهل يمكن أن نجعله 3 ماكرو ؟؟ الأول لبدء القراءة الثانى للتوقف المؤقت عن القراءة الثالث لإستكمال القراءة مع الشكر

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

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

للأسف ليس عندى أوفيس 2010 ولكن مشكور على كل حال جعله الله فى موازين حسناتك

أعجبتنى طريقة الشطرنج يا أستاذ محمود

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

العفو يا استاذ هيثم كلنا طلاب علم هنا وطالما لابد من العمل على 2003 يبقى هانضطر نستخدم العمود DK ونضع فيه معادلة كالتالى =IF(E11="منازل";IF(D11="";"";IF(DI11="غائب";"غائب";IF(AND(DH11<=0);" ناجح ومنقول للصف الثالث";" الطالب له دور ثاني في "&IF(COUNTIF(L11;"<15")+COUNTIF(Q11;"=غائب")+COUNTIF(P11;"<40")=0;;"اللغة العربية ـ ")&IF(COUNTIF(V11;"<15")+COUNTIF(AA11;"=غائب")+COUNTIF(Z11;"<30")=0;;"اللغة الانجليزية ـ ")&IF(COUNTIF(AF11;"<15")+COUNTIF(AK11;"=غائب")+COUNTIF(AJ11;"<20")=0;;"الدراسات ـ ")&IF(COUNTIF(AR11;"<15")+COUNTIF(AX11;"=غائب")+COUNTIF(AW11;"<30")=0;;"الرياضيات ـ ")&IF(COUNTIF(BF11;"<15")+COUNTIF(BK11;"=غائب")+COUNTIF(BJ11;"<20")=0;;"العلوم ـ ")&IF(COUNTIF(BP11;"<15")+COUNTIF(BU11;"=غائب")+COUNTIF(BT11;"<10")=0;;"التربية الفنية ـ ")&IF(COUNTIF(CB11;"<15")+COUNTIF(CH11;"=غائب")+COUNTIF(CG11;"<10")=0;;"الحاسب الآلي ـ ")&IF(COUNTIF(CU11;"=غائب")+COUNTIF(CV11;"<180")=0;;"المجموع ـ ")&IF(COUNTIF(DB11;"<15")+COUNTIF(DG11;"=غائب")+COUNTIF(DF11;"<10")=0;;"التربية الدينية "))));"") ويمكن إخفائه ولا حاجة لإظهاره ثم فى العمود DJ سنضع المعادلة التالية بدلاً من المعادلة الحالية =IF(E11<>"منازل";IF(D11="";"";IF(DI11="غائب";"غائب";IF(AND(DH11<=0);" ناجح ومنقول للصف الثالث";" الطالب له دور ثاني في "&IF(COUNTIF(L11;"<15")+COUNTIF(Q11;"=غائب")+COUNTIF(P11;"<40")=0;;"اللغة العربية ـ ")&IF(COUNTIF(V11;"<15")+COUNTIF(AA11;"=غائب")+COUNTIF(Z11;"<30")=0;;"اللغة الانجليزية ـ ")&IF(COUNTIF(AF11;"<15")+COUNTIF(AK11;"=غائب")+COUNTIF(AJ11;"<20")=0;;"الدراسات ـ ")&IF(COUNTIF(AR11;"<15")+COUNTIF(AX11;"=غائب")+COUNTIF(AW11;"<30")=0;;"الرياضيات ـ ")&IF(COUNTIF(BF11;"<15")+COUNTIF(BK11;"=غائب")+COUNTIF(BJ11;"<20")=0;;"العلوم ـ ")&IF(COUNTIF(BP11;"<15")+COUNTIF(BU11;"=غائب")+COUNTIF(BT11;"<10")=0;;"التربية الفنية ـ ")&IF(COUNTIF(CB11;"<15")+COUNTIF(CH11;"=غائب")+COUNTIF(CG11;"<10")=0;;"الحاسب الآلي ـ ")&IF(COUNTIF(CN11;"=غائب")+COUNTIF(CM11;"<10")=0;;"نشاط 1 ـ ")&IF(COUNTIF(CT11;"=غائب")+COUNTIF(CS11;"<10")=0;;"نشاط 2 ـ ")&IF(COUNTIF(CU11;"=غائب")+COUNTIF(CV11;"<180")=0;;"المجموع ـ ")&IF(COUNTIF(DB11;"<15")+COUNTIF(DG11;"=غائب")+COUNTIF(DF11;"<10")=0;;"التربية الدينية "))));DK11) بتمنى يكون هذا الحل ملائم لك وأعتقد أنه كذلك وإلا فالحل من وجهة نظرى غير ذلك لا يكون إلا بالأكواد الملف مرفق ولا تنس إضافة كلمة منازل أمام طالب المنازل فى العمود E Book1.rar

إستبدل المعادلة الموجودة فى الخلية DJ11 بالمعادلة التالية مع ملاحظة أن إيكسيل 2003 لا يقبلها لزيادة طولها فيجب أن تعمل على أوفيس 2007 أو 2010 كما يجب أن تكتب كلمة منازل فى العمود E أمام طالب المنازل وأرجو أن يفلح هذا الحل ولو لم يفلح لزيادة طول المعادلة فالحل عن طريق الأكواد أو عن طريق ذكر ملحوظة أمام طالب المنازل أنه معفى من النشاطين سؤال من عندى هل الأنشطة لها دور ثان ؟؟ طيب لو الإجابة لا كيف يقيم الطالب المنقطع حتى لو لم يكن منازل ؟؟ =IF(E11="منازل";IF(D11="";"";IF(DI11="غائب";"غائب";IF(AND(DH11<=0);" ناجح ومنقول للصف الثالث";" الطالب له دور ثاني في "&IF(COUNTIF(L11;"<15")+COUNTIF(Q11;"=غائب")+COUNTIF(P11;"<40")=0;;"اللغة العربية ـ ")&IF(COUNTIF(V11;"<15")+COUNTIF(AA11;"=غائب")+COUNTIF(Z11;"<30")=0;;"اللغة الانجليزية ـ ")&IF(COUNTIF(AF11;"<15")+COUNTIF(AK11;"=غائب")+COUNTIF(AJ11;"<20")=0;;"الدراسات ـ ")&IF(COUNTIF(AR11;"<15")+COUNTIF(AX11;"=غائب")+COUNTIF(AW11;"<30")=0;;"الرياضيات ـ ")&IF(COUNTIF(BF11;"<15")+COUNTIF(BK11;"=غائب")+COUNTIF(BJ11;"<20")=0;;"العلوم ـ ")&IF(COUNTIF(BP11;"<15")+COUNTIF(BU11;"=غائب")+COUNTIF(BT11;"<10")=0;;"التربية الفنية ـ ")&IF(COUNTIF(CB11;"<15")+COUNTIF(CH11;"=غائب")+COUNTIF(CG11;"<10")=0;;"الحاسب الآلي ـ ")&IF(COUNTIF(CU11;"=غائب")+COUNTIF(CV11;"<180")=0;;"المجموع ـ ")&IF(COUNTIF(DB11;"<15")+COUNTIF(DG11;"=غائب")+COUNTIF(DF11;"<10")=0;;"التربية الدينية "))));IF(D11="";"";IF(DI11="غائب";"غائب";IF(AND(DH11<=0);" ناجح ومنقول للصف الثالث";" الطالب له دور ثاني في "&IF(COUNTIF(L11;"<15")+COUNTIF(Q11;"=غائب")+COUNTIF(P11;"<40")=0;;"اللغة العربية ـ ")&IF(COUNTIF(V11;"<15")+COUNTIF(AA11;"=غائب")+COUNTIF(Z11;"<30")=0;;"اللغة الانجليزية ـ ")&IF(COUNTIF(AF11;"<15")+COUNTIF(AK11;"=غائب")+COUNTIF(AJ11;"<20")=0;;"الدراسات ـ ")&IF(COUNTIF(AR11;"<15")+COUNTIF(AX11;"=غائب")+COUNTIF(AW11;"<30")=0;;"الرياضيات ـ ")&IF(COUNTIF(BF11;"<15")+COUNTIF(BK11;"=غائب")+COUNTIF(BJ11;"<20")=0;;"العلوم ـ ")&IF(COUNTIF(BP11;"<15")+COUNTIF(BU11;"=غائب")+COUNTIF(BT11;"<10")=0;;"التربية الفنية ـ ")&IF(COUNTIF(CB11;"<15")+COUNTIF(CH11;"=غائب")+COUNTIF(CG11;"<10")=0;;"الحاسب الآلي ـ ")&IF(COUNTIF(CN11;"=غائب")+COUNTIF(CM11;"<10")=0;;"نشاط 1 ـ ")&IF(COUNTIF(CT11;"=غائب")+COUNTIF(CS11;"<10")=0;;"نشاط 2 ـ ")&IF(COUNTIF(CU11;"=غائب")+COUNTIF(CV11;"<180")=0;;"المجموع ـ ")&IF(COUNTIF(DB11;"<15")+COUNTIF(DG11;"=غائب")+COUNTIF(DF11;"<10")=0;;"التربية الدينية ")))))

جرب المعادلة المرفقة فى التنسيق الشرطى =COUNTIF(INDEX(myrng;0;COLUMN()-1);F64726)>1

ربما يفيدك أن تنسخ الموديول و تغير إسم الشيت فى الكود المنسوخ إلى إسم الشيت الذى تريده ثم تنشئ زر جديد وتضعه فى الشيت الجديد

تمت التجربة بزيادة مدى رؤوس الاعمدة وبالفعل هى تعمل اوتوماتيكياً والملف سرعته مقبولة والبطئ لم اشعر به الله ينور عليك استاذنا الكبير خبور

يا عزيزى سبق الاجابة على سؤالك اكثر من مرة الرجاء مراجعة استفساراتك والردود عليها كما من المؤكد ان اختيار عنوان واضح للاستفسار ومناسب للمضمون يعطيك حل اسرع من الزملاء

لكى يعمل الماكرو بمجرد فتح ورقة العمل لابد أن يتم وضع الكود فى حدث الصفحة عند الفتح

لكى يتم ذلك لابد أن تضع الكود فى حدث الشيت عند الفتح

أخونا الغالى ياسر بك الحافظ تمنياتنا لك بالخير دائماً ونحب أن نراك بإستمرار تنور منتداك

التنسيقات والالوان الكثيرة فى الملف تؤدى لتضخمه كنت اعمل على ملف 2 ميجا وبعد تنسيقه واستخدام الالوان فى تظليل الخلايا وبعض التنسيقلت الشرطية اصبح حجمه 80 ميجا فاستغنيت عن ما يمكن الاستغناء عنه فتقلص الملف واصبح 5 ميجا

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

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

الفكرة جميلة الله الموفق

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

أخى الغالى عباد بك بعد السلام عليكم الكود السابق الذى أرفقته حضرتك بصراحة تهت فيه وماعرفتش أمشى مع خطواته فعملت على الأكواد التى سبق أن أرفقتها سيادتكم من قبل فجمعتها مع بعض التغيير فى المسميات ووضعتها فى موديول يتم إستدعائه بزر أضغط عليه فى شيت الدرجات وهو الكود المرفق هنا ولكن ظهرت حاجة غريبة أعتقد لأن الكود بعد أن غيرت فيه ينقصه سطر ما حيث لا يقوم بعمليات الجمع العديدة به إلا بعد الضغط مرتين على الزر يعنى أول ضغطة على الزر تنجز بعض العمليات فقط ثم اضغط مرة أخرى لإستكمال عمليات الجمع أرجو تبيان الخطأ فيه مع تقديرى وإحترامى Sub جمع_الكل() On Error Resume Next Dim RR&, R& With Application .ScreenUpdating = False .EnableEvents = False RR = Cells(Rows.Count, 1).End(xlUp).Row For R = 11 To RR For TT = 1 To 100 D1 = Choose(TT, 12, 18) D2 = Choose(TT, 23, 29) D3 = Choose(TT, 34, 40) D4 = Choose(TT, 46, 54) D5 = Choose(TT, 60, 68) D6 = Choose(TT, 73, 79) D7 = Choose(TT, 85, 93) D8 = Choose(TT, 96, 99) D9 = Choose(TT, 101, 104) DA = Choose(TT, 105, 107) If Cells(R, D1) = "غ" And Cells(R, D2) = "غ" And Cells(R, D3) = "غ" _ And Cells(R, D4) = "غ" And Cells(R, D5) = "غ" And Cells(R, D6) = "غ" _ And Cells(R, D7) = "غ" And Cells(R, D8) = "غ" And Cells(R, D9) = "غ" Then Cells(R, DA) = 0 Else Cells(R, DA) = Val(Cells(R, D1)) + Val(Cells(R, D2)) + Val(Cells(R, D3)) + _ Val(Cells(R, D4)) + Val(Cells(R, D5)) + Val(Cells(R, D6)) + _ Val(Cells(R, D7)) + Val(Cells(R, D8)) + Val(Cells(R, D9)) If Cells(R, D1) = "" And Cells(R, D2) = "" And Cells(R, D3) = "" _ And Cells(R, D4) = "" And Cells(R, D5) = "" And Cells(R, D6) = "" _ And Cells(R, D7) = "" And Cells(R, D8) = "" And Cells(R, D9) = "" _ Then Cells(R, DA) = "" End If E1 = Choose(TT, 42, 56, 81) E2 = Choose(TT, 43, 57, 82) E3 = Choose(TT, 44, 58, 83) E4 = Choose(TT, 45, 59, 84) If Cells(R, E1) = "غ" And Cells(R, E2) = "غ" And Cells(R, E3) = "غ" Then Cells(R, E4) = "غ" Else Cells(R, E4) = Val(Cells(R, E1)) + Val(Cells(R, E2)) + Val(Cells(R, E3)) If Cells(R, E1) = "" And Cells(R, E2) = "" And Cells(R, E3) = "" Then Cells(R, E4) = "" End If A1 = Choose(TT, 9, 14, 11, 20, 25, 22, 31, 36, 33, 49, 48, 45, 63, 62, 59, 70, 75, 72, 88, 87, 84, 95, 100, 109, 114, 111, 120, 125, 122) A2 = Choose(TT, 10, 15, 16, 21, 26, 27, 32, 37, 38, 50, 51, 52, 64, 65, 66, 71, 76, 77, 89, 90, 91, 97, 102, 110, 115, 116, 121, 126, 127) A3 = Choose(TT, 11, 16, 17, 22, 27, 28, 33, 38, 39, 51, 52, 53, 65, 66, 67, 72, 77, 78, 90, 91, 92, 98, 103, 111, 116, 117, 122, 127, 128) If Cells(R, A1) = "غ" And Cells(R, A2) = "غ" Then Cells(R, A3) = "غ" Else Cells(R, A3) = Val(Cells(R, A2)) + Val(Cells(R, A1)) If Cells(R, A1) = "" And Cells(R, A2) = "" Then Cells(R, A3) = "" End If Next Next .ScreenUpdating = True .EnableEvents = True End With End Sub الملف مرفق جمع متنوع.rar