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

و جرب هذي الطريقة منع الحاق سجل تم الحاقه سابقة له نفس التاريخ.zip

السلام عليكم هذا منتهى الأمر إن شاء الله تعالى الشكر للأستاذ @أبو إبراهيم الغامدي على مساهمته القيمة فلولا كوده وتوجهيه لكان من الصعب علي أن أكمل العمل على هذا الوجه ولم ألجأ إلى الطريقة التي شرحتها في التعليق السابق، بالرغم من نجاح الكود، كونها ستجعل الكود بطيئاً للغاية، ولله الحمد، أللهم صل على سيدنا محمد وعلى آله وصحبه وسلم FinalColorizing.accdb

😅 اوك .. انظر لهذا الكود فى حدث On Time Private Sub Form_Timer() Dim x, x1, dx As Integer x = DCount("*", "جدول2") Debug.Print x If Time = TimeValue("14:22:00") Then DoCmd.SetWarnings False DoCmd.OpenQuery "الحاق_من_ج1_الى_ج2" DoCmd.SetWarnings True x1 = DCount("*", "جدول2") Debug.Print x1 dx = x1 - x Debug.Print dx If dx >= 0 Then MsgBox ("تم اضافة عدد " & dx & " سجل ") End If End Sub اذا اتى الوقت المكتوب فى الشرط سيتم تشغيل استعلام الالحاق وظهور رسالة تبين عدد السجلات التى تم الحاقها وبهذه الطريقة ستعرف اذا نجحت العملية ام لا (هذه الفكرة التى اتتنى بخصوص طلبك اكيد فيه طريقة اخرى اذا لم يعجبك الحل ) ملاحظة : طبعا الكود لازم يتم وضعه فى نموذج مفتوح دائما وليكن شاشتك الرئيسية .. مرفق القاعدة .. بالتوفيق 1053855661_AppendOneTime-Amrv2.0.accdb

السلام عليكم و رحمة الله و بركاته المرفق يحتوي على كل ما يحتاجه المبرمج و يستحق الإكتشاف أفكار جديدة و رائعة , الملف منقول للأمانة تقبلوا تحياتي VBA Task Dial.accdb

تفضل هذا التعديل تجريبي.zip

لا تشغل بالك! كنت حضرت هذه الدالة مع صاحباتها في الوحدة النمطية MTextUtilities لاختزال الشفرة التي تفضلت بها أنت. لكن عندما رجعت إلى زر أمر التلوين وجدك سبقتني لذلك! فأخذت الشفرة من تحت زر الأمر ووضعتها في الوحدة النمطية خاصتك وسميتها بنفس الاسم.. إلا أني غيرت في اسم الدالة خاصتي بزيادة شرطات سفلية في نهايتها حتى لا يحدث تعارض بين الأسماء.. أما عن Public: فجميع الإجراءات والدالات التي تكتب تحت الوحدة النمطية فإنها تأخذ الوضع Public كوضع افتراضي.. وبناءً عليه كتبتها أو لم تكتتبها؛ سيان.. لا تحزن.. فضيفك لم يعتد السمين من الطبخ! ولم يألف سوى الإقط والسمن! وأخشى أن يغص بالسمين...

استخدم هذا الكود :::: If DCount("[ser]", "find", "[name_1] ='" & Me![myfind] & "' ") > 0 Then MsgBox "هذا الشخص موجود", vbCritical, "عملية خاطئة" Else MsgBox "الاسم غير موجود" End If

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

تفضل ... كما يمكنك الإستعانة بهذا الرابط How To Create A Searchable Drop Down List In Excel? قائمة منسدلة1.xlsx

جهد رائع فى المثال الذى اشرت اليه .. بارك الله فيك يا استاذنا وفى الاساتذة المشاركين فى الموضوع .. عسى ان يكون فى ميزان حسناتكم .

نعم ممكن ... كل ما عليك هو الاستفادة من المرفق النهائي في سؤال الأخ مستفيد وأن تقوم بكتابة الأحرف الإنكليزية في جدول المعايير وتختار لوناً واحداً لكل حرف يفضل أن تطبق اللون على اللغة الإنكليزية لا العربية لأن الأحرف العربية قد تربكك، لكونها متصلة. أللهم صل على سيدنا محمد وعلى آله وصحبه وسلم

هناك مشكلة في الملف يبقى مفتوح عندي رغم اني اغلقته .. علاوة على ان الملف لم يظهر اي شيء غير صفحة بيضاء

انا اعطيتك الحل بالفعل اخى الكريم.. عليك فقط بالتجربة

تفضل هذا التعديل 927122524_b-saderwared.zip

السلام عليكم الطريقة كانت عبارة عن نموذج لربط الستايل/ النمط بالكتاب ... وسميت النموذج Stylecolor عند تسجيل كتاب جديد يتبع النمط وتخزن قيمة معرف النمط في حقل في جدول Books بواسطة الدالة DlookUp نصل إلى حقل تخزين معرفات الأنماط لكن الذي توقفت عنده هو كيفية استخدام الدالة Mid أو Split لاستخراج أرقام الأنماط واستدعاء بقية محددات الوظيفة / Function عن طريق الدالة DlookUp وهو ما استغرق مني وقتاً طويلاً دون نتيجة أظن أني لن أحقق شيئاً في هذه الطريقة التي رسمتها بمخيلتي، على الأقل في حدودي معرفتي الحالية. أستاذ @أبو إبراهيم الغامدي لقد شاهدت مرفقكم، وأثار تساؤلي وجود دالتين بنفس الاسم AnnotationColoring إحداهما Public، هل من الممكن شرح هذه النقطة. جزاكم الله كل خير ... ColorizingAAA.accdb

جزاك الله خيرا اخى محمد 🌹

حياك الله اخي الكريم ، على الرحب و السعه 🌹

شكرا على المجهود اخي العزيز

Sub Test() Dim a, temp, dict As Object, buy As Double, sell As Double, i As Long, x As Long Set dict = CreateObject("Scripting.Dictionary") With Sheets("Sheet1").Cells(2).CurrentRegion a = .Value: ReDim temp(1 To UBound(a), 1 To 3) For i = 2 To UBound(a) If Not dict.Exists(a(i, 1)) Then dict.Add a(i, 1), "" buy = Application.WorksheetFunction.SumIfs(.Columns(7), .Columns(1), a(i, 1), .Columns(2), "BUY") sell = Application.WorksheetFunction.SumIfs(.Columns(7), .Columns(1), a(i, 1), .Columns(2), "SELL") If buy > sell Then x = x + 1: temp(x, 1) = a(i, 1): temp(x, 2) = buy: temp(x, 3) = sell End If Next i End With With Sheets("Sheet2") .Columns(1).ClearContents .Range("A2").Value = "Market" .Range("A3").Resize(x, 1) = temp End With End Sub

وعليكم السلام ورحمة الله وبركاته تفضل جرب هذا book1 معدل.xlsx

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أخر نسخة من البرنامج بعد عمل عدة تعديلات 1185844841_.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته فهذه نسخة أخرى مع طريقة معلجة خطأ يمكن أن يحدث sewer.rar طريقة معلجة الخطا.rar

الــدرس الرابع: الجملة الشرطية ( IIF ) ( لقد قام أستاذي و أخي جعفر حفضه الله بتقديم هذا الدرس كله و أنا لم أفعل شيء سوى التنسيق و النشر فاللهم جازيه عنا خير الجزاء يا رب العالمين) طريقة استعمال ((iif: iif(expr, truepart, falsepart) iif(القيمة المطلوب تقييمها, اذا كان التقييم صح فستأخذ هذه القيمة, اذا كان التقييم خطأ فستأخذ هذه القيمة) مثال: Age=50 Age_Now = iif(Age=50 , "Yes it is", "No it is not") ميزاتها: نستطيع استعمالها في الكود ، والاستعلام نستطيع ان نضع اكثر من شرط واحد فيها مثال: Price=10 Qty=5 Sale_is= iif(Price* Qty = 50 , "Low sale", iif(Price * Qty = 100 , "Middle sale" , "Big sale")) عيوبها: الدالة تختبر جميع الحالات ، ولا تختبر القيمة الاولى وتخرج (مثل الـ IF): 1. المثال السابق ، مع ان اول تقييم هو الجواب الصحيح 10*5=50 ، إلا ان الدالة ستقوم بتقييم جميع الاختيارات ، مما يجعلها تأخذ وقت اطول للتقييم ، 2. بسبب اختبارها لجميع الحالات ، فيجب ان نكون دقيقين في وضع التقييم ، مثلا اذا اردنا اختبار قيمة مثال: Divide = iif(n2 = 0, MsgBox("القيمة صفر"), MsgBox(n1 / n2)) فاننا سنحصل على خطأ ، لأن الدالة تحققت من القيمتين ، والقيمة الثانية هي تقسيم رقم على صفر ، 3. بطيئه نوعا ما ، لأنها تحول الارقام الى Variant (رجاء مراجعة الدرس الاول للأخ صالح) ، ثم تقوم بالحساب ، 4. لا تستطيع ان تستخدم اكثر من 7 شروط في الاستعلام ، مثلا عندنا ارقام الاشهر ونريد نستخرج اسمائها ، 5. ببساطة مكن ان تخطأ في عدد الاقواس والفواصل ، 6. لا تستطيع قراءة ولا تغيير اي شئ بسهولة ، وخصوصا اذا كان عندنا اكثر من تقييم ، امثلة عملية: 1. اذا عندنا ارقام الاسبوع ، ونريد ان نستخرج ايامها ، فاذا عملنا الكود في الاستعلام مباشرة ، فسيكون صعب ، لذا ، فالطريقة التي اعملها انا هي: أ‌- عمل الكود في محرر VBA ، هكذا: لاحظ اني عملت اول شرط ونتيجة القيمة الصحيحة ، ثم انهيت السطر بخط سفلي _ (واللي معناه في البرمجة ان الكود سيتواصل في السطر التالي ، ثم انتقلت السطر التالي ، ونفس الشئ ، عملت الشرط التالي ونتيجة القيمة الصحيحة و.... كما سبق و... الى ان نوصل للسطر الاخير ، فوضعت الشرط الاخير ونتيجة القيمة الصحيحة والخطأ ، ثم حسبت كم قوس مفتوح ، فقفلت بنفس عددها: iDay = 2 Today_is = IIf(iDay = 1; "Sun"; _ IIf(iDay = 2; "Mon"; _ IIf(iDay = 3; "Tue"; _ IIf(iDay = 4; "Wed"; _ IIf(iDay = 5; "Thu"; _ IIf(iDay = 6; "Fri"; "Sat")))))) ب- والخطوة التالية ان نجعلها في سطر واحد ، حتى نأخذها للإستعلام ، وهي ان نحذف الاشارة _ ، لتكون النتيجة Today_is = IIf(iDay = 1; "Sun"; IIf(iDay = 2; "Mon"; IIf(iDay = 3; "Tue"; IIf(iDay = 4; "Wed"; IIf(iDay = 5; "Thu"; IIf(iDay = 6; "Fri"; "Sat")))))) . هكذا . 2. اذا عندنا سجلات الصف الاول والثاني ، واردنا معرفة عدد الطلاب لكل صف: iif([Section]= "A" ; 1;0) وهكذا تكون في الاستعلام: 3. اذا عندنا اكثر من 7 شروط (ارقام الاشهر نريد تحويلها الى اشهر) ، فهنا نضطر الى عمل وحدة نمطية: Function What_Month(M) Select Case M Case 1 What_Month = "Jan" Case 2 What_Month = "Feb" Case 3 What_Month = "Mar" Case 4 What_Month = "Apr" Case 5 What_Month = "May" Case 6 What_Month = "Jun" Case 7 What_Month = "Jul" Case 8 What_Month = "Aug" Case 9 What_Month = "Sep" Case 10 What_Month = "Oct" Case 11 What_Month = "Nov" Case 12 What_Month = "Dec" End Select End Function ونرسل لها ارقام الاشهر ، هكذا . والنتيجة