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

شكرا لكم جميعا وجزاكم الله الف خير تحياتي لكم

شكرا لك اخي مصطفى وشكرا لك اخي يحيى ... الملف المرفق من اخي يحيى هو المطلوب شكرا لكم وجزاكم الله الف خير تحياتي لكم

السلام عليكم شباب حبيت استخرج اكبر رقم من خلايا متفرقة، اكبر رقم موجود بالخلايا التالية A1 و A3 و A6 اذا B1 تساوي C1 و D1 تساوي 1 لدي اكثر من شرط لادخال الرقم بقائمة ماكس هل هذا ممكن بالاكسل؟ اريد ان استخدم دالة ماكس كدالة SUMIFS تحياتي لكم

السلام عليكم شباب انا دائما اضيف دالة ISERROR للمعادلة لتجنب الخطأ واستبدالة بالصفر هل هناك طريقة سهلة كالضغط على اختصار بالكييورد لاضافة هذه الدالة دون كتابتها يدويا؟؟؟ تحياتي لكم

للفائدة حصلت الجواب بمنتدى اجنبي الجواب بسيط يتم استبدال دالة =NOW() الى الدالة =MOD(NOW(),1) ويستخدم التنسيق hh:mm:ss لكل الخلايا تحياتي لكم

يا اخوان لو انا مو بحاجة المعادلة ما طرحت الموضوع اتمنى اي احد عنده حل يساعدني لان المعادلة ما تشتغل معي وشغلتها على جهاز ثاني وما اشتغلت تحياتي لكم

صباح الخير اخي يحيى :(

اخي يحيى شكرا لتفاعلك مع موضوعي لقد حاولت ولم انجح هل انت متاكد ان خلية A تحتوي على NOW وخلايا B تحتوي على بيانات الوقت بدون التاريخ وبدون NOW كما هي بالملف ؟؟؟ اتمنى ان ترفق الملف ولك الشكر مرفق صورة شكرا لك

هلا فيك اخي يحيى حسين للاسف المعادلة لا تعمل ... وحتى تتأكد من ذلك ... قم بتغيير الوقت الموجودة بالعامود B واجعله اكبر من الوقت الحالي (الوقت الذي فتحت فيه الملف) ستجد الناتج بالخلية C هو 1 والمفروض ان يكون 0 تحياتي لك

اممم 11 عضو اطلعوا على الملف وليس هناك رد هل هذا يوحي الى انه لا يوجد طريقة لحساب دالة NOW لان المشكلة هي ان (السيريل نمبر) لدالة NOW يمثل التاريخ والوقت الحالي (عند تحويل الخلية الى رقم) والداتا الموجودة بالخلايا B اذا تم تحويلها لرقم فهي تحتوي على سيريل الوقت فقط فكيف تتم المقارنة بينها؟؟؟ هل هناك حيل او افكار للمقارنة بينهما؟ أو هل يوجد دالة مثل دالة NOW تحتوي على الوقت الحالي فقط تحياتي لكم محمد