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 تحتوي على الوقت الحالي فقط

تحياتي لكم

محمد