بن علية حاجي

السلام عليكم تم عمل المطلوب (تحديد ناحية الطباعة لكل الأوراق في المصنف + تحجيم كل ناحية طباعة في صفحة واحدة) في الملف المرفق... الدفتر الإحصائي -الإستقصاء المدرسي الشامل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 تبعي...

السلام عليكم ورحمة الله للتوضيح فقط، الدالة Sqr لم تقبل الحساب من ناتج الصيغة وتظهر خطأ لهذا قمت بوضع ناتج الصيغة في متغير جديد T (مثلا) ثم تطبيق الدالة Sqr على القيمة T ويكون الكود بالتالي على الشكل: Function aretrangel(A As Currency, B As Currency, C As Currency) As Currency S = (A + B + C) / 2 T = S * (S - A) * (S - B) * (S - C) aretrangel = Math.Sqr(T) End Function أو هكذا (دون استعمال الدالة Sqr): Function aretrangel(A As Currency, B As Currency, C As Currency) As Currency S = (A + B + C) / 2 aretrangel = (S * (S - A) * (S - B) * (S - C)) ^ 0.5 End Function

وعليكم السلام ورحمة الله بإضافة قوائم منسدلة للتوقيت من... إلى... (ساعات ودقائق) وللتاريخ ومعادلات مساعدة تم عمل المطلوب في الملف المرفق... أرجو أن يفي ما تريده... ملاحظة : تم إضافة كلمة سرية لحماية الملف من التعديل وهي: 123 نموذج ساعات1.xlsx

التصحيح في الملف المرفق... المعاش التقاعدي2.xlsx

مرحبا... المعادلة المستعملة في الكود لا أعرفها... أما التي أعرفها واكتشفتها مؤخرا هي معادلة "هيرون" والتي صيغتها : =SQRT(s*(s-a)*(s-b)*(s-c)) حيث: a، b، c هي أطوال أضلاع المثلث و s = (a + b + c)/2 وليس لي جواب آخر....

وعليكم السلام ورحمة الله جرب المعادلة (طويلة قليلا) الموضوعة في العمود الملون في الملف المرفق. مسودة تاريخ غير فعال 02.xls

أهلا بك ومرحبا المعادلة الموضوعة في العمود A من ملفك هي فقط للمساعدة لترقيم الفاتورات تصاعديا (بنود كل فاتورة لها الرقم نفسه كما هو موجود في الملف)، وهذه المعادلات ممتدة لـِ 10000 سطر (من السطر 2 إلى السطر 1000)... بمعنى أنه يمكنك إضافة (حجز) فاتورات جديدة بداية من العمود B بكل بنودها (ولا يهم عدد البنود) فمعادلات العمود A تقوم بترقيم هذه الفاتورات تسلسليا والتنسيقات الشرطية المطبقة على النطاق B2:AN10001 تقوم بتأطير كل فاتورة ببنودها كما طلبت في موضوعك... والله أعلم.

تحية طيبة مباركة جرب الملف بالمرفقات (مع بعض التعديلات باستعمال دوال أخرى) لعل فيه ما تريد... المعاش التقاعدي.xlsx