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

تفضل ما أمكن استرجاعة من الملف ,,,,,,, برنامج سلف العاملين 2019 (Barna).mdb

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

الماكرو اللازم (تم تغيير اسم الصفحة الى salim لسهولة نسخ الكود و لصقه دون ظهور أحرف غريبة وغير مقروئة) Option Explicit Sub Ijraat_By_Code() Dim R% With Sheets("salim") R = .Cells(1, "A").CurrentRegion.Rows.Count .Range("E1").CurrentRegion.Offset(1).ClearContents With .Range("E2").Resize(R - 1, 9) .Formula = "=IF(ISNUMBER(FIND(E$1,$C2)),E$1,"""")" .Value = .Value End With End With End Sub الملف مرفق Ijraat.xlsm

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

بعد اذن استاذنا الحبيب استاذ على واثراء للموضوع Copy of final 19-09.xlsx

وعليكم السلام وكده لابد ان يكون هناك استجابة فقد تم عمل اللازم ,فتم عمل قائمة منسدلة فى الخلية E3 بصفحة الزبون لسهولة اختيار اسم الزبون وليس كتابته باليد فهذا قد يؤدى الى اختلاف مع اسماء الزبائن الموجود بصفحة الإضافة حتى نتلاشى اى أخطاء لأنه كان هماك اختلاف لديك فى كتابة اسم الزبون final 19-09.xlsm

رابط استعراض البرنامج واستخدامه مع التحميل في الوصف https://youtu.be/rfbtBiWwOAY

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

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

وعليكم السلام -تفضل لك ما طلبت fatoura10.xlsb

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

وعليكم السلام ولعمل هذا يمكنك وضع هذه المعادلة بالتنسيقات الشرطية باللون الذى تريده للأعداد اللى اكبر من 8 =AND(E9<>"",E9>8) =AND(E9<>"",E9>8) أما بالنسبة اللى اقل من 3 فيمكنك استخدام هذه المعادلة مع اللون الذى تريده =AND(E9<>"",E9<3) تنسيق شرطى.xlsx

تم معالجة الامر Ijraat_new.xlsm

تفضل بحث متقدم.xlsm

اخي العزيز جزاكم الله خير الجزاء على المجهود الرائع اللهم اجعه في ميزان حسناتك الاستعلام وافية جدا وجزاكم الله خير الجزاء

وعليكم السلام-تفضل fatoura11.xlsb

وعليكم السلام تفضل اخي https://www.sendspace.com/file/i6lrja

أستاذ محمد البرناوي الله يفتح عليك

الأخ مصطفى الفارس هل هذا ما تريد البحث الطلاب-اضافة بحث.zip كما يمكنك استبدال حرف ال b من امتداد .accdb بـ حرف ال r لتصبح .accdr

وعليكم السلام-لك ما طلبت بيان1.xlsx

الاخ هشام كمال شوف المرفق إن أفاد فى شيئ سلف.mdb

وعليكم السلام-الأمر بسيط يمكنك استخدام هذه المعادلة داخل التنسيقات الشرطية =A5<>"لايوجد" ملف 1الاسماء.xlsx

جرب هذا الملف ملاحظة: عندك اخطاء بكتابة العناوين في الاعمدة اذ يجب كتابة الكلمة بالضبط كما في في النص (دون زيادة او نقصان في المسافات ) مثلاُ محضر استلام تراها في النصوص هكذا ( محضر استلام) (مسافتين بين محضر و استلام) الامر نفسه بالنسبة لباقي النصوص Ijraat.xlsm

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

احسنت استاذ أبو عيد عمل ممتاز جعله الله فى ميزان حسناتك

وعليكم السلام الملف يعمل بالفيجوال تفضل test2.xlsm

اخي الفاضل هل جربت حل السيد العيدروس تطبيق حل العيدروس في ملف ww.xlsm

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

Option Explicit Sub Keep_the_first() With Sheets("ورقة1") Dim i, arr() Dim lr%: lr = .Cells(Rows.Count, 2).End(3).Row .Range("i1").Resize(lr).ClearContents ReDim arr(1 To lr) For i = 1 To lr If Application.CountIf(.Range("B1" & ":B" & i), .Range("B" & i)) = 1 Then '============================= arr(i) = .Range("B" & i) Else arr(i) = vbNullString End If Next .Range("I1").Resize(UBound(arr)) = _ Application.Transpose(arr) End With Erase arr End Sub الملف مرفق Hani.xlsm