أ / محمد صالح

يفضل استعمال أكواد خاصة بك في برامجك أو أكواد بسيطة فقط التي تحتاجها لا داعي لبرامج كاملة لعمل هذا لك فجميع وظائفها حتى التي لا تحتاج إليها تعمل في الخلفية بالتوفيق

يمكنك استعمال هذه المعادلة =IF(DAY(TODAY())=1,1,1+(DAY(TODAY())-1)*5) بالتوفيق

لتحويل أي معادلة إلى كود يمكنك استعمال هذه الطريقة [Cell reference] = Evaluate("=Cell formula") وفي حالتك [i13] = Evaluate("=INDEX($D$5:$I$9,MATCH(D13,$C$5:$C$9,0),MATCH(F13,$D$4:$H$4,0))") وطريقة استدعائه بزر أمر مرتبط بإجراء sub به هذا الكود أو في حدث تغيير خلايا ورقة العمل worksheet_change وبالنسبة للتنفيذ من الأكسس على نفس هذا الشيت بعد تصديره مثلا نستعمل قبل evaluate اسم كائن تطبيق الاكسل مثال sh.Range("i13").value = Xlapp.Evaluate("=INDEX($D$5:$I$9,MATCH(D13,$C$5:$C$9,0),MATCH(F13,$D$4:$H$4,0))") بالتوفيق

من الواضح في نص الملف أنه تم تغيير امتداده إلى xls * والصواب أن يكون امتداد الملف csv * مع مراعاة نظام الجهاز في فاصلة القوائم هل هي الفاصلة المنقوطة ( ; ) كما في الملف أو الفاصلة فقط ( , ) واستعمال البحث والاستبدال لتغيير الفاصلة المنقوطة حسب إعدادات جهازك في أي محرر نصوص مثل notepad بالتوفيق

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

هذا الأمر من الممارسات العادية واليومية في اكسل وأنا شخصيا لا أفضل تنفيذها بالكود فقط تحتاج لتشغيل Filter تصفية من تبويب بيانات data ستجد سهم في أعلى كل عمود فقط اضغط على السهم في عمود التاريخ واختر sort ترتيب تصاعدي أو تنازلي حسب الطلب بالتوفيق

بإذن الله يفيدك هذا الشرح لعمل نسخة مضغوطة zip بالتوفيق

الأمر بسيط جدا * صمم شكل صفحة الطباعة وحدد أماكن الخانات عليها أولا * ويمكنك استعمال الدالة index مع match للبحث عن النتائج وهذه المواضيع تشرح استعمال الدالتين في البحث لمن لا يعرف ولكن يريد أن يتعلم وأقترح عليك أن يكون البحث برقم المسلسل لتسريع البحث بدلا من كتابة 14 رقما بالتوفيق

آمين ولك مثلها إن شاء الله

يمكنك استعمال هذه المعادلة في الخلية A7 =IF(B7="","",COUNTIF(B$7:B7,"<>")) وتعني إذا كانت خلية القيمة فارغة تكن فارغة وإلا فيعد خلايا القيمة المكتوبة حتى الآن بالتوفيق

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

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

جميعا بإذن الله قراءة الموضوعات السابقة في المنتدى تجيب عن كثير من تساؤلاتنا إن شاء الله تجد المطلوب الأول في هذا الموضوع

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

تم اختبار الملف ولا يوجد أكواد تمنع الكتابة وتمت الكتابة بأي عدد حروف ولا يوجد مشكلة ربما تكون المشكلة من خطأ في إعدادات الاكسل لذا يفضل عمل إصلاح repair لبرامج الأوفيس من لوحة التحكم ثم إلغاء تثبيت البرامج uninstall programs ثم تحديد الأوفيس ولكن الضغط على إصلاح وليس إلغاء التثبيت بالتوفيق

إذا أردت معرفة السبب فعليك بإرفاق الملف أو الشيت الذي به المشكلة فربما يكون السبب كود vba

عدم توضيح المطلوب يجعل محاولات الحل أكثر من مرة وهذا يجعل الناس تنفر من حل المطلوب الثاني في أي موضوع حسب فهمي للمطلوب تم الاعتماد على جدول مساعد يحسب مجموع المتر المربع لكل صنف حسب العميل والتاريخ لذا يلزم * وضع قائمة الأصناف بدون تكرار في العمود N * ونسخ معادلة العمود O & P إلى آخر صف في عمود الأصناف بالتوفيق أعلى وأدنى الأصناف مبيعا لعميل في مدة.xlsx

بالنسبة للمطلوب الأول لا يتم بالمعادلات وإنما باكواد vba بالنسبة للمطلوب الثاني تم فك الدمج عن جميع الخلايا لأنه يصعب مهمة المعادلات تم وضع المعادلات في الجدول الأزرق وهذا شرح طريقة الحصول على الأصناف بدون تكرار تحديد الخلايا التي بها الأصناف مع العنوان (الصنف) تبويب data ثم advanced ثم ضبط خيارات النافذة كما بالصورة ثم موافق بالتوفيق حل.xlsx

المشكلة في التاريخ الهجري هي أن جميع دوال التاريخ تعمل علي التاريخ الميلادي وليس الهجري عن طريق المعادلة =EDATE(a1, 24) حيث a1 هي الخلية التي بها التاريخ فستكون النتيجة إضافة عامين بالميلادي وهذا أكثر من عامين بالهجري وبالنسبة لعدد الأيام بين تاريخين فيمكن باستعمال عملية الطرح خلية تاريخ النهاية - خلية تاريخ البداية بالتوفيق

آمين ولك مثل ما دعوت وزيادة

لإضافة 90 يوم على التاريخ المكتوب في مربع نص وليكن اسمه textbox1 مثلا ويتم وضع الناتج في textbox2 مثلا textbox2.value = Format(DateAdd("d", 90, cdate(textbox1.value)), "yyyy/mm/dd") ولطرح تاريخين نستعمل textbox3.value = DateDiff("d", cdate(textbox2.value), cdate(textbox5.value)) بالتوفيق

يجب أن تحول الصفر إلى واحد حتى تحافظ على قيمة الضرب يمكن استعمال هذه المعادلة =IF(G10="",1,G10)*IF(F10="",1,F10)*IF(H10="",1,H10)*IF(I10="",1,I10)*IF(J10="",1,J10) ولمن يعمل جهازه بنظام الفاصلة المنقوطة ولا يعرف كيف يغير الفاصلة إلى فاصلة منقوطة هكذا =IF(G10="";1;G10)*IF(F10="";1;F10)*IF(H10="";1;H10)*IF(I10="";1;I10)*IF(J10="";1;J10) بالتوفيق

هذا طبيعي جدا لأن الخلية الفارغة تساوي صفر وأي رقم ضرب صفر يساوي صفر

أول خطوة قبل كتابة موضوع جديد هي استعمال محرك البحث ومحاولة التعلم والتطبيق من جميع النتائج وهذه إحدى نتائج البحث https://www.officena.net/ib/search/?q=فورم بحث وتعديل&quick=1&type=forums_topic&nodes=135&search_and_or=and كما أن تصميم ملفك مخالف لكل الموضوعات حيث يفضل أن تكون الاضافة والتعديل والبحث في نموذج واحد بحيث عن الضغط على العنصر في القائمة يتم نقل جميع معلوماته الي مربعات النص الخاصة بالتعديل او الاضافة راجع الموضوعات في نتائج البحث وخصوصا شرح عمل نموذج البحث خطوة بخطوة

باستعمال دالة if مع دالة and إذا كانت الخلية التي بها العمر بالعام أكبر من أو يساوي 3 وأيضا الخلية التي بها العمر بالشهور أكبر من أو يساوي 6 تكون قيمة الخلية kg1 وهكذا بالتوفيق