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

بارك الله فيك أستاذ علة لخضر تفضل يمكنك استخدام هذه المعادلة للعد =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

السلام عليكم هل يمكن تشغيل الاصوات تباعا من المكتبة الصوتية الموجوده بالمرفق هنا يعنى بعد الانتهاء من - aoj3ene يتم تشغيل - nor ثم بعد الانتهاء منه يتم تشغيل - فضلكم ياوالدي بطريقة اليه وان امكن هل ممكن وضه مثلا Checkbox ان كان True يتم التشغيل تباعا وان كان False يتم التوقف بعد الانتهاء من تشغيل الملف الحالى ؟! المرفق APP_Player.zip

بسم الله الرحمن الرحيم برنامج المحاسب للمحاسبين نرجو الأفادة في حالة وجود أخطاء محاسبية الرقم السري 1975 المحاسب.rar

وعليكم السلام تفضل kaser906.accdb

اخي الكريم استخدم داله Abs

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

تفضل المشتريات.xlsx

شكراً اخي @ابو ياسين المشولي لو جربت الزر الثاني يفي نفس غرض اما اجبار المستخدم استخراج ملف من ارشيف ، تعمدت عليه بسبب مسار برنامج في ارشيف تكون في مجلد Temp ويصعب عثور المستخدم على الملف المستخرج لهذا لسبب وضعت شرط if حتى يضطر مستخدم وضع البرنامج في مجلد يعرف مساره اما اذا حذفت شرط if يعمل ككود اللي تفضلت به حتى لو برنامج في ارشيف أو خارج ارشيف.

مشاركة مع اخي ابو عارف هذا كود تحويل الى بي دي اف في حدث تحويل تقرير الى PDF DoCmd.OutputTo acOutputReport, "NewUrine", acFormatPDF, CurrentProject.Path & "\" & "المرضى" & ".PDF", True

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

بعد اذن استاذنا الفاضل الاستاذ سليم جزاه الله عنا خير الجزاء واثراء للموضوع انظر لهذ الملف لعله يفى بالغرض نسخة من انذار غياب.xlsm

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

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

الف لا بأس عليك أستاذ أبا جودي بالسلامة ان شاء الله

شفاك الله وعافاك لا بأس طهور إن شاء الله

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

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

جرب هذا الماكرو Private Sub ComboBox1_Change() Application.EnableEvents = False On Error Resume Next ''''''''''''''''''''''''''''' Dim sheet_to As Worksheet Dim t$: t = ComboBox1.Value Dim My_name$ Dim My_rg As Range Select Case t Case "راسب": My_name = "رسوب" Case "ناجح": My_name = "ناجح" Case "دور ثانى": My_name = "دور ثان فى" End Select Set My_rg = Sheets("الشيت").Range("a4").CurrentRegion On Error Resume Next Sheets(My_name).Cells.Clear My_rg.AutoFilter 20, t My_rg.SpecialCells(12).Copy Sheets(My_name).Range("a4") If Sheets("الشيت").FilterMode Then Sheets("الشيت").ShowAllData: My_rg.AutoFilter End If Application.EnableEvents = True End Sub الملف مرفق Shool.xlsm

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

تفضل hالكهرباء.xls

وعليكم السلام كان عليك من البداية استخدام خاصية البحث فى المنتدى - تفضل https://www.officena.net/ib/topic/27773-اضافة-ملف-او-ملفات-صوتية-الي-ملف-اكسل/ كما ان هناك عدة فيديوهات لهذا الأمر https://www.youtube.com/watch?v=aPagfyX_SCU https://www.youtube.com/watch?v=Z18CpWlKhKg https://www.youtube.com/watch?v=WgpNay0AzBg

بالتأكيد طبعا تفضل Book2.xlsm

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

بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات

لك ما طلبت اخى الكريم مثال.xlsx

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

تفضل

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

تفضل Book2.xlsx

وعليكم السلام تفضل اخى الكريم محصلات.xlsx

بارك الله فيك اخى الكريم هذه هى المعادلة المستخدمة فى البحث يمكنك دراستها متفهمها جيدا بسهولة =IFERROR(VLOOKUP($D9,Feuil1!$B$9:$I$1000,4,0),"")

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

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

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

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

اخي يمكنك ذلك بطريقتين الاولى الدخول الى خصائص النموذج - بيانات - ادخال بيانات \ حول القيمة الى نعم وبهذه الطريقة لا يمكنك استعراض السجلات السابقة في النموذج فقط ادخال بيانات جديدة الثانية وضع كود الانتقال الى سجل جديد عند الفتح والكود هو DoCmd.GoToRecord acDataForm, , acNewRec