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

يمكن الاختصار ليكون Expr1: [A1] & [A2] & [A3] & [A4] & [A5] & [A6] وبالنسبة للصفر مثل ما اشار اساتذتنا الافاضل بتحويل a4 الى نص

كل عام و جميع اعضاء المنتدى والفريق الاداري والفني بالف خير

غير الحقل من رقم الى نص

الأمر بسيط تم التعديل على الملف واستخدام هذه المعادلة =IF(F4="","",(TODAY()-F4)+1)

جرب هذا الماكرو Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim add_ro As Long Dim son As Long Dim Match, cont% son = Cells(Rows.Count, "A").End(xlUp).Row If Intersect(Target, Range("A9:A" & son + 1)) Is Nothing Or _ Target.Count > 1 Then GoTo ExiT_me On Error Resume Next Match = Application.Match(Target, Sheets("sheet2").Range("A:A"), 0) If Match = 0 Then Target = vbNullString: GoTo ExiT_me On Error GoTo 0 cont = Application.CountIf(Sheets("sheet1").Range("A9:A" & son), Target) If cont = 1 Then '============================= Cells(Target.Row, 2) = Sheets("sheet2").Cells(Match, 2) Cells(Target.Row, 3) = Sheets("sheet2").Cells(Match, 3) '========================= Else add_ro = Application.Match(Target, Sheets("sheet1").Range("A:A"), 0) Cells(add_ro, 3) = Cells(add_ro, 3) + Sheets("sheet2").Cells(Match, 3) Target = vbNullString End If ExiT_me: Application.EnableEvents = True End Sub الملف مرفق RAHARAT.xlsm

جرب هذه الطريقة وكل عام وأنتم بخير حساب العمر.accdb

اتفضل من ابداعات الاخت زهرة حساب العمر بالسنة.accdb

السلام عليكم اساتذتى واخوانى -أقدم لكم هذا البرنامج وهو من برمجة وتصميم استاذنا الكبير / سامى محمد على وصور وشرح البرنامج داخل ملف الإكسيل وهناك نموذجان للبرنامج أحدهما يصلح لمدارس البنين والأخر لمدارس البنات واسم المستخدم للبرنامج : admin وكلمة السر : 123 يا رب ينال اعجابكم -جزاكم الله كل خير BOY.rar GIRL.rar صور وشرح البرنامج.docx

فورم بحث وانتقال للاسم المختار الفيديو الصور

فورم يتحرك كيفية ايقاف

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

حساب الصندوق.xlsx

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

لا يوجد اي حل الا مربع التصفية

لم افهم ماذا تقصد انت لو اضفت الموظفين بشكل منتظم في كل شهر راح يطلع لك الاقدم فالاقدم ولو تم الترحيل بشكل منتظم في كل شهر مارا تدخل في هذي الدوامه

سبق و قلت لك لا يمكن للخلية ان تكون في نفس الوقت مصدراً للبيانات( لترحيلها الى شيت data ) ومرجعاً لاستقبال البيانات من شيت اخر لذا عليك ادراج جدول اخر مماثل (بدون معادلات ) اسفل الجدول الحالي تقوم بتعبئته بما تريد ، الجدول المستحدث يكون مصدراً للبيانات التي تنوي ترحيلها الى اي شيت تريدها

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

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

انا عملت اللي يظهر فعليا لكل اسم هو اقدم تاريخ جرب ضع لكل الاسماء سجلين سجل في شهر واحد وسجل في شهر اثنين ستجد ان الذي يظهر هو السجل الاقدم حسب طلبك ::بالتوفيق::

والله استاذنا انه لشرح واضح ومفيد لما تفضلت به رحم الله والديك في الدنيا والاخره

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

في حقل a1 جعلنا حدث بعد التحديث a2 = Year(Date) - [a1] في a2 ايضا حدث بعد التحديث a1 = Abs([a2] - Year(Date)) استخدمنا دالة abs لابعاد القيمة السالبة

جرب المرفق وكل عام وانت طيب حساب العمر بالسنة(1).accdb

هكذا يجب ان يكون جدولك (الصفحة SALIM من هذا الملف) ليقوم اي كود او معادلة بعمله على اكمل وجه كما تلاحظ ان حجم الملف انخفض من 1.17 ميغا الى 40 كيلو فقط اي حوالي 30 مرة الملف مرفق للتعديل عليه لاجراء ما يلزم My_Salary_New .xlsm

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

بارك الله فيك أستاذ إبراهيم عمل رائع وهذا فيديو لشرح الطريقة https://www.youtube.com/watch?v=aLCCxoVDRfo وهذا أيضا موقع به شرح الطريقة https://www.extendoffice.com/ar/documents/excel/2439-excel-drop-down-list-search.html

بعد اذن اخي علي معادلة بشكل ثاني =CHOOSE(AND(C1=D1,C1<>"",D1<>"")+1,"غير متزن","متزن")

تم التعديل على المعادلة والملف السابق

وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة =IF(AND(C1="",D1=""),"",IF(C1=D1,"متزن","غير متزن")) دالة if بأربع شروط.xlsm

طالما لم تقم برفع ملف اكسيل مع شرح كل المطلوب بكل دقة فيمكنك الإستعانة بهذا الرابط https://www.officena.net/ib/topic/91873-مساعدة-في-عهدة-مخزون-تسليم-واستلام-وتقارير/?tab=comments#comment-575657

وعليكم السلام-تفضل رواتب موظفين شهر 8.xlsx

الأمر في غاية البساطة عليك بعمل الخطوة التي تراها بالصورة

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

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

من خصائص مربع النص طبق هذه الخصائص :::::: محاذاة النص ............. توزيع اتجاه القراءة ............. اليمين لليسار الهامش الايسر .......... 1 سم الهامش العلوي ........ 0.199 سم الهامش الايمن ......... 1 سم الهامش السفلي ....... 0.199 سم تباعد الاسطر .......... 1 سم

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

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

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

تفضل اخى الكريم لك ما طلبت book1-1.xlsx

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

بارك الله فيك وجزاك الله كل خير وهذا هو الملف مرفوع هنا لإكتمال الفائدة Rest vba.xlsm

تفضل اخى الكريم-ولكن اذا لم تكن هذا المقصود فعليك رفع ملفك تجنبا لمضيعة الوقن حتى لو ممكن رفع 20 صف مثلا جزاك الله كل خير Dublication.xlsx

اهلا بك اخ كريم فى المنتدى-من الأفضل رفع الملف للعمل عليه بارك الله فيك

أخى الكريم اين ملف العمل ؟! من فضلك عليك رفع الملف حتى تتمكن الإخوة والأساتذة من مساعدتك بارك الله فيك

اتمنى ان تجدى ما تريديه فى هذا الرابط : وهو برنامج حضور وانصراف للطلاب والطالبات بالأكسيس : https://www.officena.net/ib/topic/84643-برنامج-الحضور-والإنصراف-والمخالفات-للطلاب/ ولكم جزيل الشكر

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

هل هذا ما تقصده ؟ سن المعاش-1.xlsm

اهلا بحضرتك فى منتدانا الكريم السؤال غير واضح لو ممكن تدعيم لسؤال حضرتك برفع ملف اكسيل وشرح ما تريده بالتفصيل بارك الله فيكم

تم تعديل العنوان للدلالة على المضمون اخي سمير .. تفضل تم التعديل كما تحب sscc12.rar

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