أ / محمد صالح

ربما إذا أرفقت ملفك الذي حاولت التطبيق فيه نعرف السبب

أين الملف حتى يمكننا معرفة مكان الخطأ الكود وحده عملية نظرية بحتة

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

مفيش تعب ولا حاجة. الله في عون العبد مادام العبد في عون أخيه بالنسبة لهذا السطر جرب استعمال هذا بدلا منه .offset(0, 1) = Cells(a, 13) وهو بنفس المعنى الكتابة في نفس الصف والعمود التالي أما موضوع الأرقام السابقة .Offset(4- .row, 1) = Cells(a, 2) فهذا كما قلت حسب فهمي أنك تريد الكتابة في الصف 4 و 6 و7 بالذات مهما زاد عدد الصفوف. فقمت بتصحيح الكود لك وهو يقوم بطرح رقم الصف الحالي من رقم 4 مثلا فيكون قيمة الصف بالسالب وتعني الرجوع لأعلى إلى أن يصل للصف الرابع أما الأعمدة والخلايا التي يأخذ منها الكود القيم فهي كما هي في الكود لم يتم تغييرها

خالص دعواتي بالتوفيق

يرجع هذا لتعدد الأعمدة أنت تجمع من B3:D13 وليس من B3:B13 يمكنك استعمال هذه المعادلة للجمع في المبيعات الشهرية للكراتين =SUMPRODUCT((B3:C13)*(F3:F13=G1)*(A3:A13>=DATE(YEAR(F1),MONTH(F1),1))*(A3:A13<DATE(YEAR(F1),MONTH(F1)+1,1))) لاحظ أن كل الأعمدة لها نفس البداية 3 ونفس النهاية 13 وهذه المعادلة في المبيعات السنوية للكراتين =SUMPRODUCT((B3:D13)*(F3:F13=G1)*(A3:A13>=DATE(YEAR(F1),1,1))*(A3:A13<DATE(YEAR(F1)+1,1,1)))

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

ضع هذه في معادلة المبيعات الشهرية =SUMIFS(B:B,C:C,D1,A:A,">="&DATE(YEAR(C1),MONTH(C1),1),A:A,"<"&DATE(YEAR(C1),MONTH(C1)+1,1)) وتعني أن يكون مكتوبا في العمود c كلمة مبيعات والتاريخ أكبر من أو يساوي 1 في الشهر وأقل من بداية الشهر التالي وهذه في معادلة المبيعات السنوية =SUMIFS(B:B,C:C,D1,A:A,">="&DATE(YEAR(C1),1,1),A:A,"<"&DATE(YEAR(C1)+1,1,1)) وتعني أن يكون مكتوبا في العمود c كلمة مبيعات والتاريخ أكبر من أو يساوي 1 في شهر يناير وأقل من بداية العام التالي بالتوفيق

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

ما السبب في تكرار المواضيع؟؟ 🤔😎🤔

بقليل من البحث في المنتدى ستجد الكثير من الدرر https://www.officena.net/ib/search/?q=ترتيب السن&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

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

بعد تحميل الملف لم أجد أي توقيت ورغم ذلك إذا أردت إخفاء النموذج الحالي يمكنك استعمال الكود التالي: me.hide وطبعا يمكنك استعمال if للتحكم في شرط إخفاء النموذج

شكرا لكلماتك الطيبة ما الخطأ الذي وجدته ؟

لا يوجد أي مشكلة عندي يتم كتابة 4 / 12 / 2021 (بدون مسافات) وتظهر بصورة طبيعية في مربع النص بعد الضغط على tab أو enter هذا طبعا بعد استعمال الكود المرسل في مشاركتي السابقة بالتوفيق

مادامت المعادلات اشتغلت مع المادة1 فهي صحيحة والخطأ في عمود المادة2 لديكم ولو لم أكن متأكدا ما نشرت المعادلات اخي الكريم لكن يبدو أنك لم تنتبه لملاحظاتي في نهاية المشاركة السابقة لتحصل على نتائج صحيحة يجب اختيار الأسماء من قائمة في صفحة الغياب مثل قائمة المواد حتى لا تختلف عن الأسماء المكتوبة في شيت البيانات data

يفضل وضع الكود عند الخروج من مربع النص on exit Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox1 = Format(CDate(Me.TextBox1), "yyyy/mm/dd") End Sub

اوفيس 365 لا يتم تفعيله بأي كراك فقط بعنوان البريد الإلكتروني وكلمة المرور الخاصة بالاشتراك أي ملف لتفعيل تحوله إلى 2016 او 2019

الحل هو الحل اليدوي التقليدي قبل إضافة ميزة justify إلى وورد وهو استعمال الكشيدة shift + j وربما لا تضبط نهايات السطور مع استعمالنا للكشيدة وحدها بدون مسافات خلاصة كلامي: لضبط نهايات السطور نستعمل ميزة الضبط justify

خالص دعواتي بالتوفيق

يمكنك استعمال هذه المعادلات في شيت الغياب حسب المادة في الخلية B10 =IF(OFFSET(الغياب!$A$1,ROW()-5,MATCH($D$8,الغياب!$5:$5,0)-1)=0,"",OFFSET(الغياب!$A$1,ROW()-5,MATCH($D$8,الغياب!$5:$5,0)-1)) في الخلية C10 =IFERROR(INDEX(Data!C:C,MATCH($B10,Data!$B:$B,0)),"") في الخلية D10 =IFERROR(INDEX(Data!E:E,MATCH($B10,Data!$B:$B,0)),"") مع العلم أني لا أفضل الصفوف والأعمدة الفارغة الكثيرة قبل البيانات في كل سيت ولا أفضل كتابة الأسماء في شيت الغياب يدويا حيث من الممكن أن تختلف في المسافات عن الموجودة في شيت data فلا تحصل على النتيجة المرجوة في البحث بالتوفيق

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

مفيش مشكلة المهم مراعاة شروط تسمية الملفات في ويندوز ولا داعي لتغيير نوع بيانات المتغير فغير مسموح مثلا بالشرطة المائلة / او \ وكذلك علامة الاستفهام ؟ وكذلك > او < وهكذا

أخي الكريم هذه آلية ميزة الضبط justify تقوم بإضافة مسافات بين الكلمات بحيث تجعل نهايات السطور واحدة بدلا من انتهاء سطر عند عمود كذا والآخر بعده أو قبله. ولحذف هذه المسافات قم بإلغاء تشغيل ميزة الضبط justify

لا أدري ما الجزء الذي تريد عمل فورم له على العموم خطوات إضافة فورم للملف: * اضغط ALT+F11 لفتح شاشة الفيجوال بيسك * من قائمة INSERT اختر userform * أضف أدوات التحكم المناسبة لاحتياجاتك من تسميات labels أو مربعات نصوص textbox أو أزرار button بالتوفيق