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

وعليكم السلام-تفضل 1الاحصاء.xlsx

طيب انظر الصور والمرفق هل هذا هو المطلوب ........ Info list.accdb

تفضل استاذ Moosak شوف بنفسك عمل هذه الأداة

بارك الله فيك استاذ مجدى وزادك الله من فضله

اضافة لما تفضل به استاذ خالد اضافة الى listbox عملت لك نموذج بحث متعدد multisearch.rar

اخي العزيز سوف اشرح لك طريقتين للبحث المتعدد الاولى البحث في مربع القائمة وهو الموجود في مرفقك مع اني لا احبذ التعامل مع القوائم وافضل التعامل مع النماذج الفرعية في مثل هذه الحالات ولكن هذا امر اخر قبل شرح الطريقة اود ان اوضح ان مشاركاتي تهتم بالجانب النظري وليس العملي وبالتالي لن ارفق مثال واكتفي بالشرح فان استفدت من الشرح فالحمد لله والا تجاهل الرد واعتبر المشاركة رفع للموضوع الطريقة الاولى البحث في مربع قائمة ما يهمنا هنا هو الاستعلام مصدر بيانات القائمة نقوم باضافة حقل محسوب في الاستعلام نضع فيه الحقول التي سنستخدم معها معيار like هذا الحقل نجمع فيه حقل الاسم والجنس والمدينة وممكن اضافة اي حقول ماعدا حقل العمر وسوف نبين لماذا نستثنيه المهم قيمة هذا الحقل الذي جمعنا فيه الحقول تكون ⬇️ Expr1: [stname] & " " & [address] & " " & [gender] وفي خانة المعيار نضع التعبير التالي Like "*" & [Forms]![frmsearch]![txtsearchname] & "*" txtsearchname هو الحقل الذي سوف نبحث فيه عن الاسم او الجنس او المدينة ويمكن البحث باكثر من معيار في نفس السطر مثلا نكتب محمد ثم مسافة ثم البحيرة وهكذا الان حقل العمر انت ترغب البحث من عمر الى عمر مثلا من 16 الى 20 وهكذا وبالتالي لا نستطيع استخدام like ولكن نستخدم Between & and لذا في معيار حقل العمر في الاستعلام نضع التعبير التالي Between Nz([Forms]![frmsearch]![t2];0) And Nz([Forms]![frmsearch]![t4];99) t2 هو حقل من تاريخ t4 هو حقل الى تاريخ t2 & t4 هي حقول في النموذج استخدمنا دالة nz لتعوض في حقل من تاريخ عن القيمة null بالصفر وكذلك استخدمنا مع الحقل الى لتعطي القيمة 99 هل توجد طرق اخرى نعم توجد ولكن كل شيخ له طريقته الطريقة الثانية سوف اشرحها لاحقا و هي البحث المتعدد في النموذج الفرعي عن طريق الكود وليس الاستعلام وبكود بسيط مختصر من عدة اسطر تحياتي

فورم سيرة الخلفاء الراشدين والائمة الاربعة الكود اسفل الفيديو باليوتيوب

يمكنك تجربة هذا الملف تم جلب أول 3 أسماء في العمود A ووضعها في العمود D وكذلك أول 3 أسماء في العمود C ووضعها في العمود E واستعمال معادلة العد بشرط =COUNTIF(E:E,D2)>0 لاستعمالها في تلوين خلايا العمود D عن طريق التنسيق الشرطي بالتوفيق مقارنة أول 3 أسماء.xlsb

جرب هذا المرفق يمكنك اختيار اسم الورقة وحالة السداد حسب ما يتم كتابته في عمود حالة السداد تمت التجربة بكتابة 1 أو 0 في عمود حالة السداد W فقط يلزمك تغيير أرقام الأعمدة المطلوب الحصول عليها بين القوسين {3,5,6,8} بالتوفيق جلب بيانات من الصفوف حسب حالة السداد.xlsx

بعد التأكد من عدم حماية الملف من تبويب مراجعة Review جرب هذه الخطوات 1. اختر File > Options > Advanced . 2. وفي جزء Editing options, تأكد من وضع علامة الصح بجوار Allow editing directly in cells . بالتوفيق

وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة =IF($A2="أربيل",0,IF(AND($C2>=DATE(2022,6,1),$A2="حلة"),10000,5000)) تعديل على معادلة العمولة1.xlsx

وعليكم السلام-تقضل وكما ترى الفورم بفتح ويعمل بكل كفاءة Searchable Dropdown Settings Example.xlsm

https://drive.google.com/file/d/1SGcBrfP4xkaciCbS5Pc74Epvl8-5kDuC/view?usp=drivesdk طبعا لان حجم الملف كبير اضفت لكم رابط تحميل من درايف في التعليق

يمكنك استعمال هذه المعادلة في الخلية B9 للحصول على المطلوب الأول =IF(SUMPRODUCT(IF($B$1:$B$4=TRUE,1,0),TRANSPOSE(INDEX(Data!$C$2:$F$11,MATCH(B8,Data!$B$2:$B$11,0),{1,2,3,4})))=SUM(IF($B$1:$B$4=TRUE,1,0)),"","غير ")&"مناسب" وبالنسبة للمطلوب الثاني يمكن الوصول لجميع أفراد المجموعة التي منها هذا الاسم ومعرفة ومن منهم مناسب ومن منهم غير مناسب في الخلايا D1:I7 ويمكن سحب المعادلة في العمود D & E لأسفل إذا زاد عدد المجموعة وهذا لاختيار البديل يدويا كما في الملف المرفق بالتوفيق المناسب للهوايات المختارة.xlsx

ومن دون الكود الطويل لديك ..... استخدم هذا ..... مشاركة مع اخي الكريم واستاذي @Barna بارك الله فيه ..... Dim DstFile As String DstFile = CurrentProject.Path & "\" & Format(Now, "hhmmss") & ".doc" DoCmd.OutputTo acOutputTable, "tabasd", "RichTextFormat(*.rtf)", DstFile, True, "", 0, acExportQualityPrint

حياك الله اخي @saffar انا اشتغلت مما فهمته من الصورة المرفقة ياريت ترفق مثال واقعي ومختصر ..يكون اقرب للفهم ..لاني اعتقد ان ملاحظات الاستاذ @خالد عبد الغفار.. في محلها

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

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

المشكلة في الخروج من الاجراء قبل تكملة تنفيذ الكود If lasts > 0 Then MsgBox "هذا الإسم موجود بالفعل", vbCritical, "تنبيه" End If Exit Sub والصواب If lasts > 0 Then MsgBox "هذا الإسم موجود بالفعل", vbCritical, "تنبيه" Exit Sub End If ولا ادري ما السبب في استعمال كود غريب لجلب آخر صف مكتوب فيه iRow الطبيعي استعمال end(xlup). row بالتوفيق

اضع اليوم بين ايديكم مشروعي الذي عملت عليه اكثر من 04 اشهر ايام و ليالي باحثا منقبا بين المنتديات مجمعا للمعلومات سائلا اسات\تي الكرام و مرهقا لهم المشروع هو نظام ادارة شؤون التلاميذ : كل ما بتعلق بالاعمال الادارية الخاصة بالقيم العام او المشرف العام في بعض الدول " تجدون فيه العديد من الاعمال التي قام بها الاسات\ة الكرام في ه\ا المنتدى : تجدون به ايضا جملة من الامكثلة في ه\ا المنتدى و غيره جمعتها و نسقتخا و اخرجت منها مشروع الحقيقة افادني كثيرا في عملي بالادارة و اراحني من هموم الوثائق : المهم لي طلب واحد ووحيد اضع المشروع بين يديكم و طالبا منكم و راجيا تطويره : 01/ اطلب بكل ود من الاسات\ة الكرام جعله يعمل على 32/ 64 بايت 02/ تحسينه و ازالة بعض الاخ\اء الموجودة به 03/ اذا فيه مجال تحسين واجهاته و لكم مني كل الشكر و الامتنان : مع العلم كل من يقوم بتحسين البرنامج ينشره بالمنتدى مفتوح المصدر : شكرا تلميذكم عمار دربالي تونس كلمة السر و اسم المستعمل هو : 12345 تشتغل على ونداوز 10.rar

بعتذر من حضرتك..فقد اختلط الامر علي اما بالنسبة للكود اعلاه فهو شغال..يعني اذا تكرر اسم الموقع تظهر رسالة تنبيه!! برنامج حصر العهد بالفرع - Copy.rar

الاستاذ الفاضل @أ / محمد صالح جزاك الله خيرا وجعله في ميزان حسناتك جزيل الشكر والامتنان

السلام عليكم استاذنا لو بتشتغل على برنامج صناعى كنترول مثلا وده واللى فهمته من اختصارك للشعب يبقى لازم تعمل جدول للداتا (البيانات) ثم جدول للشعب الكهربية والنسجيه الخ وجدول للمواد او التخصصات داخل كل شعبه وبعد كده بتعمل العلاقات (الربط ) هيبقى مصدر الكمبو بوكس اللى هتختار منه الشعبه مصدره جدول الشعب

Jehad.93 لما كل هذا التأخر فى الرد بعد 11 يوم ... كان يجب غلق المشاركة !!!!

فورم بحث عن اية فى سورة طه وسورة محمد والتفسير وقراءة الايات الفيديو رابط الملف اسفل الفيديو على اليوتيوب

وعليكم السلام-لابد من رفع الملف نفسه لوضع المعادلة تماماً فى المكان المخصص لها وتجنباً لإهدار الوقت ... ويمكن هذا بمعادلة Date ... ,وبما انك لم ترفع الملف فيمكنك وضع المعادلة بنفسك فى المكان المخصص لها طبقا لملفك والخلايا المعلومة لك والمجهولة بالنسبة لنا =Date(Year,Month,Day)

تفضل هذه المحاولة ولكن من وجهة نظرى المتواضعة أرى أنه من الأفضل أن تعمل جدول للشعب Info list.rar

بارك الله فيك استاذ مجدى وزادك الله من فضله

حياك وبياك العوام .. قريب منكم 😄🌹 والله نتشرف بك عمي قاسم 😄🖐🏼️ نحن منكم وإليكم .. وحياك الله في أي وقت بعمان ☺️🌹

ممتاز استاذ مجدى جزاك الله خير الثواب

أحسنت استاذ مجدى جزاك الله خير الثواب

بارك الله فيك بهذه الكلمات العطرة وجزاك الله خير الثواب -يمكنك بهذا التعديل ... وطبعاً نعم لابد من زيادة رقم 2 عند الإنتقال لعمود أخر وبالتوفيق ان شاء الله =IF(VLOOKUP($B3,ورقة1!$B$3:$G$9,2,0)="ح","ح",INDEX(ورقة1!$I$3:$I$9,MATCH(ورقة1!C3,ورقة1!J$3:J$9,0))) واذا كنت لا تريد تغيير الرقم كلما سحبت المعادلة لعمود جديد فيمكنك استخدام هذه المعادلة مباشرة دون تعديل رقم العمود =IF(VLOOKUP($B3,ورقة1!$B$3:$G$9,MATCH(C$2,ورقة1!$B$2:$G$2,0),FALSE)="ح","ح",INDEX(ورقة1!$I$3:$I$9,MATCH(ورقة1!C3,ورقة1!J$3:J$9,0))) المساعدة في تحويل الأرقام إلى أسماء 3 .xlsx

وعليكم السلام-تفضل على الرغم انك لم تقم برفع الملف .. قيمكنك اضافة هذا السطر بحدث Open Sheets("الرئيسية").Select

همة مشكورة بارك الله فيك وزادك الله من فضله ..طبعاً رائع هدية مقبولة وموفق دائماَ

بارك الله فيك وزادك الله من فضله

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

ممتاز استاذ مجدى بارك الله فيك وزادك الله من فضله

لا أعتقد أن هذا يتم بمعادلة يمكنك استعمال هذا الكود في حدث تغيير الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 1 And Target.Column < 6 Then Range("f" & Target.Row) = Date End Sub كلك يمين على اسم الشيت ثم view code ثم لصق هذا الكود في الناحية اليمنى مع حفظ الملف بامتداد يدعم الأكواد مثل xls أو xlsb أو xlsm بالتوفيق

وعليكم السلام-جرب هذه المعادلة =IF(COUNTIF($B$1:$D$3,A8),A8," هذ الاسم غير موجود") Search+Vlookup1.xlsx

ممتاز استاذ مجدى بارك الله فيك وزادك الله من فضله

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

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

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

ما شاء الله تجميعة رائعة أخي جمال وفقك الله وأضيف لابداعات الإخوة دالة بسيطة للفرق بين تاريخين بالطريقة المتبعة عندنا في مصر (وبها بعض الاختلاف عن datedif الموجودة في الإكسل) حيث يتم حساب السن عندنا بطرح أيام التاريخ الأحدث - أيام التاريخ الأقدم وإذا كان الناتج بالسالب يتم استلاف شهر (30 يوم كقاعدة ثابتة) ونفس الكلام مع الشهور مع استلاف 12 شهر في حالة شهور التاريخ الأحدث أقل من شهور التاريخ القديم والناتج مجمع كله في خلية واحدة Function date_diff(oldd As Date, newd As Date) As String Dim years, months, days As Integer years = Year(newd) - Year(oldd) If Month(newd) < Month(oldd) Then years = years - 1 months = (Month(newd) + 12) - Month(oldd) Else months = Month(newd) - Month(oldd) End If If Day(newd) < Day(oldd) Then months = months - 1 days = (Day(newd) + 30) - Day(oldd) Else days = Day(newd) - Day(oldd) End If date_diff = Format(years, "00") & " عام و " & Format(months, "00") & " شهر و " & Format(days, "00") & " يوم" End Function بارك الله في كل من ساهم في هذا الموضوع

فكرة جميلة أخي عبد الله وفقك الله

بارك الله لك أخي واستاذي جمال دغيدي كل عام أنتم بخير معادلة سهلة وخفيفة ورائعة وفقك الله لكل ما يحب ويرضى

الأخ الكريم عيد 2005 تم عمل اللازم وذلك بما يلي: جعل حقل id نوعة number وليس text يمكنك تحديد أكثر من عنصر في القائمة تم الاستغناء عن الاستعلام والاستعاضة عنه بالكود ...... جرب وأخبرني بالنتيجة mas_f11.rar

السلام عليكم أخي الكريم بالنسبة لموضوع البريد والأكسس ارفق لي النسخة التي تعمل عليها وبإذن الله يتم تعديل الكود لك لأن هذا البرنامج صدرت منه نسخ كثيرة جداً ولا أدري أيها تستعمل

جرب هذا الكود DoCmd.OutputTo acOutputQuery, "exportQu", acFormatXLSX, CurrentProject.Path & "\safaatech.xlsx", True

جرب هذا الكود If MsgBox("هل حقاً تريد إكمال العملية؟", 1572900, "تحذير") = vbYes Then docmd.setwarnings false DoCmd.OpenQuery "upT" DoCmd.OpenQuery "upB" DoCmd.OpenQuery "upC" DoCmd.OpenQuery "upD" DoCmd.OpenQuery "upE" DoCmd.OpenQuery "upEX" DoCmd.OpenQuery "delT" DoCmd.OpenQuery "delB" DoCmd.OpenQuery "delC" DoCmd.OpenQuery "delD" DoCmd.OpenQuery "delE" DoCmd.OpenQuery "delEX" docmd.setwarnings true End If