بن علية حاجي

هذا الملف ناقص... من المفروض الأيقونات (المكعبات) تفتح ملفات أخرى غير موجودة مع هذا الملف (غير مرفقة معه)، وأكواد هذه الأيقونات (مكعبات) غير موجودة أيضا... يوجد كود واحد لمكعب رقم 13 (خاص بملف الصف الرابع).

السلام عليكم ورحمة الله حل بالمعادلات... توزيع الايام مع الشهور.xlsm

أبدل الجزئية التالية في كود أخي الكريم Mohamed Hicham: ActiveCell = Evaluate("SUM(d6:d" & lr2 & "*E6:E" & lr2 & ")") بالجزئية : ActiveCell = Format(Evaluate("SUM(d6:d" & lr2 & "*E6:E" & lr2 & ")"), "# ##0.00")

السلام عليكم ورحمة الله جرب المرفق لعلك تجد مطلوبك... OFFICENA 2024_03.xlsm

السلام عليكم في الأسطر الملونة بالأحمر أضف عبارة PtrSafe بين كلمتي Function و Declare فتكون كالتالي : Declare PtrSafe Function بدلا من Declare Function في كل سطر من صفوف الحمراء...

السلام عليكم ورحمة الله تم التعديل (تعديل طفيف جدا) على الكود ليعمل على إكسيل 2010 (الذي تم إنشاؤه في نسخة إكسيل 2019)... ملاحظة: التعديل تم على عبارة "SortFields.Add2" التي تم تغييرها بعبارة "SortFields.Add" في كل أوامر الكود... وبهذا التعديل سيعمل الكود حتى في النسخ المتقدمة... أرجو أن يفي هذا التعديل ما تريده... ترتيب معلمين حسب الاقدمية.xlsm

السلام عليكم لست أدري لماذا لا يعمل الكود عندك ربما تكون نسخة الأوفيس في جهازك مختلفة عن التي قمت بإنشاء الكود عليها... هل قمت بتنفيذ الكود في الملف الذي أرفقته في ردك ما قبل الأخير فقد قمت بتحميله وتنفيذ الكود عليه وهو يعمل جيدا، أم قمت بإدراج الكود في ملفك الأصلي ويختلف عنه في التنسيق والنطاقات؟...

السلام عليكم تم عمل المطلوب (تحديد ناحية الطباعة لكل الأوراق في المصنف + تحجيم كل ناحية طباعة في صفحة واحدة) في الملف المرفق... الدفتر الإحصائي -الإستقصاء المدرسي الشامل2022-2023.xlsx

السلام عليكم تم الاستغناء عن العمود المساعد... ترتيب معلمين حسب الاقدمية (1).xlsm

السلام عليكم ورحمة الله أعتقد أنه يوجد أخطاء في الترتيب الذي أرسلته في ردك الأخير مثلا بين "الثاني والثالث" وأقصد "معلم6" و "معلم7" فحسب الشرط الأول فهما متساويان (1985) وحسب الشرط الثاني فإن "معلم7" (1986) أقدم من "معلم6" (1988) فيكون الترتيب بينهما كالتالي الثاني: "معلم7" والثالث: "معلم6"... وهذا حسب ما فهمت من مطلبك... جرب الملف المرفق الذي أضفت فيه ماكرو للتصفية حسب الأعمدة (الشروط)... وعمود مساعد J به معادلات لترتيب قيم العمود H (النصية) حسب القائمة (ممتاز - جيد جدا - جيد - مقبول)... ترتيب معلمين حسب الاقدمية (1).xlsm

السلام عليكم وهذا اقتراح آخر للحل... الترتيب يكون في نطاق واحد AG6:AG13 حسب القائمة المنسدلة في كل خلية من النطاق... شكل ترتيب الاطارات داخل خلية النحل3.xlsm

السلام عليكم ورحمة الله إذا كنت قد فهمت المطلوب جيدا تجد -ربما- ضالتك في الملف المرفق... الترتيبات التي تريدها تضعها عموديا في النطاق AG5:AR13 (كل ترتيب في عمود من النطاق) كما فعلت في المثالين في النطاقين AG5:AG13 (معنون "ترتيب1") و AH5:AH13 (معنون "ترتيب2") وهكذا في باقي النطاقات الأخرى إلى غاية النطاق AR5:AR13... وقد تم أيضا إضافة نطاقات بالتسمية ومعادلات أخرى وتنسيقات شرطية للألوان... شكل ترتيب الاطارات داخل خلية النحل2.xlsm

السلام عليكم هذا حل آخر بالمعادلات دون عمود مساعد والمعادلات هي معادلات صفيف (يجب تأكيدها بـ CTRL+SHIFT+ENTER)... Book2_2.xlsx

السلام عليكم تم الاستغناء عن معادلات الصفيف كلها وتبديل معادلات العمود S بمعادلات عادية بحيث تقوم بما تريده في العمود S فقط بعد التغيير في القائمة المنسدلة في الخلية S3... هذا إن كنتُ قد فهمتُ منك المطلوب جيدا... إن كان غير ذلك فأرجو الشرح أكثر... كشف ملاحظة 1.xlsx

السلام عليكم ورحمة الله باستعمال عمود مساعد بمعادلات لاستخراج أرقام الفواتير غير المعدومة ودون تكرار تم عمل المطلوب في الملف المرفق... Book2.xlsx

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

وعليكم السلام ورحمة الله وبركاته * حل بالمعادلات: إذا فرضنا أن الخلية C1 تحوي كلمة ALI التي تبحث عنها... المعادلة تكون على الشكل التالي: =IF(COUNTIF($S$9:$S$25;"*"&$C$1&"*");"موجود";"غير موجود") * الحل نفسه بـ VBA : Sub Test() If Application.CountIf(Range("S9:S25"), "*" & [C1].Value & "*") <> 0 Then MsgBox "موجود" Else MsgBox "غير موجود" End If End Sub في انتظار حلول أخرى...

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق مع تنظيم للفورم... فورم بحث برقم الجلوس وبه إضافة وتعديل وحذف.xlsm

السلام عليكم ورحمة الله لا يمكن التعديل على الملف الموجود على قوقل شيت Google Sheets لأنه للقراءة فقط... يجب في هذه الحالة (بعد إمكانية التعديل) إدراج عمودين جديدين أحدهما لـ "اسم الطالب" والآخر لـ "هل الطالب..؟" ثم بماكرو أو معادلات يتم ملء صفوف هذين العمودين بما هو موجود بالثمانية أعمدة الأخرى (أربع أعمدة لـ "اسم الطالب" وأربع أعمدة لـ "هل الطالب...؟") صفا بصف... وبعد ذلك الترتيب الذي تريده... ننتظر منك "السماح بخاصية التعديل على الملف"... ملاحظة : يمكنك أيضا وضع الملف بالمرفقات وبعد التعديل عليه يتم إرساله إلى موقع "قوقل شيت".

وعليكم السلام ورحمة الله وبركاته تم عمل المطلوب في الملف المرفق... اسم الخلية.xlsm

السلام عليكم ورحمة الله تم عمل المطلوب بالمعادلات والنطاقات بالتسمية... استعلام.xlsm - ماكرو.xlsm

السلام عليكم ورحمة الله محاولة متواضعة في المرفقات... تم إضافة نطاق بالتسمية Rng في ملف "تقارير.xlsb" للنطاق المراد نسخه في ملف "الخزينة.xlsb". الخزينة.xlsb تقارير.xlsb

السلام عليكم ورحمة الله في الحقيقة لم أفهم أيضا طلبك غير أني قمت بمحاولة في الملف المرفق علها تقرب المفهوم من طلبك... قمت ببعض التعديلات على ملفك (إضافات - تنسيقات - معادلات وأكواد). نسخ من ولصق الى .xlsm

السلام عليكم تم استعمال أكواد تقوم بما تريد جلبته من النت (وليس لي فيها أي يد عدا بعض التعديلات الخفيفة لتعمل على ملفك)... ملاحظة: الملف يعمل في ويندوز 64 بت وإذا حدث فيه خطأ عند تنفيذه في جهازك فجرب أن تغير مكان العلامة ' بين السطرين (تحذفهما من السطرين الأخيرين -32 بت- وتضعهما في اآخرين -64 بت-) في الجزئية التالية من كود Module1: 'في حالة استعمال وينودوز 64 بت Private Declare PtrSafe Function GetDC& Lib "user32.dll" (ByVal hwnd&) Private Declare PtrSafe Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&) 'في حالة استعمال وينودوز 32 بت 'Private Declare Function GetDC& Lib "user32.dll" (ByVal hwnd&) 'Private Declare Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&) وليس لي فكرة أخرى... نموذج ساعات1.xlsm

السلام عليكم أنت أضفتها كأداة Add-Ins عندك وليس كمديول Module (أي ماكرو)... ولم تشتغل عندي لأنها غير موجودة من بين الأدوات Add-Ins تبعي...