كل الانشطه

The verified "SAVEULTRA" coupon code provides the maximum possible savings for customers shopping in the USA and India in April 2026. This promo code is trusted by shoppers globally to unlock instant price reductions at checkout. Using an Ultrahuman discount code 2026 ensures you stay ahead of the curve with the latest wearable tech at a lower price. You can use the Ultrahuman coupon code 10% off to upgrade your health monitoring today. What Is The Latest & Verified Ultrahuman Coupon Code For 10% Discount? The latest verified Ultrahuman coupon code is "SAVEULTRA," which grants a flat 10% discount on all smart rings and subscriptions. This code is safe to redeem for both new and existing customers looking to optimize their health data. We have confirmed that applying the Ultrahuman coupon 10% discount works seamlessly on both the official website and the mobile app. Shoppers can also enjoy a 10% extra discount Ultrahuman coupon when purchasing the Ring Air or the newer Ring Pro models. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. SAVEULTRA: flat 10% discount for first-time buyers SAVEULTRA: an extra 10% discount on Ultrahuman Ring Air and Ultrahuman Ring Pro SAVEULTRA: 10% additional discount for first-time buyers SAVEULTRA: an extra 10% discount on the UltrahumanX Coverage SAVEULTRA: 10% additional discount for fitness enthusiasts Ultrahuman Coupon Code 10% Off For New & Existing Customers In April 2026 Both new and existing customers can use the code "SAVEULTRA" to get the highest available benefits on the Ultrahuman ecosystem. Whether you are buying your first ring or upgrading your current tracker, this code remains valid for all users. Fitness enthusiasts in the USA and India can apply the Ultrahuman Ring Air coupon code for immediate savings on the sleekest wearable available. If you prefer the more advanced features, the Ultrahuman Ring Pro discount code is also fully active for your purchase. New Ultrahuman buyers can redeem the coupon code “SAVEULTRA” to receive an instant 10% discount on Ultrahuman Ring Air, Ultrahuman Ring Pro, UltrahumanX, and Ultrahuman M1 subscriptions. SAVEULTRA: flat 10% discount for new customers SAVEULTRA: 10% additional discount for UltrahumanX subscribers SAVEULTRA: 10% extra off on smart rings, sleep trackers, and fitness trackers SAVEULTRA: an additional 10% off for fitness lovers SAVEULTRA: an extra 10% off for buyers in the USA and India How To Redeem The Ultrahuman 10% Off Discount Code For New & Existing Customers? Redeeming your Ultrahuman discount codes is a simple process that takes less than a minute during your checkout journey. By using the Ultrahuman coupon code 2026, you ensure that the price drops before you finalize your payment. Visit the official Ultrahuman website or open the app on your iOS or Android device. Select your preferred smart ring, such as the Ring Air, and choose your size and color. Add the items to your digital shopping cart and proceed to the checkout page. Locate the "Discount Code" or "Promo Code" field near your order total. Enter the code "SAVEULTRA" into the box and click the "Apply" button. Verify that the 10% discount has been deducted from your final price before paying. Ultrahuman Coupon Code 10% Off For Fitness Enthusiasts Fitness enthusiasts can get a 10% discount on all health trackers by using the "SAVEULTRA" code during the checkout process. This discount is perfect for those who want to monitor their recovery, sleep, and movement with high precision. If you are a gym lover, using an Ultrahuman discount coupon for gym lovers helps you invest more in your training while saving on tech. You can also find a verified Ultrahuman promo for sleep tracking to help you understand your body’s circadian rhythm. Ultrahuman customers can apply the coupon “SAVEULTRA” at checkout to receive a verified 10% discount on smart rings (Ultrahuman Ring Air and Ultrahuman Ring PRO) and health-tracking subscriptions (UltrahumanX, Ultrahuman M1, and Ultrahuman Vision). SAVEULTRA: 10% extra discount for fitness freaks SAVEULTRA: flat 10% discount on the Ring Air and Ring Pro smart rings SAVEULTRA: 10% off on the UltrahumanX and M1 subscriptions SAVEULTRA: an extra 10% off for gym lovers SAVEULTRA: free shipping + free accessories for every fitness ring How To Use The Ultrahuman Coupon Code 10% Discount For Fitness Coaches? Fitness coaches can use the Ultrahuman discount code 10% off to equip themselves with the best biohacking tools for their clients. Applying the Ultrahuman coupon code allows professionals to stay at the top of their game without overspending. Navigate to the Ultrahuman online store and browse the professional-grade fitness rings. Choose the hardware that best fits your coaching needs and add it to your cart. On the checkout screen, find the area designated for promotional offers. Input the code "SAVEULTRA" to trigger the professional fitness discount. Review the updated subtotal to ensure the 10% savings are applied correctly. Ultrahuman Coupon 10% Off For Athletes Athletes can maximize their performance data by using the "SAVEULTRA" code to get an instant 10% discount on all Ultrahuman products. This offer is ideal for sportsmen who need to track their heart rate variability and recovery metrics daily. We have found that Ultrahuman coupon codes for athletes are highly sought after for their reliability and ease of use. If you are looking for an Ultrahuman discount code for sportsmen, this is the most trusted option available globally. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. SAVEULTRA: 10% additional discount for athletes SAVEULTRA: flat 10% off for sports enthusiasts SAVEULTRA: free global shipping for sportsmen SAVEULTRA: extra 10% discount on Ring Air and Ring PRO SAVEULTRA: 10% discount on the UltrahumanX subscription How To Use The Ultrahuman Discount Code 10% Off For Athletes? Athletes can apply the Ultrahuman discount code 10% off to receive specialized pricing on the entire range of smart rings. This includes the Ultrahuman college athletes discount which is easily activated through the standard checkout portal. Select the Ultrahuman Ring Air or Pro model that matches your athletic training style. Ensure you have selected the correct size using the Ultrahuman sizing kit if needed. Go to the payment section where you will see the box for coupon entry. Type in "SAVEULTRA" to apply the 10% athlete-focused price reduction. Complete the transaction using your preferred secure payment method. Ultrahuman Coupon Code 10% Off For Students Students can access the most advanced health tracking technology at a lower price by using the "SAVEULTRA" code for 10% off. This discount helps students manage their stress and sleep patterns while staying within a budget. We recommend using Ultrahuman coupon codes for physical trainers and students to make health data more accessible to everyone. The Ultrahuman student discount is a great way to start your biohacking journey while you are still in school. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. SAVEULTRA: 10% extra discount for students in the USA and India SAVEULTRA: flat 10% off on Ultrahuman Ring Air and Ultrahuman Ring PRO SAVEULTRA: free shipping for students SAVEULTRA: an extra 10% discount on smart rings SAVEULTRA: 10% additional off on UltrahumanX subscription How To Use The Ultrahuman Discount Code 10% Off For Students? Students can redeem their Ultrahuman Ring Air discount code in just a few steps to save on their next wearable purchase. You can also apply the Ultrahuman Ring PRO coupon code if you want the most advanced health sensors available. Open the Ultrahuman website and browse the student-friendly smart ring collections. Pick the ring that fits your academic and fitness lifestyle and add it to your bag. Head to the checkout page and look for the promo code entry field. Enter the code "SAVEULTRA" to see the student price adjustment immediately. Confirm the shipping details to your campus or home and finish your order. Ultrahuman Coupon Codes For Smartrings and Fitness-Tracking Subscriptions The "SAVEULTRA" code provides a comprehensive 10% discount on both high-end smart rings and the essential subscriptions that power them. This ensures you get the full Ultrahuman experience without any hidden costs or high retail prices. Ultrahuman Ring Air Coupons & Discount Codes The Ultrahuman Ring Air is known for being incredibly lightweight and comfortable for 24/7 wear. By using the Ultrahuman Ring Air discount code, you can get this sleek device at a much more affordable price point. Many shoppers prefer the Ultrahuman Ring Air coupon code because it provides a verified way to save on a premium fitness tracker. We have tested this code and found it to be the most reliable option for global buyers. Ultrahuman Ring PRO Discounts & Deals For those who want the absolute best in health technology, the Ultrahuman Ring Pro offers advanced sensors and deeper insights. You can use the Ultrahuman Ring PRO discount code to save 10% on this flagship health tracker today. The Ultrahuman Ring Pro coupon code is valid for all finishes, including titanium and black, making it a versatile choice for any style. This deal is trusted by fitness enthusiasts who demand the highest level of data accuracy. UltrahumanX and Ultrahuman M1 Discount Code The UltrahumanX protection plan and the M1 glucose tracking subscription are vital for a complete health overview. You can apply the Ultrahuman discount code to these services to maintain your health monitoring at a lower monthly cost. Using the Ultrahuman Air coupon code also extends to these valuable subscriptions, ensuring you are covered for both hardware and software. This holistic approach to savings is why "SAVEULTRA" is the preferred choice for smart shoppers. Is The Ultrahuman 10% Off Discount Code Legit? The "SAVEULTRA" code is a 100% legit coupon code that has been verified by thousands of shoppers and fitness vloggers worldwide. It is a safe to redeem promo that works directly through the official Ultrahuman payment gateway without any issues. We have confirmed that the Ultrahuman coupon code legit status applies to orders in the USA, India, and Europe. You can trust the Ultrahuman discount code legit labels found online when they lead you to this evergreen and tested "SAVEULTRA" offer. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. How Does The Ultrahuman 10% Off Discount Code Work? The Ultrahuman 10% off discount code works by applying a digital reduction to your cart subtotal before taxes and shipping are calculated. Once you enter the code, the Ultrahuman Ring Air coupon code system automatically validates the promotion and updates the price. This code discount Ultrahuman mechanism is designed to be user-friendly and works across all platforms, including mobile browsers and the official app. It is a seamless way to ensure you are getting the best possible price on your new health ring. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. What Is The Difference Between Ultrahuman And Other Smartrings? Ultrahuman stands out from other smart rings by offering a more comprehensive metabolic tracking system and a focus on recovery. When you use the Ultrahuman coupon code 10% discount, you are getting superior technology for a price that beats many competitors. Additionally, the Ultrahuman free shipping code benefits make it a more cost-effective choice for international buyers compared to other brands. The combination of no subscription requirements for basic data and high-quality build makes it a leader in the wearable space. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. What Are The Advantages Of Using The Ultrahuman Smartrings - Ring Air and Ring PRO? Using Ultrahuman smart rings allows you to track your sleep, movement, and recovery with unmatched precision in a tiny form factor. By applying the Ultrahuman code at checkout, you gain access to these pro-level insights at a significantly reduced cost. The discount code for Ultrahuman makes it easier for everyone to own a device that monitors heart rate, skin temperature, and blood oxygen levels. These rings are designed to be durable, stylish, and informative for anyone looking to improve their lifestyle. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. Get deep insights into your sleep stages and overall sleep quality every night. Monitor your body's recovery through Heart Rate Variability (HRV) metrics. Track your daily movement and activity levels without wearing a bulky watch. Access the UltrahumanX protection for peace of mind regarding your hardware. Enjoy a sleek, titanium-built wearable that looks like a premium piece of jewelry. Pros And Cons Of Using The Ultrahuman Discount Code 10% Off In April 2026 The primary advantage of using the Ultrahuman discount 10% off code is the immediate financial saving on premium wearable technology. We have found that the Ultrahuman 10% off discount code is the most consistent way to lower the barrier to entry for high-end health tracking. Use Ultrahuman discount code SAVEULTRA to claim an instant 10% discount on Ring Air and Ring Pro smart rings in the USA and India. Savings: Instant 10% reduction on all hardware and subscription costs. Discounted Smartrings: Lower prices on the latest Ring Air and Ring Pro models. Broad Region Coverage: Valid for shoppers in the USA, India, and Canada. Free Shipping: Included with most orders to enhance the overall value. Free Subscription: Often bundled with purchases to provide immediate data access. Con: Non-refundable import and duties fees for non-US orders. Con: Rare regional restrictions in shipping for certain remote areas. Terms And Conditions Of Using The Ultrahuman Discount Code 10% Off In 2026 The terms for using the Ultrahuman discount code 10% off free shipping are straightforward and designed to be fair for all customers. To ensure you get the best deal, always use the latest Ultrahuman coupon code 10% off at the time of your purchase. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 10% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. The "SAVEULTRA" code has no expiration date and remains valid for 2026. All users, including fitness trainers and gym lovers, are eligible for this discount. The promo is valid for customers located in the USA, Canada, and India. You can apply the discount to all the latest fitness ring models currently in stock. "SAVEULTRA" is always valid when entered correctly in the promo code field. Conclusion: Use The Latest Ultrahuman Discount Code [SAVEULTRA] For 10% Off Using the Ultrahuman coupon code 10% off is the smartest way to invest in your health while keeping your budget intact. We have verified that "SAVEULTRA" is the most effective code for global shoppers today. Don't miss the chance to upgrade your fitness tracking with a reliable Ultrahuman discount code. Start your journey toward better health with the best savings available on the market. FAQs Of Ultrahuman 10% Off Discount Code How many times can I use the SAVEULTRA code? The SAVEULTRA code is typically valid for one use per customer account to ensure fair access for everyone. However, if you are purchasing a new device or subscription in the future, you can often apply it to your new transaction to receive the same 10% discount again. Does the 10% discount apply to the Ultrahuman sizing kit? While the sizing kit is often priced very low or credited back toward your ring purchase, the 10% discount is most effective when applied to the actual Ring Air or Ring Pro. Using the code during your final ring purchase ensures you get the maximum value from the promotion. Can I use the Ultrahuman coupon code in India? Yes, the SAVEULTRA code is fully functional for customers in India. Ultrahuman has a strong presence there, and the code works seamlessly on their regional website and app, providing the same 10% savings on all available fitness rings and tracking subscriptions for local buyers. Is there a special discount for fitness coaches or athletes? The SAVEULTRA code serves as a universal discount that provides 10% off for athletes, coaches, and students alike. It is designed to be the highest-value evergreen code available, removing the need for separate verification processes while still delivering significant savings to the fitness community. What should I do if the Ultrahuman discount code is not working? First, ensure that the code SAVEULTRA is spelled correctly and there are no extra spaces. If it still fails, check that you aren't trying to stack it with another promotional offer, as most systems only allow one code per order. Contacting Ultrahuman support can also resolve any technical issues.

السلام عليكم اخي الكريم يوجد عندي ملاحظة بالتقرير بعد قيامي بادخال بعض البيانات الجديدة في البرنامج أرجو النظر فيها تحياتي لكم Ahmed ElShahat.rar

أعضاء المنتدى الكرام السلام عليكم ورحمة الله وبركاته أولا أشكركم على ما تقدمونه من جهد في مساعدة الآخرين جعله الله في موازين حسناتكم يوم القيامة ثانيا لدي ملف فيه ورقتين ورقة بيانات وورقة فواتير ورقة البيانات فيها الهوية ورقم الطالب واسمه ورقة الفواتير فيها رقم الطالب واسمه والقاسم المشترك في الورقتين رقم الطالب واسمه المراد إضافة رقم الهوية في ورقة الفواتير تلقائيا بمجرد تشابه رقم الطالب في الورقتين وفق الله الجميع نقل رقم الهوية بناء على رقم الطالب.xlsx

السلام عليكم ومع اني كنت متابع صامتا في الظل ، فحان الوقت للمتابعة صامتا ظاهرا 🙂

فيما يلى فى بيئة تشغيل أكسس 2007 المرفق السابق بعد تحييد كل سطور الخطأ التى ظهرت فيه باستخدام Debug Shift Key Bypass V 2.0.7.rar

بنحاول نتعلم منكم استاذي..... بارك الله فيكم وعليكم وجعلكم الله عونا لأمثالي والاخرين ... تمام الكود كده

تجربة بسيطة حقيقية على ملف ACCDE .😎.

هههههههه ، يا عيني عليك ، اكتشفتها بنفسك .. جرب التعديل الأخير على أكثر من احتمال :- Sub DrawCirclesByFoksh(ByVal x As Integer, ByVal startRow As Integer, ByVal endRow As Integer) Dim Shp As Shape, c As Range Dim r As Long, i As Long, n As Long Dim usedRows As Collection Dim dayCount As Long, perDay As Long, extra As Long Dim rr As Variant, lastCol As Long Dim hasLesson As Boolean Dim lessonCount As Long Dim circlesThisDay As Long If x <= 0 Then Exit Sub Set usedRows = New Collection lessonCount = 0 For r = startRow To endRow hasLesson = False For i = 3 To 10 If Cells(r, i).Value <> "" Then hasLesson = True lessonCount = lessonCount + 1 End If Next i If hasLesson Then usedRows.Add r Next r dayCount = usedRows.Count If dayCount = 0 Then Exit Sub n = 0 If x = lessonCount Then For r = startRow To endRow For i = 10 To 3 Step -1 If Cells(r, i).Value <> "" Then Set c = Cells(r, i) Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 n = n + 1 If n = x Then Exit Sub End If Next i Next r ElseIf x > lessonCount Then Do While n < x For r = startRow To endRow For i = 10 To 3 Step -1 If Cells(r, i).Value <> "" Then Set c = Cells(r, i) Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 n = n + 1 If n = x Then Exit Sub End If Next i Next r Loop Else perDay = x \ dayCount extra = x Mod dayCount If x > 10 And x < lessonCount Then extra = extra + 1 For Each rr In usedRows circlesThisDay = perDay If extra > 0 Then circlesThisDay = circlesThisDay + 1 extra = extra - 1 End If lastCol = 0 For i = 10 To 3 Step -1 If Cells(rr, i).Value <> "" Then lastCol = i Exit For End If Next i For i = lastCol To 3 Step -1 If Cells(rr, i).Value <> "" And circlesThisDay > 0 Then Set c = Cells(rr, i) Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 circlesThisDay = circlesThisDay - 1 n = n + 1 If n = x Then Exit Sub End If Next i Next rr End If End Sub

سلمت اناملك استاذ منتصر جاري التجربة

المرفق تم فيه تحقيق أغلب الأفكار التى أشرت إليها سابقاً ، لكنه يحتاج إلى مزيد من التوافقية لكل الإصدارات بدءاً من أكسس 2007 فى أكسس 2007 واجهة عربية خطأ فى نظام الألوان يمكن اختصاره إلى قليل من الأكواد بأحداث : عند التركيز ، عند فقدان التركيز ، عند النقر ومع تجاهل الخطأ لن يتم باقى وظائف التطبيق كما ترى بخفوت زر تنفيذ فى أكسس 2010 واجهة انجليزية متوافق تماماً فى كل شئ الألوان ، الفلترة ، التمكين ، عدم التمكين ، .... الخ ، ما عدا أنه لم يتعرف على حالة ملف mdb فى أكسس 2024 واجهة عربية متوافق فقط مع ملفات accdb ولم يتوافق مع ملفات mdb الخلاصة المرفق السابق ( أرفقته أسفل ) متوافق مع كل الإصدارات وليس به أى مشاكل وإن كان قليل الميزات بالأحدث ولا يتبقى لى سوى شكري لك على تعبك ومجهودك ، وكفى الله المؤمنين .. وهذه الصور للتطبيق الذى بدون مشاكل له فى أكسس 2007 Enable-Disable Shift Key.accdb

بالفعل تم التجربة ووجدت ما هو في الصورة.... ماالسبب مع ان عدد الحصص 12 حصة والمطلوب وضع عليهم 12 دائرة . لماذا تم ترك واحدة؟؟؟؟؟؟؟؟؟؟؟؟

أنصحك أخي @بلانك ، بتجربة إحتمالات كثيرة على النتيجة والتحقق منها 100% 😉

تمام بارك الله فيك هو ده المطلوب زادك الله علما على علم

علني اكون قد فهمت المنطق جيداً .. تفضل التعديل :- Sub DrawCirclesByFoksh(ByVal x As Integer, ByVal startRow As Integer, ByVal endRow As Integer) Dim Shp As Shape Dim r As Long, i As Long, n As Long Dim c As Range Dim usedRows As Collection Dim dayCount As Long, perDay As Long, extra As Long Dim rr As Variant, lastCol As Long Dim hasLesson As Boolean If x <= 0 Then Exit Sub Set usedRows = New Collection For r = startRow To endRow hasLesson = False For i = 3 To 10 If Cells(r, i).Value <> "" Then hasLesson = True Exit For End If Next i If hasLesson Then usedRows.Add r Next r dayCount = usedRows.Count If dayCount = 0 Then Exit Sub perDay = x \ dayCount extra = x Mod dayCount n = 0 For Each rr In usedRows Dim circlesThisDay As Long circlesThisDay = perDay If extra > 0 Then circlesThisDay = circlesThisDay + 1 extra = extra - 1 End If lastCol = 0 For i = 10 To 3 Step -1 If Cells(rr, i).Value <> "" Then lastCol = i Exit For End If Next i For i = lastCol To 3 Step -1 If Cells(rr, i).Value <> "" And circlesThisDay > 0 Then Set c = Cells(rr, i) Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, _ c.Left, c.Top, c.Width, c.Height) Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 circlesThisDay = circlesThisDay - 1 n = n + 1 If n >= x Then Exit Sub End If Next i Next rr End Sub

تفضل استاذ @بلال بلال الشرح والمرفق حسب ما فهمت . ووافني بالرد . Bilal Mosque.rar

أخي فوكش ..... ان جميع الايام لابد من توزيع الدوائر على الحصص اولا من اخر حصة فئ ذلك اليوم ... ثم لو زادت الحصص عن عدد الايام يبدا الازدواج في الدوائر للحصص التى قبلها .... بمعنى في اخر صورة عدد الحصص 6 وعدد الايام 3 اذا كل يوم دائرتان من الاخر لذلك اليوم

جرب المرفق التالى Shift Key Bypass V 2.0.7.accdb.zip

لم افهم بالضبط !!!! يعني النتيجة المطلوبة ، أنه حتى يوم الاربعاء الحصة 2-3 تكون عليها دائرة ؟؟؟ بدلاً من الحصة الخامسة ليوم الإثنين !!!

بدأ يضبط ..............ولكن انظر للصورة المفروض لا يترك اي يوم بدون دائرة قبل ازدواج الدوائر

تمام .. استبدل الدالة الرئيسية بالتالية ، وجربها على ملفك بعد إزالة الدوائر السابقة طبعاً :- Sub DrawCirclesByFoksh(ByVal x As Integer, ByVal startRow As Integer, ByVal endRow As Integer) Dim Shp As Shape Dim i As Long, r As Long, n As Long Dim c As Range If x <= 0 Then Exit Sub i = 10 n = 0 Do While i >= 2 For r = endRow To startRow Step -1 Set c = Cells(r, i) If c.Value <> "" Then Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, _ c.Left, c.Top, c.Width, c.Height) n = n + 1 Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 If n >= x Then Exit Sub End If Next r i = i - 1 Loop End Sub

الكود سلس وجميل .... هل أطمع في كرمك ان يتم وضع الدوائر بدءا من الحصة الاخيرة لكل يوم اي كان موضع الحصة بمعنى كل يوم حصة وعند الزيادة يبدأ في ملئ الحصص السابقة عكس الجدول . وعند زيادة الحصص عن 5 ايام يتم ملئ الحصص التي قبلها انظر الى الصورة المرفقه

السلام عليكم الجدول يتكون من رقم الكتاب - تاريخ التسجيل - موضوع الكتاب - دار النشر - المؤلف ا ريد جدول المستعيرين وبيناتهم . جدول استعارات اسم المستعير وتاريخ الاستعارة وتاريخ الارجاع ومدة الاستعارة

وعليكم السلام ورحمة الله وبركاته .. على حسب ما فهمت أن المقصود هو أكواد رسم الدوائر كما في ملفك المرفق ، صحيح ؟؟ طيب بدايةً .. وللتوضيح :- إذا كانت الأعمدة تتغير ( ليس دائماً العمود 10 ) ، هنا أخي بلانك يمكنك إضافة معامل رابع للدالة DrawCircles لتحديد آخر عمود ، أو استخدام نطاق أكثر حيوية . لكن بناءً على الأكواد الحالية من ملفك المرفق ، أعتقد أن i = 10 و i >= 2 متغيران ثابتان لجميع الحالات . صحيح ؟؟ إذا كان ما فهمته صحيح .. فاستعمل ما يلي :- الدالة الرئيسية :- Sub DrawCirclesByFoksh(ByVal x As Integer, ByVal startRow As Integer, ByVal endRow As Integer) Dim Shp As Shape Dim i As Long, s As Long, n As Long Dim c As Range If x <= 0 Then Exit Sub i = 10 n = 0 Do While i >= 2 For Each c In Range(Cells(startRow, i), Cells(endRow, i)) If c.Value <> "" Then Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, _ c.Left, c.Top, c.Width, c.Height) n = n + 1 Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 If n >= x Then Exit Sub End If Next c i = i - 1 Loop End Sub ثم تستدعيها من خلال الزر وبتمرير المجموعات التي تريدها ولك الحرية في ذلك ، بهذا النمط :- Sub AddCirclesMain() Call DrawCirclesByFoksh(Range("n9").Value, 10, 14) Call DrawCirclesByFoksh(Range("n17").Value, 18, 22) Call DrawCirclesByFoksh(Range("n25").Value, 26, 30) End Sub طبعاً ستستدعي الدالة AddCirclesMain في زر رسم الدوائر .

استاذ @أحمد الشحات85 اذا كنت لبيت طلبك وكي يستفيد غيرك اضغط تمت الاجابة على أخر مشاركة لي .

وعليكم السلام ورحمة الله وبركاته .. جري استخراج القيم من الخليتين كنص . في أي خلية تريدها استخدم المعادلة التالية :- =TEXT(C3,"yyyy/mm/dd") & " " & TEXT(B3,"yyyy/mm/dd")