أ / محمد صالح

ربما لو أرفقت ملفا به النتائج المتوقعة (الشكل النهائي للشيت) نتوصل بإذن الله لما تريد لأن المطلوب له أكثر من احتمال وأبسطها أن تكتب في أول خلية رأسية وليكن B3 =D1 ثم في الخلية التي تحتها B4 =IFERROR(IF(B3+1<=F$1,B3+1,""),"") مع سحب المعادلة لأسفل وتغيير تنسيق الخلايا إلى تاريخ بالتوفيق

الحمد لله الذي بنعمته تتم الصالحات

للأسف نماذج الاكسل لا تدعم الارتباط التشعبي بالشكل المعتاد ولكن يمكن التحايل على ذلك بوضع عنوان الارتباط في label وتنسيق لون الخط أزرق وتحته خط وكأنه ارتباط واستعمال هذا الكود في حدث النقر على التسمية Private Sub lblLink_Click() ActiveWorkbook.FollowHyperlink Address:="mr-mas.com", NewWindow:=True Unload Me End Sub مع تغيير رابط موقعي إلى عنوان الارتباط التشعبي بالتوفيق

هذا ملفك بعد تنفيذ المطلوب التصفية بشرطين الفصل والنوع بالتوفيق قائمة فصل بنون وبنات.xlsx

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

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

نسخ المعادلة من الموقع إلى الملف لا يحتاج خبرة الخطوات : * تحديد المعادلة بالضغط والسحب * كلك يمين ثم نسخ copy او الضغط ctrl+C من لوحة المفاتيح * تحديد الخلية التي تظهر فيها النتيجة * لصق المعادلة في شريط المعادلات formula bar عن طريق كلك يمين ثم لصق paste او الضغط ctrl+v من لوحة المفاتيح * الضغط على مفتاح الإدخال enter إذا ظهر خطأ فيجب تغيير الفاصلة (, ) في المعادلة إلى فاصلة منقوطة ( ; ) وأنصح بتعلم الأساسيات أولا قبل الدخول في المعادلات بالتوفيق

معادلة بحث عادية جدا يمكنك استعمال 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

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

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

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