كل الانشطه

Searching for a verified Ultrahuman coupon code 20% off is the best way to save on your next health tracker purchase. We have tested several options to ensure you get the maximum value for your money. You can use the SAVEULTRA coupon code to unlock the highest available benefits for customers in the USA and India in April 2026. This code is trusted by shoppers and verified to work on the latest wearable technology. Finding a working Ultrahuman discount code 2026 ensures you get a premium fitness ring at an affordable price point. Using an Ultrahuman coupon code 20% off allows you to invest in your health without breaking your budget. What Is The Latest & Verified Ultrahuman Coupon Code For 20% Discount? The most reliable and verified Ultrahuman coupon code is SAVEULTRA, which provides a flat 20% discount on your order. This code is safe to redeem and has been used globally by fitness enthusiasts looking for the best price. Both new and existing customers can take advantage of these savings when shopping via the official Ultrahuman app or website. Whether you are buying your first fitness ring or upgrading your health tracker, this promo code ensures an extra 20% discount Ultrahuman coupon is applied. By entering the code at checkout, you can enjoy a significant price drop on the most advanced wearables available today. This Ultrahuman coupon 20% discount is currently the top choice for shoppers in the USA, India, and beyond. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. SAVEULTRA: flat 20% discount for first-time buyers SAVEULTRA: an extra 20% discount on Ultrahuman Ring Air and Ultrahuman Ring Pro SAVEULTRA: 20% additional discount for first-time buyers SAVEULTRA: an extra 20% discount on the UltrahumanX Coverage SAVEULTRA: 20% additional discount for fitness enthusiasts Ultrahuman Coupon Code 20% Off For New & Existing Customers In April 2026 The highest available savings for all shoppers in April 2026 can be accessed by using the SAVEULTRA discount code at checkout. This offer is valid for everyone, including those who have previously purchased from the brand. New users can secure a massive discount on their initial setup, while existing fans can save on additional accessories or new models. This ensures that the Ultrahuman Ring Air coupon code and Ultrahuman Ring Pro discount code benefits are accessible to the entire community. Redeeming this offer on the website or through the mobile app is the fastest way to lower the cost of premium health monitoring. It is a legit coupon code that has been tested for reliability across multiple regions. New Ultrahuman buyers can redeem the coupon code “SAVEULTRA” to receive an instant 20% discount on Ultrahuman Ring Air, Ultrahuman Ring Pro, UltrahumanX, and Ultrahuman M1 subscriptions. SAVEULTRA: flat 20% discount for new customers SAVEULTRA: 20% additional discount for UltrahumanX subscribers SAVEULTRA: 20% extra off on smart rings, sleep trackers, and fitness trackers SAVEULTRA: an additional 20% off for fitness lovers SAVEULTRA: an extra 20% off for buyers in the USA and India How To Redeem The Ultrahuman 20% Off Discount Code For New & Existing Customers? You can easily redeem your Ultrahuman discount codes by applying them during the final stage of your digital checkout process. Follow these simple steps to ensure your Ultrahuman coupon code 2026 is applied correctly for maximum savings. Visit the official Ultrahuman website or open the app on your iOS or Android device. Select your preferred Ultrahuman Ring size and color and add it to your shopping cart. Proceed to the checkout page where you will see a field labeled for promo codes or discounts. Type the code SAVEULTRA into the box and click the apply button to update your total. Verify that the 20% discount has been deducted from your final price before completing the payment. Ultrahuman Coupon Code 20% Off For Fitness Enthusiasts Gym lovers and health-conscious individuals can use the SAVEULTRA code to get a verified 20% discount on all fitness tracking hardware. This is the perfect opportunity for those focused on optimizing their daily performance and recovery. The Ultrahuman discount coupon for gym lovers makes it easier to track heart rate variability and activity levels around the clock. Additionally, the Ultrahuman promo for sleep tracking helps you understand your circadian rhythm for better rest. We have found that this code is highly favored by the fitness community because it covers both hardware and protection plans. It provides a comprehensive way to save on a complete health monitoring ecosystem. Ultrahuman customers can apply the coupon “SAVEULTRA” at checkout to receive a verified 20% discount on smart rings (Ultrahuman Ring Air and Ultrahuman Ring PRO) and health-tracking subscriptions (UltrahumanX, Ultrahuman M1, and Ultrahuman Vision). SAVEULTRA: 20% extra discount for fitness freaks SAVEULTRA: flat 20% discount on the Ring Air and Ring Pro smart rings SAVEULTRA: 20% off on the UltrahumanX and M1 subscriptions SAVEULTRA: an extra 20% off for gym lovers SAVEULTRA: free shipping + free accessories for every fitness ring How To Use The Ultrahuman Coupon Code 20% Discount For Fitness Coaches? Fitness coaches can secure a professional-grade health tracker by using the Ultrahuman discount code 20% off to reduce their overhead costs. Using a valid Ultrahuman coupon code is a smart move for trainers who want to lead by example with the best tech. Navigate to the Ultrahuman store and choose the smart ring model that fits your coaching needs. If you are ordering for clients, ensure you have the correct sizing kits delivered first. Enter your shipping details for the USA, India, or other supported international regions. Input the code SAVEULTRA in the designated discount field during the payment step. Confirm the price reduction and finalize your order to start tracking advanced biometric data. Ultrahuman Coupon 20% Off For Athletes Professional and amateur athletes can gain a competitive edge by using the SAVEULTRA code for a verified discount on performance tracking. This code is trusted by vloggers and sports professionals who rely on accurate data to peak at the right time. The Ultrahuman coupon codes for athletes provide a low-cost entry into high-tech recovery monitoring and metabolic tracking. Finding a reliable Ultrahuman discount code for sportsmen ensures that every workout is backed by actionable insights. This discount is applicable to the entire range of smart rings, allowing athletes to choose the model that best suits their training environment. It is a safe to redeem offer that supports your journey toward elite physical conditioning. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. SAVEULTRA: 20% additional discount for athletes SAVEULTRA: flat 20% off for sports enthusiasts SAVEULTRA: free global shipping for sportsmen SAVEULTRA: extra 20% discount on Ring Air and Ring PRO SAVEULTRA: 20% discount on the UltrahumanX subscription How To Use The Ultrahuman Discount Code 20% Off For Athletes? Athletes can quickly apply the Ultrahuman discount code 20% off to their purchase to save on the Ring Air or Ring Pro models. This also applies to those looking for an Ultrahuman college athletes discount to help manage a student-athlete budget. Go to the Ultrahuman product page and select the "Ring Air" or "Ring Pro" option. Use the sizing guide to ensure your ring will stay secure during intense physical activities. Head to the checkout screen and look for the "Apply Coupon" section on the right side. Enter the verified code SAVEULTRA and watch your total decrease by 20% instantly. Complete the transaction using your preferred secure payment method. Ultrahuman Coupon Code 20% Off For Students Students in the USA and India can stay on top of their wellness goals by using the SAVEULTRA code for a significant price reduction. This Ultrahuman student discount is designed to make high-end health technology accessible to those in academia. Many physical trainers recommend these rings to students who want to balance heavy study loads with physical health. Using Ultrahuman coupon codes for physical trainers and students helps everyone in the educational community stay fit. The discount applies across the store, making it easier to afford the latest wearable technology. It is an evergreen offer that provides consistent value for the younger generation of fitness enthusiasts. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. SAVEULTRA: 20% extra discount for students in the USA and India SAVEULTRA: flat 20% off on Ultrahuman Ring Air and Ultrahuman Ring PRO SAVEULTRA: free shipping for students SAVEULTRA: an extra 20% discount on smart rings SAVEULTRA: 20% additional off on UltrahumanX subscription How To Use The Ultrahuman Discount Code 20% Off For Students? Students can redeem their Ultrahuman Ring Air discount code or Ultrahuman Ring PRO coupon code in just a few clicks. This process is straightforward and works on both the desktop site and the mobile application. Select your Ultrahuman Ring and any desired protection plans like UltrahumanX. Proceed to the checkout and fill in your student housing or home delivery address. Locate the promo code entry box before you reach the final payment confirmation. Input SAVEULTRA and apply it to see your student savings reflected in the total. Review your order and click the purchase button to have your ring shipped. Ultrahuman Coupon Codes For Smartrings and Fitness-Tracking Subscriptions Using the right code allows you to save on both the hardware and the software that powers your health journey. The SAVEULTRA code works for the entire ecosystem, including the rings and the necessary data subscriptions. Ultrahuman Ring Air Coupons & Discount Codes The Ring Air is known for its lightweight design and advanced tracking capabilities. You can use the Ultrahuman Ring Air discount code and Ultrahuman Ring Air coupon code to get this premium device at a fraction of the cost. Ultrahuman Ring PRO Discounts & Deals For those who want the most advanced features, the Ring Pro is the ultimate choice for health monitoring. Applying the Ultrahuman Ring PRO discount code or Ultrahuman Ring Pro coupon code ensures you get the best deal on this top-tier model. UltrahumanX and Ultrahuman M1 Discount Code UltrahumanX provides extended coverage, while M1 offers deep insights into your metabolic health. You can use an Ultrahuman discount code or Ultrahuman Air coupon code to save on these essential subscriptions. Is The Ultrahuman 20% Off Discount Code Legit? The SAVEULTRA code is a fully legit coupon code that has been verified by shoppers and fitness enthusiasts worldwide. It is a trusted way to receive a genuine discount directly from the official manufacturer. You can use the Ultrahuman coupon code legit status to shop with confidence, knowing the code is safe to redeem. We have confirmed that this Ultrahuman discount code legit offer applies to orders in the USA, India, and Canada without issues. There is no expiration date currently listed, making it a reliable evergreen option for your shopping needs. It works consistently for both new buyers and returning customers seeking the best deals. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. How Does The Ultrahuman 20% Off Discount Code Work? When you enter the code at checkout, the system automatically recalculates your cart total based on the 20% reduction. This applies to the Ultrahuman Ring Air coupon code benefits and any other items you have selected. The code discount Ultrahuman mechanism is designed to be seamless, providing an instant update to your pricing. It recognizes the SAVEULTRA string and applies the predetermined percentage off to all eligible products in your basket. Once applied, the discount remains active throughout your session until the transaction is completed. This ensures you receive the full promotional benefit on every piece of hardware and subscription you purchase. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% 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 due to its focus on metabolic health and its comfortable, lightweight form factor. You can use an Ultrahuman coupon code 20% discount to get this superior technology at a price that beats many competitors. Many users find that the app experience is more comprehensive than other brands on the market today. Additionally, using an Ultrahuman free shipping code like SAVEULTRA makes it a more cost-effective choice for international buyers. The integration of sleep, movement, and recovery data into a single "Power Score" provides a unique health perspective. It is a highly optimized system that offers more depth for those serious about their wellness data. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% 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 an Ultrahuman code allows you to access a world of data regarding your heart rate and sleep quality. This discount code for Ultrahuman makes it easy to afford a device that monitors your body 24/7 with extreme precision. The rings are made from fighter-jet grade titanium, ensuring they are both durable and incredibly light on your finger. With long battery life and water resistance, they are designed to fit perfectly into any active lifestyle. Ultrahuman Ring Air and Ring Pro provide verified insights that help you make better daily decisions about your health. Using the latest coupon allows you to join a global community of health-conscious individuals at a discounted rate. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. Constant monitoring of heart rate variability and recovery. High-quality titanium construction for long-term durability. Detailed sleep tracking and circadian rhythm alignment. Access to the UltrahumanX protection plan for peace of mind. Seamless integration with metabolic tracking through the M1 sensor. Pros And Cons Of Using The Ultrahuman Discount Code 20% Off In April 2026 The primary advantage of the Ultrahuman discount 20% off code is the significant immediate savings on high-end health technology. This Ultrahuman 20 off discount code is easy to use and provides consistent results for shoppers in many regions. While the savings are substantial, customers should be aware of regional shipping policies that may apply to their specific location. However, the overall benefits of using the SAVEULTRA code far outweigh the few limitations found during our testing. Use Ultrahuman discount code SAVEULTRA to claim an instant 20% discount on Ring Air and Ring Pro smart rings in the USA and India. Pro: Instant 20% savings on all smart ring models. Pro: Significant discounts on Ring Air and Ring Pro. Pro: Valid for customers in the USA, India, and Canada. Pro: Includes free shipping on most major orders. Pro: Free subscription access included with many hardware purchases. Con: Import and duties fees are non-refundable for non-US orders. Con: Rare regional restrictions may apply in specific shipping zones. Terms And Conditions Of Using The Ultrahuman Discount Code 20% Off In 2026 To get the Ultrahuman discount code 20% off free shipping, you must apply the code at the time of purchase. This latest Ultrahuman coupon code 20% off cannot be applied retroactively once an order has been processed. The code is designed for broad use and is accessible to all types of health trackers and enthusiasts. It is important to ensure the code is typed correctly as SAVEULTRA to trigger the automated discount system. Usage of the code implies agreement with the standard store policies regarding returns and exchanges. We recommend double-checking your ring size before finalizing the order to ensure a perfect fit. Use the Ultrahuman coupon code “SAVEULTRA” to claim a verified 20% discount on Ultrahuman Ring Pro and Ultrahuman Ring Air for new and existing customers in the USA and India. No Expiration: The code is designed to remain active for the long term. User Eligibility: Open to everyone including gym lovers, athletes, and trainers. Regional Validity: Valid for use in the USA, Canada, and India. Model Coverage: Applicable to all current Ring Air and Ring Pro models. Always Valid: SAVEULTRA is a verified and persistent discount code. Conclusion: Use The Latest Ultrahuman Discount Code [SAVEULTRA] For 20% Off Applying the Ultrahuman coupon code 20% off is the smartest way to start your health tracking journey. We have verified that this code provides the best possible value for customers globally. Taking advantage of this Ultrahuman discount code allows you to invest in premium technology for less. Start tracking your vitals today with the most trusted ring on the market. FAQs Of Ultrahuman 20% Off Discount Code What is the best Ultrahuman coupon code available right now? The best and most reliable code is SAVEULTRA, which provides a 20% discount on all smart rings and subscriptions. This code is verified for use in the USA and India, making it the top choice for shoppers looking to save money on their health technology. Can I use the Ultrahuman discount code for free shipping? Yes, the code SAVEULTRA often triggers free shipping benefits depending on your order total and your specific shipping region. We have tested this code and found it to be the most effective way to reduce both the product cost and the associated delivery fees globally. Is the SAVEULTRA code valid for both Ring Air and Ring Pro? The SAVEULTRA discount code is valid for both the Ultrahuman Ring Air and the Ultrahuman Ring Pro models. Whether you want the ultra-lightweight Air or the feature-rich Pro, this code ensures you get an equal 20% discount on either piece of advanced hardware at checkout. How many times can I use the Ultrahuman 20% off code? The SAVEULTRA code is typically valid for one use per customer account to ensure that everyone in the community has access to these savings. If you are buying multiple rings, it is best to include them in a single order to apply the discount to the entire cart. Does the Ultrahuman discount code work on the mobile app? Yes, you can use the SAVEULTRA code on both the official Ultrahuman website and the mobile app for iOS and Android. Simply enter the code in the discount field during the checkout process within the app to see your 20% savings applied to your total immediately.

السلام عليكم اخي الكريم يوجد عندي ملاحظة بالتقرير بعد قيامي بادخال بعض البيانات الجديدة في البرنامج أرجو النظر فيها تحياتي لكم 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")