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

وعليكم السلام-تفضل 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

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

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

وعليكم السلام.. هل هذا مطلبك؟ عملت نموذج فيه listbox Info list.rar

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

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

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

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

وعليكم السلام-بما انك لم تقم برفع ملف ... فكان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك . فبها طلبك , تفضل : print listbox وهذا أيضاً فيديو للشرح وهذه مواقع لكاتب الأكواد https://www.patreon.com/posts/47615393 http://vbawriter.com/vba/

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

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

السلام عليكم -يمكنك استخدام هذه المعادلة =IF(VLOOKUP($B14,$B$3:$G$9,2,0)="ح","ح",INDEX($I$3:$I$9,MATCH(C3,J$3:J$9,0))) المساعدة في تحويل الأرقام إلى أسماء1 .xlsx

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

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

احسنت بارك الله فيك ووسع الله فى رزقك

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

تفضل هذه بنواة 64 بت -بعد اذن جميع الأساتذة فالملف ليس به اى مشكلة فإن واجهتكم مشكلة فاعلم انها من عندك انت فلابد كما أخبرنا من تحميل الأداة والمكتبة الناقصة رابط تحميل السيلينيوم https://github.com/florentbr/SeleniumBasic/releases/download/v2.0.9.0/SeleniumBasic-2.0.9.0.exe رابط تحميل الدريفر الخاص بالسلينيوم https://chromedriver.storage.googleapis.com/102.0.5005.27/chromedriver_win32.zip الكروم درايفر لابد ان يكون اصداره مثل اصدار الكروم المصطب على جهازك نظام ادارة شؤون التلاميذ الاصدار 1.00.rar

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

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

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

وعليكم السلام-يمكنك استخدام هذه المعادلة لطلبك =INDEX(القائمة!$C:$F,MATCH(C6,القائمة!$B:$B,0),MATCH(D5,القائمة!$C$6:$F$6,0)) المطلوب1.xlsx

لا أعتقد أن هذا يتم بمعادلة يمكنك استعمال هذا الكود في حدث تغيير الشيت 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

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

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

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

تفضل كان عليك بدء المشاركة بالتحية ... السلام عليكم , يمكنك استخدام هذه المعادلة ,كما تم عمل التنسيق الشرطى اللازم كما تريد اذا كان هناك اختلاف - كما تـــم ضبط الملف والغاء وحذف الخلايا المدمجة بالجدول (على الرغم ان هذا أتعبنى كثيراً الى ان تم على خير) فهذا يصعب من أعمال اى شيء على الإكسيل ..ورجاءاً لا تقوم بعمل اى خلايا مدمجة بعد ذلك فى ملفاتك , وذلك حتى لا تجعل الجميع يبتعد عن مساعدتك فى طلبك لأنه سيأخذ ويستغرق وقت طويل منهم =IF(OR(SUM(K16:N16)<>$O16,SUM(F16:J16)<>$O16,SUM(B16:E16)<>$O16),"هناك اختلاف","") 1OutPatientStatistic.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 بارك الله في كل من ساهم في هذا الموضوع

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

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

تفضل أخي الكريم جرب وأخبرني بالنتيجة mas_mailer-v2.1-UP.rar

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

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

بارك الله فيك أخي الكريم نارت كود رائع سبق أن استخدمته في برنامج منظومة المدارس الإعدادية هدية جميلة تقبل الله منا ومنكم

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