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

وكل عام وحضراتكم بألف صحة وسعادة

الاخ الكريم ممدوح يبدو أنك لم تستجب لطلبي ... لا غيرت اسم الظهور للغة العربية ولا أرفقت النتائج المتوقعة كما طلبت منك عموماً إليك هذا الكود عله يفي بالغرض يتم ترتيب الطلاب على أساس الدرجة فإذا تساوى الطلاب في الدرجة يتم الاحتساب على أساس تاريخ الميلاد فإذا تساوى الطلاب في الدرجة وتاريخ الميلاد يكتب كلمة مكرر ... Sub TopTenYasserKhalil() Dim Cell As Range, shTemp As Worksheet, ArrRanks ArrRanks = Array("الأول", "الثاني", "الثالث", "الرابع", "الخامس", "السادس", "السابع", "الثامن", "التاسع", "العاشر") Application.ScreenUpdating = False Set shTemp = Sheets.Add With Sheets("الرصد") Intersect(Union(.Columns("E"), .Columns("G"), .Columns("H"), .Columns("DQ")), .Rows("12:" & .UsedRange.Rows.Count)).Copy End With With shTemp.Range("A2") .PasteSpecial xlPasteValues .CurrentRegion.Sort Key1:=.Columns("D"), Order1:=xlDescending, _ Key2:=.Columns("C"), Order2:=xlAscending, _ Header:=xlNo With .Parent.Range("E2:E11") For Each Cell In .Cells With Cell If (.Offset(0, -1).Value = .Offset(-1, -1).Value) And (.Offset(0, -2).Value = .Offset(-1, -2).Value) Then .Value = .Offset(-1).Value Else .Value = .Offset(-1).Value + 1 End If End With Next Cell For Each Cell In .Cells With Cell .Value = ArrRanks(.Value - 1) If .Value = .Offset(-1).Value Then .Value = .Value & " مكرر" End With Next Cell End With With .Parent .Columns("C").Delete xlShiftToLeft .Range("A2:D11").Copy Sheets("أوائل التيرم الأول ").Range("G11").PasteSpecial (xlPasteValues) End With End With Application.DisplayAlerts = False shTemp.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub كل عام وأنت بخير :gift2: كنترول ممدوح للمرحلة الإعدادية .rar

السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير هام جدا للمحاسبين والعاملون في ادارات الحسابات والمالية الاصدار الثاني (قائمة التدفقات النقدية بالاكسيل) اعداد ملف قائمة التدفقات النقدية بالطريقة الغير مباشره لأربع فترات او سنوات ماليه لتسهيل المقارنة والتحليل المالي اعداد_قائمة _التدفقات_النقديه_بالاكسيل.rar

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

اتمنى من الله عز وجل ان يكون هذا هو الحل وكل عام وانتم بخير ترتيب الطلبة حسب التخصصات.rar

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

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

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

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

المطلوب بالمرفق برنامج بطاقة الموظف الشهري والسنوي.rar

اخواني واخواتي الأعزاء السلام عليكم ورحمة الله ممكن ان يكون قد تعودنا علي شكل ProgressBar Control لكن يمكن اجراء بعض التحسينات لاضافة مظهر لها كالتالي واترككم للتجربة مع تحياتي ProgressBarControl.rar

السلام عليكم ورحمة الله وبركاته هدفيه للعاملين بالكنترولات المدرسيه ...... _ سجلات اعمال الكنترول كامله ... _ توزيع الملاحظين اليا على اللجان .... مع تحياتى ....

السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذا الموضوع قد قتل بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكن هو طلب لأحد الاعضاء ( الاخ الكريم / alredha ) ولكني اردت ان اجعله موضوع بعنوان واضح ليستفيد من الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة افتتاحية باسم مستخدم ورقم سري ولايظهر الاكسيل الا بعد اعطاء الشاشة البيانات الصحيحة وطبعاً والاكيد كله من علمكم اساتذتي الكرام وفي الدرس القادم سنتعرف علي طريقة عمل اكواد الشاشة لتعمل معنا علي اي برنامج لدينا او اي برنامج سنقوم بتصميمه فيما بعد جزاكم الله خيرا اساتذتنا طريقة عمل الشاشة الافتتاحية شرح علي الورد1.rar شرح عمل شاشة افتتاحية فيديو1.rar طريقة عمل الشاشة الافتتاحية اكسيل1.rar

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

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

عندما قمت بحل طلبك الخاص بالجمع كان التطبيق على مرفق حضرتك وبما ان المعادلة المستخدمة من قبلك بها خطأ واستخدمت مرفق الاستاذ سليم قم بتغيير تنسيق الخلية D37 ( خلية المجموع) الى GENERAL تقبلوا تحياتى

لتنفيذ المعادلة لا يكفيها Enter يجب ان تضغط باستمرار على Ctrl + Shit ثم Enter لانها معادلة صفيف

هل حلت المشكلة الاولى ???

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

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

شكرا استاذ ياسر على الايضاح

تستطيع ان تنسخ المربع الاول و تلصقه مرة ثانية و من ثم تغيير اسمه

لا تنسى أن تضغط على كلمة "أعجبني هذا" على المشاركات التي أعجبتك بالفعل ولا تنسى أن تقوم بتغيير اسم الظهور للغة العربية تقبل الله منا ومنكم وعساكم من عوادة .. يلا تحية بزيادة

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

كل عام الجميع بكل خير تقبل الله منا ومنكم صالح الأعمال طلباتك أوامر أستاذ ياسر قريبا إن شاء الله

أخى الكريم ياسر البنا مبروك الترقية و إلى الأمام بإذن الله

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

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

أ. ياسر فتحى فيديو رائع جزاك الله خيراً

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

الاستاذ / ياسر دائما مبدع ، وتقدم الحل السهل الجميل

السلام عليكم الأخ الكريم هشام مبارك تغيير الاسم للغتنا الجميلة و فخرنا و عزتنا و لغة جنتنا ان شاء الله أحاول جاهدا الاهتداء لفكرة للحل و لكن محاولاتى لم تفلح بعد اقوم بعدة محاولات على صيغ Rank,Vlookup,if,Hlookup,lookup لم أهتدى الى خيط يمكننى منه الوصول لنتيجة و منتظر لشئ يريح أعصابى المتعبة من البحث عن طرف الخيط ان شاء الله نجد حل رائع من الأخوة الأفاضل دمت بخير و أعزك الله

مرفق ملف ارجو ان يكون المطلوبسلسلة تاريخ بالمعادلات.rar سلسلة تاريخ بالمعادلات.rar

السلام عليكم و رحمة الله .. بارك الله بك أخي و جزاك الله خيرا ... فقط للدقة , قمت بتعديل بسيط و هو حذف حقلين من الاستعلام الخاص بالتقرير , فهما غير مطلوبان و لا يظهران على التقرير و لا يدخلان بحساب العمولة (اقصد مجموع قيم الفواتير , فنحن نحسب العمولة بناء على العدد و ليس على قيم الفواتير .. لذلك تم حذف هذه القيم من الاستعلام , فهي لن تؤثر على التقرير ابدا ). بالتوفيق. test_up_003.zip

اخى الكريم شاهد هذا الفيديو

اخي الكريم تفضل تم التعديل على المثال آمل ان يلبي حاجتك 12_UP.rar

معذرة هذا هو المثال بعد التعديل السؤال2.rar

وعليكم السلام ورحمة الله وبركاته عيدكم مبارك فى حدث عند الفتح للتقرير اكتب مثل هذا الكود: Me.A.hieght = Me.B.hieght وبالامكان فعل هذا يدويا فى طريقة عرض التصميم للتقرير وبالله التوفيق

اخى الكريم هل هذا ما تريد بعد اذن استاذنا ابو خليل السؤال.rar

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

و عليكم السلام و رحمة الله و بركاته كل عام و أنت و الأسرة الكريمة بخير ، أحب فى البداية أن أوجهك الى قراءة هذا الموضوع بعناية http://www.officena.net/ib/index.php?showtopic=60147 التوجيهات للأعضاء الجدد و فضلا لا أمرا يرجى تغيير إسمك الى اللغة العربية لغتنا رمز عزتنا و وحدتنا موضوع جد رائع و اعتبره تحدى و متابع له و افكر فى حل عن طريق المعادلات و لا ادرى هل يمكن ذلك ام يحتاج الامر للأكواد ؟ عموما لست محترف لتقديم حل اننى سأحاول بقدر المستطاع و منتظر لعباقرة المنتدى و الاخوة الاساتذة الافاضل لإبهارى بحل و تعلم شئ جديد و اضافة لخبراتى و تقبل اعتذارى لعدم تمكنى من المساعدة بشكل فعال و مرضى دمت بخير و أعزك الله

السلام عليكم و رحمة الله .. بارك الله بك اخي ... الاستعلام في التقرير المرفق فيه خطا منطقي ... فأنت تقوم بالتجميع حسب المنطقة و النوع وتاريخ اليوم !!! و هذا غير صحيح .. لاحظ العبارة المستخدمة : GROUP BY DATA_CALL.MAN, DATA_CALL.KIND_INV, DATA_CALL.datasate على كل حال .. تم تعديل مرفقات مشاركتي السابقة .. اتمنى أن تستفيد أو يستفيد منها الاخوة الذين يريدون المساعدة .. بالتوفيق ...

وعليكم السلام كل عام وأنت بخير أخي الكريم أبو زيد جرب الملف التالي ولا تنسى أن تحدد أفضل إجابة إذا تم الأمر على خير Transfer Data To Closed Workbook.rar

السلام عليكم ... اعذرني ..يوجد اكثر من معادلة للعمولة تحوي iff .. و لا تأخذ القيم بعين الاعتبار !!!! ... على كل حال .. هذه محاولة مني .. تحوي تجميع لعدد و قيمة الفواتتر حسب الفروع و نوع الفاتورة كما ذكرت ... يمكن تعديلها ببساطة كي تناسب احتياجك .. بالتوفيق ... test_up_002.zip

الاخ الكريم عبد الواحد لقد أشار إليك الأخ الغالي عبد العزيز إلى الخطأ أو المشكلة .. هل قمت بتطبيق ما قاله عموماً جرب الملف التالي .. الملف يعمل بشكل جيد معي إذا كان هناك رسالة خطأ لا تنقر End بل انقر كلمة Debug وشوف السطر الملون باللون الأصفر وقلنا عليه لربما نستطيع أن نفيدك MAYAM 2.rar

وعليكم والسلام ورحمة الله وبركاته وكل عام وحضرتك بخير انظر اخي هذا الرابط لعله مطلوبك. http://www.officena.net/ib/index.php?showtopic=56333&hl= وهذا أيضا: http://www.officena.net/ib/index.php?showtopic=56333&hl= وهذا أيضا: http://www.officena.net/ib/index.php?showtopic=56108

أخي الكريم وجدي الحاج علي إليك الكود التالي عله يفي بالغرض Sub TransferDatabyDay() Dim lDay As String, LR As Long lDay = Day(Now) On Error GoTo YK With Sheets(lDay) LR = .Cells(65, "C").End(xlUp).Row + 1 .Range("C" & LR) = Range("H11").Value .Range("D" & LR) = Range("J11").Value End With MsgBox "تمت عملية الترحيل", vbInformation Exit Sub YK: MsgBox "لم تتم عملية الترحيل ، قد يكون السبب عدم وجود ورقة العمل", vbCritical End Sub في حالة عدم وجود ورقة العمل لليوم الحالي يتم إظهار رسالة تفيد بذلك لا تنسى تحديد أفضل إجابة وكذلك اضغط على "أعجبني هذا" (يعني قفل الموضوع لو تمت الإجابة عليه بشكل يرضيك) تقبل الله منا ومنكم حسابات محل.rar

أخي الحبيب م / ياسر بارك الله فيك علي كلماتك ودعائك الطيب تقبل الله منا ومنكم الصالحات تقبل تحياتي

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

اخي المبرمج الان يتعين عليك ان تنشئ قاعدة بيانات تحتوي على ثلاثة جداول الاول = جدول الاصناف ويكون رقم الصنف مفتاح اساسي ويحتوي على ما تريد من بيانات تخص الصنف الثاني = جدول الموردين ويكون رقم المورد هو المفتاح الاساسي ويحتوي على بيانات الموردين الثالث= جدول العملاء ويكون رقم العميل هو المفتاح الاساسي ويحتوي على بيانات العملاء الرابع =جدول العمليات (وهنا مربط الفرس) ويحتوي على 1 - رقم العملية (مفتاح اساسي) 2 - رقم الصنف ( مرتبط برقم الصنف من جدول الاصناف) 3 - رقم المورد ( مرتبط برقم المورد من جدول الموردين) 4 - رقم العميل (نفس السابق) 4 - التاريخ 5 - الكمية المشتراة 6 - القيمة (سعر الوحدة) 7 - الكمية المباعة 8- القيمة (سعر بيع الوحدة) الان لدينا قاعدة بيانات مرتبطة ومتماسكة ونبدا بتصميم الاستعلامات حسب الطلب ثم النماذج والتقارير