كل الانشطه

للاسف جربت جميع الطرق ولم الفلح اظن العيب في الوندوز 10 عندي كان اول في وندوز 7 شغال عندي لذلك حاولت ولم افلح

السلام عليكم ورحمة الله وبركاته .. في إحدى المواضيع التي تم طرحها في "الفعاليات والتحديات الشهرية" ، وتحديداً في التحدي الأول ، كان من أحد الحلول والأفكار المطروحة ؛ تطبيق ماكرو على مستوى الجدول لمنع التحديث والتعديل لأي قيمة داخل الجدول . لكن طبعاً كانت الفكرة قائمة على التنفيذ اليدوي من خلال إضافة ماكرو قبل التحديث للجدول من خصائص الجدول نفسه . الحاصل هنا أنني أريد تطبيق هذه الفكرة برمجياً ، وخصوصاً أن لدي ما يقارب الـ 25 جدول . والهدف هو منع الحقن الخارجي أو التلاعب بالجداول . وقد أرهقتني كثرة المحاولات ولم أصل إلى نتيجة حتمية برمجية صحيحة . حتى بمساعدة الذكاء الإصطناعي 😣 . وقد طرحت السؤال داخل مجموعتنا "مجتمع آكسيس جروب" في الواتس أب ، ولم ألقَ أي إجابة . أرجو المساعدة بتطبيق الفكرة برمجياً VBA بحيث أحدد اسم (الجدول / الجداول) التي أريد تطبيق حمايتها من التعديل لأي قيمة ، و الحذف لأي سجل . (كلاهما) بمعنى أوضح . أريد عند الدخول إلى جدول ومحاولة تعديل قيمة على أحد الحقول (وليس حقل محدد) لأي سجل أو محاولة حذف أي سجل ، أن يتم منعي بإظهار رسالة بأن "الجدول محمي من التعديل" ( للتعديل ) . أو "لا يمكنك حذف سجلات من هذا الجدول" ( للحذف ) . فهل هذا ممكن برمجياً ❓ أفيدوني أفادكم الله . وهذا ملف مرفق كمثال يحتوي جدول بحقول بسيطة وبه 3 سجلات عشوائية . TblMacroVBA.accdb

عمل فورم اكسل لحساب انتهاء الخدمة

شكرا جزيلاً

المعادلة لا تغمل على اصدار 2010 تعمل على اصدار 2013 وما فوق يمكن استخدام كود لتلوين الخلايا التي بها معادلات الخطوات حدد العمود او الاعمدة - ثم اصغط على الزر تلوين خلايا المعادلات.xlsb

بس هي ليه مش شغاله معايا على اوفيس 2010

السلام عليكم ورحمه الله وبركاته ممكن من التنسيق الشرطي لو الخليه مثلا فيها معادله اضف لون والتنسق اللي =ISFORMULA(A1) وكذلك لامر لو مفيش معادله والخليه فيها قيمه عدديه برده اضف لون وتنسيق =AND(NOT(ISFORMULA(A1)), A1<>"")

تجميع .xlsm السلام عليكم ورحمه الله وبركاته اتفضل لعله يكون المطلوب

لو عندي شيت به عمود به بعد الخلايا بمعادلات واخري قيم محتاج اميز الخلايا الي فيها المعادلات واميز الخلايا التي تحتوي على قيم

السلام عليكم اصدقائي واحبائي في اللة محترفي منتدي اكسيل اريد مساعدتكم في هذة الشيت عند الضغط علي الخلية ( الفرقة ) في الصفحة الرئيسية يتم دمج ( انتظام وانتساب ) في صفحة واحدة لكي ما يتم طابعة كل فرقة انتظام وانتساب في صفحة واحدة علي ان يكون صفحة الانتظام في الاعلي مرتبة البنات في الاول ثم الاولاد يليها مباشرا بعد ذلك صفحة الانتساب اسفل الانتظام مرتب بنات اولا ثم اولاد ملحوظة هناك اسماء سوف يتم اضافتها فيما بعد لكل فرقة فففففففففففففففففففففففف.xlsx

بارك الله فيك أبو مسلم الحازم

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

شكرا .. شكرا .. شكرا .. يوافي حق هذا الإبداع .. ما شاء الله زدت الحلاوة حلا ما شاء الله عليك 🌼 رزقك الله خير ما في الدنيا وأفضل ما في الآخرة .. وأحسن الله إليك ولكل من تحب .. 💖 يظهر من مشاركة الأستاذ @أحمد العيسى أن هناك العشرات من الأيقونات التي لم يتم إضافتها بعد 😅🖐️ وأيضا هناك ملاحظة بسيطة جدا .. وهي أنه بعد تعيين الأيقونات والضغط على زر المعاينة فإن التغيير لا يظهر مباشرة إلا بعد أن يتم حفظ القائمة .. حفظك الله 🙂

سبق وقلت لك انت اذا نويت راح تخرج بأفكار يستعصي على أمثالنا أن نفكر بها 😂

مع إحترامي لصاحب الفيديو ولكني أجد أن تخصيص أيقونة أكسس بأيقونة أخرى فهذا لن يحل المشكلة لو أردنا تخصيص الأيقونة لكل تطبيق جرب المرفق ولاحظ النتيجة (بعد إنشاء الإختصار يجب فتح التطبيق بإستخدام الإختصار) كل المطلوب هو إستيراد النموذج frmShortcut إلى اي تطبيق والنقر على الزر (إنشاء الإختصار) ويمكن حذف هذا النموذج بعد ذلك ملاحظة هذا الحل مخصص للعمل في ويندوز 10 فقط تحياتي تجربة.rar

عثرت على الصور هنا فى المنتدى وهى للأخ جعفر . . . . . . . . . . . AccessIcons.rar

فعلاً تذكرت .. وكنت سأقوم بالتعديل فى هذه النقطة بعدما تذكرت السطر العلوى " إزالة الأداة إلى خصائص أكسس ومن الـ Addin ) " المفترض بعد الإزالة أجد أن كلمة " إزالة " تغيرت إلى "إضافة " وافتراضياً "إضافة الأداة إلى خصائص أكسس وإلى الـ Addin "

زر Create الأيقونات مفروزة امامك أخي أحمد ، والخيار الذي استخدمته ( اليدوي ) للذين يعرفون ما رقم الأيقونة التي يريدونها ، أو للتجربة 😅 ما فهمت !!!!! اي عبارة لا تتغير

الله ينور عليك المجهود المبذول فى تصنيف الأيقونات وبرمجتها يفوق الوصف ، وأعتقد أنه لا يقدر على ذلك غيرك قمت بالتجربة ( على السريع ) ووجدت ملاحظتين 1 أين زر حفظ صانع القوائم المختصرة بعد إستدعائها وتعديلها ( لأنه يبدو أننى قد نسيت المكان ) كما أنه مطلوب ملف ( أو مجموعة صور ) تدل على جميع أرقام أيقونات أكسس لاستخدامها يدوياً 2 بالنسبة لـ " إزالة الأداة إلى خصائص أكسس ومن الـ Addin ) إذا تم إزالتها .. تجد أن نص العبارة السابقة لم يتغير وما زال هناك المزيد من التجارب بعد العثور على كيفية الحفظ

التحديث الجديد من أداة صانع القوائم المختصرة ، الإصدار الثالث ، ويشمل :- تمكين المستخدم من تعيين أيقونات الـ FaceID بطريقة عصرية وديناميكية . التمكين من استعادة أيقونة أمر الإفتراضية . التعامل الكامل مع جميع الإصدارات من 2003 - 365 طريقة الإستخدام :- أنشئ قائمتك المختصرة الجديدة . حدد اي خيار من القائمة ، وانقر زر الفيس 🙂 . تنقل بين التبويبات والتصنيفات ، واختر ايقونتك التي تريدها .. احفظ القائمة ، وجربها . الزر الذي يمثل أيقونة آكسيس هو زر استعادة الأيقونة الإفتراضية للزر المحدد من القائمة التي انشأتها . ملف التحديث مفتوح المصدر ، للإصدارات أحدث من 2003 :- Menu Builder V.3.zip الإصدار 2003 قريباً ، حال ضبطه 100%

السلام عليكم اصدقائي واحبائي في اللة اود اشكركم علي عظيم محبتكم واهتمامكم بمساعدتي هناك مشكلة لست ادري ما السبب فيها وهي اللغة التي يظهر فيها عمود التقدير غير مفهومة جربت تغيير الفونتات نفس المشكلة مش عارف اية السبب ؟؟ اريد عمل دالة لتفقيط المبلغ العمود M166 هل هناك علاقة باصدار الافس حيث انني استخدام افس عربي 2010 ويندوز 11 (مرفق صورة توضح المشكلة) شاكر سيادتكم علي طول بالكم وسعة صدركم

الاخ عيسي وعليكم السلام ورحمة الله وبركاتة ارسل الملف على صفحة الفيس بوك https://www.facebook.com/mjdy.ywns.650312

تحقيقاً لرغبة أخي @أحمد العيسى ، إضافة جديدة قريباً للأداة ، إختيار أيقونات مخصصة للأزرار داخل القوائم المختصرة .

استبدل الدالة الكاملة السابقة ، بهذا التعديل :- Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet Dim lastRow As Long Dim cell As Range Dim pctCol As Range Dim pct As Double Dim grade As String Dim i As Long Set ws = Me lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row If lastRow < 2 Then Exit Sub Set pctCol = Intersect(Target, ws.Range("F2:F" & lastRow)) If Not pctCol Is Nothing Then On Error GoTo CleanUp Application.ScreenUpdating = False Application.EnableEvents = False For Each cell In pctCol If IsNumeric(cell.Value) And cell.Value <> "" Then pct = CDbl(cell.Value) Select Case pct Case Is >= 92.1: grade = "ممتاز مع المرتبة" Case Is >= 90.1: grade = "ممتاز" Case Is >= 85.1: grade = "جيد مع مرتبة الشرف" Case Is >= 75.1: grade = "جيد جدا" Case Is >= 65: grade = "جيد" Case Is >= 50: grade = "مقبول" Case Else: grade = "راسب" End Select ws.Cells(cell.Row, "E").Value = grade End If Next cell With ws.Sort .SortFields.Clear .SortFields.Add Key:=ws.Range("F2:F" & lastRow), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal .SortFields.Add Key:=ws.Range("B2:B" & lastRow), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange ws.Range("A1:M" & lastRow) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .Apply End With For i = 2 To lastRow If ws.Cells(i, "B").Value <> "" Then ws.Cells(i, "A").Value = i - 1 End If Next i CleanUp: Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub الملف بعد التعديل :- لابلبلبلبلبلب.xlsm