نجوم المشاركات
Popular Content
Showing content with the highest reputation on 23 يون, 2022 in all areas
-
4 points
-
3 points
-
3 points
-
3 points
-
اضافة لما تفضل به استاذ خالد اضافة الى listbox عملت لك نموذج بحث متعدد multisearch.rar2 points
-
اخي العزيز سوف اشرح لك طريقتين للبحث المتعدد الاولى البحث في مربع القائمة وهو الموجود في مرفقك مع اني لا احبذ التعامل مع القوائم وافضل التعامل مع النماذج الفرعية في مثل هذه الحالات ولكن هذا امر اخر قبل شرح الطريقة اود ان اوضح ان مشاركاتي تهتم بالجانب النظري وليس العملي وبالتالي لن ارفق مثال واكتفي بالشرح فان استفدت من الشرح فالحمد لله والا تجاهل الرد واعتبر المشاركة رفع للموضوع الطريقة الاولى البحث في مربع قائمة ما يهمنا هنا هو الاستعلام مصدر بيانات القائمة نقوم باضافة حقل محسوب في الاستعلام نضع فيه الحقول التي سنستخدم معها معيار 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 هل توجد طرق اخرى نعم توجد ولكن كل شيخ له طريقته الطريقة الثانية سوف اشرحها لاحقا و هي البحث المتعدد في النموذج الفرعي عن طريق الكود وليس الاستعلام وبكود بسيط مختصر من عدة اسطر تحياتي2 points
-
2 points
-
يمكنك تجربة هذا الملف تم جلب أول 3 أسماء في العمود A ووضعها في العمود D وكذلك أول 3 أسماء في العمود C ووضعها في العمود E واستعمال معادلة العد بشرط =COUNTIF(E:E,D2)>0 لاستعمالها في تلوين خلايا العمود D عن طريق التنسيق الشرطي بالتوفيق مقارنة أول 3 أسماء.xlsb2 points
-
جرب هذا المرفق يمكنك اختيار اسم الورقة وحالة السداد حسب ما يتم كتابته في عمود حالة السداد تمت التجربة بكتابة 1 أو 0 في عمود حالة السداد W فقط يلزمك تغيير أرقام الأعمدة المطلوب الحصول عليها بين القوسين {3,5,6,8} بالتوفيق جلب بيانات من الصفوف حسب حالة السداد.xlsx2 points
-
بعد التأكد من عدم حماية الملف من تبويب مراجعة Review جرب هذه الخطوات 1. اختر File > Options > Advanced . 2. وفي جزء Editing options, تأكد من وضع علامة الصح بجوار Allow editing directly in cells . بالتوفيق2 points
-
وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة =IF($A2="أربيل",0,IF(AND($C2>=DATE(2022,6,1),$A2="حلة"),10000,5000)) تعديل على معادلة العمولة1.xlsx2 points
-
2 points
-
https://drive.google.com/file/d/1SGcBrfP4xkaciCbS5Pc74Epvl8-5kDuC/view?usp=drivesdk طبعا لان حجم الملف كبير اضفت لكم رابط تحميل من درايف في التعليق2 points
-
يمكنك استعمال هذه المعادلة في الخلية 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 لأسفل إذا زاد عدد المجموعة وهذا لاختيار البديل يدويا كما في الملف المرفق بالتوفيق المناسب للهوايات المختارة.xlsx1 point
-
ومن دون الكود الطويل لديك ..... استخدم هذا ..... مشاركة مع اخي الكريم واستاذي @Barna بارك الله فيه ..... Dim DstFile As String DstFile = CurrentProject.Path & "\" & Format(Now, "hhmmss") & ".doc" DoCmd.OutputTo acOutputTable, "tabasd", "RichTextFormat(*.rtf)", DstFile, True, "", 0, acExportQualityPrint1 point
-
حياك الله اخي @saffar انا اشتغلت مما فهمته من الصورة المرفقة ياريت ترفق مثال واقعي ومختصر ..يكون اقرب للفهم ..لاني اعتقد ان ملاحظات الاستاذ @خالد عبد الغفار.. في محلها1 point
-
عملية التصفية الفترة تعتمد على إخفاء الصفوف التي لا تنطبق عليها الشروط ونركز على كلمة الصفوف حيث يتم إخفاء الصف كله فلو كان في نفس الصف بيانات سيتم اخفاؤها و للاحتفاظ ببيانات معينة بعد التصفية يجب وضعها قبل او بعد نطاق التصفية بالتوفيق1 point
-
1 point
-
المشكلة في الخروج من الاجراء قبل تكملة تنفيذ الكود If lasts > 0 Then MsgBox "هذا الإسم موجود بالفعل", vbCritical, "تنبيه" End If Exit Sub والصواب If lasts > 0 Then MsgBox "هذا الإسم موجود بالفعل", vbCritical, "تنبيه" Exit Sub End If ولا ادري ما السبب في استعمال كود غريب لجلب آخر صف مكتوب فيه iRow الطبيعي استعمال end(xlup). row بالتوفيق1 point
-
ارفع من فضلك ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة ... فلا يمكن العمل من خلال الصورة كما لا يمكن العمل على التخمين وتجنباً لإهدار وقت الأساتذة دون جدوى أو أهمية !!!1 point
-
1 point
-
اضع اليوم بين ايديكم مشروعي الذي عملت عليه اكثر من 04 اشهر ايام و ليالي باحثا منقبا بين المنتديات مجمعا للمعلومات سائلا اسات\تي الكرام و مرهقا لهم المشروع هو نظام ادارة شؤون التلاميذ : كل ما بتعلق بالاعمال الادارية الخاصة بالقيم العام او المشرف العام في بعض الدول " تجدون فيه العديد من الاعمال التي قام بها الاسات\ة الكرام في ه\ا المنتدى : تجدون به ايضا جملة من الامكثلة في ه\ا المنتدى و غيره جمعتها و نسقتخا و اخرجت منها مشروع الحقيقة افادني كثيرا في عملي بالادارة و اراحني من هموم الوثائق : المهم لي طلب واحد ووحيد اضع المشروع بين يديكم و طالبا منكم و راجيا تطويره : 01/ اطلب بكل ود من الاسات\ة الكرام جعله يعمل على 32/ 64 بايت 02/ تحسينه و ازالة بعض الاخ\اء الموجودة به 03/ اذا فيه مجال تحسين واجهاته و لكم مني كل الشكر و الامتنان : مع العلم كل من يقوم بتحسين البرنامج ينشره بالمنتدى مفتوح المصدر : شكرا تلميذكم عمار دربالي تونس كلمة السر و اسم المستعمل هو : 12345 تشتغل على ونداوز 10.rar1 point
-
الاستاذ الفاضل @أ / محمد صالح جزاك الله خيرا وجعله في ميزان حسناتك جزيل الشكر والامتنان1 point
-
السلام عليكم استاذنا لو بتشتغل على برنامج صناعى كنترول مثلا وده واللى فهمته من اختصارك للشعب يبقى لازم تعمل جدول للداتا (البيانات) ثم جدول للشعب الكهربية والنسجيه الخ وجدول للمواد او التخصصات داخل كل شعبه وبعد كده بتعمل العلاقات (الربط ) هيبقى مصدر الكمبو بوكس اللى هتختار منه الشعبه مصدره جدول الشعب1 point
-
1 point
-
فورم بحث عن اية فى سورة طه وسورة محمد والتفسير وقراءة الايات الفيديو رابط الملف اسفل الفيديو على اليوتيوب1 point
-
تفضل هذه المحاولة ولكن من وجهة نظرى المتواضعة أرى أنه من الأفضل أن تعمل جدول للشعب Info list.rar1 point
-
وعليكم السلام-بما انك لم تقم برفع ملف ... فكان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك . فبها طلبك , تفضل : print listbox وهذا أيضاً فيديو للشرح وهذه مواقع لكاتب الأكواد https://www.patreon.com/posts/47615393 http://vbawriter.com/vba/1 point
-
بارك الله فيك بهذه الكلمات العطرة وجزاك الله خير الثواب -يمكنك بهذا التعديل ... وطبعاً نعم لابد من زيادة رقم 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 .xlsx1 point
-
1 point
-
اللهم صلى وسلم وبارك عليك سيدى يا رسول الله ... أكرمك الله استاذ حسين وزادك الله من فضله1 point
-
فقط المشكلة كانت لديك فى تنسيق خلية الرقم القومى ةالرقم التأمينى لأنك قمت بعمل تنسيق لتلك الخلايا على أنها تاريخ وليس رقم وشكراً1 point
-
ممتاز استاذ مجدى بارك الله فيك وزادك الله من فضله1 point
-
وعليكم السلام-يمكنك استخدام هذه المعادلة لطلبك =INDEX(القائمة!$C:$F,MATCH(C6,القائمة!$B:$B,0),MATCH(D5,القائمة!$C$6:$F$6,0)) المطلوب1.xlsx1 point
-
وعليكم السلام-جرب هذه المعادلة =IF(COUNTIF($B$1:$D$3,A8),A8," هذ الاسم غير موجود") Search+Vlookup1.xlsx1 point
-
ممتاز استاذ مجدى بارك الله فيك وزادك الله من فضله1 point
-
أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله1 point
-
أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله1 point
-
أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله1 point
-
تفضل كان عليك بدء المشاركة بالتحية ... السلام عليكم , يمكنك استخدام هذه المعادلة ,كما تم عمل التنسيق الشرطى اللازم كما تريد اذا كان هناك اختلاف - كما تـــم ضبط الملف والغاء وحذف الخلايا المدمجة بالجدول (على الرغم ان هذا أتعبنى كثيراً الى ان تم على خير) فهذا يصعب من أعمال اى شيء على الإكسيل ..ورجاءاً لا تقوم بعمل اى خلايا مدمجة بعد ذلك فى ملفاتك , وذلك حتى لا تجعل الجميع يبتعد عن مساعدتك فى طلبك لأنه سيأخذ ويستغرق وقت طويل منهم =IF(OR(SUM(K16:N16)<>$O16,SUM(F16:J16)<>$O16,SUM(B16:E16)<>$O16),"هناك اختلاف","") 1OutPatientStatistic.xlsx1 point
-
Version 2.0.0
3,470 تنزيل
بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ================ كثرت الأسئلة في الفترة الأخيرة حول حساب الفرق بن تاريخين ويستخدم هذا في حساب مدة خدمة الموظفين من تاريخ التعيين إلى الآن وكذلك مدد الخدمة الإضافية وكذلك مدد الانقطاع عن العمل -------------------------------------- ولذلك توكلت على الله وقمت بتصميم هذا الملف لعله يفيد كل من يبحث في هذا الموضوع والله من وراء القصد ولا ينقصني سوى دعاؤكم ............ تم تحديث البرنامج وإجراء بعض التعديلات1 point -
ما شاء الله تجميعة رائعة أخي جمال وفقك الله وأضيف لابداعات الإخوة دالة بسيطة للفرق بين تاريخين بالطريقة المتبعة عندنا في مصر (وبها بعض الاختلاف عن 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 بارك الله في كل من ساهم في هذا الموضوع1 point
-
1 point
-
بارك الله لك أخي واستاذي جمال دغيدي كل عام أنتم بخير معادلة سهلة وخفيفة ورائعة وفقك الله لكل ما يحب ويرضى1 point
-
تفضل أخي الكريم جرب وأخبرني بالنتيجة mas_mailer-v2.1-UP.rar1 point
-
الأخ الكريم عيد 2005 تم عمل اللازم وذلك بما يلي: جعل حقل id نوعة number وليس text يمكنك تحديد أكثر من عنصر في القائمة تم الاستغناء عن الاستعلام والاستعاضة عنه بالكود ...... جرب وأخبرني بالنتيجة mas_f11.rar1 point
-
السلام عليكم أخي الكريم بالنسبة لموضوع البريد والأكسس ارفق لي النسخة التي تعمل عليها وبإذن الله يتم تعديل الكود لك لأن هذا البرنامج صدرت منه نسخ كثيرة جداً ولا أدري أيها تستعمل1 point
-
بارك الله فيك أخي الكريم نارت كود رائع سبق أن استخدمته في برنامج منظومة المدارس الإعدادية هدية جميلة تقبل الله منا ومنكم1 point
-
جرب هذا الكود DoCmd.OutputTo acOutputQuery, "exportQu", acFormatXLSX, CurrentProject.Path & "\safaatech.xlsx", True1 point
-
جرب هذا الكود 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 If1 point