أ / محمد صالح

من الواضح في الصورة ان اتجاه الصفحة افقي landscape وهذا يصعب المهمة في وضع صفحتين افقيتين في صفحة افقية لذا اقترح ان تكون صفحة تحت صفحة في التصميم وتتم طباعة الاثنين في صفحة واحدة راسيا

من المفترض أن يظهر زر يخبرك بأن القاعدة تحتوي على ماكرو والضغط عليه واختيار تمكين المحتوى enable content يتم تفعيل الماكرو وربما تكون اسماء الماكرو او العناصر باللغة العربية وربما تكون نسخة البرنامج 32bit والويندوز الجديد 64bit الاحتمالات كثيرة

يفضل إرفاق الملف او مثال منه

حتى لا يتشعب الموضوع بالنسبه الي عدم ظهور اسم المستخدم نفسه في قائمه المتواجدين حاليا هذا يعني اعتراف ان قائمه الموجودين حاليا موجوده وتعرض اسماء اخري ولكن اسم المستخدم ليس ضمن هذه القائمه. الاحتمال الثاني ان قائمه المتواجدين حاليا لا تظهر نهائيا (هذا يكون خللا فنيا في الموقع وهذا غير صحيح لظهورها عند الكثير) او يظهر ان المتواجدين عددهم 0 (هذا عادي جدا) الحل في الاحتمال الاول هو مراجعه اعدادات الحساب كما أخبرت سابقا اما بالنسبه للاحتمال الثاني فتظهر قائمه المتواجدين حاليا اسفل الصفحه الرئيسيه للمنتدى ويظهر فيها جميع المتواجدين في المنتدى حاليا وهي القائمة الأكبر عددا و تظهر ايضا اسفل كل قسم مثلا قسم الاكسس يظهر المتواجدين في هذا القسم فقط وهي اقل من القائمة الأولى و تظهر ايضا اسفل كل موضوع في المنتديات وهي أقلهم عددا وفي الأخير ينبغي على المستخدم كل فترة محو بيانات المتصفح clear browsing data حتى تظهر المواقع باعدادات حديثة بالتوفيق

بالضغط على اسم المستخدم أعلى يسار الموقع وتختار إعدادات الحساب (في الموبايل تختار حساب ثم إعدادات الحساب)

ليس الجميع يظهر لمن جعل حسابه مرئيا في إعدادات الحساب ويختفي عن الجميع حتى نفسه من اختار إخفاء

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

رغم عدم الرد على السؤال الذي هو جزء من فهم المطلوب لكن جعلنا الله من المحسنين جميعا تفضل هذا ملفك بعد التعديل تم وضع تاريخ البداية والنهاية في خليتين تم وضع معادلة تجلب خلية واحدة ينطبق عليها الشروط واذا كان من المحتمل وجود اكثر من علاوة بين التاريخين يمكن سحب المعادلة افقيا بالتوفيق اظهار تاريخ فى مدة زمنيه محددة.xlsx

تفضل أخي الكريم تم اجراء بعض التعديلات حتى تتناسب مع الكود والتكرار بالتوفيق تكرار الخلايا بالكود.xlsm

لاضافة دالة معرفة الى ملفك اضغط alt+f11 لفتح نافذة ال vba من قائمة insert اختر module الصق كود الدالة في الموديول وفي الخلية المطلوب اظهار جمع الارقام اكتب =sumparts(A1) حيث ان A1 هي الخلية التي تحتوي على العدد المراد تقسيمه بالتوفيق

يوجد ضمن اعدادات الحساب الحماية والخصوصية والتي تتحكم في كون المستخدم مرئيا online او مخفيا hidden ربما تكون عدلتها بغير قصد بالتوفيق

الكود لا علاقة له بنت فريم وورك لكن له علاقة بسرعة خط الانترنت لديك ملفك يعمل عندي بدون مشاكل حتى باستخدام دوال vlookup لكن مع تعديل وهو تحديد الصفوف من 6 إلى كذا على العموم هذه آخر محاولة مني على ملفك: تم الاستغناء عن فتح برنامج الواتس آب عن طريق ارسال الرابط لمتصفح انترنت اكسبلوورر وفتحه عن طريق مستكشف الويندور windows explorer مع نقل التركيز الي البرنامج مباشرة (فلن تحتاج الي الضغط علي ايقونة البرنامج في شريط المهام) جرب هذا ملف يرسل لأرقامي للتجربة كل ما عليك فعله بالترتيب: * تشغيل برنامج الواتس للكمبيوتر وربطه بالموبايل وتجهيزه علي الارسال مع بقاء الموبايل مفتوحا * فتح ملفك المرفق في هذه المشاركة والضغط على ارسال الرسائل * ترك الكود يفتح البرنامج ويكتب نص الرسالة ويضغط انتر بدون تدخل منك بالتوفيق Send Via Whatsapp للتجربة.xlsm

جرب المعادلة التالية في الخلية E1 =MID(A1,FIND("الاسم:",A1)+6,FIND("القسم",A1)-1-FIND("الاسم:",A1)-6) بالتوفيق

يمكنك استعمال هذا الاجراء Sub twolines2columns() Range("A2:A21").TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:=Chr(10), FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True End Sub لاحظ ان رمز السطر الجديد هو chr(10) بالتوفيق

الملف فارغ من اي أكواد

مفيش مشكلة جرب هذا المعادلة =MAX(IF(A:A=H2, D:D)) ولكن مع ضغط ctrl+shift+enter لأنها معادلة مصفوفات

ما نسخة الاوفيس لديك؟ ربما هي السبب

يمكنك وضع هذه المعادلة في الخلية C2 =IF(COUNTIFS(A$2:A2,A2,B$2:B2,B2)=0,"",IF(COUNTIFS(A$2:A2,A2,B$2:B2,B2)>1,MINIFS(C$1:C1,A$1:A1,A2,B$1:B1,B2),COUNT(C$1:C1)+1)) إن شاء الله تكون هي المطلوبة

هل ما تذكره بعد التجربة ام مجرد تخمين ؟ على العموم جرب هذا التعديل If Me.ComboBox2.Value = cstr(ws.Cells(i, "AH").value) Then بالتوفيق

بعكس الحاجات المذكورة في المشاركة السابقة تقليل معادلات البحث عدم وجود معادلات في صفوف فارغة تحويل بعض المعادلات الي اكواد تحويل الملف لامتداد يدعم السرعة والحجم القليل مثل xlsb وغيرها الكثير

جرب استعمال هذه المعادلة في الخلية F1 =CONCATENATE(A1,B1,C1,D1,TEXT(E1,"yyyy/mm/dd")) بالتوفيق

جرب حذف val من هذا الشرط If Val(Me.ComboBox2.Value) = ws.Cells(i, "AH") Then ليصبح If Me.ComboBox2.Value = ws.Cells(i, "AH") Then

كثرة المعادلات وخصوصا معادلات البحث والمعادلات في الصفوف الفارغة هي التي تبطئ الملف يمكن ضبط ملفك بحيث يستهلك وقتا اقل

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

على افتراض ان الخلية التي تحتوي على الرقم هي A1 يمكنك استعمال المعادلة التالية =IF(A1>60,25,IF(A1>30,10,0)) وهي تحتوي على معادلتين اف متداخلتين بالتوفيق