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

الحل بالكود توزيع الايام مع الشهور_01.xlsm

كما العنوان وننصح دائما حفظ أرقام اللوحات باللغة الإنجليزي بالطول القصير أي بدون مسافة أي بطول 7 حروف فقط. تم فحصها بشكل سريع ، فربما يحتوي بعضها على اخفاقات. SaudiCarPlates_01.accdb

نعم يمكن اخي الكريم

صديقي عملتلك المطلوب كما تريد ,, غيرت اسم الجدول من العربي الى انكليزي وكذلك الحقل ,, قمت بأضافة كود vba عمله التاكد ان تاريخ اليوم غير مضاف في الجدول في ان التاريخ غير مضاف سيتم اضافة التاريخ وفي حال انه مضاف لان يعمل الكود تحديث تاريخ تلقائي new one.accdb

السلام عليكم ورحمة الله تعالى وبركاته استاد فوزي لم استوعب طلبك حتى رايت حلول الاساتدة جزاهم الله خيرا بعد ادن الاساتده طبعا اليك حل اخر توزيع الايام مع الشهور4.xlsm

السلام عليكم ورحمة الله حل بالمعادلات... توزيع الايام مع الشهور.xlsm

أبدل الجزئية التالية في كود أخي الكريم Mohamed Hicham: ActiveCell = Evaluate("SUM(d6:d" & lr2 & "*E6:E" & lr2 & ")") بالجزئية : ActiveCell = Format(Evaluate("SUM(d6:d" & lr2 & "*E6:E" & lr2 & ")"), "# ##0.00")

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اهدى هذا الشيت الى منتدى اوفيسنا واساتذته الذين تعلمنا على ايديهم واهديه الى مهندس المنتدى مهندس طارق محمود الذى لم يبخل على فى تقديم الحلول والمساعدات ، وحقيقة وجودى فى منتدى اوفيسنا يعد تكريما لى وشرف الشيت سهل الاستخدام ولا يحتاج الى شرح يوجد ايقونة باسم الصور اذا حبيت تضيف صورة للطالب وبجوار زر الصور زر اخر لمعاينة الصورة ان حبيت تعمل معاينة للصور 1795607452_.xlsm

الحمد لله والشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير ولبشمهندسنا العزيز قاسم الف شكر وجزاه الله عنا كل خير الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير وصدقنى قرات السؤال مرات عديده واتلخبط واللى لخبطنى اكتر ذكر نموذج فرعى ولم اجده فقمت بالاجابه على الموجود امامى هههههههه وطلع استاذنا الفاضل فالاخر بوضع مرفق خاطئ ونلتمس له العذر فملاحظتى لكل مرفقاته نفس التسميه رسائل فبتلخبط ففمت بترقيم مع الحل يالا حصل خير واحلى ورده منى لك 🌹 اهلا بك معنا فى عائله اوفيسنا اخ وصديق استاذ حمدى 💐 تمنياتى لكم بالتوفيق والنجاح

متابعة الطلاب.accdb

السلام عليكم ورحمة الله تم التعديل على الكود ليخفي كل الصفوف التي بها بيانات ولا يعنيها المجموع (البحث)... ملاحظة: تم حذف الموضوع الآخر لنفس الطلب الذي رابطه "طلب مساعدة دالة أو معادلة تقوم بجمع عمود يتحول حسب تاريخ البحث" OFFICENA 2024_04.xlsm

شكر وتقدير واحترام من أخيك

الموضوع سهل في ال form /footer راح تعمل حقل غير منظم وتجعل مصدر الحقل هذا دالة اسمها count وهذه الدالة تعتمد مثلا على حقل معين مثل id راح يحسب كل حقل فيه قيمة داخل ال id يجب ان لا يكون فارغ مثلا لو عندك عشر حقول id في النموذج 3 فاضي وسبعة فيهم قيمة سوف يظهرلك الناتج ب 7 لو كانت جميع حقول ال id فيها قيمة سوف يظهر عندك في هذا الحقل العدد 10 . الاخوان بدل ان يحددو حقل معين واقصد هنا الاخ سامي الحداد استخدم الدالة بهذا الشكل =Count(*) في هذه الحالة سيعتد على السجلات المتوفرة ويعدلها لك بدون الاعتماد على حقل بعينة .. تم وضع هذا الحقل في نموذج الموظفين لو فتحت النموذج الخاص بالموظفين بوضع التصميم سترى ذالك . اما الحقل الذي يظهر لك النتائج عدد السجلات في نموذج البحث الشامل فهو قام فقط بجعل مصدر الحقل الحقل الاخر في نموذج الموظفين عن طريق الكود التالي =EMP.Form!txtCount

الملف يعمل على ويندوز ١٠ سواء اوفيس ٢٠١٠ او اوفيس ٢٠٢١ انا جربت لك علي ويندوز ٧ ٦٤ بت اوفيس ٢٠١٠ ظهر الخطأ الذي تتحدث عنه ان شاء الله غدا هجرب لك على ويندوز ٧ اوفيس ٢٠١٦

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

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

هذا الملف ناقص... من المفروض الأيقونات (المكعبات) تفتح ملفات أخرى غير موجودة مع هذا الملف (غير مرفقة معه)، وأكواد هذه الأيقونات (مكعبات) غير موجودة أيضا... يوجد كود واحد لمكعب رقم 13 (خاص بملف الصف الرابع).

كما تفضل الاستاذ عمر فى طريقة اسهل باستخدام دالة Count لا يستحسن استخدام الماكرو الا في الضرورة وهذه طريقة اخرى اظهار النتيجة في النموذج الرئيسي. بحث.accdb

عن طريق الميكرو ! فى طريقة اسهل باستخدام دالة Count جرب المرفق الخاص بك بعد التعديل اتمنى يكون هذا ما تريد بحث.accdb

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

اخي لقد تمت الاجابة عن طلبك من قبل الاساتدة اليك حل اخر ربما هدا طلبك Dim Last As Long Last = Worksheets(Mydate).UsedRange.Rows.Count Worksheets(Mydate).Range("A1:f" & Last).AdvancedFilter xlFilterCopy _ , Worksheets(MyFind).Range("K2:L3"), Worksheets(MyFind).Range("A5:f5"), False Dim lr1 As Long lr1 = Sheet2.Range("G" & Rows.Count).End(xlUp).Row + 1 Range("G6:G" & lr1).Clear lr2 = Cells(Rows.Count, "E").End(xlUp).Row + 1 For i = 6 To lr2 If Cells(i, "F") = "" Then Cells(i, "F").Offset(-1, 1).Select ActiveCell = Evaluate("SUM(d6:d" & lr2 & "*E6:E" & lr2 & ")") Exit For End If Next End Sub OFFICENA 2024.xlsm

بالفعل هذا هو المطلوب +1 شكرا لك وتحياتى وتقديرى لكرمك وشخصك الراقى وشكرا للحل السلسل الوافى ولا انسى الشكر وفائق الاحترام والتقدير للمهندس قاسم ونحياتى لكم

وعليكم السلام ورحمة الله وبركاته 🙂 مشاركة مع أخي أحمد .. وجدت هذا الكود ووظيفته حساب عدد الملفات ( وليس المجلدات ) في مجلد معين ويعطيك عددها : Public Function CountFilesInFolder(strDir As String, Optional strType As String) 'DEVELOPER: Ryan Wells (wellsr.com) 'DESCRIPTION: This macro counts the files in a folder and retuns the result in a msgbox 'INPUT: Pass the procedure a string with your directory path and an optional ' file extension with the * wildcard 'EXAMPLES: Call CountFilesInFolder("C:\Users\Ryan\") ' Call CountFilesInFolder("C:\Users\Ryan\", "*txt") Dim file As Variant, i As Integer If Right(strDir, 1) <> "\" Then strDir = strDir & "\" file = Dir(strDir & strType) While (file <> "") i = i + 1 file = Dir Wend MsgBox i End Function وتستخدمه هكذا : Call CountFilesInFolder("C:\Users\Ryan\Documents\") ويمكنك من حساب عدد ملفات من نوع معين ( ملفات الأكسل مثلا ) هكذا : Call CountFilesInFolder("C:\Users\Ryan\Documents\", "*.xls*") https://wellsr.com/vba/2016/excel/vba-count-files-in-folder/

تفضل جرب هذا الكود ,,, On Error Resume Next Dim LogUser As New CUser If trycount > 3 Then MsgBox " Of a good Muslim is his leaving alone what does not concern him", vbOKOnly + vbMsgBoxRight + vbInformation, "Warning!" MsgBox " The program will be closing now ,,, Please check designer ", vbOKOnly + vbMsgBoxRight + vbInformation, "Warning!" DoCmd.Quit ElseIf IsNull(Me.user) Then MsgBox ("Please, you must enter your user name ") Me.user.SetFocus ElseIf IsNull(Me.pass) Then MsgBox (" Please, you must enter your password ") Me.pass.SetFocus ElseIf Len(Trim(Me.pass)) > 20 Then MsgBox (" Shall not exceed twenty password letter or number") Me.pass.SetFocus '------- Mohamed Essam ------ secreted user to enter the activation model and the abolition of shift team and hide and show tables --------- ElseIf [user] = "sadmin" And [pass] = "sadmin" Then DoCmd.Close DoCmd.OpenForm "MSysEdit" ElseIf [user] = "adminx" And [pass] = "adminx" Then DoCmd.Close DoCmd.OpenForm "UsersAbility", acNormal '------- Mohamed Essam ------ secreted user to enter the activation model and the abolition of shift team and hide and show tables --------- Else LogUser.UserName = Me.user LogUser.pass = Me.pass If LogUser.Valid Then Set MyUser = LogUser If Me.user = "خالد" Then DoCmd.Close DoCmd.OpenForm "main1", acNormal Else DoCmd.Close DoCmd.OpenForm "frmend" End If Else MsgBox " User name or password is incorrect. Please try again ,,,", vbOKOnly + vbMsgBoxRight + vbInformation, "Warning!" trycount = trycount + 1 End If End If End Sub

وجدتها بعد جهد جهيد ، هي في الـ Name Manager ، للتو تعرفت عليها وسأحاول فهما ، مع أني "قد" لا أحتاجها.

وعليكم السلام ورحمة الله شاركت كمجيب والآن أشارك كسائل 🙂 الأخ @بن علية حاجي لفتني في الأكواد أسماء لم أعرف مصدرها وهي محاطة بالأقواس المربعة وكأنها أسماء حقول لجدول أو أسماء صناديق لنموذج أو تقرير ، فأين مصدر هذه الأسماء: a = [Total] Range("G" & [Lr_1] + [Lr_2] - 1) = "المجموع" Range("G" & [Lr_1] + [Lr_2]) = a

خطوة أولى ، افحص الملق وارجع لي بملاحظاتك. المجموع نتيجة البحث حسب تاريخ النهاية وتجاهل تاريخ البداية. وضعت لك الإجراء عن طريق زر البحث. OFFICENA 2024_02.xlsm

أخي مرفق برنامج جاهز مجمعه من منتدانا أفيسينا وأنا بستخدمه في جميع برامجي أدرسه جيداً واستخدمه كما تشاء ووافني بالنتيجة MahdiPermissions.rar

وعليكم السلام ورحمة الله وبركاته أخي حسين 🙂 طبيعي أخي العزيز .. فهو يعطيك في النهاية نوع البيانات التي ستتخزن فيه .. ولو لاحظت القائمة التي أنشأتها تحتوي على عمودين رقم الكود (مخفي) والاسم ( ظاهر ) ، والذي يتخزن في الجدول هو رقم الكود وهو حقل رقمي ..

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود ترحيل أعمدة معينة في هذا الكود سيتم ترحيل الأعمدة الموجودة في الصفحة المصدر ( الشيت ) ويمكن تغييرها الى أي أعمدة تبغاها ("a1:c1,z1,ai1,ar1,ba1,bl1,bm1,cd1,di1,dj1"). طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر [/center] ''' هذا الكود للعالم العلامة / عبد الله باقشير Sub KH_START1() Dim R As Integer, M As Integer, N As Integer Sheets("كشف ناجح").Range("B7:Es1000").ClearContents Sheets("كشف الدور الثاني").Range("B7:Es1000").ClearContents ''' عدد الصفوف العليا في الصفحات المنقول اليها البيانات M = 6: N = 6: S = 6 Application.ScreenUpdating = False ''' بداية ونهاية صفوف الورقة المصدر For R = 11 To 700 ''' رقم عمود المعيار وكلمة المعيار If Cells(R, 113) = "ناجح" Then M = M + 1 ''' أسماء الأعمدة المطلوب نسخها Range("A" & R).Range("a1:c1,z1,ai1,ar1,ba1,bl1,bm1,cd1,di1,dj1").Copy ''' سيتم اللصق في هذا الشيت With Sheets("كشف ناجح") ''' سيتم اللصق بدءا من عمود .Range("B" & M).PasteSpecial xlPasteValues .Range("B" & M).PasteSpecial xlPasteFormats .Range("B" & M) = M - 6 End With Application.CutCopyMode = False ''' للصفحة الأخرى المطلوب الترحيل إليها 'رقم عمود المعيار وكلمة المعيار ElseIf Cells(R, 113) = "دور ثان في" Then ''' لترك صف اعلا كل صف N = N + 2 ''' أسماء الأعمدة المطلوب نسخها Range("A" & R).Range("a1:c1,z1,ai1,ar1,ba1,bl1,bm1,cd1,di1,dj1").Copy ''' سيتم اللصق في هذا الشيت With Sheets("كشف الدور الثاني") .Range("B" & N).PasteSpecial xlPasteValues .Range("B" & N).PasteSpecial xlPasteFormats .Range("B" & N) = (N - 6) / 2 End With Application.CutCopyMode = False End If Next MsgBox "تم ترحيل " & M - 6 & " طالب ناجح" & Chr(10) & Chr(10) & _ "تم ترحيل " & (N - 6) / 2 & " طالب دور ثاني", vbMsgBoxRight, "الحمدلله" Application.ScreenUpdating = True End Sub ودمتم في حفظ الله ترحيل مفيد باختبار اعمدة معينة.rar

أخي العزيز ان كنت قد احسنت الفهم عنك انت تريد ايقاف رسالة النظام المرتبطة بعدم وجود القيمة المضافة لمربع التحرير ضمن عناصر مصدر السجلات لتقوم بتفعيل نموذج اضافة القيمة الجديدة لمصدر السجلات لايقاف الرسالة اضف السطر التالي قبل كود تفعيل نموذج الاضافة Response = acDataErrContinue شكرا