بن علية حاجي

السلام عليكم هذا حل آخر بالمعادلات دون عمود مساعد والمعادلات هي معادلات صفيف (يجب تأكيدها بـ 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

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

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

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

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

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