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

السلام عليكم تم تعديل آلية الترقيات السابقة ، حيث تم اضافة شرط لعدد نقاط الاعجاب لتنفيذ الترقية الالية ، كما هو مبين أدناه الدرجة الحالية المشاركات نقاط االاعجاب عضو جديد 01 50 - 02 الأعضاء 100 10 03 عضو مميز 500 50 04 عضو فضي 1000 100 05 عضو ذهبي 1000 500 06عضو ماسي 1000 1000 عند وصول نقاط الاعجاب الي 1000 للعضو الماسي سيتم الترقية الي مجموعة أعضاء الشرف و التي تضم أيضا المكرمين من ممن لهم مساهمات خارج الموقع و ستتغير الدرجة بالترقية للأعلى بعد اول مشاركة للعضو ، و لن يتم تخفيض أي درجات حالية. و تبقي مجموعات الخبراء و فريق الموقع و فريق الموقع السابق و أعضاء الشرف دون تعديل كما سيتم قريباً بإذن الله استحداث درجة خبير مخضرم لتكون الترقية التالية لدرجة خبير و سيتم الاعلان قريبا عن موعد تطبيقها و آلية التطبيق

تفضل اخي العزيز للامانة الكود منقول من احد المواقع الاجنبية استفسار لاساتذتنا الاعزاء : هل الكود عملي؟ Database1.rar

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

اخوانى اهديكم كتاب يشرح اغلب دالات الاكسيل باللغة العربية وبالصور اعداد الاستاذ منذرسفان مع الشكر اتمنى ان يعجبكم ____-1-om-hamzh1.pdf

بالخدمة اخي العزيز وتفصل التعديل ارجو ان يكون طلبك Filter Students-b.rar

السلام عليكم برنامج محاسبة ومخازن 2019 يهم كل شخص صاحب مصلحة تتعلق بالبيع والشراء برنامج مفتوح المصدر من تصميمي اتمنى لكم الفائدة كلمة السر 12345 أي استفسار انا جاهز ........... او على واتس اب 00962787787573 ** قريبا انتهي من تصميم برنامج محاسبة شركات شامل وموسع ........ عند الانتهاء سأرفعه لكم لكي تعم الفائدة الان شغال على برنامج ادارة مكتب محامي ........ اللي يهمه هذا البرنامج يكتب ملاحظة وسأزوده به مجانا محاسبة ومخازن 2019.rar

برنامج يمكن أى مسئول بالمدرسة من تحرير مكافأة امتحانات النقل لجميع العاملين خلال ساعة وطباعتها أرجو من الزملاء بالتربية والتعليم تجربته واختباره والرجوع بالملاحظات عبر التواصل بصفحتى بالمنتدى اسم المستخدم : محمدفتحى كلمة السر ١٩٧٠ من فضلك لا تقوم برفع الملف على موقع خارجى طالما حجمه صغير ... تم رفع الملف بالمنتدى لإكتمال الإستفادة للجميع برنامج لتحرير مكافأة امتحانات النقل بمدارس مصر.xlsb

السلام عليكم .. معكم ساجدة العزاوي من العراق خريجة جامعة بغداد/ علوم حاسبات / برمجة صفحتي التعليمية على الفيس بوك بعنوان ( اكسل vba برامج تطبيقات مع ساجدة العزاوي) https://www.facebook.com/sajidaalazzawi313/ قناتي على اليوتيوب متخصصة فى تقديم الشروحات فى كثير من المجالات الكومبيوتر والموبايل (سوفت وير, اكسل vba, ورد, بوربوينت, ببلشر, , شرح برامج وتنصيبها . .يوتيوب https://www.youtube.com/channel/UCSEHgnsy257rL_Wca02Tx_w من فديوهاتي سلسلة مميزة للبحث بالاسم في الفورم وهي من 13 جزء ج1 بحث بالاسم في TEXTBOX فيتم الفلترة الى LISTBOX وثم الى TEXTBOXES اكسل ساجدة العزاوي تم النشر بتاريخ 31/8/2017 ج2 بحث بالاسم زر تعديل البيانات في اليوزرفورم اكسل VBA ساجدة العزاوي تغير لغة كتابة Textbox ثلاثة اجزاء ج113 كود تغيير لغة الكتابة عربي انكليزي فرنسي تغيير مؤشر الكتابة داخل textbox ساجدة العزاوي vba تم النشر بتاريخ 14/3/2019 ج114 تغيير لغة كتابة اليوزرفورم نغيير لغة textboxe تغيير لغة keyboard عربي اكسل vba ساجدة العزاوي ج115 التحكم بلغة كتابة textbox من خلال optionbutton تغيير لغة يوزرفورم ساجدة العزاوي اكسل vba 20/3/2019 قائمة تشغيل تعلم اكسل vba https://www.youtube.com/watch?v=XGWdEThvQW4&list=PLb_hBgQ-kdgVKPF3X5dFsrFZ5l-R90wJ9

على الرغم اننا نبهنا مراراظص وتكراراً على ضرورة رفع الملف بالمشاركة حتى تتمكن الأساتذة من تمام المساعدة ... الا انك يمكنك الحل والإستفادة من هذا الرابط https://excelsemipro.com/2011/03/copy-data-to-another-worksheet-with-advanced-filter/ أو هذا الرابط How to copy data to another worksheet with Advanced Filter in Excel?

بالخدمة اخي العزيز

تفضل ..... Database8.rar

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

حرب هذا الملف Option Explicit Sub Get_Color() Dim My_Regex As Object Dim x%, m%, La%, t% Dim arrWords, Arr() ReDim Arr(4) Arr(0) = 3: Arr(1) = 14: Arr(2) = 5: Arr(3) = 3 Set My_Regex = CreateObject("VBScript.RegExp") My_Regex.Pattern = "(\d{3})" My_Regex.Global = True With Sheets("Sheet1") La = .Cells(Rows.Count, 3).End(3).Row m = 1 With .Range("E6:E" & La) .Font.ColorIndex = 1 .ClearContents End With For t = 6 To La .Range("E" & t) = .Range("C" & t) If My_Regex.test(.Range("E" & t)) Then Set arrWords = My_Regex.Execute(.Range("E" & t)) For x = 0 To arrWords.Count - 1 Range("E" & t).Characters(m, 3) _ .Font.ColorIndex = Arr(x) m = m + 3 Next x End If m = 1 Next t End With End Sub الملف مرفق Abbadi.xlsm

تم استخدام for i >>> next لتكرار امر الطباعة حسب العدد الموجود بحقل CARNUM For i = 1 To Forms!cusform!CARNUM DoCmd.OpenReport "cusreport", acViewNormal, , "CUSNUM = " & Forms!cusform!CUSNUM Next ثم استخدمنا المتغيير العام i في خقل X5 الموجود في التقرير ليكتب عدد النسخ Public i As Integer Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) Me.x5 = i End Sub تحياتي

جرب استخدام استعلام توحيد SELECT ID, n1 FROM Table1 UNION SELECT Id, n2 FROM Table2; or SELECT ID, n1 FROM Table1 UNION ALL SELECT Id, n2 FROM Table2; db21.rar تحياتي

تفضل اخي الكريم البرنامج-bb.rar تحياتي

وعليكم السلام ورجمة الله وبركاته انظر الاستعلام الذي بالمرفق تحياتي db21.rar

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

هل السجلات مرتبة في الجدولين يعني سجل عبدالله ... ترتيبة يساوي ترتيب سعيد في الجدول الثاني وهكذا لجميع السجلات او ملخبط التسلسل ..........

بارك الله فيك جزاك الله خيرا

تفضل التعديل البرنامج-bb.rar

تفضل اخي العزيز ارجو ان يكون طلبك حسب فهمي Filter Students-a.rar

ربما كان المطلوب و زيادة حبتين ABD_ElAziz.xlsm

بالتوفيق @aladdin61 كلامي على اساس انك تجمع بدالة sum وانها لا تجمع معك. لذلك تم اقتراح بديل sum وهي دالة subtotal ولم ترد حضرتك على رسالة الخطأ في طريقة استعمالك لدالة subtotal فهل معنى هذا ان الرسالة مازالت تظهر ام انها اختفت وقامت الدالة بعملها المطلوب ؟؟؟!!!!

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

الرسالة تعني أنك أدخلت عدد قليل من وسائط الدالة وهي فقط وسيطتين الرقم 9 والنطاق المراد جمعه ربما يكون ضبط جهازك يستحدم الفاصلة المنقوطة بدلا من الفاصلة جرب =SUBTOTAL(9;A1:A8) رغم أني مع المقترح الخاص بارفاق ملفك أو جزء منه الذي به المشكلة

عملية الجمع باستعمال علامة الجمع (+) لا تعطي نتيجة اذا كان هناك نصوص (كيف تجمع رفماً مع نض ؟؟؟) مثلاُ اذا كتبت =A1+B1+C1+D1 و كانت احد هذه لخلايا تحتوي على نص ستحصل على خطأ Value اما الدالة Sum تعتبر النص او الفراغ صفرا فالأفضل استعمالها بهذا الشكل =SUM(A1:D1) الصورة توضخ ماذا اقصد

جرب استعمال =SUBTOTAL(9,A1:A8) مع تغيير المدى للمطلوب عندك

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

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

بالخدمة استاذ عذاب الزمان والله يساعدكم ويساعدنا على هذا النت

السلام عليكم ربما تكون المشكلة في 1 : صممت البرنامج على access 32 والجهاز الجديد access 64 او العكس الحل : اذا كان الملف بصيغة accdb ولم يتم تحويله الى accde فالبرنامج سيعمل بدون مشاكل ان شاء الله اما اذا كان تم تحويله فلن يعمل 2 - يوجد لديك في التصميم الاساسي عناصر في النماج والتقارير باسماء عربية والجهاز الجديد اللغة العربية فيه غير مكتملة فيه الحل : تغيير اسماء حميع العناصر من اللغة العربية الى اللاتينية ( الانحليزية ) مثال : نص1 تغييره الى text1 ... وهكذا باقي العناصر ( مربعات النص - كومبوبوكس - زر امر ... الخ ) تحياتي

الأفضل تقوم بالتحويل ببرنامج خارجي مثل do pdf فسوف يعطيك نتيجة ممتازة.

السلام عليكم تمت اضافة النسخة كمرفق اضافة للمشاركة الاولي فى الموضوع

اخى الكريم جرب هذا الكود Private Sub Worksheet_SelectionChange(ByVal x As Range) ActiveSheet.Cells.Interior.ColorIndex = 0 x.EntireRow.Interior.ColorIndex = 4 End Sub شاهد المرفق تقبل تحياتى تلوين الصف.zip

عذرا اخي على التأخر في الرد بحكم المشاغل والطريقة يسيرة وهي اني قمت بعمل استعلام يستخرج التواريخ حسب آخر تاريخ ترقية لكل شخص ( انظر استعلام " تاريخ الدرجة الحالية " وانظر فيه الى الداله Last ) ثم عملت استعلام " الدرجة الحالية " استنادا الى الجدول والى الاستعلام السابق ( انظر العلاقات بين الجدول والاستعلام داخل استعلامنا هذا ) هذا كل شيء ارجو ان اكون اوصلت المعلومة بالشكل المناسب

بعد اذن الاستاذ يوسف استبدل هذين السطرين Forms!NamesRecord![أمر56].Enabled = flase Forms!NamesRecord![أمر82].Enabled = flase بهذين Forms!NamesRecord![أمر56].Visible = flase Forms!NamesRecord![أمر82].Visible = flase وبذلك يختفوا في حال الضباط ويظهروا في حال الأفراد