zxzxzxz

هلا فيك اخي خبور خير صراحة واقع بالمشكلة هذه لي شهر... البيانات عارف ان حجمها كبير جدا لكن ماذا تقترح؟ هل تعتقد ان الاكسس راح يكون اسرع من الاكسل بمعالجة هذا النوع من البيانات؟ تحياتي لك

اخي خبور خير واخي kemas شكرا لكم على الملفات والاكواد وهي تعمل بشكل سليم لكن واجهتني مشكلة وهي حجم البيانات التي استخدمها صراحة اريد تطبيق الكود على الخلايا e2:e54000 وعند محاولة تطبيق الخلايا احصل على رساله مفادها ان حجم الرينج كبير Run-time error 6 Overflow وانا اريد تطبيق معادلة VBA بدلا من دالة الاكسل حتى اسرع عملية الحساب ... ولكن تفاجاة برسالة الاررروررر هل هناك حل اخر او اضافة على الاكود اعلاه ؟ وهل هناك عملية تحسب المعادلة بشكل اسرع مع حجم هذه البيانات؟ تحياتي للجميع

تحت التجربة ....

اخي kemas ياليت تطبقها على الملف المرفق اعلاه لاني حاولت واعطاني رسالة ارررررور تحياتي

السلام عليكم مرفق مثال لكم Test.zip

هلا بك باكسل 2007 و 2010 تحصل شي اسمه Freeze Panes في التبويب view

السلام عليكم لدي معادلة تعمل بشكل صحيح واريد تحويلها الى كود VBA هل هذا ممكن اريد تطبيق هذه المعادلة على الخلايا من E2 الى E100 =SUMPRODUCT((DATA!B:B<$A2)*(DATA!M:M="MOHAMMED")*(DATA!A:A=$B2)*(DATA!W:W)) تحياتي لكم

دائما مبدع يامشرفنا العزيز فعلا هذا هو المطلوب ... لكن عندي فضول مافائدة الاقواس هذه{} بالدالة تحياتي لك -------------- اخي kemas شكرا على ردك ... انا مشكلتي بالصفوف وليس بالاعمدة تحياتي لك

السلام عليكم حاولت اعمل الاتي على شكل معادلة بالاكسل: اذا خلية E2 تساوي اي خلية من A2:A26 فاجلب البيانات التي في B C D انا ارفقت مثال للمطلوب ما اريد عمله هو كعمل دالة Vlockup لكن دالة Vlockup تنظر الى اول سطر وتتجاهل باقي السطور هل هذا ممكن عملة بالاكسل ؟ او لازم كود VBA تحياتي لكم Pro.zip

شكرا لك اخي الحسامي لقد استفدت منك كثيرا تحياتي لك

اخي الحسامي بعد البحث على النت حصلت الكود المطلوب ويقوم بنسخ الخلية D7 الى الخلية C7 كل دقيقة الكود هو Dim TimeToRun Sub auto_open() Call ScheduleCopyPriceOver End Sub Sub ScheduleCopyPriceOver() TimeToRun = Now + TimeValue("00:01:00") Application.OnTime TimeToRun, "CopyPriceOver" End Sub Sub CopyPriceOver() Calculate Range("c7").Value = Range("d7").Value Call ScheduleCopyPriceOver End Sub Sub auto_close() On Error Resume Next Application.OnTime TimeToRun, "CopyPriceOver", , False End Sub حاولت ادمج هذا الكود مع الكود الذي كتبته مشكورا لكن لم اوفق الان ما اريد عمله هو التالي: If A1=1 Then every minute do: Copy(F2:I2) Paste(F3:I3) Copy(B1:E9) Paste(B2:E10) Copy(F3:I3) Paste(B1:E1) If A1=0 do nothing اتمنى ان اجد منك المساعدة ولك مني كل الشكر والتقدير OK.zip

هلا اخي الحسامي شكرا لك على التعديل ... لكن انا لا اريد ان نذكر خلية L1 بالكود .... اريد ان يكون الكود مبني على متغيرات الخلية A1 فقط ... اذا هذا لا يمكن عمله ... فهل بالامكان ان نلغلي خلية A1 ونضع بالكود هذه الجملة (حدث الصفحة كل دقيقة) بحيث ينظر الكود الى ساعة الكمبيوتر وكل دقيقية يقوم بعملية النسخ ؟؟؟ تحياتي لك

شكرا لك اخي الحسامي ... فعلا هذا هو المطلوب ... لكن واجهتني مشكلة وهي : ماذا لو كانت الخلية A1 مربوطة بخلية اخرى او ببرنامج خارج الاكسل ... فان الكود لا يعمل عند تغير القيمة فالكود يعمل بجدارة حينما اقوم بادخال القيمة يدوياً للخلية A1 مرفق مثال تحياتي لك وشكرا لك على ابداعك 3333.zip

اخي الحسامي في البداية شكرا لك على الموضوع ... صراحة استفدت منه كثيرا ... ومحتاج استفيد اكثر منك حبيت اطبق المعادلة التالية بكود vba اذا A1 > 0 فانسخ B1:E9 والصقها في B2:E10 ثم انسخ F2:I2 والصقها في B1:E1 النسخ يكون للقيم فقط ... كلما تغيرت القيمة في الخلية A1 يقوم بالنسخ فاذا اصبحت القيمة 2 مثلا يقوم بالعملية ...الخ لا اريد زر (تطبيق) وانما اذا فتحت الاكسل يقوم الكود بالعمل تلقائياً تحياتي لك وبانتظارك Book1.zip