أ / محمد صالح

تكتب هذه الأكواد في محرر أكواد الفيجوال بيسك بالضغط على alt+f11 ويمكنك البحث في المنتدى فستجد الكثير من الشرح والدورات التي تجعلك بإذن الله من المبدعين أما عن برنامج جاهز فلا يحضرني حاليا أي برنامج بالتوفيق

على حسب فهمي للمطلوب أنك تريد عند تغيير عدد الخانات في شيت المعطيات يتم تنفيذ الفلتر في شيت الحل تلقائيا هل هذا هو المطلوب؟

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

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

شكرا لكلماتك الطيبة في أول مشاركة وفي آخر مشاركة ؟؟؟؟؟ إذا كنت تقصد جلب التاريخ من الشيت وترحيل التاريخ إلى الشيت فأهم شيء هو تحويل قيمة الخلية أو مربع النص إلى تاريخ بـ CDATE طبعا مع تطابق تنسيق التاريخ في الخلية ومربع النص وإليك مثالا عن إدخال التاريخ في النموذج وترحيله وجلبه من الشيت إن شاء الله يفيدك date in form.xlsb

اعذرني أخي الكريم فالملف المرفق من حضرتك يعتمد على فكرة هي: ترتيب عمود تاريخ الميلاد من الأصغر للأكبر ثم البحث في الأسماء حسب تاريخ الميلاد الحالي وقد وجدت هذه الأخطاء وتم بفضل الله تصحيحها: خطأ في المسلسل عند الصف 106 تشغيل معادلة التاريخ في العمود D وضبط تنسيق التاريخ في العمود M المعادلة في البداية تقرأ حتى الصف 900 ولكن من الصف 19 أصبحت تقرأ حتى الصف 500 تم ضبط معادلة الاسم العمود Q والعمود R يقرأ حتى 500 والصواب 900 وهذا ملفك بعد التعديل بالتوفيق ترتيب الطلاب حسب السن.rar

بعد التجربة على الملف المرفق من الأستاذ حسين تبين لي ما يلي: مشكلة الكود الموجود في المشاركة رقم 1 هو وجود مسافة بعد ok في الشرط رغم أنها تكتب بدون مسافة في الكود And Cells(a, 14) <> "ok " Then بالإضافة إلى عدم وضع جميع شروط or بين قوسين لأنها جميعا تمثل حالة واحدة من and وهذه النقطة هي مشكلة الكود الموجود في المشاركة هذه وبعد فهمي للمطلوب عمليا يمكن تعديل الكود للتالي: Sub recp_fill2() Application.ScreenUpdating = False For I = 5 To [a10000].End(xlUp).Row If Cells(I, 14) <> Cells(I, 13) And Left(Cells(I, 13), 6) = "recept" Then With Sheets("recept") .Cells(4, 2) = Cells(I, 2) .Cells(6, 2) = Cells(I, 5) .Cells(7, 2) = Cells(I, 6) .Cells(8, 2) = Cells(I, 8) .Cells(21, 2) = Cells(I, 13) End With Cells(I, 14) = Cells(I, 13) Exit For End If Next I Application.ScreenUpdating = True MsgBox "!تم الترحيل بنجاح", vbInformation + vbMsgBoxRight, "تم الترحيل" Range("b6").Select End Sub مشكلتنا فعلا هي عدم القدرة على تحديد وتوصيل المطلوب بطريقة صحيحة بالتوفيق

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

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

الكود الخاص بك يمر خلال الصفوف من 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