بن علية حاجي

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

السؤال غير مفهوم البتة (غامض) لمن تريد حساب النسب المئوية (العلامات، السن ...)؟ يجب إرفاق ملف يُعمل عليه حبذا أن يمثل بعض النتائج المنتظرة...

هناك مشكلة عند محاولة تحميل الملف...

السلام عليكم ورحمة الله حسب علمي أرى أن خاصية عدم تكرار الاسم في القرعة (في عملية واحدة) مُمكّنة بهذا الأمر (السطر) في الكود: If Obj.Exists(tx) Then GoTo 11 والله أعلم

السلام عليكم جرب الملف المرفق بعد إضافة كود في حدث الورقة يقوم بما تريده... بن علية Daily.rar

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

السلام عليكم ورحمة الله في مشاركتك الأخيرة، ما هو الشيت الذي تريد نقل الكود إليه؟ إذا كان هو الشيت "55" فقد قمت بوضع الكود فيه ويعمل جيدا... ثم إن الملف الذي أرسلته لا يوجد فيه أي كود باعتبار أنه بصيغة .xlsx الذي لا يقبل الأكواد... فعند إضافة كود في ملف بهذه الصيغة يجب حفظه بإحدى الصيغ التي تقبل الأكود مثل .xlsm أو .xlsb (الأفضل)... في انتظار ردك تقبل ودي واحترامي بن علية

السلام عليكم ورحمة الله أخي الكريم، ردا على مشاركتيك ما قبل الأخيرة أقدم لك لك الملف التالي وفيه بعض الشرح لما تم عمله... بن علية قائمة منسدلة مفلترة.rar

السلام عليكم ورحمة الله الظاهر أننا تقدمنا في السن لأني لا أتذكر البتة مشاركتي في الموضوع... وقد أدرجت الكود التالي في حدث الورقة (وهو يعمل مع كل خلايا العمود b): Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 2 Then [J1].Value = ActiveCell.Value End If End Sub بن علية قائمة منسدلة مفلترة.rar

السلام عليكم ورحمة الله بعض التعديل على كود أخي زيزو، لكني أتحفظ كثيرا على التعديل (ضعف معرفتي بالأكواد) -ثقيل جدا عند تعدد البيانات-... أرجو من السادة المتمكنين من تخفيفه... بن علية Book1_2.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، لم أجد في الملف الكود الذي يدرج الصور وبحثت عنه في المنتدى وقمت بإدراجه في الملف... ولاحظت خطأين في معادلة إدراج الصورة في الخلية F1 وتم التصحيح... أرجو أني أتيت بما يغنيك عن السؤال... أخوك بن علية TIME SHEET.rar

السلام عليكم ورحمة الله جرب الملف المرفق لعل فيه ما تريد... تم تعديل طفيف في كود اليوزرفورم (الخاص بالطباعة والتسجيل) بإضافة كلمة Value لكلمة tbDate بالشكل tbDate.Value عند تسجيل الفاتورة في الجدول لإدراج تاريخ الفاتورة كقيمة... مع تغيير كل التواريخ الموجودة في العمود B إلى قيم بتنسيق التاريخ... أرجو أن يكون المطلوب... بن علية ملاحظة: تم أيضا اختصار المعادلة موضوع الخطأ الموجودة في الخلية L2... f1.rar

وعليكم السلام ورحمة الله لعل نسخة الأوفيس التي تعمل عليها باللغة الفرنسية... يقابل بالفرنسية بالدالة VLOOKUP الدالة RECHERCHEV وبالدالة IF الدالة SI... جرب هذه الدوال وأعلمنا بما يكون... بن علية

السلام عليكم ورحمة الله معذرة على هذا الخلل، لم أتمم وضع كل المعادلات اللازمة في الجدول... وقد تم التعديل في الملف المرفق... راقب كل النتائج المستدعاة وردّ علي في حالة وجود أخطاء مع تحديدها... بن علية summary_2.rar

السلام عليكم ورحمة الله جرب الملف المرفق لعل فيه ما تريد..... بن علية Book1.rar

السلام عليكم تم عمل المطلوب بالمعادلات مع بعض التعديلات على تنسيقات الملف... بن علية summary.rar

وأين مصدر البيانات؟؟

السلام عليكم ورحمة الله من المفروض أن تفتح موضوعا جديدا خاصا بطلبك... بالنسبة لمعادلاتك الخاصة بحساب (ضرب الكمية في قيمة الوحدة) كانت فيها بعض الأخطاء مثل : السعر 1 جنيه و 4 قروش مضروب في الكمية 20 تعطي 20 جنيه و 80 قرش وليس 28 جنيه و 0 قرش كما وضعت في ملفك... المهم تم تعديل كل المعادلات على أمل أن تفي بالغرض... بن علية الملف المرفق الصحيح: فاتورة 4.rar

السلام عليكم تم تعديل على بعض المعادلات أرجو أن تفي بالغرض... بن علية فاتورة 3.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، أقترح أن تستعمل الدالة WEEKNUM مع اختبار شفعية العدد (زوجي أم فردي) الذي تعطيه هذه الدالة ثم إعطاء الحرف A (لرقم الأسبوع الفردي مثلا) والحرف B (لرقم الأسبوع الزوجي مثلا)... والله أعلم المعادلة التالية يمكن تفي بالغرض المطلوب: =IF(MOD(WEEKNUM($A$1;14);2)=1;"A";"B") بن علية

السلام عليكم ورحمة الله لست أدري إن كنت قد استوعبت المطلوب... في الملف المرفق تم التعديل على كود أخي الحبيب ياسر بما فهمته... (أضفت لنتائج البحث العمود الخاص بالتاريخ لتأكيد صحة المخرجات). بن علية SERCH_ARRY salim.rar

السلام عليكم ورحمة الله ما قدمته أخي الحبيب "ياسر خليل" يفوق كل تصور، جازاك الله خير ووفقك لكل خير... وقد حاولت أن أفهم عمل الكود ولكن دون جدوى... والشيء الوحيد الذي أعتقد أني فهمته هو أن الخلل في بعض النتائج الخاطئة سببه هو "تنسيق المتغيرات" المستعملة في الكود... لذا أقترح حذف السطرين التاليين من الكود (أو إلغاؤهما) وهما السطرين : Option Explicit و Dim X, Y(), I&, J&, K, cl&, T& والتعديل في الملف المرفق... ملاحظة: تم إضافة "زر" RUN لتنفيذ الكود... ويبقى دائما الكود رائعا... بن علية Stock YasserKhalil Officena.rar

السلام عليكم ورحمة الله جرب الملف المرفق لعل فيه ما تريد... بن علية stock.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تم المطلوب بإذن الله... بن علية TIME2016.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، ممكن جدا ما تطلبه إذا وُجد ملف للتطبيق... ملاحظة: لم ترفق أيضا ملفا لطلبك على الخاص... بن علية