كل الانشطه

تمام .. استبدل الدالة الرئيسية بالتالية ، وجربها على ملفك بعد إزالة الدوائر السابقة طبعاً :- 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

ياريتك لو تجرب على قاعدة بيانات ACCDB مع كلمة مرور كمان لان زى ما قلت لحضرتك جملة اتصال قاعدة البيانات الى تحتوى على كلمة مرور بتحتلف تبعا لاصدارات اكسس وفى ناس بتقع فى الفخ ده وتنسي النقطى دى لان الجملة قبل 2007 غير جملة ابتداء من 2007 وما على ومعلش مش باطلب منك لانى مش عاوز اجرب او مكسل بس اكتشفت ان فى حجات بتشتغل عندى انا وعند غير لى وفى النهاية شكر لحضرتك مقدما وزى ما قلتك لو عاوز تكستوميز اى افكار فى القاعدة دلوقتى وبعد رد حضرتك الاخير حيكون عندنا اساس ثابت متأكدين منه فاى تعديل فى اى شئ تانى او اى اضافة بعيد عن الاساس انا تحت امرك وانا تقريبا ان شاء الله اليوم فاضى هابحث عن دوال API لاستعرض المجلدت لانها اسرع شوية من اللى استخدمته انا فى القاعدة دى فايل ديالوج مع ربط متأخر

السلام عليكم بعد اذن استاذنا ابو مروان اليك تعديل زر الترحيل باستخدام المصفوفات Sub AddEmployee() Dim ws1 As Worksheet, ws2 As Worksheet Dim nextRow As Long, i As Long Dim srcRange As Variant Set ws1 = ThisWorkbook.Sheets("Sheet1") Set ws2 = ThisWorkbook.Sheets("Sheet2") If ws1.Range("I9").Value = "" Then MsgBox "يرجى إدخال اسم الموظف!", vbExclamation, "تنبيه" Exit Sub End If nextRow = ws2.Cells(ws2.Rows.Count, "C").End(xlUp).Row + 1 srcRange = Array("I5", "I7", "I9", "I11", "I13", "L11", "L13", "I15", "L15", _ "L5", "L7", "L9", "I19", "L19", "I21", "L21", "I23", "L23", _ "I25", "L25", "I28", "L28", "L30", "I33", "L33", "I35", "L35", _ "I37", "I40", "L40", "I44", "L44", "I46", "L46", "I48", "L48", _ "I50", "L50", "I52", "L52", "L55") For i = LBound(srcRange) To UBound(srcRange) ws2.Cells(nextRow, i + 1).Value = ws1.Range(srcRange(i)).Value Next i MsgBox "تمت إضافة الموظف بنجاح!", vbInformation, "نجاح" End Sub بسم الله.xlsm

مكافحة الحمام بالكويت تُعد مشكلة تجمع الحمام على الأسطح والشرفات من أكثر الأمور إزعاجًا، نظرًا لما تسببه من فوضى واتساخ قد يؤثر على نظافة المكان ومظهره العام. ومع ذلك، يمكن التعامل مع هذه المشكلة بطرق آمنة وإنسانية دون التسبب في أي ضرر للطيور. أولًا: استخدام الشبك المخصص يُعتبر تركيب الشبك حول النوافذ والشرفات من أكثر الحلول فعالية، حيث يمنع دخول الحمام أو بناء أعشاشه دون إيذائه. ثانيًا: تركيب الأشواك البلاستيكية توضع الأشواك البلاستيكية على الحواف والأماكن التي يقف عليها الحمام، وهي لا تؤذيه لكنها تمنعه من الاستقرار، فيبتعد بشكل طبيعي. ثالثًا: الأجهزة الطاردة للحمام تعتمد هذه الأجهزة على إصدار موجات صوتية أو اهتزازات غير مريحة للحمام، مما يدفعه للابتعاد عن المكان دون أي ضرر. مكافحة حشرات بالكويت رابعًا: الوسائل البصرية تشمل استخدام الشرائط العاكسة أو مجسمات الطيور الجارحة، حيث تُخيف الحمام وتجعله يعتقد بوجود خطر فيبتعد. خامسًا: الحفاظ على نظافة المكان يُعد تنظيف الأسطح وإزالة بقايا الطعام والمياه من أهم الخطوات، لأن هذه العوامل تجذب الحمام بشكل كبير. نصائح إضافية الجمع بين أكثر من طريقة للحصول على نتائج أفضل الصيانة الدورية لمنع عودة الحمام اختيار وسائل آمنة وصديقة للبيئة مكافحة حشرات الجهراء