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

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

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

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

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

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

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

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

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

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

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

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

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

استاذنا وخبيرنا / @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 فكان لزاما عليك من البداية استخدام خاصية البحث فى المنتدى فهناك العديم من الموضوعات التى ناقشت هذه الجزئية ومنها : دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) وايضا دالة جديدة لاستخراج اسم المحافظة وتاريخ الميلاد والنوع من الرقم القومي المصري

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

بعد اذن اخي علي معادلة بشكل ثاني =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

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