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

السلام عليكم ورحمة الله استخدم هذه الدالة المعرفة Function Repeat_Int(Rng As Range) For i = 1 To Len(Rng) If IsNumeric(Rng) Then If Mid(Rng, i, 1) = 1 Then p = p + 1 End If End If Next Repeat_Int = p End Function

ببارك للأخ وجيه شرف الدين الترقية لدرجة الخبراء😄 باذن الله ستكون هناك ترقيات أخرى قريبا فى القسم 😃

يمكن تعبئة الخلايا الفارغة بدون (Sort) ابجدياً بواسطة هذا الماكرو Option Explicit Sub give_Data() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim last_ro# last_ro = Range("a1").CurrentRegion.Rows.Count Range("MM2").Resize(last_ro - 1).Formula = _ "=IF(AND(C2<>"""",D2<>""""),D2,INDEX($D$2:$D$" & last_ro & ",MATCH(C2,$C$2:$C$" & last_ro & ",0))" & ")" Range("D2").Resize(last_ro - 1).Value = _ Range("MM2").Resize(last_ro - 1).Value Range("MM2").Resize(last_ro - 1) = vbNullString With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق FiLL_Empty.xlsm

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

السلام عليكم يسعدنا انضمام الأخ على محمد على الي فريق الموقع أعانك الله على المسؤولية الجديدة 😃

السلام عليكم طلبك اخي الكريم بسيط وممكن عمله بكل سهولة ----ولكن هل تعلم ما سيصبح حجم قاعدة البيانات بعد استعمالها لفترة قصيرة من الزمن اما اذا طالت فحدث ولا حرج خصوصا انت تطلب اظهار جميع التعديلات والمعلومه السابقة والاحقه (وما بالك اذا اجري اكثر من تعديل على سجل واحد او عدد من السجلات) بعدها ستبداء المشاكل لكبر حجم قاعدة البيانات هناك حلول ابسط من الذي طرحت 1 - صلاحيات المستخدمين --- اعطاء صلاحيات التعديل والحذف والاضافة لعدد محد من الاشخاص او حصرها بالمدير او بمسؤول محدد (وهي الافضل ) 2 - استخدام النسخ الاحتياطي --- وعمل حقلين اضافين في الجدول الرئيسي لمعرفة وقت اخر عملية تعديل ومقارنتها بالنسخه الاحتياطية (وهذه عملية اكثر تعقيد ) يالتوفيق

كيفية عمل خطوط كوفى فى الاكسل الفيديو الصور [hide]رابط الملف[/hide]

السلام عليكم ورحمة الله تم عمل معادلات النطاقات المطاطية باستعمال الدالة OFFSET (بالفرنسية DECALER) على أساس أن قائمة معلمي كل مادة متسلسلة (الأسماء كلها تحت بعض)... أرجو أن تفي الغرض المطلوب... بن علية حاجي النطاقات.xlsx

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... في هذا الشهر المبارك وفي هذه الأيام نعتز بانضمامكم إلى فريق العمل بالمنتدى، وأكرر دائما أن هذه الترقيات ليست تشريفا وإنما هي تكليف ومسؤولية مما يعني أن المجهود يتضاعف للرقي بهذا المنتدى العريق... نسأل الله أن يعينك ويسهل عليك العمل في هذه المَهَمّة الجديدة... فمبارك عليك هذه الترقية المستحقة... بن علية حاجي

بعد إذن الأستاذ / وجيه جرب هذا لعله يكون المطلوب وهو عبارة إنشاء قائمة منسدلة تعتمد على قائمة منسدلة أخرى النطاقات.xlsx

بعد اذن اخي ابراهيم جرب هذا الملف (يمكن استخراج اي شيء) ليس فقط الارقام HOW_MANY.xlsm

ألف مبروك للأستاذ الفاضل / علي وأدعوا الله أن يعينه على مسئولية هذا المنصب

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

اسم المستخدم admin1 كلمة المرور 1123 رابط التحميل

السلام عليكم ورحمة الله تعالى وبركاته اولا لم اجد استخدام الرموز الدولية الموحدة Unicode لا فى منتديات عربية ولا اجنبية ولا ادرى ان سبقنى اليها احد من قبل فى ستخدامها داخل الاكسس ولكنه توفيق من الله بالنسبة لى وسوف اشرح طريقة التوصل الى التعامل الصريح بـعلامة ( √ ) أو علامة ( x ) فى قواعد البيانات -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- واخيـــــــــــــ( المرفق )ـــــــــــــــرا ( √ ) أو ( x )علامة.mdb

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

بارك الله فيك استاذى الكريم وجزاك الله كل خير

الف مبروك اخي على ... تستاهل كل خير يا محترم

فقط استبدل الجزء هذا بمكان الحفظ C:\Documents and Settings\ahmed\Desktop\New Folder (2) ولمعرفة المكان الذي تريد الحفظ فيه فمثلاً عند فتح مجلد التنزيلات نلاحظ في الصورة

من أول نظرة الى الملف لاجظت ان تتابع الأسماء المكررة لذلك اقترحت هذا الماكرو اذا لم تكن الأسماء المكررة متتابعة بجب اولا ترتيبها (Sort) ابجدياً ثم ينفذ الماكرو

جرب هذا الماكرو Sub SALIM_MACRO() On Error Resume Next Columns("D:D").SpecialCells(4) _ .FormulaR1C1 = "=R[-1]C" '4 =====> xlCellTypeBlanks On Error GoTo 0 End Sub

اتففضل New Microsoft Access قاعدة بيانات.accdb

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

بارك الله فيك استاذ موسى وشكرا جدا على هذا البرنامج الرائع ,ولكى تعم الفائدة فبعد اذنك طبعا سأقوم برفعه داخل المنتدى البيان_للمحاسبة.xlsm

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

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

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

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

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

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

بارك الله فيكم جميعا وجزاكم الله جميعا كل خير وكل عام وانتم بخير وشكرا على ثقتكم بى

الف الف مبروك أستاذنا الفاضل علي محمد علي والمزيد من التألق أن شاء الله

الف مبروك أخي وجيه الترقية ومزيد من التقدم

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

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

الف مبروك للأستاذ وجيه ترقية مستحقة ان شاء الله ربنا يوفقه

الف مبرو ك للاخ علي اعانكم الله على حمل المسؤولية

الف مبروك و الى مزيد من التقدم

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

الاخ لم ينزل مرفق حتى نفحص تمام ابا خليل ومسالة تقديم الدالة هنا او تاخيرها فانا اتحدى الاخ اذا كان حل المشكلة بتبديلها وهنا : - الاخ لم ينزل لو مرفق به الجدول والتقرير فقط وكما طلبو الاساتذه اعلاه - الاخ لم يذكر نوع بيانات الحقل في الجدول - شلون ظبطت في النموذج ولم تظبط في التقرير !! - حتى الصورة الاخيره اعطانا المعادلة وبدون صورة للنتيجة اخيرا : نفس الشي "قرب ثم اجمع" "اجمع ثم قرب " والاصح زي ماقلت انت ابا خليل اجمع ثم قرب وهو الادق محاسبيا فلو قربت اولا ملايين الاعداد حتما ستحصل على مجموع ليس دقيق جدا تحياتي

حيا الله الشباب حيا الله @ابا جودى هنا كان لي مشاركة لنفس الموضوع وان شاء الله تعجبكم http://arabteam2000-forum.com/index.php?/topic/294120-ممكن-كيف-طريقة-إظهار-علامة-صح-وخطأ-في-التقرير-بدل-نعم-و-لا-؟/ وهنا للاخت زهرة المباركة باستخدام الترميز http://arabteam2000-forum.com/index.php?/topic/282439-وضع-رمز-بدل-مسار-الصورة/#comment-1359621 تحياتي

وعليك السلام ورحمة الله وبركاته تم عمل المطلوب وبالنسبة للطباعة بنوع pdf يكفي أمر واحد وتم عمل كود للحفظ على سطح المكتب تفضل الملف 2202.xlsm

ألف مبروك وأتمنى من الله مزيدًا من التقدم

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

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

الشيت ثقيل لانك تجعل الكود ينتظر ثانية واحدة في كل خطوة من خلال الدالة Wait ما مجموعه (55 × 57 =4125 ثانية اي حوالي ساعة وربع) جرب هذا الماكرو Sub salama() Application.ScreenUpdating = False Dim My_num, i#, col# Dim color_index% color_index = 1 + 18 * Rnd() For i = 3 To 55 For col = 2 To 57 Select Case Cells(i, col) Case 1: My_num = 2 Case 2: My_num = 3 Case 3: My_num = 1 Case Else: My_num = "" End Select Cells(i, col) = My_num Cells(i, col).Interior.colorindex = color_index Next Next Application.ScreenUpdating = True End Sub '=================================== 'هذا الكود للتصحيح في حال ادخال رقم مختلف بالخطأ Sub reset() Application.ScreenUpdating = False Dim i#, col# For i = 3 To 55 For col = 2 To 57 If Cells(i, col) <> vbNullString Then _ Cells(i, col) = 1 Next Next Application.ScreenUpdating = True End Sub 2030.xlsm

تفضل رصد الدرجات1.xlsm

السلام عليكم ورحمة الله لست أدري إن كنت قد فهمت المطلوب جيدا وهذه محاولة في الملف المرفق... بن علية حاجي الفرز الطرفي.xlsx

السلام عليكم ورحمة الله استخدم هذه المعادالة و لا تنسى الضغط على Ctrl+Shift+Enter =INDEX(الموقف!$B$2:$F$3;MATCH((E2&D2);الموقف!$B$2:$B$3&الموقف!$D$2:$D$3;0);5)