أ / محمد صالح

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

يمكنك استعمال دالة sumif أو sumifs

هذه ليست مشكلة إنما هي رسالة تخبر أن مشروع الأكواد vba في الملف لا يمكن عرضه (إخدى وسائل حماية صاحب الكود لأكواده)

بالتوفيق لا تنس اختيار أفضل إجابة والإعجاب بالمشاركات المفيدة لك

السؤال نظري فبالتالي الإجابة نظرية ولو كان في السؤال كود لعدلته لك

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

هل المقصود أنك إذا كتبت مثلا في الخلية V1 الرقم 1 يطبع شهادة واحدة فقط ولا تظهر الثانية بالأسفل وإذا كتبت 2 تظهر الشهادتان ؟؟

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

ما دام الترحيل تلقائيا والتعديل تلقائيا فيمكنك استعمال المعادلات فهي يتم تحديثها حسب المصدر وأبسط طريقة لجلب بيانات من شيت إلى آخر هو استعمال المعادلة التالية ='sheet name'!a1 وتعني إحضار قيمة الخلية a1 من الشيت المسمى sheet name وهكذا

يمكنك معالجة هذا الأمر بوضع رقم الصف أثناء الجلب في متغير وعند الإضافة يختبر إذا كان المتغير فارغا فيقوم بالإضافة وإلا فيتم التعديل في رقم الصف الموجود في المتغير

بالنسبة للمطلوب الأول يمكنك استعمال دالة rank وبالنسبة للمطلوب الثاني يمكنك دمج الخلايا التي تحتوي على مواد الرسوب بالمعامل & والله أعلم

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

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

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

أكرر نفس الكلام لأن لو فهمي لما تقوله صحيح (وهو أنك تريد بداية الترقيم من 1 في بداية كل يوم) فهذا ينافي كل قواعد البرمجة فيجب أن يكون لكل فاتورة رقم فريد لا يتكرر وهذا يكرر رقم الفاتورة في كل يوم مرة أخرى

الملاحظ في الملف ان الجميع يأخذ نفس الرقم في نفس التاريخ.

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

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

أعتقد أن المطلوب الأول مرتبط بنمط القائمة المختصرة في اكسل عموما وبالنسبة لتغيير faceid فهي مجموعة من الأرقام غير كما تشاء ويمكنك استعمال هذا الملف للتعرف على أشكال وأرقام أول 4000 من رموز الاكسل الرموز تظهر في تبويب جديد FaceID2.zip

أثناء حماية شيت الحل review --> protect sheet يمكنك تحديد اختيار use auto filter للسماح باستخدام التصفية التلقائية رغم وجود الحماية

تفضل أخي الكريم تم إنشاء إجراء لكل زر يقوم هذا الإجراء بإنشاء قائمة مختصرة حسب رقم العمود وفي أثناء إنشاء القائمة المختصرة يقرأ الخلايا الموجودة في الصفوف 22 وما بعدها في العمود المحدد ويضيفها إلى القائمة وتم إنشاء إجراء لكل شيت لفتحها بالتوفيق mas_Classeur1.xlsm

بالتوفيق لا تنسانا من صالح دعائك

كيف ليس هذا هو المطلوب؟ في السجل الأول تكتب أسماء الحقول بصورة طبيعية في السجل الثاني تضيف كلمة next record قبل أول حقل في السجل الثالث تضيف كلمة next record قبل أول حقل وهكذا مثال: الاسم: «name» العنوان: «address» الرقم: «mark» ************************* الاسم: «Next Record»«name» العنوان: «address» الرقم: «mark» ************************* الاسم: «Next Record»«name» العنوان: «address» الرقم: «mark» أليس هذا هو المطلوب بالنسبة لحضرتك؟ ولا أنا فهمت بطريقة غير صحيحة؟!!

بالنسبة للمطلوب الأول يمكنك استعمال هذا الإجراء Sub tar7eel() For n = 3 To 51 Sheets("خصم").Range("c" & n - 2).Value = Sheets("حساب").Range("f" & n).Value Next n MsgBox "Done" End Sub وبالنسبة للمطلوب الثاني في صفحة حساب يوجد في العمود f معادلة وإذا تم الترحيل من صفحة خصم إليها سيتم حذف المعادلة

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