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

أخي الفاضل : اخر الحركات حسب رقم 1 أم رقم 2 كم عدد الحركات التي تريدها ..... أخر 10 حركات مثلا ؟؟؟؟

جزاك الله خيرا اخى واستاذى العزيز خالد وكذلك استاذ اسامه 💐 ولا اروع من كده اما الاولى فعلى الشيطان لعنه الله عليه والثانيه فلاخوانى واساتذتى جزاهم الله خيرا ربنا يصلح حالك اخى @ازهر عبد العزيز 💐

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

والله ما عارف اشكرك كيف انت انسان بجد محترم وذوق {ربنا يبعد عنك انت وكل حبايبك جنده (كورونا) كما بعد بين المشرق والمغرب } بالله عليك ادعي لي ربنا يفك كربي

ممكن عملها ولكن لماذا لا نجعلها صلاحيات للاضافة والتعديل والحذف على مستوى النموذج ولكافة النماذج ويمكن مستقبلا اضافة نظام مستخدمين وربطها معا ولكن دعنا حاليا في الصلاحيات الثلاث بحيث يكون لدينا جدول ياخذ اسم النموذج بشكل تلقائي من جدول النظام المخفي MSysObjects وثلاث خانات اختيار اضافة تعديل حذف وبالتالي عند فتح النموذج يتم التأكد من هذة الخيارات الثلاث جرب الملف المرفق ربما يكون افضل من زر امر مع الشكر والتقدير لاستاذنا الفاضل @osama ababneh New Microsoft Access Database(2).accdb

تفضل ... شؤؤن_الموضفين.accdb

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

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

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

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

تفضل لك ما طلبت New Microsoft Excel Worksheet1.xlsx

تفضل أخي listbox unique.xlsm

وهذا تطبيق كلام الاخ Barna test.accdb

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

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

رائع كعادتك اخي محمد نور الموقع بعودتك 🌹

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

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

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

هل هذا ماتقصده Function aboyaseen() DoCmd.OpenForm "FENABLE" End Function New Microsoft Access Database.accdb

بارك الله بك اخي أبو ياسين نعم بالتأكيد هو المطلوب شكراً جزيلاً

اتفضل لعله طلبك If Not IsNumeric(Mobile) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " Cancel = True ElseIf Len(Mobile) <> 11 Then MsgBox " فـضـلاً أدخـل عـشـرة أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' End If 45.mdb

وعليكم السلام - بارك الله فيك استاذ محمد وهذا بالفعل الذى كان يتم التنبيه عليه سابقاً فى منتدانا الكريم ولكن الأن قد نرى ان هذا الأمر لا يقبله الكثير ويعتبره تدخل وتطفل على خصوصيته , ويرى ان يكون له الحرية الخاصة فى إختيار الإسم المناسب له لكى يظهر بالمنتدى ولا نستطيع ان نخبره على هذا الأمر بأن يغير اسم الظهور الى اللغة العربية كسابق عصره

هذه المعادلة =SUM($L$9:$L$1031)+SUM($G$9:$G$1031) أو واحدة من هاتين (حسب اعدادات الجهاز عندك( فاصلة أو فاصلة منقوطة) =SUM($L$9:$L$1031,$G$9:$G$1031) OR =SUM($L$9:$L$1031;$G$9:$G$1031)

وعليكم السلام اهلا بك اخ علاء ممكن مثال وبه بيانات عشوائية للتطبيق عليه

تفضل تم الحل بطريقتين بمعادلات المصفوفة (Ctrl+Shift+Enter) =IF(ROWS($L$3:L3)>COUNTA($B$3:$B$500),"",INDEX($B$3:$B$500,SMALL(IF($B$3:$B$500<>"",ROW($B$3:$B$500)-ROW($B$3)+1),ROWS($L$3:L3)))) وايضا بالكود .. حتى تختار المناسب لك من بين الحلين Sub Rectangle1_Click() On Error Resume Next Worksheets("Sheet1").Range("b3:c100").SpecialCells(xlCellTypeConstants).Copy Worksheets("Sheet1").Range("I3:I100") Application.CutCopyMode = False End Sub جلب بيانات عمود بدون فراغات.xlsm

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

وعليكم السلام-وذلك من خلال هذه المعادلة =YEAR(G4)-5 &"/"&MONTH(G4)&"/"&DAY(G4) تواتي 39.xlsx

تمام أحسنت استاذ منير عمل ممتاز , بالتوفيق دائماً مع مواصلة النجاح والإجتهاد الى الأمام دائماً دون توقف وواصل

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

وعليكم السلام-كان عليك عمل بحث قبل طرح هذه المشاركة-تفضل برنامج مرتبات أبي الحسن لعام ٢٠١٩

الطلبات اصبحت كثيرة جدا يمكنك استخدام معادلة المصفوفة =IFERROR(INDEX($A$5:$A$14,SMALL(IF($E$5:$E$14=FALSE,ROW(A$5:A$14)-ROW(A$5)+1),ROWS($L$5:L5))),"") تواتي 37.xlsx

يمكنك استخدام معادلة المصفوفة لإيجاد أقل قيمة (Ctrl+Shift+Enter) =MIN(IF((ALL!$A:$A=$A2),ALL!$D:$D,"")) ولأكبر قيمة استخدام هذه المعادلة =MAX(IF((ALL!$A:$A=$A2),ALL!$F:$F,"")) AnnualVacation1.xlsx

اللهم آمين تزور بيته الحرام وتزور سيدنا محمد صلى الله عليه وسلم ......آمين يارب حبيبي يا حاج أحمد انت راجل محترم

لقد قلت لك بعد ثاني سطر في الكود خطاك قمت بوضعه بعد اول سطر تفضل تنسيق شرطى لكل الملف.xlsm

ضع هذا في المديول Function salary1(frm As String) If Forms(frm)!المهنة = "طبيب" Then Forms(frm)!الراتب = 10000 ElseIf Forms(frm)!المهنة = "مهندس" Then Forms(frm)!الراتب = 9000 ElseIf Forms(frm)!المهنة = "صيدلي" Then Forms(frm)!الراتب = 8000 ElseIf Forms(frm)!المهنة = "معاون طبيب" Then Forms(frm)!الراتب = 7000 ElseIf Forms(frm)!المهنة = "معاون مهندي" Then Forms(frm)!الراتب = 6000 ElseIf Forms(frm)!المهنة = "" Then Forms(frm)!الراتب = 0 End If End Function استدعيه من النموذج بهذا الكود Call salary1(Me.Name) DoCmd.RefreshRecord

جرب هذا الملف Merge_UnMerge Similar_cells.xlsm

اخ محمد ماذا تقصد بعدم التكرار هل تريد مج البيانات المكررة مع بعضها ام تريد تجاهل المكرر نهائيا

اعذرني اخي لا املك لك اي تفسير الكود شغال معي 100% اقترح عليك تصميم ملف جديد قد تكون المشكلة منه

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

تسلم اخي خالد الموقع منور باهله وبيكم جزاكم الله خير

بالتوفيق اخي

تفضل لك ما طلبت بهذا الكود Private Sub UserForm_Activate() UserForm1.Label1.Caption = Sheets("1").Range("B1").Value + Sheets("2").Range("B1").Value UserForm1.Label2.Caption = Sheets("1").Range("C1").Value + Sheets("2").Range("C1").Value UserForm1.Label3.Caption = Sheets("1").Range("D1").Value + Sheets("2").Range("D1").Value End Sub أحتساب عمود من شيتين في 2اليوزرفوم.xlsm

ضع هذا السطر بعد ثاني سطر في الكود Rng.Interior.Color = xlNone

وعليكم السلام يوجد استعلام الحاق باسم q اكتب رقم الفاتوره بالحقل بالنموذج ثم اضغط زر تنفيذ سيتم الحاق البيانات بالجدول tabl2 وعمل ريفرش وعرضها بالنموذج يمكنك بعد ذلك عمل استعلام حذف البيانات التى تم الحاقها بالجدول tabl2 من الجدول conform لم اقم بعمله لانك لم توضح هل تريد حذفها ام الابقاء عليها بالتوفيق استرجاع الفاتورة البيع.mdb

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

جزاك الله خيرا اخي محمد إن شاء الله سوف اجرب غدا بإذن الله واوافيك بالنتيجة 💐🌷🌹

من المفترض أن تكون الشرط الأربعة لنفس الخلايا لأنه بعد كتابة المعادلة يتم السحب نزولا لأسفل والأربع معادلات التي كتبتبهم في الملف يعتبروا شرطان فقط أول شرط عندما تكون الخليتان كلاهما أكبر من الصفر الثاني عندما تكون الخليتان كلاهما أصغر من الصفر على العموم حسب فهمي ممكن يتكون المعادلة =IF(AND(L5>0;S5>0);"مستلم منفذ ";IF(AND(L5>0;S5=0);" منفذ غير مستلم ";IF(AND(L5=0;S5=0);" غير مستلم وغير منفذ ";" مستلم غير منفذ "))) ثم السحب نزولا لأسفل تقييم.xlsx

السلام عليكم ورحمة الله أخي الكريم لم ألتزم باستعمال الدالة VLOOKUP واستعملت الدالة INDEX مع MATCH على شكل دالة صفيف (Ctrl+Shift+Enter) ويمكن استعمال دوال أخرى في ذلك... ستجد حلولا أخرى في ردود وتدخلات إخوتي الكرام... ألق نظرة على الملف المرفق.... أخوك بن علية AHT_1.zip

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم New_If_03.rar