نجوم المشاركات

السلام عليكم أخي العزيز غير الكود بالتالي Sub MOVE() Application.ScreenUpdating = False Dim RNG1, RNG2, RNG3, CEL As Range Set RNG0 = Sheets("ورقة1").[B5:C1000] Set RNG1 = Sheets("ورقة1").[C5:C1000] Set RNG2 = Sheets("ورقة1").[E5:F1000] Set RNG3 = Sheets("ورقة1").[H5:I1000] RNG0.Sort Key1:=[C5], Order1:=xlDescending [E5:I99].ClearContents For Each CEL In RNG1 If CEL.Value <= 20 Then GoTo 10 Next 10 r = CEL.Row: LR = [B999].End(xlUp).Row Range("B" & r & ":C" & LR).Copy [H5].PasteSpecial Paste:=xlPasteValues Range("B" & r & ":C" & LR).ClearContents [H19:I19].Copy: RNG0.PasteSpecial Paste:=xlPasteFormats Range("B5:C" & r - 1).Copy [E5].PasteSpecial Paste:=xlPasteValues RNG0.Sort Key1:=[B5], Order1:=xlAscending RNG2.Sort Key1:=[E5], Order1:=xlAscending RNG3.Sort Key1:=[H5], Order1:=xlAscending Application.ScreenUpdating = True End Sub أو تفضل المرفق ترحيل بشرط3.rar

( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات للاطفال هذا العمل عمل بسيط جدا جدا ولكني وجدتها فرصة كبيرة لاتقدم بشكري وعرفاني للاساتذة الكبار بالجميل فالف مليون تحية اعزاز وتقدير لكل القائمين علي خدمة المنتدي من اساتذة وخبراء ومشرفين واعضاء الشرف والاعضاء المميزين والاعضاء والضيوف ايضا احب ان انوه في البداية .... انه في منتدي الباوربوينت موضوع باسم ( لعبة الصورة المستخبية ) للاستاذ / مجدى يونس .. جزاه الله خيرا بنفس الفكرة تقريبا وعندما رأيتها اعجبت ابنتي ( سما ) كثيرا .... علي الرابط التالي ... والفكرة في الاصل بالطبع للاستاذ / مجدي ... حقوق الطبع محفوظه ( طبعا ) http://www.officena.net/ib/index.php?showtopic=45425 ولكن لعشقي الرهيب الشديد للاكسيل فقررت ان اقوم بتصميمها علي الاكسيل وها هي بين ايديكم كل ما عليك في اللعبة هو ان تضغط علي الزر الموجود اسفل الصورة يظهر لك جزء منها وكل ضغطة يظهر جزء آخر وعندما تتعرف علي الصورة اختار اسمها من الاجابات الموجودة بالاسفل ستظهر لك الصورة بالكامل ويتم الانتقال للصورة التالية و....... اترككم مع اللعبة ...بلاش كلام كتير ..... ارجو ان تحوز علي اعجابكم ارجو من كل خبراء واساتذة واعضاء ورواد هذا الصرح العملاق ( جامعة اوفيسنا ) ابداء الرأي في هذا العمل ... جزاكم الله خيرا لعبة الصورة المستخبية - اكسيل.rar

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

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

السؤال 50: لوحة الرسم القماشية عبارة عن بيئة تشبه الاطار كما تساعد على ادراج رسم او رسومات وترتيبها خاصة عندما يكون الرسم من عدة اشكال. 1 - ما الفرق بين ادراج صورة داخل لوحة الرسم القماشية وادراجها خارجها ؟ 2 - ما الاعداد الذي تفقده الكائنات المدرجة على لوحة الرسم القماشية ؟ 3 - ما الاختلاف الاساسي بين الصور والرسومات ؟ 4 - ما الفرق بين صورة مضمنة وصورة عائمة ؟ 5 - وهل تصبح الصورة المدرجةعلى لوحة الرسم القماشية مضمنة ام عائمة ؟ ولماذا؟ 6 - وهل يمكن تجميع الصور داخل لوحة الرسم القماشية ام خارجها ؟ والسلام عليكم ورحمة الله وبركاته

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

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

ولاثراء الموضوع هذا كود يقوم بعمل المطلوب Sub ragab() LR = [D10000].End(xlUp).Row For i = 5 To LR r = Split(Cells(i, 4), "/") T = 6 For ii = UBound(r) To LBound(r) Step -1 Cells(i, T) = r(ii) T = T + 1 Next Next End Sub book2.rar

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

السلام عليكم الاستاذ المهندس / دغيدى ( عميد المنتدي ) مرورك شرف لي وللموضوع نفسه كل ذلك ما هو استاذي الا من علمكم فهو ما تعلمناه منكم فدائما نظل ننهل من علمكم لنتعلم المزيد والمزيد زادكم الله من فضله ومن علمه جزاك الله خيرا

السلام عليكم الاستاذ الحبيب الحبيب / أبو حنين بارك الله فيك مرورك دائما مرور كالنسيم العليل تشجيعك لي دائما حافز لي علي فعل المزيد زادك الله من علمه استاذنا جزاك الله خيرا

عندك حق المرفق بعد التعديل وبه شرح بسيط المصنف3.rar

السلام عليكم تفضل المرفق وبه الكود يتقبل ديونا ووكلاء آخرين تتم اضافتهم حسب الحاجة ليتم ترحيل ديونهم الى الجدولين مع ثبات البيانات المرحله سابقا وبه أيضا تلوين أخضر غامق للمرحل حديثا فقط ترحيل بشرط4.rar

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

الام مدرسة شاهد واعتبر يامن لا تشاهد امك دائما الاخوة الزملاء بمناسبة عيد الام حضرت بوربوينت للام وحاولت ابعته لكن المنتدى قلى كبير علما انه بسيط واثناء البحث فى المنتديات لقيت هذا البوربوينت فحملتة فتم تحميله علما انه اكبر من السابق فقلت سبحان الله فالله يريد ان تشاهدو هذا العمل فله حكمة كبيرة بمحبة الام التى لا تعوض أمي مع أنشودة.rar

السلام عليكم و رحمة الله و بركاته الاخ العزيز الاستاذ / ابو محمد اشرف بدايه موفقه ... عمل جميل جعله الله في ميزان حسناتك جزاك الله كل خير و زادك الله من فضله و علمه و الله المستعان و السلام عليكم و رحمة الله و بركاته

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

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

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

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

ارغب في عمل برنامج علي الاكسس لسندات صرف الشيكات وكذلك بنفس البرنامج يمكنني طباعة الشيكات ومرفق لكم صورة من السند وصورة من الشيك حيث ان السند في النهاية عبارة عن مجموعة مصروفات مجمعة في سند واحد ارجو للاهمية عمل هذا البرنامج اتمني ان يتم عمل البرنامج مع امكانية حفظ السندات والشيكات الصادرة

وضح هذا الشرط لم افهمه هل تقصد القيم التي اكبر من الرقم 5 التي في العمود الاصفر ؟؟؟؟ تم تصحيح هذا في الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long, ii As Long Dim NdAry() If Target.Address <> Range("a1").Address Then Exit Sub With tahar For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If Val(.Cells(i, 19)) < 5 Then GoTo 1 If Target.Value = .Cells(i, 1).Value Then ii = ii + 1 ReDim Preserve NdAry(1 To 5, 1 To ii) NdAry(1, ii) = .Cells(i, 1).Value NdAry(2, ii) = .Cells(i, 2).Value NdAry(3, ii) = .Cells(i, 19).Value NdAry(4, ii) = .Cells(i, 4).Value NdAry(5, ii) = .Cells(i, 5).Value End If 1: Next End With If ii Then With formconto .Caption = ii .ListBox1.Clear .ListBox1.ColumnCount = 5 If ii = 1 Then .ListBox1.Column = NdAry Else .ListBox1.List = WorksheetFunction.Transpose(NdAry) End If .Show 0 End With Else MsgBox "معلومات هذا القيد غير متوفرة", vbInformation, "النتيجة" End If Erase NdAry End Sub في امان الله