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

بارك الله فيك أستاذ علة لخضر تفضل يمكنك استخدام هذه المعادلة للعد =SUMPRODUCT(($E$4:$E$14=$E$18)*($B$4:$B$14=$D$18)*($G$4:$G$14=$C$18)*SIGN((($B$4:$B$14<>"")/COUNTIF($B$4:$B$14,$B$4:$B$14&"")))) عدد العملاء.xlsx

وعليكم السلام-تفضل DATE1.xlsx

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

تفضل كان عليك من البداية استخدام خاصية البحث في المنتدى https://www.officena.net/ib/topic/50897-تفقيط-مبلغ-معين-من-الأرقام-الى-الحروف-سواء-باللغة-العربية-أو-الإنجليزية-بدون-اكواد/?tab=comments#comment-313355 https://www.officena.net/ib/topic/91682-دالة-التفقيط-وتثبيتها-في-جميع-الملفات-في-الاكسل/?tab=comments#comment-574957

الف سلامة على صحة حضرتك استاذى الكريم ونتمنى لك جميعا الشفاء العاجل والعودة الى بيتك واحبائك مرة اخرى

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

وهذا هو البرنامج برنامج__الطالب_6.xlsm

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

مشاركة مع اخي كنري ضع هذا الكود في مدويل او براس النموذج Function AddRefs() Dim loRef As Access.Reference Dim intCount As Integer Dim intX As Integer Dim blnBroke As Boolean Dim strPath As String On Error Resume Next 'Loop through each reference in the database 'Add all references Debug.Print "----------------- Add References -----------------------" With Access.References .AddFromFile "C:\Windows\System32\DBPix20.ocx" .AddFromFile "C:\Windows\SysWOW64\DBPix20.ocx" End With ' Call a hidden SysCmd to automatically compile/save all modules. Call SysCmd(504, 16483) End Function ثم استدعيه عند فتح النموذج او في زر امر كما تشاء Call AddRefs

تفضل لإثراء الموضوع بعد اذن الأستاذ حسين المشتريات.xlsx

تم نقل الموضوع لقسم الاكسيل

جزاكم الله خيـرا احبكـــــم فى الله

جرب هذاالماكرو Option Explicit Sub test_5() Dim str$: str = "غ" Dim k%: k = 30 Dim cont%, col% Dim i%, x%: i = 3 Range("Ag5").Resize(3, 3).ClearContents For col = 5 To 7 For x = i To k If Application.CountIf(Range(Cells(col, x), Cells(col, x + 7)), str) >= 5 Then cont = cont + 1 Cells(col, "ag").Offset(, cont - 1) = "Ok" & cont x = x + 5 End If Next cont = 0 Next End Sub الملف مرفق للمعاينة Inzar.xlsm

أخي @ماجدجلال تفضل ..... 1200.mdb

وعليكم السلام -جرب هذا أستاذ محمد بمعادلات المصفوفة Quiry-لمساعدة فى كود استعلام بناء على اكثر من شرط.xlsx

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

برنامج سهل وصغير لتقديم الأقرار الضريبي ، الرقم السري 1975 للأكسس2003 ، أي ملاحظة نرجو الأفادة أبدأ بنموذج الأقرارات الدائنة أولا اقرار.rar

ضع مثال حتى نستطيع المساعدة

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

جزاك الله خيرا استاذى الفاضل Ali Mohamed Ali والشكر موصول للأستاذ حسين مأمون

خالص الشكر علي الدروس المستفادة من الخبير الجدير باللقب

عزيزي @jo_2010 اضقت لك زرين في نموذج عند ضغط على الاولى ستفتح لك نافذة غير اسم الملف في مربع اسم الملف ثم عند ضغط على موافق، سيستخرج ملف pdf في مجلد مستندات أو حدد مجلد مراد استخراج تقرير اليه من مجلدات معروضة في شاشة ثم اضغط زر موافق و عند ضغط على زر الثاني سيقوم البرنامج بإنشاء pdf في نفس مسار قاعدة بيانات ولكن بعد استخراج القاعدة من ارشيف بتوفيق،، Lab.rar

قم بعمل التنسيق في كل ورقة من الأوراق تم عمل ماكرو إظهار كل الصفوف حتى تتمكن من تنسيق الخلايا هناك فكرة يمكن عمل حيلة وهي إخفاء الصفوف الفارغة تلقائيًا عند فتح ورقة العمل Shool.xlsm

أسأل الله العظيم رب العرش العظيم أن يشفيه

وعليكم السلام استاذ محمد اسال الله الكريم ان يشفيك شفاء لا يغادر سقما

السلام عليكم ورحمة الله وبركاته بعد اذن الاساتذة الكبار حفظهم الباري عز وجل ولهم كل التقدير لجهودهم الكبيرة في المنتدى الرائع استاذ سليم والاستاذ احمد اخي ناصر سعيد نسق الشيتات بما تريد وسيظهر الترحيل كما منسق مسبقا للشيت اما الترقيم التلقائي فاستخدم اي معادلة للترقيم التلقائي مثلا SUBTOTAL او غيرها واجعل النسخ والترحيل يبدا من العمود الثاني اي غير المدى من "A" الى "B" الموجود في الكود اليك الملف Shoolترقيم تلقائي.xlsm

اسأل الله الشفاء العاجل له

اسال الله العظيم ان يشفيه ويرفع عنه المرض ويعطيه الصحه والعافيه

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

شوف جرب هذا المرفق يطبع كل اللي في التاريخ الموجود بالنموذج حاول تعمل كم تقرير بتاريخ اليوم ولاحظ بيطبع ماهو بالتاريخ اللي موجود بالنموذج Lab.accdb

سلامات سلامات ما تشوف شر

لا بأس عليه إن شاء الله. عافاه الله و شافاه

السلام عليكم ورحمة الله وبركاته اسأل الله العظيم رب العرض الكريم أن يرفع عنك الباس ويجعل العافية لك لباس ولجميع المسلمين طهور أخوي أبا جودي وأسأل الله أن يجمع لك بين الأجر والعافية والشكر .... أخوك أباريان_مكة المكرمة

تفضل حساب عدد السنوات1.xlsx

سلام عليكم هدية لأحلى منتدى . ياريت تجربوا وتنطوني رأيكم بي الفضل يعود لله ثم لكم ... https://drive.google.com/open?id=1VNsds00H6kKhAl77xr5cKREa83BNnjLJ

رائع بارك الله فيك أستاذنا الفاضل أستاذ سليم بعد إذن حضرتك أرى يجب تعديل بإضافة سطر لمسح المحتويات قبل الترحيل حتى لو أنه كان هناك تعديل لا يستبب في مشاكل فيصبح الكود هكذا Private Sub ComboBox1_Change() Dim R As Integer, M%: M = 5 Dim My_sh As Worksheet Application.ScreenUpdating = False Select Case Me.ComboBox1.Value Case "راسب": Set My_sh = Sheets("رسوب") Case "ناجح": Set My_sh = Sheets("ناجح") Case "دور ثانى": Set My_sh = Sheets("دور ثان فى") Case Else: GoTo End_Me End Select My_sh.Range("A5:t1005").ClearContents For R = 5 To 100 If Sheets("الشيت").Cells(R, 20) = Me.ComboBox1.Value Then Sheets("الشيت").Range("A" & R).Resize(1, 20).Copy My_sh.Range("A" & M).PasteSpecial xlPasteValues M = M + 1 End If Next End_Me: Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Shool.xlsm

جزاك الله خيرا كيف يمكننى رفع الصور بطريقه الشرح هدا وشكرا ع برنامج جميل

عليك العمل كما بالصورة

نعم ,المحافظة والجنس وتاريخ الميلاد ومنه نستخرج العمر

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

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

تفضل

تفضل بعد اذن استاذنا الكبير ابراهيم المصنف1.xlsm

انها حقا معادلة رائعة استاذى الكريم -ولكنى اعتقد ان تكون هكذا لكى يتم اضافة 3 أشهر , فعندما تم تطبيق معادلة حضرتك اعطت التاريخ فى الخلية A2 -01/07/2019 فلابد ان يكون 01/04/2019 =DATE(YEAR($A$1),MONTH($A$1)+3*(ROWS($A$1:A1)),1)

تفضل Book2.xlsx

تفضل مع مقارنة عمودين مع بعضهما(1).xlsm

اهلا بك اخى الكريم فى المنتدى تفضل Book2.xlsx

أهلا بك اخى الكريم فى المنتدى تفضل لك ما طلبت بمعادلات المصفوفة مثال.xlsx

اخي العزيز بارك الله فيك من الافضل كي يتم الرد عليك من الاخوه الاعضاء يفضل ترفق ملف فيه المثال لانه فيه عده طرق وكل واحد يفضل طريقه خذ هذا مثال اجعل مصدر عنصر التحكم هكذا =DLookUp("[user]";"fbi") او مثل اخر في عنصر التحكم اسم المستخدم والقيمه الافتراضيه =[Forms]![login]![a] طبعا تغير الاسماء حسب المسميات عندك

الحمد لله تم الموضوع علي خير