كل الانشطه

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

شكراً لك هذا الإطراء أخي منتصر ، والحقيقة انك كنت الحافز بمتابعة الموضوع واستكمال هذه الإضافة البسيطة . ولكم النصيب الأكبر مما دعيتم أبا المعتصم .. فعلاً هناك الكثير من الأيقونات ، وقد قدرت تقريباً بـ 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

هون عليك اخي الكريم @عبدالله بشير عبدالله انا شخصيا لا أهتم الا بأن تكون المعلومة مفيدة للجميع. وفقنا الله جميعا لكل خير 🌹👍❤️

قم بتحميل الملف الثاني للاستاذ Foksh به اعادة ترتيب التسلسلي وبه التقديرات يمكنك تعديلها بالكود اعتقد ان التقييم غير صحيح ربما تقصد جيدجدا مع مرتبة الشرف

اشكركم اخواتي واصدقائي الافاضل علي مساعدتكم ولكن بعد التجربة عند وضع او تغيير النسبة المئوية فان الصف باكملة يذهب الي مكانة وهذا المطلوب لكن هناك نقطتان هل يمكن ادراجهما 1- عند صعود الصف يصعد بدون ترتيب التسلسلي يصعد بنفس رقم الصف 2- عند اضافة النسبة هل يمكن اضافة التقدير تلقائي 50الي 64 مقبول 65 الي 75 جيد 75.1 الي 85 جيد جدا 85.1 الي 90 جيد مع مرتبة الشرف 90.1 الي 92 ممتاز 92.1 الي 100 ممتاز مع المرتبة 3- ارغب في دالة تفقيط المبلغ باللغة العربية جنية وقرش

فوووكش جربتها ومشي الحال ،، ماشالله عليك🌹

وعليكم السلام ورحمة الله وبركاته اليك الحل باكثر من طريقة فصل الاحاد والعشرات والمئات.xlsx

السلام عليكم أرغب في معادلة تفصل خانة الاحاد في خلية و خانة العشرات في خلية أخرى و خانة المئات في خانة أخرى ( الرقم 58364) تقوم المعادلة أو الدالة في فصل الرقم 4 في خلية و الرقم 6 في خلية أخرى هذا الطلب 1 الطلب 2 دالة أو معادلة تفصل خانة الاحاد و العشرات في خلية وحدة و خانة العشرات و المئات في خلية اخرى ( الرقم 58364) تقوم الدالة أو المعادلة بفصل 64 في خلية و الرقم 36 في خلية أخرى

رغم أني أرى أن طريقة عمل الأداة أبسط من تحتاج إلى فيديو لشرحها ولكن إذا كان ولابد فلايوجد أفضل من الأستاذ @Moosak للقيام بالمهمة فهو الوحيد المتمرس في مثل هذا النوع من الفيديوهات

لا اعلم بوجود المعادلة الا من خلال ردك الاخير فعذرا وكلامك هو الصواب

اوك فوووكش رح اجرب ،، انا عملت زر الفلتره في عامود الرصيد بس صار يخربط الارصده مع الاسماء بجانب الرصيد ، رح جرب طريقتك اخوي الغالي فووووووووكش