أ / محمد صالح

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

شكرا لكلماتك الطيبة المهم أن نتعلم من الإجابات

ربما تفيدك هذه المواضيع https://www.officena.net/ib/search/?q=الباركود الاكسل&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

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

لعمل هذا الأمر يجب وضع التصنيف في قائمة التحقق من الصحة حتى لا تختلف الاختيارات ومصدرها الخلايا في العمود G وتم وضع المعادلة التالية في الخلية E4 =IF(A4=G$1,C4/D4,D4/C4) ويمكنك سحبها لاسفل بالتوفيق معدل سيارات.xlsx

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

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

نسبة نجاح تحويل ملفات pdf إلى اللغة العربية لا تتجاوز 60 بالمائة ويمكنك استعمال التدقيق الاملائي مع التصحيح اليدوي وربنا يعينك

للأسف لا يمكن استخدام خاصية الحماية مع دمج المراسلات

هل معنى هذا انها صفحة واحدة وتريد طباعتها 7000 مرة ؟ مع تغييير رقم الاستمارة في كل مرة قبل الطباعة ؟

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

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

بعد تحميل الملف من ميديا فاير لا توجد أي رسائل تخبر أن الملف تالف

إن شاء الله قريب جدا وستكون بمقابل بسيط نظرا للمجهود والوقت الذي بذل فيها تحياتي

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

تم رفض الوصول إلى الملف

بعد إذن حبيبي @Ali Mohamed Ali هذه مشكلة معروفة مع دالة vlookup أنها لا تجلب نتائج من عمود يسبق عمود البحث ولكن الحل معها استعمال هذا الشرط لعكس اتجاه البحث فتصبح المعادلة =VLOOKUP(J7,IF({1,0},$C$7:$C$11, $B$7:$B$11),2,FALSE) أو =VLOOKUP(J7,IF({0,1},$B$7:$B$11,$C$7:$C$11),2,FALSE) بالتوفيق

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

يوجد في منتدانا الرائع مشاركات كثيرة في هذا المجال هذه بعضها https://www.officena.net/ib/search/?q=تحويل المعادلات كود&updated_after=any&sortby=relevancy&search_and_or=and إن شاء الله تجد ما تريده فيها

في خصائص النموذج * غير خاصية height إلى 500 مثلا * وخاصية scrollbars إلى 2 vertical * وخاصية scrollheight إلى الرقم الذي كان في خاصية height سيظهر شريط تمرير يمكنك من رؤية باقي أجزاء النموذج بالتوفيق

يمكنك استعمال دالة الجمع المشروط sumif =SUMIF(A:A,D1,C:C) حيث d1 هي الخلية التي تحتوي على الاسم المراد جمع الأرقام المقابلة له بالتوفيق

يا أخي الكريم كل هذا افتراض منا لأنك لم ترفع ملفا أو تحدد ما تحتاجه تمام التحديد من يعرف أساسيات البرمجة ب vba يعرف أنه يمكنك تحديد أي عدد من الأعمدة بكتابته بدلا من 10 ويعرف أيضا أنه لإخفاء الصفوف نغير كلمة columns إلى rows ويعرف أيضا أن cells تحتاج إلى رقم الصف ثم رقم العمود وتغيير مكان العداد n هو الذي يحدد اتجاه الإخفاء فلو كانت n في الرقم الثاني قهي تمثل العمود وإذا وضعتها في الرقم الأول فهي تمثل الصف وهذا الكود ربما يفيدك Sub hideblank() For n = 1 To 10 If Cells(1, n) = "" Then Columns(n).Hidden = True Next n For n = 1 To 10 If Cells(n, 1) = "" Then Rows(n).Hidden = True Next n End Sub Sub showblank() Columns("a:j").Hidden = False Rows("1:10").Hidden = False End Sub أرجو أن يكون الأمر قد اتضح وفي الأخير أرجو من الله أن يتقبل تطوعي هذا في حل مشكلات الآخرين سواء قدروا أو لم يقدروا

مشكلة عدم جمع الوقت سببها اختلاف القيمة في الخلية عن قيمة الوقت لذلك يجب إولا إصلاح قيمة الخلية بهذا الاجراء Sub mas() For n = 2 To Cells(Rows.Count, 4).End(xlUp).Row Cells(n, 4).Value = Cells(n, 4).Text Next n End Sub ستجد بعدها خلية المجموع تعمل وللحصول على الإجمالي بالدقائق يمكنك تغيير تنسيق الخلية I2 إلى عام وكتابة المعادلة التالية =INT(SUM(D2:D233)*24*60) بالتوفيق

دعنا نفترض إذا كان الصف الذي يخبر ان العمود فارغ هو الصف الأول وعدد الاعمدة 10 يمكنك استدعاء هذا الكود قبل الطباعة Sub hideblank() For n = 1 To 10 If Cells(1, n) = "" Then Columns(n).Hidden = True Next n End Sub وهذا الكود لإظهار الأعمدة المخفية Sub showblank() For n = 1 To 10 If Columns(n).Hidden Then Columns(n).Hidden = False Next n End Sub بالتوفيق