كل الانشطه

جرب المرفق التالى 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")

حاول تغيير اسم الخط الذي تستخدمه لتنسيق هذا العنصر 🤔

بالتوفيق

السلام عليكم اريد دمج التاريخين في خلية واحدة دمج.xls

up

مشكور اخي الكريم اعتذر غلبتك معايا

تفضل التعديل بدون لغة عربية ..... Ahmed ElShahat-3.rar

السلام عليكم اخي الكريم من جد انا عاجز عن شكرك على تعبك لكن ما زالت مشكلة اللغة ما زالت موجودة

ممتاز .. شكرا لك

مميز جدا شكرا لك

قاعدة المرفقة بسيطه جدا يمكن عرض القواعد المضافة والربط فوري متصل للعرض ولا نهائي مجموعات للتجربة كفكرة تشغيل جهاز الواحد نوع ما بنظام مستقل وسهل هل يمكن بعض التعديلات تحميل المرفق https://drive.google.com/file/d/1HlKa8YWRRs2bHnr50PznVT37ZsBfNgnV/view?usp=sharing

السلام عليكم ورحمة الله وبركاته بعد التجربة على اكثر من جهاز ظهرت بعض المشاكل منها بطئ الجهاز وزر طباعة شهادات اخر العام لايعمل وبحمد الله وبفضله تم حل جميع المشاكل . ووجب على التنبيه وادعو الله ان يكون هذا العمل من باب علم ينتفع به وهذا هو التعديل الجديد بنفس الباسورد والطريقة السابقة في بداية المشاركة offcinal_1_3am.xlsm

تفضل استاذ @أحمد الشحات85 نسخة معدلة بكل طلباتك . وكمان حليت مشكلة ظهور بعض الكلمات العربية المشفرة بلغة غير مفهومة . Ahmed ElShahat-2.rar

تمام جربت تطبيقك على أكسس 2024 على ملفين مختلفين أحدهما يحتوى على كلمة سر (123) والآخر لا يحتوى على كلمة سر وكانت النتيجة مرضية جداً وعند بدء الاستخدام يجب أن تضع كلمة السر أولاً ثم الضغط على زر Browse وذلك حتى يتم إتاحة زر "تطبيق" للإستخدام (لأنه كان خافتاً ) المفترض طبعاً أن الضغط على Browse يظهر إمكانية استخدام زر التعديل يمكنك طبعاً أن تضيف ما تراه ضرورياً ليزيده ثراءاً ، فالتطبيق من إبداعاتك لكن لى ملاحظة إن أمكن معالجتها : هل يمكن التطبيق اكتشاف أن القاعدة تحتوى على كلمة سر فيظهر مستلزماتها ، وإذا كانت العكس فلا داعى لوجود تلك المستلزمات باستخدام شيفت لا يتم الفتح.rar باستخدام شيفت يتم الفتح.rar

لا لا الرسالة المرفقة بتظهر لما بتضيف سجل جديد وتذهب مباشرةً لزر الطباعة ... لذا عدل زر الطباعة الى Private Sub btnPrintForma_Click() ' التحقق من إدخال رقم المركبة If IsNull(Me.CarID) Or Me.CarID = "" Then MsgBox "الرجاء إدخال رقم المركبة", vbExclamation, "تنبيه" Exit Sub End If ' حفظ السجل الحالي قبل الطباعة If Me.Dirty Then Me.Dirty = False End If ' فتح التقرير على نفس السجل DoCmd.OpenReport "rpt_Forma", acViewPreview, , "FormaID = " & Me.a1 End Sub

تجميع 3اكواد وجعلة في كود واحد تجميع اكواد في كود واحد.xlsm