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

يمكن الاختصار ليكون 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

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

لدي ستة حقول اريد دمجهم في حقل واحد 1 حقل متكون من رقمين 2حقل متكون من رقمين 3حقل متكون من خمسة ارقم 12360 4حقل متكون من ثلاثة ارقام 5حقل متكون من رقمين 6حقل متكون من رقمين اريد دمج الحقول باجراء وحدة نمطية و قمت بدمجهم في الاستعلام ولم يظهر الرقم صفر كما هومبين اعلاه ان الصفر على اليسر لم يظهر في الاستعلام مثل 10 98419016665000 قاعدة بيانات1.rar

المفروض يكون عنده تنسيق ثابت للحقل

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

وإذا لم يرد تحويل نوع الحقل كما اشرت نظيف الصفر الى الكود مباشرة

ليس هناك حاجة لوحدة نمطية استخدم التالي في الاستعلام Expr1: [a1] & "" & [a2] & "" & [a3] & "" & "0" & "" & [a4] & "" & [a5] & "" & [a6]

اخي لم يظهر الصفر على اليسر انظر الحقل 09562 وعند دمجهم لم يظهر الصفر

شوف هيك طلبك ؟؟

تفضل ::بالتوفيق:: 3Kaser906.rar

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

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

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

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

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

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

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

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

وعليكم السلام ورحمة الله وبركاتة تفضل ::بالتوفيق:: 1Kaser906.rar

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

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

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

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

بالتوفيق اخي qathi نحن في الخدمه بما نستطيع

بارك الله فيك أستاذ إبراهيم عمل رائع وهذا فيديو لشرح الطريقة 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

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

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

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

من خصائص مربع النص طبق هذه الخصائص :::::: محاذاة النص ............. توزيع اتجاه القراءة ............. اليمين لليسار الهامش الايسر .......... 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

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