كل الانشطه

تمام بارك الله فيك

السلام عليكم ضع المعادلة =SUM(C8:C12) بدل الموجودة في خلية الجمع = SUM(C8+C9+C10+C11+C12) وفي الخلية c6 اكتب المعادلة =EOMONTH(P1;0) خطأ في الجمع و نهاية الشهر.xlsx

المطلوب تصحيح الخطأ في الجمع .... وكذلك حساب نهاية الشهر حسب كل شهر اتوماتيك كما بالملف خطأ في الجمع و نهاية الشهر.xlsx

مشكور أخي على التفاعل مع الطلب وجزاك الله خير ا ( ملف مرفق ) حساب الفئة العمرية.xlsx

السلام عليكم لدي جدول TableB و جدول TableA الاسم في الجدول TableA هو A3 و A4 الاسم في الجدول TableB هو B3 و B4 اريد عند الحاق البيانات من جدول TableB الى جدول TableA تظهر لي رسالة تنبيه بأن الاسم موجود في الجدول TableA وفي حالة عدم وجود الاسم يتم الحاق البيانات وتظهر رسالة تنبيه تم الحاق البيانات بنجاح dbexample.mdb

"Verified user can get a €100 off Shein Coupon code using the code ((“W33K7”)). This Shein €100 Off code is specifically for new and existing customers both and can be redeemed to receive a €100 discount on your purchase. Our exclusive Shein Coupon code offers a flat €100 off your purchase, plus an additional 30% discount on top of that. You can slash prices by up to €100 as a new Shein customer using code ((“W33K7”)). Existing users can enjoy €100 off their next haul with this code. But that’s not all! With our Shein Coupon codes for 2026, you can get up to 90% discount on select items and clearance sales. Whether you’re a new customer or an existing shopper, our Shein codes provide extra discounts tailored just for you. Save up to 30% with these current Shein Coupons [""^""W33K7 ""^""] for March 2026. The latest Shein Coupon codes at here. New users at Shein receive a €100 discount on orders over €100 Use the code ((“W33K7”)) during checkout to get Shein Coupon €100 Off For New Users. You can save €100 Off your first order with the coupon code available for a limited time only. Shein 90% Off promo code ((“W33K7”)) will save you €100 on your order. To get a discount, click on the item to purchase and enter the code. Yes, Shein offers €100 Off coupon code “W33K7” for first time users. You can get a €100 bonus plus €100 Off any purchase at Shein with the €100 Coupon Bundle at Shein if you sign up with the referral code ((“W33K7”)) and make a first purchase of €100 or more. Free Shein codes €100 off — ((“W33K7”)) Shein Coupon €100 off — ((“W33K7”)) Shein Coupon 70% off — ((“W33K7”)) Shein Memorial Day Sale €100 off — ((“W33K7”)) Shein Coupon code today — ((“W33K7”)) Shein free gift code — [""^""W33K7""^""](Without inviting friends or family member) Shein Coupon code for Canada - €100 Off— ((“W33K7”)) Shein Coupon code Australia - €100 Off— ((“W33K7”)) Shein Coupon code New Zealand - €100 Off — ((“W33K7”)) Shein Coupon code Japan - €100 Off — ((“W33K7”)) Shein Coupon code Mexico - €100 Off — ((“W33K7”)) Shein Coupon code Chile - €100 Off — ((“W33K7”)) Shein Coupon code Peru - €100 Off — ((“W33K7”)) Shein Coupon code Colombia - €100 Off — ((“W33K7”)) Shein Coupon code Malaysia - €100 Off — ((“W33K7”)) Shein Coupon code Philippines - €100 Off — ((“W33K7”)) Shein Coupon code South Korea - €100 Off — ((“W33K7”)) Redeem Free Shein Coupon Code [""^""W33K7""^""] for first-time users Get a €100 discount on your Shein order with the promo code ""W33K7"". You can get a discount by clicking on the item to purchase and entering this Shein Coupon code €100 off ((“W33K7”)). Shein New User Coupon ((“W33K7)): Up To €100 OFF For First-Time Users Our Shein first-time user coupon codes are designed just for new customers, offering the biggest discounts and the best deals currently available on Shein. To maximize your savings, download the Shein app and apply our Shein new user coupon during checkout. Shein Coupon Codes For Existing Users ((“W33K7”)): €100 Price Slash Have you been shopping on Shein for a while? Our Shein Coupon for existing customers is here to reward you for your continued support, offering incredible discounts on your favorite products. Shein Coupon For €100 Off ((“W33K7”)): Get A Flat €100 Discount On Order Value Get ready to save big with our incredible Shein Coupon for €100 off! Our amazing Shein €100 off coupon code will give you a flat €100 discount on your order value, making your shopping experience even more rewarding. Shein Coupon Code For €100 Off ((“W33K7”)): For Both New And Existing Customers Our incredible Shein Coupon code for €100 off is here to help you save big on your purchases. Whether you’re a new user or an existing customer, our €100 off code for Shein will give you an additional discount! Shein Coupon Bundle ((“W33K7”)): Flat €100 Off + Up To €100 Discount Get ready for an unbelievable deal with our Shein Coupon bundle for 2026! Our Shein Coupon bundles will give you a flat €100 discount and an additional €100 off on top of it. Free Shein Coupons ((“W33K7”)): Unlock Unlimited Savings! Get ready to unlock a world of savings with our free Shein Coupons! We’ve got you covered with a wide range of Shein Coupon code options that will help you maximize your shopping experience. 70% off Shein Coupons, Promo Codes + 25% Cash Back ((“W33K7”)) Redeem Shein Coupon Code ((“W33K7”)) Shein Coupon €100 OFF ((“W33K7”)) Shein Coupon €100 OFF FOR EXISTING CUSTOMERS ((“W33K7”)) Shein Coupon €100 OFF FIRST ORDER ((“W33K7”)) Shein Coupon €100 OFF REDDIT ((“W33K7”)) Shein Coupon €100 OFF FOR EXISTING CUSTOMERS REDDIT ((“W33K7”)) Shein €100 OFF CODE ((“W33K7”)) Shein 70 OFF COUPON 2026 ((“W33K7”)) DOMINOS 70 RS OFF COUPON CODE ((“W33K7”)) WHAT IS A COUPON RATE ((“W33K7”)) Shein €100 OFF FOR EXISTING CUSTOMERS ((“W33K7”)) Shein €100 OFF FIRST ORDER ((“W33K7”)) Shein €100 OFF FREE SHIPPING ((“W33K7”)) You can get an exclusive €100 off discount on your Shein purchase with the code *[W33K7] Or [W33K7]*.This code is specially designed for new customers and offers a significant price cut on your shopping. Make your first purchase on Shein more rewarding by using this code to get €100 off instantly. *Shein Coupon Code For €100 Off [W33K7] Or [W33K7]:* Get A Flat €100 Discount On Order Value Get ready to save big with our incredible Shein Coupon for €100 off! Our coupon code will give you a flat €100 discount on your order value, making your shopping experience even more rewarding. *Exclusive Shein Discount Code [W33K7] Or [W33K7]:* Flat €200 OFF for New and Existing Customers Using our Shein promo code you can get A€ 200 off your order and 70% off using our Shein promo code *[W33K7] Or [W33K7]*. As a new Shein customer, you can save up to €100 using this promo code. For returning users, our Shein promo code offers a €100 price slash on your next shopping spree. This is our way of saying thank you for shopping with us! *Best Shein Deals and Coupons [W33K7] Or [W33K7]:* During 2026, Shein Coupon codes offer discounts of up to 90% on select items, making it possible for both new and existing users to get incredible deals. From €100 off deals to 30% discounts, our Shein promo codes make shopping more affordable than ever. *Shein Coupon Code For 100€% Off [W33K7] Or [W33K7]:* For Both New And Existing Customers Free Shein €100 Off Code — *[W33K7] Or [W33K7]* Shein Coupon 70% off — *[W33K7] Or [W33K7]* Shein Memorial Day Sale - €100 Off — *[W33K7] Or [W33K7]* Shein Free Gift Code — *[W33K7] Or [W33K7]* Shein €500 Off Code — *[W33K7 ] Or [W33K7]* Best Shein €200 Off Code — *[W33K7 ] Or [W33K7]* Shein Coupon Code first order — *[W33K7] Or [W33K7]* Shein Coupon Code for New user — *[W33K7] Or [W33K7]* Shein Coupon Code A€100 off — *[W33K7] Or [W33K7]* Shein Coupon Code €50 off — *[W33K7] Or [W33K7]* Shein Coupon Code €100 off — *[W33K7] Or [W33K7]* Shein Promo Code 2026 — *[W33K7] Or [W33K7]* Shein Coupon Code €200 off — *[W33K7] Or [W33K7]* Shein Coupon Code €90 off — *[W33K7] Or [W33K7]* Shein Sign up Bonus Code — *[W33K7] Or [W33K7]* Shein Coupon Code C€120 off — *[W33K7] Or [W33K7]* Our exclusive Shein Coupon code allows you to take a flat €200 off your purchase with an added 30% discount on top. As a new Shein shopper, you can save up to €100 using code *[W33K7] Or [W33K7]*. Returning customers can also enjoy a €100 discount on their next purchases with this code. *Shein Coupon Code for Your Country Sign-up Bonus* Shein €100 Off Code Canada *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Australia *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code New Zealand *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Japan *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Mexico *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Chile *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Peru *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Colombia *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Malaysia *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Philippines *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code South Korea *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code USA *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Pakistan *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Finland *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Saudi Arabia *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Qatar *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code France *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Germany *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Netherlands *[W33K7] Or [W33K7]* - 70% off Shein €100 Off Code Israel *[W33K7] Or [W33K7]* - 70% off Get a €100 discount on your Shein order with the promo code *[W33K7] Or [W33K7]. You can get a discount by clicking on the item to purchase and entering this Shein Coupon code €100 off *[W33K7] Or [W33K7]**. *Shein Coupon Code [W33K7] Or [W33K7]:* Get Up To 90% OFF In March 2026 Are you looking for the best Shein Coupon codes to get amazing discounts? Our Shein Coupons are perfect for getting those extra savings you crave. We regularly test our coupon codes for Shein to ensure they work flawlessly, giving you a guaranteed discount every time. *Shein New User Coupon [W33K7] Or [W33K7]:* Up To €100 OFF For First-Time Users Our Shein first-time user coupon codes are designed just for new customers, offering the biggest discounts and the best deals currently available on Shein. To maximize your savings, download the Shein app and apply our Shein new user coupon during checkout. FAQs of Shein €100 Off Coupon Q: Can I use the Shein €100 off coupon more than once? Ans: The Shein €100 off coupon is typically for one-time use per account. However, you March be able to use it on multiple orders if specified in the terms and conditions. Always check the current offer details for the most accurate information. Q: Does the Shein €100 off coupon work for international orders? Ans: Yes, our Shein €100 off coupon code [W33K7] is valid for orders in 68 countries worldwide, including the USA, Canada, and many European nations. Be sure to check if your country is included before placing an order. Q: Can I combine the Shein €100 off coupon with other promotions? Ans: While the €100 off coupon usually can't be combined with other promo codes, it can often be used in conjunction with ongoing sales or discounts on the Shein platform. This allows you to maximize your savings on your purchase. Q: Is there a minimum purchase amount required to use the Shein €100 off coupon? Ans: Our Shein coupon code [W33K7] for €100 off typically doesn't have a minimum purchase requirement. However, it's always best to check the current terms and conditions of the offer to be sure. Q: What should I do if the Shein €100 off coupon code doesn't work? Ans: If you're having trouble with the coupon code, first ensure you've entered it correctly. If issues persist, try clearing your browser cache or using a different device. If the problem continues, contact Shein customer support for assistance"

تفضل استاذ @بلال بلال طلبك مع الشرح . ووافني بالرد . Yamen-QRCode.rar

تم تنقيح الكود لتسهيل التعديل عليه Private Sub Worksheet_Change(ByVal Target As Range) Dim Row As Integer, Col As Integer Dim fRow As Integer, fCol As Integer, fdd As Integer Dim yy As Integer, mm As Integer, dd As Integer Dim cellDate As Date, DateRange As String, m m = Array("", "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", _ "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") With Target DateRange = Replace(.Address, "$", "") If DateRange <> "M1" Then 'تبديل عنوان خلية التاريخ عند الحاجة' Beep 'MsgBox Exit Sub End If If Not IsDate(Range(DateRange)) Then Beep 'MsgBox Exit Sub End If Application.EnableEvents = False Application.ScreenUpdating = False yy = Year(.Value) mm = Month(.Value) For fdd = 1 To 7 If Weekday(DateSerial(yy, mm, fdd)) = vbSunday Then Exit For Next fdd End With Cells.Find(What:="الأحد", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate fRow = ActiveCell.Row fCol = ActiveCell.Column + 1 Cells(fRow - 2, fCol + 5) = m(mm) dd = fdd - 3 For Col = fCol To fCol + 9 Step 2 dd = dd + 2 For Row = fRow To fRow + 4 dd = dd + 1 cellDate = DateSerial(yy, mm, dd) If Month(cellDate) = mm Then Cells(Row, Col + 0) = cellDate Cells(Row, Col + 1) = 1 Else Cells(Row, Col + 0) = "" Cells(Row, Col + 1) = "" End If Next Row Next Col Application.EnableEvents = True Application.ScreenUpdating = True End Sub حساب_التاريخ_06.xlsm

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

هههههههه انا قلت يمكن بعدل شي أو يضيف شي داخل الملف للتمييز بينهم 😛 إن شاء الله حال وصولي لنسبة ترضي غرور أفكاري 😁 ، لن أبخل عليكم بها

غيرت الإسم فقط 😅 وصلت لنفس النتيجة أي أنه في الحالتين لم يتم إسترجاع الوحدات النمطية ولكن في المجمل فإن إسترجاع النماذج والتقارير شيئ ليس بالقليل وياريت تشاركنا بالطريقة

بعض ما عندكم يا أستاذنا الكبير .. أتمنى أن تكون قد غيرت به شيئاً مخفياً كي نميز بين المرفق السابق ، والتالي .. Mont_ProgressBar_NoPassword.zip بلا شك 👍 طبعاً المكتبات لا تعنيني نهائياً في فكرتي .. فأنا أقوم حالياً بجلب المكونات الى ملف ACCDB إصدارات حديثة = 2019 = نسخة الأوفيس التي لدي حالياً .. وبخصوص هذه النقطة ، جاري بناء مكتبة وخوارزمية كاملة ( مبنية على ملف VBA7.Dll ) تم كسر حمايته من إصدار أوفيس 2019

لو اجريت عملية بحث بسيطة كنت ستجد أكثر من موضوع خاص بـ QRCode وهذا أول موضوع ظهر لي

على فكرة إصدارات الأوفيس كانت تتغير كل سنة فمثلا 2003 كان الإصدار Office 11 وفي 2007 أصبح Office 12 وهكذا وحتى 2013 ولكن إبتداء من 2016 كله أصبح Office 16 وهذا مانجده في المراجع كما بالصورة

بصراحة أعتبر هذه النتيجة بحد ذاتها إنجاز المثال السابق كنت قد وضعت كلمة سر للتعليمات البرمجية ولكن كيف ستكون النتيجة إذا ماجعلناها بدون تأمين؟ هذا نفس الملف ولكن بدون تأمين للتعليمات البرمجية Mont_ProgressBar.rar

أستاذ @منتصر الانسي ، هذه تجربتي على استخراج النماذج بتصاميمها حرفياً ( دون أكواد VBA ) حالياً في المرحلة الأولى .. Montaser.accdb

السلام عليكم اريد اضافة كيو بار كود المربع في التقرير

لكم مني كل الاحترام والتقدير 👍

شكرا جزيلا على الزياده في الحل وهذا هو الفضل وزيادة بارك الله فيكم وجزاكم خيرا

حل آخر بالكود: Private Sub Worksheet_Change(ByVal Target As Range) Dim Row As Integer, Col As Integer Dim fRow As Integer, fCol As Integer, fdd As Integer Dim yy As Integer, mm As Integer, dd As Integer Dim cellDate As Date, m m = Array("", "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", _ "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") With Target If Not (Target.Row = 1 And Target.Column = 13) Then Exit Sub yy = Year(.Value) mm = Month(.Value) For fdd = 1 To 7 If Weekday(DateSerial(yy, mm, fdd)) = vbSunday Then Exit For Next fdd End With Cells.Find(What:="الأحد", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate fRow = ActiveCell.Row fCol = ActiveCell.Column + 1 Application.EnableEvents = False Application.ScreenUpdating = False Cells(fRow - 2, fCol + 5) = m(mm) dd = fdd - 3 For Col = fCol To fCol + 9 Step 2 dd = dd + 2 For Row = fRow To fRow + 4 dd = dd + 1 cellDate = DateSerial(yy, mm, dd) If Month(cellDate) = mm Then Cells(Row, Col + 0) = cellDate Cells(Row, Col + 1) = 1 Else Cells(Row, Col + 0) = "" Cells(Row, Col + 1) = "" End If Next Row Next Col Application.EnableEvents = True Application.ScreenUpdating = True End Sub حساب_التاريخ_05.xlsm

مطلوب قاعدة بيانات آكسيس 2003 مقفلة MDE . ولا يهمني الداتا التي فيها أبداً ولا حتى ان تكون لمشروع كامل إذا سمحتم 🤗

مشاركة مع استاذ @منتصر الانسي تفضل استاذ @محمود _ المصري مرفقك بعد التعديل حسب مافهمت . ووافني بالرد . M-111.rar

تفضل ...... Yamen-01-04-2026-111.rar

تمام بارك الله فيك وجعله في ميزان حسناتك

تفضل حساب_التاريخ3.xlsx