اذهب الي المحتوي
أوفيسنا

أ / محمد صالح

أوفيسنا
  • Posts

    4486
  • تاريخ الانضمام

  • Days Won

    198

كل منشورات العضو أ / محمد صالح

  1. أخي الكريم حضرتك لم ترد على الموضوع السابق والكود الموضوع هنا هو نفسه الكود السابق بدون حتى التعديلات المقترجة في الموضوع الآخر .شكرا لكلماتك الطيبة وأرجو أن تكون وصلت لمبتغاك غير الواضح لنا جميعا
  2. ضع هذه في معادلة المبيعات الشهرية =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 في شهر يناير وأقل من بداية العام التالي بالتوفيق
  3. أعتقد إذا كانت المشكلة في تنسيقات الوقت والتاريخ في الويندوز كانت ستختلف في كل التواريخ والله اعلم
  4. ما السبب في تكرار المواضيع؟؟ 🤔😎🤔
  5. بقليل من البحث في المنتدى ستجد الكثير من الدرر https://www.officena.net/ib/search/?q=ترتيب السن&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق
  6. وفقنا الله جميعا لكل ما يحبه ويرضاه
  7. بعد تحميل الملف لم أجد أي توقيت ورغم ذلك إذا أردت إخفاء النموذج الحالي يمكنك استعمال الكود التالي: me.hide وطبعا يمكنك استعمال if للتحكم في شرط إخفاء النموذج
  8. شكرا لكلماتك الطيبة ما الخطأ الذي وجدته ؟
  9. لا يوجد أي مشكلة عندي يتم كتابة 4 / 12 / 2021 (بدون مسافات) وتظهر بصورة طبيعية في مربع النص بعد الضغط على tab أو enter هذا طبعا بعد استعمال الكود المرسل في مشاركتي السابقة بالتوفيق
  10. مادامت المعادلات اشتغلت مع المادة1 فهي صحيحة والخطأ في عمود المادة2 لديكم ولو لم أكن متأكدا ما نشرت المعادلات اخي الكريم لكن يبدو أنك لم تنتبه لملاحظاتي في نهاية المشاركة السابقة لتحصل على نتائج صحيحة يجب اختيار الأسماء من قائمة في صفحة الغياب مثل قائمة المواد حتى لا تختلف عن الأسماء المكتوبة في شيت البيانات data
  11. يفضل وضع الكود عند الخروج من مربع النص on exit Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox1 = Format(CDate(Me.TextBox1), "yyyy/mm/dd") End Sub
  12. اوفيس 365 لا يتم تفعيله بأي كراك فقط بعنوان البريد الإلكتروني وكلمة المرور الخاصة بالاشتراك أي ملف لتفعيل تحوله إلى 2016 او 2019
  13. الحل هو الحل اليدوي التقليدي قبل إضافة ميزة justify إلى وورد وهو استعمال الكشيدة shift + j وربما لا تضبط نهايات السطور مع استعمالنا للكشيدة وحدها بدون مسافات خلاصة كلامي: لضبط نهايات السطور نستعمل ميزة الضبط justify
  14. يمكنك استعمال هذه المعادلات في شيت الغياب حسب المادة في الخلية 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 فلا تحصل على النتيجة المرجوة في البحث بالتوفيق
  15. وفقنا الله جميعا لكل خير
  16. مفيش مشكلة المهم مراعاة شروط تسمية الملفات في ويندوز ولا داعي لتغيير نوع بيانات المتغير فغير مسموح مثلا بالشرطة المائلة / او \ وكذلك علامة الاستفهام ؟ وكذلك > او < وهكذا
  17. أخي الكريم هذه آلية ميزة الضبط justify تقوم بإضافة مسافات بين الكلمات بحيث تجعل نهايات السطور واحدة بدلا من انتهاء سطر عند عمود كذا والآخر بعده أو قبله. ولحذف هذه المسافات قم بإلغاء تشغيل ميزة الضبط justify
  18. لا أدري ما الجزء الذي تريد عمل فورم له على العموم خطوات إضافة فورم للملف: * اضغط ALT+F11 لفتح شاشة الفيجوال بيسك * من قائمة INSERT اختر userform * أضف أدوات التحكم المناسبة لاحتياجاتك من تسميات labels أو مربعات نصوص textbox أو أزرار button بالتوفيق
  19. بعد إذن أخي الكريم @بن علية حاجي تفضل هذا ملفك بعد إعادة هيكلة لصفحة أيام الحراسة وجلب بيانات الحراس الاحتياطيون نصيحتي لك: لا تلجأ إلى دمج الخلايا مطلقا وإذا كان لابد ففي أضيق الحدود مع ملحوظة أن القاعات في شيت توزيع الحراسة 30 وفي شيت أيام الحراسة 20 . مع العلم أنك إذا فهمت آلية عمل المعادلة التي ساعدك بها الأستاذ بن علية يمكنك عمل معادلات الاحتياط بنفس الطريقة. وفي الأخير: أولى خطوات العلم هي الرغبة في التعلم. وليست الاعتماد على الآخرين بالتوفيق جدول الحراسة 2022.rar
  20. لدعم اللغة العربية في ملفات الدوس أضف هذا السطر كأول سطر في النص الذي يكتب في الباتش s = s & "chcp 1256" & vbCrLf بعد الإعلان عن المتغير s dim s as String
  21. الشكر لله حبيبي لا تنساني من دعواتك الطيبة
  22. يمكنك استعمال هذه المعادلة في التنسيق الشرطي =COUNTIFS(A:A,A2,B:B,B2)>1 وتطبق على المدى $a$2:$a$11 وهذا ملفك به التطبيق تنسيق شرطي.xlsx
  23. عندي يعمل بصورة ممتازة ربما بسبب أنه حينما يكون رقم الموبايل فارغا فالمتغير mob يساوي 0 وبهذا لا يتحقق الشرط فالصواب حذف الصفر المضاف قبل متغير الموبايل mob = Sheets("Find").Range("G1").Value وجعل تنسيق الخلية G1 نص text حتى يقبل الصفر في البداية وهذا ما قمت به عندي من البداية
  24. Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# AND #" & stopdt & "#" & _ IIf(mob = "", "", " AND [fdName16] = '" & mob & "'") & IIf(inv = "", "", " And [fdName1] = " & inv) & ";" تم تعديل شرط إذا كان أحد الخليتين فارغا وإعادة صياغة الاستعلام
×
×
  • اضف...

Important Information