الصـقر

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

اخى الكريم يمكنك استخدام المعادله التالية بالخلية A2 =ABS(A1) تقبل تحياتى

استاذنا الكبير عماد الحسامى والله العظيم كنت اسعد الناس عند رئيتى لمشاركتك لدرجة انى لم اصدق نفسى ههههههههههههه وبصيت على تاريخ المشاركة وابص على تاريخ اليوم بالتقويم واقول ايوة فعلا دى مشاركة اليوم الحمد لله انك بخير وصحه وعافية وان شاء الله لا تحرمنا من ابداعتك كل اعمالك بالمنتدى حفظتها عندى وعملت منها مكتبة دى بالنسبة لى كنز تعلمت منه الكثير مشاركة حضرتك كانت الساعه 4 فجرا دى بشرا ان شاء الله انه يكون فجر جديد لحضرتك معنا ويشرق معها شمس العلم تقبل تحياتى وواحترامى وتقديرى وحبى فى الله اخوك / حسام عيسى

اخى الكريم يمكنك عمل كوبى من الملف ثم حذف اسماء الموظفات ووضع اى اسماء اخرى وهميه وقم برفع الملف هنا وانا او احد الاساتذه لن يبخلو عليك بعلمهم تقبل تحياتى

اخى الحبيب معلش خدنى على قد عقلى بصراحه انا مش فاهم ايه المطلوب او بمعنى ادق ابدا من فين بعد اذن حضرتك بس تطلب طلب طلب يعنى جزئية جزئية نخلص وحده ندخل فى التانية ملحوظه صغيره ( انا مش مقتنع بفكرة الملف لانو اوراقه كتيره جدا ويمكن اختصارها الى ورقة واحده كقاعدة بيانات انظر الملف المرفق هى مجرد فكرة يمكن البدء من عندها ) تقبل تحياتى aa.zip

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

اخى الكريم اولا محلوظة صغيرة حجم الملف اكتر من 4 ميجا على الرغم من ان الملف به ورقة عمل واحده انصحك بالعمل على تخفيف حجم الملف ثانيا على حسب فهمى لطلبك الهيلوغريفى جرب المرفق فى النطاق اللى تم تظليله بالاخضر جرب تعدل الارقام من B13:B19 وشوف النتيجة هى المطلوبة بالخلية B9 او لا الملف على الرابط التالى تقبل تحياتى

اخى الكريم حضرتك ممكن ترفعه على موقع رفع مثل www.gulfup.com وتكتب لنا هنا رابط الملف وان شاء الله ما نقصر معك تقبل تحياتى

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

الاخت الكريمة ايناس انسخى الكود اللى بالمشاركة 9 وافتحى الملف اللى فيه ورقة محمية وانتى ناسية الباسورد بتاعها بعد ما تفتحى الملف اضغطى Alt+F11 هيفتح معك الفيجوال بيسك ( المغارة) من قائمة insert اختارى Module سيظهر امامك شاشه بيضه قومى بلصق الكود فيه ثم اذهبى الى اى ورقة من الملف واعملى زر وعيينى عليه الكود ومتنسيش تغيير بالكود اسم الورقة المطلوب فك حمايتها بدلا من الجموعى اللى بين الاقواس بالكود تقبلى تحياتى

اخى وحبيبى الجموعى صاحب الروائع والنوادر كل يوم تصر انك تبهرنى بشئ جديد احلى من اللى قبله زادك الله علما اخى الحبيب بس ملحوظه صغيره لو انا نسيت كلمة مرور الورقه فمن الطبيعى انى مش هقدر اعمل زر داخل الورقة واعيين علية الماكرو لفك الباسورد لذالك سوف نقوم بتعيين زر بورقة اخرى وتعيين عليها الماكرو فبعد اذنك عملت تعديل طفيف على الكود حتى يتم فك الورقة من زر اخر بورقة اخرى الكود هو Sub enleve_protection() Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer On Error Resume Next For a = 65 To 66 For b = 65 To 66 For c = 65 To 66 For d = 65 To 66 For e = 65 To 66 For f = 65 To 66 For g = 65 To 66 For h = 65 To 66 For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 32 To 126 Sheets("الجموعى").Unprotect Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l) If Sheets("الجموعى").ProtectContents = False Then MsgBox " تم إلغاء حماية ورقة " Chr (c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l) Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub فقط يتم عمل زر فى صفحه اخرى غير الورقة المراد فك الباسورد لها وتعديل بدلا من الجموعى اسم الورقة المطلوب فك الباسورد لها تقبل تحياتى كود إلغاء حماية ورقة ملف إكسل.zip

بعد أذن استاذى الكبير ياسر خليل أخى الحبيب ابراهيم ابوليله جرب المرفق ان شاء الله ينال اعجابك دا من الهدايا اللى مش بطلعها غير للغاليين فقط وانت منهم تقبل تحياتى تسلسل.zip

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

الاخت الكريمة تم عمل زر جديد لطباعه فصل كامل اختارى الفصل بالخلية S13 (يفضل عمل قائمة منسدله بالخلية S13 للفصول ) والاختيار يكون منها تقبلى تحياتى شهادتين 6.zip

الاخوة الكرام اليوم بمشيئة الله سنكمل عملية الترحيل وهنعرف ازاى نمنع المستخدم من تكرار ترحيل سند القبض ففى المره الاولى عند الضغط على زر الترحيل تظهر رساله " تم الترحيل بنجاح " وفى المره الثانية عند الضغط على زر الترحيل تظهر رسالة " تم الحفظ مسبقا" وذلك يتم باستخدم الحلقه التكرارية For next والتى قمنا بشرحها على الرابط التالى http://www.officena.net/ib/index.php?showtopic=58471&hl= اود منكم مراجعه سربعه على المشاركة رقم 48 من الصفحه 3 بالموضوع سنجد اننا وقفنا بالشرح عند هذا الكود Sub ترحيل() Application.ScreenUpdating = False If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row If [G6] = "نقدى" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[ End If If [G6] = "شيك" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "i") = [d11] .Cells(Lr + 1, "j") = "=R[-1]C+RC[-1]-RC[-2]" End If End With End Sub سنجد ان اول سطر بالكود وهو Application.ScreenUpdating = False وهو يعنى كما قلنا من قبل تثبيت حركة الشاشه عند عمل الكود **************************************************************************** السطر الثانى من الكود وهو If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub وهو يعنى اجبار المستخدم على ادخال كل بيانات سند القبض فعند عمل الكود يقوم بالتشييك على الخلايا المذكورة لو وجد بها خلية فارغه سيتوقف الكود ويظهر رساله الرجاء ادخال جميع بيانات السند قم الخروج من الكود Exit Sub ***************************************************************************** ثم السطر التالى وهو With Sheet4 وهو يعنى انى انا بقول للكود الاسطر التالية سيكون موجهه الى Sheet4 وهى تعنى الورقه المراد الترحيل البيانات اليها *************************************************************************** السطر التالى من الكود هو Lr = .Cells(.Rows.Count, "D").End(xlUp).Row وهو يعنى تعريف اخر خليه بها بيانات بالعمود D وقمنا بتسميتها LR ويمكن التغيير الى اى حرف او احرف حسب مزاجك ********************************************************************************** بعد كدا الكود بيقوم باختبار الخلية [G6] لو هى نقدى بيقوم بترحيل البيانات حسب الاسطر العمود النقدية ثم اغلاق End if // ولو هى شيك بيقوم بترحيل الاسطر الى عمود الشيكات ثم اغلاق End if المطلوب هنا قبل عملية الاختبار اذا كان نقدى او شيك ان يقوم الكود باختبار هل رقم السند اللى موجودبالخلية [G7] موجود بالعمود B يعنى تم ترحيله مسبقا أم لا يعنى عايزين نعمل كود يقوم بالذهاب الى العمود B بدءاً من الخلية B5 وحتى اخر خلية فى العمود فيها ارقام مكتوبه لو وجد فى اى خليه رقم السند اللى موجود بالخلية [G 7] يظهر لى رساله بان السند تم حفظه مسبقا ويطلع من الكود ازاى نعمل الكلام دا بالبرمجه هيكون من خلال For next For i = 5 To Lr If .Cells(i, "B") = [G7] Then MsgBox "هذا السند تم حفظة مسبقا ": Exit Sub Next عملنا حلقه تكرارية من الصف 5 بالعمود ب الى اخر خلية فى العمود بها ارقام طيب الحلقه دى هتلف على الخليه تشوف وتختبر فيها ايه هتشوف الرقم اللى موجود بالخلية [G7] موجود باى خلية منهم او لا لذالك استخدمنا IF [If .Cells(i, "B") = [G7 لو الخلية وهى Cells ( اى خلية يتم قرائتها باسم العمود ورقم الصف مثلا نقول A4 تكتب هكذا ("Cells(4, "A / رقم 4 هنا هو الصف ورقم 1 هنا هو العمود A طيب فى المثال بنتاعنا معروف العمود وهو B وغير معروف الصف الصف متغيير بالحلقه التكرارية لذالك عملنا حلقه For i = 5 To Lr و i ترمز للصف لذالك كتبنا [If .Cells(i, "B") = [G7 لو حصل الشرط ده يظهر رساله "هذا السند تم حفظة مسبقا " ويخرج من الكود ب Exit Sub وطبعا For دائما تقفل ب next وهيكون الكود بشكله النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row For i = 5 To Lr If .Cells(i, "B") = [G7] Then MsgBox "هذا السند تم حفظه مسبقا ": Exit Sub Next If [G6] = "نقدى" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" MsgBox "تم عملية الترحيل بنجاح" End If If [G6] = "شيك" ThenIf [G6] = "شيك" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "i") = [d11] .Cells(Lr + 1, "j") = "=R[-1]C+RC[-1]-RC[-2]" MsgBox "تم عملية الترحيل بنجاح" End If End With Application.ScreenUpdating = True End Sub ارحو ان اكون وفقت بالشرح ياريت تجربوا عملى حتى تتضح لكم الامور بشكل افضل تقبلوا تحياتى

الاخت الكريمة بخصوص حدث الورقه افتحى محرر الاكواد وانظرى للصورة دى بخصوص طباعه 3 شهادات صممى 3 فى الورقه بس راعى انها A4 وظبطى الزوم والهوامش ( اشتغلى على الملف الاخير اللى بعته وبعد كدا ارفعيه هنا وانا اظبط لك الاكواد) تقبل تحياتى

اخى الكريم راجع الرابط التالى للعلامه القدير رجب جاويش http://www.officena.net/ib/index.php?showtopic=51811&hl= تقبل تحياتى

الاخت ايناس تفضلى المرفق هل هو المطلوب تقبل تحياتى شهادتين 5.zip

اخى الحبيب مرحبا بيك فى منتدانا الغالى اوفيسنا اتمنى لك التوفيق وتحت امرك فى اى طلب تقبل تحياتى

اخى الكريم جرب المرفق هل هو طلبك تقبل تحياتى abduo.zip

الاخت الكريمة ايناس تفضلى الملف المرفق تم عمل الاكواد انتى بس اعملى الدرجات النهائية وجربى لو فى ملاحظات علمينى تقبلى تحياتى شهادتين.zip

استاذى احمد بكر عمل فى منتهى الروعه والاتقان زى مقال حبيبى ابن مصر استمر استمر استمر تقبل تحياتى

اخى الكريم بعد اذن حضرتك اتعب شوية واكتب الدرجه النهائية والصغرى لكل ماده وايضا التقديرات مثلا اقل من 50 يكون ضعيف من 50 الى 60 يكون مقبول وهكذا تقبل تحياتى

اخى الكريم عبده شناوى مرحبا بك بين اخوانك بخصوص الحفظ التلقائى راجع الرابط التالى للعلامه ياسر خليل http://www.officena.net/ib/index.php?showtopic=56802&hl= تقبل تحياتى abduo.zip

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