طارق محمود

السلام عليكم هذا الماكرو تنسخه في ملفك الشخصي وليس في الملف المراد العمل عليه تفضل Sub Macro1() ' ' Macro1 Macro ' ActiveSheet.DisplayRightToLeft = True a = Range("g2").Value b = Range("g3").Value With ActiveSheet.PageSetup .Orientation = xlLandscape .LeftMargin = Application.InchesToPoints(0.236220472440945) .RightMargin = Application.InchesToPoints(0.236220472440945) .TopMargin = Application.InchesToPoints(0.748031496062992) .BottomMargin = Application.InchesToPoints(0.748031496062992) .HeaderMargin = Application.InchesToPoints(0.31496062992126) .FooterMargin = Application.InchesToPoints(0.31496062992126) .CenterHeader = a & Chr(10) & b .LeftFooter = "&P" End With Columns("G:G").Select Selection.Delete Shift:=xlToLeft Rows("1:4").Select Selection.Delete Shift:=xlUp End Sub

السلام عليكم أضف شرطا آخر في المعادلة للعمود الثالث لايساوي صفرا =COUNTIFS(A:A,"m",B:B,"a",C:C,">0")

السلام عليكم أخي العزيز مامعني ينتهي يتم إغلاقه أوتوماتيكيا أم يتم حذفه من الكومبيوتر؟

السلام عليكم أخي العزيز تقصد أن الملفات 2003 وتود تحويلها إلي 2007 إذا كان كذلك ، فقط تتبع التالي 1. تفتحها من 2007 (سيقبل فتحها لأن نسختها أقل منه) 2. تحفظ منها نسخةأخري save as بفورمات 2007 أنظر الصورة

أخي اسماعيل السلام عليكم الرد في التالي بالأحمر فهل لي ان اطلب من حضرتكم اضافه اخرى : ان يحذف الحساب عندما يكون المبلغ يساوي صفر دينار . فضلت ولك الخيار ، فقط أخبرني، أن أتركه بلاحذف ولكن بالتنسيق الشرطي يعطي إشارة أن الحساب صفر اخوك : اسماعيل تفضل المرفق _____ ______4.rar

السلام عليكم أخي الحبيب هشام جعلني الله عند حسن ظنكم أعرف أن ماقلت هذا إلا تواضعا من تواضع العلماء زادك الله من فضله العظيم

أخي هشام لم أري مشاركتك أنا متأكد من الكفاءة والقدرة التي تتميز بهما سأراها الآن

تم عمل تصفية (فلتر) لإخفاء باقي البيانات وإضافة زر آخر لإنهاء التصفية وتم إضافة ورقة جديدة 2 لتكون صفحـة التسديد عند النقر علي الزر الأصفر في صفحـة التسديد يتم تحديد الحالة أولا: إذا الإسم موجود قبل ذلك في الورقة 1 سيتم إلغاء البيانات القديمة وتوضع مكانها هذه البيانات الجديدة ثانيا: إذا الإسم غير موجود قبل ذلك في الورقة 1 أي إسم جديد فسيتم إضافته مع بياناته لقائمة الأسماء في الورقة 1 قبل آخر إسم موجود بها وفي جميع الحالات سيتم محو البيانات من صفحـة التسديد بعد ترحيلها _____ ______3.rar

أخي الحبيب أحمد جزاك الله خيرا بعض ماعندكم

لتقليل مستوي أمان الماكرو في 2007 أنظر الصورة

أعتقد أن خيارات أمان الماكرو عندك عالية لابد أن تكون منخفضة لأن الملف المذكور كله قائم علي الماكرو

أخي إسماعيل السلام عليكم مرحبا بك بين إخوانك في المرفق 1. إذا تكرر الإسم يتم تلوين الصف بأكمله للإسمين المكررين باللون الأحمر (تنسيق شرطي) 2. يتم إختيار الإسم في الخلية A1 من الأسماء بقائمة منسدلة (سهم صغير يسار الخلية A1) عن طريق تحديد البيانات من A3:A1002 . وطبعا يمكنك تغيير هذا 3. بالضغط علي الزر المطلوب يذهب المؤشر إلي الصف الذي به الإسم تفضل _____ ______2.rar

السلام عليكم أخي يحي لقدد حببت إلي معادلات الصفيف والـ sumproduct جزاك الله خيرا

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

ثاني وسيلة باستخدام COUNTIF مع MOD أنظر المرفق st2.rar

السلام عليكم أول وسيلة وأسهلها الجداول المحورية مع خيار التجميع أنظر المرفق st1.rar

السلام عليكم ماشاء الله أخي هشام مبدع دائما كود جميل لاأدري لماذا ظننت الأخ imaginlife لايريد كود هذا من خير المنتدي والتجمع فيه

1. ليس سهلا أن تظهر الجداول المحورية بنفس الطريقة التي كونتها أنت يدويا في ورقة سندات القبض فلابد من التحايل وتطويع طلبك علي الجداول المحورية 2. ممكن أخذ نسخة (قيم فقط) من بيانات الجداول المحورية لأي مكان آخر والتعامل معها كما تحب 3. تم تعديل معادلة الدفتر ليكون كل دفتر بجمع كل 25 سند قبض متتاليين 4. العمليات التي لم يحرر لها سند قبض كما في مشاركتي الأولي هي أنظر المرفق Qabd_Imajin2.zip

السلام عليكم يمكنك إضافة شرط أن يضع صفر في حالة الخطأ =IF(ISERROR(EEEEEEEEEEEE)=TRUE,0,EEEEEEEEEEEE) حيث EEEEEEEEEEEE هي المعادلة الأصلية التي قد ينتج عنها خطأ ويمكنك إستبدال الصفر بفراغ "" في المعادلة السابقة

مازلت أري أن الجداول المحورية مناسبة لحالتك أرجو مراجعة المرفق وإن رأيت كما أري فلابد من تعلمها وستجد شرحها متوفر بكثرة في المنتدي بقليل من البحث والتعلم ستجيدها إن شاء الله Qabd_Imajin1.zip

السلام عليكم بعد إذن أخي imaginlife تم عمل نسخة من رقم الحساب الموجود في العمود I في ورقة sheet111 إلي العمود ِِA في نفس الورقة وبذلك يمكن جلب البيانات عن طريق الـدالة VLOOKUP وأيضا تم إضافة شرط أن يضع صفر في حالة عدم وجود رقم الحساب IF(ISERROR(.....)=TRUE,0 تفضل المرفق CUSTOMERS1.rar

السلام عليكم أخي العزيز ، أري أن تستخدم الجادول المحورية أنظر المرفق إذا أردت أت تراجع أي بيان في الجدول المحوري في الورقة PV_T فما عليك إلا أن تنقر عليه مرتين فيكون ورقة جديدة بها البيانات المطلوية مثلا في آخر الجدول المحوري تجد البيان (blank) ويشير إلي المبالغ المدونة بلا رقم سند القبض ومجموعها 27,212.0 فإذا نقرت عليه بالماوس مرتين (دبل كليك) فسوف يكون ورقة جديدة بها البيانات للمبالغ المدونة بلا رقم سند القبض راجع وأخبرني رأيك Qabd_Imajin.zip

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

السلام عليكم لقد قمت ببعض التعديلات أرجو أن تكون مفيدة أولا : لابد من تحديد الأصناف وذلك في المجال الأخضر J9:J29 في ورقة المخزون ثانيا : تم تحديد الأصناف في فواتير البيع و الشراء حسب المجال الأخضر J9:J29 المذكور وذلك لمنع الأخطاء الإملائية والفراغات وخلافه وطبعا يمكنك زيادة الأصناف في المجال الأخضر J9:J29 بإلازاحة لأسفل ثالثا : بجوار المجال الأخضر المذكور يمكنك وضع أسعار البيع والشراء مرة واحدة لجميع الأصناف طبعا أنت تلغي كل الأحمر وتضع الأسعار من عندك رابعا : المعادلة الموجودة في فواتير البيع و الشراء في العمود E تعطيك المتاح في المخزن للصنف المقابل لحظيا خامسا : المعادلة الموجودة في فواتير البيع و الشراء في العمود D تعطيك سعر البيع الموجود في المجال الأخضر للصنف المقابل لحظيا حسب وقتي يكفي هذا الآن ، وسوف أتمم لك عملية الترحيل فيما بعد إلا أن يتدخل أحد الإخوة الأكارم تفضل المرفق _______1.rar

السلام عليكم أخي العزيز يمكنك مراجعة الرابط أدناه لأستاذنا العزيز / هادى محمد المامون سالم http://www.officena.net/ib/index.php?showtopic=12203&st=0 أو أنقر هنـــا