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

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

أخوتى مابالكم فى الأمانة العلمية والبحث عن الدقيق والخالى من الأخطاء طبعا هذا مستحيل فالوصول للأفضل يتطلب التجربة المستمرة للتأكد من عدم الخطأ فعذرا أخوتى وأصدقائى الأعزاء فهناك تكرار فى العمود الأول من الجدول الثانى لحالة الدمج فى الجدول الثالث والحمد لله قمت بتداركة وأسف مرة أخرى لكل الأصدقاء والأخوة والأساتذة ( حطأ بالطبع غير مقصود ) فعذرا وهذا هو المرفق الجديد والخطأ ليس خطير وليس خطأ فى أساس المعادلة ولكنه حطأ فى مرجع خلية والأن إلى المرفق: دمج جدوليين 2بجدول واحد.rar

السلام عليكم ورحمة الله وبركاته احب ان اشكر الاستاذ // ضاحي الغريب على اعماله المتميزة وجائتني فكرة تحويل اللوجو من صورة ثابتة الى متحركة اتمنى ان ينال اعجابكم... والسلام عليكم ورحمة الله وبركاته

نرحب بالأخ ضاحي و نهنيئ أنفسنا بانضمامه لفريق الموقع

السلام عليكم ورحمة الله وبركاته استاذ // ahmed alimer جزاك الله خيراً على مرورك العطر استاذ //zizo58 شكراً على دعائك وتشجيعك استاذ // أحمد الحاوي (شكراً على مرورك يا ابن بلدي ) ----------------------------------- وبعد أن طرحنا تصور لعمل الشهادات في المشاركة رقم 6 نأتي لنقطه هامة جداً وتحتاج تركيز وهي كيفية جلب البيانات إلى هذه الشهادات التي صممتها.. 2)جلب البيانات إليها وسوف اقسم هذه الجزئية إلى عملي ونظري أولا النظري ارجوا منك التفكير جيداً في أمر وهو كيف نعرف الدرجات من على الشبكة العنكبوتية ؟! نعرفها عن طريق كتابة رقم الجلوس !! في خانة فارغة فتخرج لنا النتيجة ماذا يعني هذا الكلام!!! يعني أننا نعرف الدرجات عن طريق البحث بقيمة معروفة لنا وفريدة (أي ليست متشابهة) ( وهي رقم الجلوس ) فتخرج لنا درجات الطالب... طيب نحول الكلام ده للجزء الثاني وهو العملي الجزء الثاني : العملي ونسأل أنفسنا كيف تتم هذه الطريقة عليك أن تعرف بل تحفظ عن ظهر قلب هذه الدالة الخطيرة ( vlookup ) طيب وما فائدة هذه الدالة ؟! لمعرفة فائدة هذه الدالة عليك أن تسمع هذا الفيديو جيداً ( ليس شرحي ولكن على ما أظن هو شرح الأستاذ الرائع // محمود حمودة ) www.youtube.com/watch?v=FiQDymiaIVE طيب وبعد ما سمعت الفيديو ...هل لديك تصور لعمل الشهادة؟! نعم هذه الفكرة نستطيع استغلالها في عمل شهادة!! كيف ذلك ؟!!! انظر إلى هذا الفيديو لتخرج منه قادراً على عمل الشهادة بنفسك www.youtube.com/watch?v=FiQDymiaIVE والسلام عليكم وحمة الله وبركاته مع الجزء الثالث والرابع وهو كيفية عمل اكثر من شهادة وجلب البيانات اليها وفيه سوف انبه على بعض الافكار التى جالت في خاطري لتطوير معادلة الـــ ( vlookup ) لتفادي بعض الاخطاء في عمل الشهادات.. وللحديث بقية للاستفسار في هذه النقطة يرجي ترك سؤالك لنرد عليه المرة القادمة _ بإذن الله تعالى _ والسلام عليكم ورحمة الله وبركاته

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

أخى الحبيب ( ZMZM ) دعائك جميل تقبل الله منا ومنكم صالح الأعمال شكرا أخى الحبيب على دعائك هذا ولك مثلة أضعافا مضاعفة تقبل تحيات : أخيك

أخى الحبيب ( عباس ) دائما سباق للخير ودائما متميز فى أعمالك ومشاركاتك ، ودائما مشاركاتك تنم على الحميمية والحب لكل زملائك بارك الله فيك وأكثر الله من أمثالك تقبل تحيات أخيك

أخى الحبيب الغالى ( الشهابى ) وحشتنى بجد وحشنى كل أعمالك الرائعة والتى تعلمت منها الكثير من الأفكار شكرا أخى الحبيب على مروركو الكريم تقبل تحيات أخيك المحب لكم

الأخ الكريم/احمد مجدى السلام عليكم ورحمة الله وبركاته جمعة مباركة الصبر طيب - ليس كل من شاهد يملك أو يرغب بالرد - ومن رغب بالرد قد لا يملك الوقت - فإلتمس لإخوانك العذر أعود لسؤال حضرتكم الفرق بين العبارتين بإختصار : 1- تستخدم ByVal عندما تريد تمرير متغير إلي إجراء Sub ولا تريد أن يغير هذا الإجراء من قيمة المتغير 2- تستخدم ByRef عندما تريد تمرير متغير إلي إجراء وتريد أن يغير هذا الإجراء من قيمة المتغير 3- الأصل Default في آلية تمرير المتغير داخل الإجراء - عند عدم تحديد طريقة التمرير - هو ByRef . في المرفق مثال يوضح الشرح بالأعلي - تقبل تحياتي Book1-ByVal-vs-ByRef.rar

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

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

بسم الله الرحمن الرحيم وبه نستعين السادة اعضاء منتدى اوفسينا السلام عليكم جميعا ورحمته الله وبركاته فى ظل مانلمسه جميعا من تطوير وتحديث مستمرفى هذا الصرح التعليمى المبارك وفى ظل المجهودات المتواصله والدؤبة سواءا من السيد الاستاذ الفاضل // محمد طاهر " مديرالموقع " او من الساده الزملاء القائمين على إدارته والتى نحتسب هذة المجهودات الطيبة المباركة فى موازين حسناتهم بإذن الله تعالى وكما تعلمون جميعا ان مانراه فى هذا الموقع من تفاعلات ايجابية بين الساده الاعضاء بجميع مستوياهم وبين ادارتها الحكيمة المتمثله فى الاستاذ الفاضل// محمد طاهر فقد بادرسيادته بمبادرة بشأن التحاوروالنقاش بشأن ملاحظات الأعضاء حول آلية الترقيات ونظام الموقع http://www.officena.net/ib/index.php?showtopic=51373 وللأمانه الشديدة فنحن جميعا نرى مالانراه فى مواقع اخرى نحو هذا التلاحم الغير مسبوق ولا أريد ان اقول وكأننا ولكن بالفعل نحن جميعا أسرة واحدة يربطها ميثاق المحبة والود والاحترام المتبادل وهدفنا الاسمى هو العمل الدؤب والعطاء اللا محدود لانبتغى سوى مرضاة الله سواء فيما نقدمه وفيما نعطيه لاننا اجتمعنا على حب الله اولا ثم حب العطاء والتفانى فيما وهبنا الله تعالى اياه وقد قوبلت مبادرة الاستاذ // محمد طاهر بقبول حسن واول من قام بقبول هذة الدعوة الكريمة الاستاذ الفاضل // ضاحى الغريب الذى وبفضل الله وبفضل مجهوداته الطيبة المباركة اعاد البهجة والسرور الى جروب الموقع على الفيس بوك بعد ان كان خاويا تقريبا من اية موضوعات الامر الذى سيزيد من الجروب تفاعلات أكثر وأكثر من الناحية العملية والعلميه وتبادل الافكاروالمعلومات التى تساهم بشكل كبير نحو حياة افضل وتعلم ارقى ونحن كأعضاء لنا حقوق وعلينا واجبات فحقوقنا لدى الموقع هو مانراه من تحديث وتطوير دائم لتقديم افضل الخدمات المتاحة وواجبتنا نحوه ان نتكاتف جميعا نحو ارتقائه بعطائنا اللا محدود وبحبنا اللامتناهى فيما بيننا لذا ... فضلا.... اسمحوا لى ان ادعو جميع السادة الاعضاء كلا فيما يخصه بتقديم مالديه من افكار بنائة وفعاله على ان تكون محل دراسة لا محل تقييم من اى جانب أخروالعمل على بلورتها الى واقع ملموس واول هذا الواقع الملموس ماتروه حضراتكم الان على جروب الموقع بالفيس بوك الذى ابتهج فرحا وإزدهارا https://www.facebook.com/groups/285194998167633 بارك الله فيكم ...... وجزاكم الله خيرا ….. تقبلوا وافر احترامى وتقديرى

جميل جدا ً

الاخت ام عبد الله اشكرك على كلماتك الرائعه والجميله والإطلاع على موضوعي

اخي الفاضل // محمد ابوالبراء تسلم ايديك بارك الله فيك فكرته جميلة جدا تقبل تحياتي

اقتباس من مشاركة للاستاذ منتصر الانسي

السلام عليكم فكرة بسيطة لتطوير لوجو المركز الاعلامي الى صورة متحركة

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

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

الأستاذ / محمد سعيد العمدة السلام عليكم ورحمة الله وبركاته هل تريد عدد الموظفين اثنين في كل صفحة أم ماذا تريد تم عمل كود الطباعة وتم تعديل تنسيق عنصر التحكم وبالنسبة لأدخال البيانات يوجد فقط 6 أسماء لذلك عندما يزيد عنصر التحكم عن 6 يظهر خطأ في البيانات لأنها غير موجود. عموماً إليك الملف لعله المطلوب وإن كان غير ذلك وضح ما هو المطلوب. ادخال وترحيل البيانات.rar

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

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

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

أخى ضاحى الغريب أنت أهلا لها

الأستاذ / محمد علي الطيب السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. الجديد1.rar

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

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

التالي شعار الاخ عبدالرحمن التي نوهت عنه الاخت الفاضلة سما محمد بعد اعادة استخدامه

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

أخي العزيز / محمد عوض لعل أخي العزيز الأستاذ / محمود الشريف لديه مشاغله للرد عليك وإن شاء الله يتوفر له الوقت للرد عليكم وحسب ما فهمت من مشاركتكم الأخير استبدل كود الترحيل بهذا الكود وإن شاء الله يحقق مطلوبك Sub trheel() Application.ScreenUpdating = False Dim cl As Range, i As Integer For i = 2 To 7 For Each cl In Range("E11:H" & [E10000].End(xlUp).Row) If cl.Value = Sheets(i).Name Then Sheets(i).Range("c2:ap1000").Clear cl.Offset(0, -2).Resize(1, 22).Copy Sheets(i).Range("c" & Sheets(i).[c10000].End(xlUp).Row + 1) End If Next Next End Sub فقط أضفت خاصية مسح البيانات من الأوراق المرحل لها حتى يتم الترحيل إليها مرة أخرى في السطر التالي : Sheets(i).Range("c2:ap1000").Clear تقبل تحياتي وتقديري وتحية خاصة للأستاذ القدير / محمود الشريف

أخى الكريم قمت بفصل اليتيم وغير اليتيم كل منهم بشيت مستقل أسأل الله عز وجل أن يكون هو المطلوب وتقبل منى وافر الإحترام والتقدير الايتام).rar

أخى الحبيب ( live8523 ) شكرا أخى الحبيب على مروركم وكلماتكم الجميلة بارك الله فيك وجعل فى العمل الإفادة لكم فهذا هو الهدف الحقيقى منه تقبل تحيات : أخيك

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

شكرا أخى الحبيب جزاك الله عنى خير الجزاء تقبل تحياتى

هل هذا ماتريدة أخى أنظر إلى المرفق والمعادلة فى المستوى الأعلى من أوفيس ( 2003 ) تكون كالأتى: =IFERROR(INDEX(TBL; SMALL(IF((DATE>=$C$3)*(DATE<=$C$4)*(أسم_الحساب=$C$2); ROW(TBL)-MIN(ROW(TBL))+1; ""); ROW(F1));COLUMN(F1)+1);"") والمعادلة معادلة صفيف أى لابد من الضغط على ( CTRL+SHIFT+ENTER ) كشف حساب بالدوال 2.rar

أستخدم هذه المعادلة وأسحبها لأسفل ستحقق لك المطلوب =IF($C3<>"";DATEDIF(C3;TODAY();"y");"")

ماشاء الله عليك أستاذ طارق دائما رائع وأعمالك قمة فى الجمال بارك الله فيك