بن علية حاجي

السلام عليكم ورحمة الله تم عمل المطلوب بالمعادلات والنطاقات بالتسمية... استعلام.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

تحية طيبة عطرة تم عمل المطلوب باستعمال عمود مساعد A بمعادلات لترقيم الفاتورات وتنسيقات شرطية... أرجو أن يفي المطلوب... Book4.xlsx

السلام عليكم مصنف1.xlsx

السلام عليكم ورحمة الله تفضل ما تريد مع بعض التعديلات والإضافات.... محمد درويش (1).xlsx

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

السلام عليكم ورحمة الله عليك الاتصال بصاحب البرنامج عبر رقم هاتفه أو عبر صفحته بالفيسبوك... وإذا كنت صاحب هذا البرنامج فالرجاء إلغاء الحماية على VBA على الأقل... وفي انتظار ذلك جرب الحل الأولي في المرفق... توزيع ملاحظة.xlsb

السلام عليكم قم بجمع كل الأعداد المتوفرة ثم تقسيم الناتج على الخلايا كلها... والملف الذي أدرجته في المرفقات لا يفي المطلوب جيدا...

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد... كود تذييل للصفحة بناء على محتويات خلية.xlsm

السلام عليكم ورحمة الله تم تعديل طفيف على الكود في الجزئية lr1+lr2-1 باستبدالها بالجزئية lr1+lr2-17... الملف.rar

السلام عليكم ويمكن استعمال الملف المرفق بإضافة عمود مساعد E للترقيم التصاعدي لكل المدارس التي لم يتم زيارتها... School.xlsx

وعليكم السلام ورحمة الله جرب المرفق لعل فيه ما تريد... جلب اكبر واصغر قيمة لتاريخ.xls

السلام عليكم ورحمة الله جرب معادلة أخي الحبيب "ابراهيم الحداد" بالصيغة التالية: =IF(1*I$7=1*$H8;"ح";"غ")

السلام عليكم ورحمة الله تم إضافة زر للفورم خاص لحفظ كشوف الصفوف المختارة في الفورم بصيغة PDF باسم "الصف المختار"... أرجو أن يفي الغرض المطلوب... كشوفات الطلبة.xlsm

السلام عليكم ورحمة الله يمكنك طباعة كل كشف بصيغة PDF لتبقى لك نسخة من النموذج...