Foksh

للأسف .. لم أفهم المطلوب نهائياً !! يعني مثلاً انت تريد تقسيم العدد 3 الموجود في الخلية N9 على الخلايا من M10 - M14 ؟؟؟؟؟؟؟ لو فعلاً ما تقصده ، فعلى أي أساس ؟؟ وما الشروط ؟؟ وكيف تريد التنفيذ 🤷🏻‍♂️

أخي @بلانك ، بعد السلام عليكم ورحمة الله وبركاته .. الأصل ان ترفق ملفك غير محمي بكلمة مرور لمحرر الأكواد . نظراً لأن العمل لن يكون في المعادلات كونك تستعمل الدائرة Shape . لذا ترفق بنا فيما بعد لتلافي هذا الخطأ أيضاً عليك اختيار عنوان صحيح وذو دلالة للمطلوب . وليس عنواناً مبهماً استفسارياً ، حتى لا يتعرض موضوعك للإغلاق مخالفاً لقواعد المشاركات .. وعليه ومن خلال النظر للملف ودون محاولة مني لكسر حمايته ، جرب الدالة التالية واستدعيها في زر خاص بها :- Sub CountShapesPerRow() Dim ws As Worksheet Dim shp As Shape Dim r As Long Dim countRow(10 To 14) As Integer Dim countRow2(18 To 22) As Integer Set ws = ThisWorkbook.Sheets("Sheet1") For Each shp In ws.Shapes For r = 10 To 14 If Not Intersect(ws.Range("C" & r & ":J" & r), shp.TopLeftCell) Is Nothing Then countRow(r) = countRow(r) + 1 End If Next r For r = 18 To 22 If Not Intersect(ws.Range("C" & r & ":J" & r), shp.TopLeftCell) Is Nothing Then countRow2(r) = countRow2(r) + 1 End If Next r Next shp For r = 10 To 14 ws.Range("M" & r).Value = countRow(r) Next r For r = 18 To 22 ws.Range("M" & r).Value = countRow2(r) Next r End Sub ما لم تفلح معك الفكرة ، اعد رفع الملف بدون حماية محرر الأكواد إذا تكرمت .

انت بتفكرني بـ " أذاكر وأنجح " 😂 انت لو قرأت الموضوع كويس كان عرفت انه الملف اللي انت محتاجه موجود في أول مشاركة 😉

أخواني وأساتذتي ومعلمينا ( دون استثناء ) يتوفر نظام متكامل للتفعيل من خلال الإنترنت بالمميزات التالية :- نظام بصمة لكل جهاز فريد وغير متكرر . التفعيل من خلال البريد الإلكتروني + بصمة الجهاز . سيرفر يسجل جميع النسخ التي تم تشغيلها لبرنامجك . رمز Pin لتأكيد التفعيل بالبريد الإلكتروني بمدة محددة = 5 دقائق ، عند التفعيل لأول مرة فقط . إمكانية استرجاع التفعيل لنسخة العميل حتى بعد الفرومات وتغيير الجهاز . دعم متكامل للشركات التي تستخدم برنامجك على أكثر من جهاز . فيمكن استعمال رمز التفعيل على عدد تقرره وتحدده انت يصل لـ 100 جهاز على سبيل المثال ليقوم بالتفعيل من خلال رمز تفعيل واحد . دعم التفعيل المرن بمدة حسب الحاجة ( شهر ، 3 شهور ، 6 شهور ، سنة ، مدى الحياة ، مدة محددة على سبيل المثال 40 يوماً ) . دعم إمكانية حجب نسخة عميل من التفعيل واستخدام البرنامج . دعم الإقفال عند التلاعب بالوقت والتاريخ مضبوط بشكل محكم 101% . واجهة للمطور مخصصة بالتفعيل عن بعد . أو بإرسال رقم التفعيل للعميل لاستخدامه بشكل يدوي . سيرفر مدعوم من جوجل مجاني يصل لـ 15 جيجا كحجم بيانات . دعم الصيانة على الأداة المخصصة بالتفعيل 6 شهور بعد البيع . نسخة تجريبية يمكن التحكم بها - الإفتراضية 7 أيام . للتواصل من خلال الواتس أب :- 00962787818180

،، جرب اجعل المعادلات في :- J2 = =IFERROR(IF(INDEX(Q:Q, MATCH(B5, P:P, 0)) = H2, "P", ""), "") J3 = =IFERROR(IF(INDEX(Q:Q, MATCH(B5, P:P, 0)) = H3, "P", ""), "") J4 = =IFERROR(IF(INDEX(Q:Q, MATCH(B5, P:P, 0)) = H4, "P", ""), "") وعدل الخلية B5 لتصبح :- =IFERROR(IF(MATCH(INDEX(data!$P$2:$P$23, MATCH($E$1, data!$R$2:$R$23, 0)), $P$2:$P$13, 0), INDEX(data!$P$2:$P$23, MATCH($E$1, data!$R$2:$R$23, 0)), ""), "") لتلافي الخروج عن نطاق P2 - P13

السلام عليكم ورحمة الله وبركاته .. أخي الكريم لا يعني عدم وجود إجابة مباشرة لموضوعك الأول أن تقوم بفتح موضوع ثاني لنفس الطلب والغاية .. قد لا يكون العنوان واضحاً .. أو أنك لم تقم بشرح المطلوب بشكل واضح وصريح ومباشر .. وتستطيع استعجال المتابعة لموضوعك بكلمات مثل ( للرفع ، Up ) .. وحتماً أننا يجب أن نراعي ظروف أخوتنا الذين يتقدمون لمد يود العون بالحلول والمساعدة حسب وقتهم وظروفهم .. تم اغلاق هذا الموضوع ، ولاستكمالك الموضوع الأصلي في المشاركة :-

متابعه الموضوع في الرابط الجديد

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

تأكد من إعدادات اللغة الإقليمية في الويندوز بأنها عربية 😇

وعليكم السلام ورحمة الله وبركاته .. لم يظهر أي مشكلة عند فتح المرفق وتعديل الأكواد لتعمل مع إصداري 64 .. ولكن في الإصدار 32 ، ظهرت المشكلة والسبب المعامل الثالث الذي يمرر في استدعاء الـ InpuBoxDK ، عدله ليصبح كالتالي :- str_Title = "سبحان الله وبحمده سبحان الله العظيم" strAdminPWord = InputBoxDK("Password required to proceed.", str_Title) بدلاً من :- str_Title = "سبحان الله وبحمده سبحان الله العظيم" strAdminPWord = InputBoxDK("Password required to proceed.", str_Title, "Enter Licence Code")

فعلاً هو المقصود بعينه .. السبب لغاية في نفسي كإضافة لفكرتي التي أعمل عليها 😅

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

وعليكم السلام ورحمة الله وبركاته .. هذه محاولة بسيطة بدون تعقيد ، حيث تم تطبيق فكرة إظهار وإخفاء العناصر قي نفس النموذج عند تحقق شرط رقم الماذر بورد باستخدام Tag للعناصر على جزئين . جزء لمكونات تسجيل الدخول ، وجزء لمكونات التحقق وشريط التحميل .. ملفك يعد التعديل .. Database.zip

وعليكم السلام ورحمة الله تعالى وبركاته.. أفكار جميلة ، ومتطلبات قد تكون إضافات جميلة لمن يرغب بالمشاركة .. نتمنى أن تجد طلبك ومبتغاك هنا 🤗 .

لم أجد إجابة شافية بالبحث في الإنترنت .. ولا حتى هنا ( فنحن جزء من عالم الإنترنت 😅 ) .. على العموم .. رأيكم بهذه التجربة القيد التطوير يهمني . وستعرفون سبب سؤالي السابق .. الملف الذي تمت التجربة عليه بعد الإستخراج ( بدون أكواد ) علشان ما حد ينصدم Montaser_UnlockedByFoksh.accdb

تم مهندسنا الغالي .. ⏳ تم تمديد المدة حتى نهاية شهر 4 إبريل April

وأنا كنت أظنها من فرق الإصدارات ، والصوة توضيح لما شككتني به سابقاً معلومتي .. شكراً للتصحيح أخي جعفر

⏳ باقي من الوقت : 2 يوم حتى نهاية التحدى الثاني وللأسف نفتقر إلى المشاركات الإبداعية

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

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

اعتقد انك هنا تحاول الوصول الى قيمة عنصر موجود في النموذج ، وليس من خلال قيمة حقل داخل جدول. هل جربت كطريقة بسيطة استخدام Dlookup على سبيل المثال stDocName = "tbl_student1" & DLookup("Year_name", "tbl_basic")

فيما يتعلق بالطلب الأهم لديك ، أنصحك أولاً بضبط التنسيق للخلايا في العمود D كاملةً ، لتصبح :- ثم في الزر الذي انشأته انت في مشروعك ، استخدم الحدث التالي كمثال :- Private Sub CommandButton1_Click() Dim lastRow As Long Dim i As Long Dim diff As Double lastRow = Cells(Rows.Count, "D").End(xlUp).Row For i = 8 To lastRow diff = Cells(i, "D").Value - Cells(i, "E").Value If diff < 0 Then Cells(i, "F").Value = 0 Else Cells(i, "F").Value = diff End If Next i End Sub جرب انقر على الزر وشوف النتيجة إن كانت صحيحة في الملف المرفق .. ثم ننتقل الى الطلب الثاني .. اغلاق الصفوف ذات الرصيد 0.xlsm

تم تعديل إختيار "تمت الإجابة" للمشاركة التي فيها الحل والمرفق.

سؤال فضولي .. هل من الممكن معرفة إصدار الأوفيس اللي تم حفظ ملف قاعدة البيانات من خلاله ؟؟ يعني آكسيس 2010 , 2016 , 365 ... الخ ؟؟؟؟ ولو بأي طريقة كانت 🤔 . ولو محتاجة توضيح للمقصود بشكل أفضل ، لنفترض إن حد بعتلي قاعدة بيانات من جهازه ( صممها وتكتكها وعمل كل اللي نفسه من برمجة فيها .... 😉 ) ، وانا عندي اوفيس 2010 أو ما عنديش ، المهم اني اعرف إن منشأ الملف هذا هو اوفيس كذا 🤔 .

هذه الجزئية مرهونة بإرفاقك الملف أخي الكريم 😉 . فالحلول كثيرة ولكنها تعتمد على بنيتك للجداول ونظامك بشكل عام ، وليس ما نفرضه عليك بمقترحاتنا 💐 .