أ / محمد صالح

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

نسبة نجاح تحويل ملفات 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 بالتوفيق

ربما لأنك كتبت الشرط على سطرين يجب جعل السطرين باللون الأحمر في سطر واحد

صمم صفحة البحث ثم اعد رفع الملف ليتم وضع معادلة البحث وبالتوفيق

لاضافة الكود كلك يمين على اسم الشيت ثم view code ثم لصق هذا الكود بالتوفيق

جميعا بإذن الله 👍🌹😍

تم إضافة الشرطين شرط اسم الشيت يكون data وشرط قيمة الخلية لا تساوي "" أو " " يفضل فهم الكود أولا قبل تطبيقه في الملف حتى يمكنك تنفيذ هذه الشروط بمفردك بعد هذا Sub Add() If ActiveSheet.Name = "data" Then Dim FR For FR = 10 To 50 If Cells(FR, 3) <> "" And Cells(FR, 3) <> " " Then Cells(FR, 3) = Val(Cells(FR, 3)) + 1 End If Next MsgBox "plus 1 add to all" End If End Sub بالتوفيق

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