أ / محمد صالح

الحل هو الحل اليدوي التقليدي قبل إضافة ميزة 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 بالتوفيق

بعد إذن أخي الكريم @بن علية حاجي تفضل هذا ملفك بعد إعادة هيكلة لصفحة أيام الحراسة وجلب بيانات الحراس الاحتياطيون نصيحتي لك: لا تلجأ إلى دمج الخلايا مطلقا وإذا كان لابد ففي أضيق الحدود مع ملحوظة أن القاعات في شيت توزيع الحراسة 30 وفي شيت أيام الحراسة 20 . مع العلم أنك إذا فهمت آلية عمل المعادلة التي ساعدك بها الأستاذ بن علية يمكنك عمل معادلات الاحتياط بنفس الطريقة. وفي الأخير: أولى خطوات العلم هي الرغبة في التعلم. وليست الاعتماد على الآخرين بالتوفيق جدول الحراسة 2022.rar

لدعم اللغة العربية في ملفات الدوس أضف هذا السطر كأول سطر في النص الذي يكتب في الباتش s = s & "chcp 1256" & vbCrLf بعد الإعلان عن المتغير s dim s as String

الشكر لله حبيبي لا تنساني من دعواتك الطيبة

يمكنك استعمال هذه المعادلة في التنسيق الشرطي =COUNTIFS(A:A,A2,B:B,B2)>1 وتطبق على المدى $a$2:$a$11 وهذا ملفك به التطبيق تنسيق شرطي.xlsx

عندي يعمل بصورة ممتازة ربما بسبب أنه حينما يكون رقم الموبايل فارغا فالمتغير mob يساوي 0 وبهذا لا يتحقق الشرط فالصواب حذف الصفر المضاف قبل متغير الموبايل mob = Sheets("Find").Range("G1").Value وجعل تنسيق الخلية G1 نص text حتى يقبل الصفر في البداية وهذا ما قمت به عندي من البداية

Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# AND #" & stopdt & "#" & _ IIf(mob = "", "", " AND [fdName16] = '" & mob & "'") & IIf(inv = "", "", " And [fdName1] = " & inv) & ";" تم تعديل شرط إذا كان أحد الخليتين فارغا وإعادة صياغة الاستعلام

أخي الكريم @خالد القدس لقد أخبر ك الأستاذ عبد الفتاح أنه يجب وضع مسار واسم الملف في متغير باسم filename ثم استعمال الكود السابق وبناء عليه يكون الكود هكذا كاملا وهذا دورك في استنتاجه dim FileName as strring FileName = "C:\Users\kj\Desktop\WOW\2021.xlsx" ActiveWorkbook.SaveAs FileName, , , , , , xlShared ملاحظتي الشخصية: معظم الاستفسارات ناتجة من أن بعض الأصدقاء لا يصبرون على التعلم وقراءة الموضوعات السابقة والبحث في المنتدى ومحاولة فهم الأكواد والمعادلات التي يعرضها عليهم غيرهم. بالتوفيق للجميع

اقصد إحاطة القيم بعلامتين تنصيص وليس اسم الحقل Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# AND #" & stopdt & "#" & _ IIf(mobi = "" And invois = "", "", " AND ([fdName16] = '" & mobi & "' OR [fdName1] = " & invois & ")") & ";" لو ارفقت مثالا كان أفضل من كل هذا الشغل النظري الذي لا يفيد

عدم إعطاء اي نتائج لها احتمالات كثيرة منها: * عدم وجود نتائج فعلا في قاعدة البيانات تنطبق عليها هذه الشروط. * احتمال وجود اختلاف في نوع البيانات بين الحقول في الأكسس والخلايا في اكسل. فإذا كانت الحقول في الأكسس نصية فيجب احاطتها بعلامتين تنصيص. بالتوفيق

يمكن الاستغناء عنها في حالة عدم حدوث أخطاء محتملة وفي حالة وجود أخطاء محتملة يمكن استعمال شرط إذا كان رقم الخطأ كذا ينفذ كذا if err.number = 0 then 'your message end if مع استبدال رقم 0 برقم الخطأ

جرب هذه المعادلة في D2 =INDEX(codes!B$2:B$30, MATCH(INT(MID(B2, 8, 2)), codes!A$2:A$30,0)) بالتوفيق

لا يوجد مشكلة ضع كود الاستدعاء في حدث عند الضغط على زر الإعلاق renameMe me.fieldName مع استبدال اسم الحقل بما تريد ولعدم فتح القاعدة بعد إعادة التسمية يمكنك حذف هذا السطر من الإجراء s = s & """" & accesspath & """ """ & CurrentProject.Path & "\" & newname & "." & ext & """" & vbCrLf بالتوفيق

بعد إذن أخينا الأستاذ إبراهيم تفضل بإذن الله هذا ما تريد mas_filter_data.xlsx

رائع جدا بارك الله لك

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

ربما تحتاج بعض الأكواد لتعديل لتناسب نسخة 46 بت بإضافة كلمة ptrsafe قبل كلمة function يفضل إرفاق مثال للتوضيح

جميعا بإذن الله بالتوفيق

هذا ما تم عمله: المعادلة على شرط تشابه القراءة السابقة والحالية في جميع الماكينات في المعادلة السابقة المعادلة نتائجها مضبوطة على الخمس سجلات الموجودين