أ / محمد صالح

معادلة بحث عادية جدا يمكنك استعمال vlookup أو Index & match مثال =VLOOKUP(j3, l1:m100, 2,0) بالتوفيق

جميعا بإذن الله

ليست في البرنامج ولكن كما قلت لك سابقا حيث يعتبر نظام التشغيل أن التاريخ المكتوب عبارة عن نص وليس تاريخا يفضل ضبط لغة وتنسيقات الاكسل مع نظام التشغيل بالتوفيق

بعد إذن أخي الكريم @ابراهيم الحداد لا نحتاج لعكس الكلام لأنه يظهر الأرقام مقلوبة مثل 13 تظهر 31 وهكذا هذا جهدي المتواضع في هذا المجال Sub AbsDays() Dim ws As Worksheet, C As Range, LR As Long, x As Long Set ws = Sheets("SS") LR = ws.Range("AG" & Rows.Count).End(xlUp).Row For x = 3 To LR ws.Range("AI" & x) = "" For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then ws.Range("AI" & x) = ws.Range("AI" & x) & IIf(ws.Range("AI" & x) = "", "يوم ", " و") & C.Value Next C : Next x MsgBox "Done by mr-mas.com" End Sub بالتوفيق ترحيل أيام الغياب.xlsb

يمكنك استعمال هذه المعادلة =IF(OR(Q6="",F6=""),"",IF(Q6>=250,"ناجح"&IF(F6="ذكر", "", "ة"),"له"&IF(F6="ذكر", "", "ا")&" برنامج علاجي")) بالتوفيق

الشكر لله الذي وفقنا

لطباعه الصفحه الحاليه فقط بدون عد الفلوس المرتجعة يمكنك تحديد المدى A1:F33 ثم من تبويب تخطيط الصفحة page layout اختيار منطقة الطباعة print area ثم تعيين set بالتوفيق

بارك الله لك نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

هل تقصد كلما تضغط على. حفظ save تظهر نافذة حفظ باسم save as ؟ ربما يكون الملف للقراءة فقط read only من خلال كلك يمين على الملف ثم خصائص properties بالتوفيق

الحمد لله الذي وفقنا لهذا

أعتقد والله أعلم أنه لن تكون هناك حاجة لعمل شيتات فكل عملية مسجلة في حساب التاجر وحسابات العملاء في البنك وسيتم ضبط أنظمة الضرائب وتمكينها من قراءة هذه السجلات والله أعلم

جميعا بإذن الله

يمكنك استعمال هذه المعادلة في الخلية A2 =TRANSPOSE(OFFSET(Coffee!$C$2,(ROW()-2)*8,0,8,1)) مع نسخ المعادلة لأسفل بالتوفيق

الملف المرفق يعمل بدون مشاكل راجع هذا ربما تكون المشكلة في تنسيق التاريخ بين الويندوز والاكسل حيث يجب توافق الاثنين معا TEST_3.xlsx

أعتقد في حالتك هذه يلزمك تحديد نسبة الربح الكلى أولا بمعنى أنك تريد إجمالي الأرباح مثلا 50% من التكلفة ساعتها تستطيع حساب ما تم تحقيقه من الربح الكلى ثم تقسم المتبقي على الكمية المتقية وإذا كتبت في نسبة الربح 0 ستحصل على ثمن التكلفة الفعلية للمتبقي بحيث يكون ناتج ضرب الكميات المباعة في أسعار بيعها يساوي سعر الشراء راجع هذا التكلفه.XLSX

يفضل إرفاق ملفك أو الجزء الذي يخص المشكلة لأن هذه حالة فردية تخص حضرتك

آمين ولك مثل ما دعوت وزيادة بإذن الله

الشكر لله الذي وفقنا للخير

هذا ما قلته سابقا وأعيده الآن تصميم الصفحة أولا ثم وضع المعادلات ثانيا وقد تم تصميم الصفحة وساعدك الزميل في وضع معادلات البحث فهل نسخ المعادلات إلى أماكنها في التصميم الجديد مشكلة يصعب حلها لدرجة الاستعانة بصديق لعملها بدلا منا ؟؟؟؟؟؟ أعتقد هذه سلوكيات لا تساعد على التعلم

متى وجدت عملية قسمة فمن المحتمل وجود أكثر من رقمين على يمين العلامة العشرية لذلك يفضل استعمال دالة trunc مع أي عملية ضرب أو قسمة في المرتبات وهذه الدالة مهمتها اقتصاص أول رقمين بعد العلامة العشرية بدون تقريب ولا جبر مما يجعل المجاميع متساوية مع ما يظهر في الخلايا وصيغتها العامة =trunc(a1*b1,2) وتطبيقها على المعادلة المطلوبة من حضرتك =IF(BO10="مدرس",trunc(C10*25%,2),"") بالتوفيق

يمكنك استعمال هذا الإجراء Sub mas() lr = Cells(Rows.Count, 3).End(3).Row With Range("d4:d" & lr) .Formula = "=IFERROR(VLOOKUP(C4,H$4:I$27,2,0),"""")" .Value = .Value End With MsgBox "Done by mr-mas.com" End Sub وربطه يزر أو في حدث التغيير بالتوفيق

هذا أمر معروف هو اختلاف بعض الأجهزة في إعدادات الفاصلة فبعضها بنظام الفاصلة وهذا هو الأفضل وبعضها بنظام الفاصلة المنقوطة الشكر لله الذي وفقنا لهذا

يمكنك استعمال هذه المعادلة =if(E14/(D14*4)>=1,1,E14/(D14*4)) بالتوفيق

جميعا بإذن الله تعالى

إذا كانت صفحات الملف أسفل بعضها فهذا يتم من خلال خصائص الطابعة printer properties الموجودة في نافذة معاينة قبل الطباعة وبعد ضبط خصائص الطابعة يتم الطباعة بكود الطباعة العادي ActiveSheet.PrintOut ستتم الطباعة على الوجهين وبعد البحث لم أعثر على كود يقوم بتغيير خصائص الطابعة إلى ماهو مطلوب بالتوفيق