zxzxzxz
-
Posts
26 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه zxzxzxz
-
-
اخي خبور خير
واخي kemas
شكرا لكم على الملفات والاكواد وهي تعمل بشكل سليم لكن واجهتني مشكلة
وهي حجم البيانات التي استخدمها
صراحة اريد تطبيق الكود على الخلايا e2:e54000
وعند محاولة تطبيق الخلايا احصل على رساله مفادها ان حجم الرينج كبير
Run-time error 6
Overflow
وانا اريد تطبيق معادلة VBA بدلا من دالة الاكسل حتى اسرع عملية الحساب ... ولكن تفاجاة برسالة الاررروررر
هل هناك حل اخر او اضافة على الاكود اعلاه ؟ وهل هناك عملية تحسب المعادلة بشكل اسرع مع حجم هذه البيانات؟
تحياتي للجميع
-
تحت التجربة ....
-
اخي kemas
ياليت تطبقها على الملف المرفق اعلاه
لاني حاولت واعطاني رسالة ارررررور
تحياتي
-
-
-
هلا بك
باكسل 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
تحياتي لكم
-
شكرا لك اخي الحسامي
لقد استفدت منك كثيرا
تحياتي لك
-
اخي الحسامي
بعد البحث على النت حصلت الكود المطلوب ويقوم بنسخ الخلية 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
اتمنى ان اجد منك المساعدة ولك مني كل الشكر والتقدير
- 1
-
هلا اخي الحسامي
شكرا لك على التعديل ... لكن انا لا اريد ان نذكر خلية L1 بالكود ....
اريد ان يكون الكود مبني على متغيرات الخلية A1 فقط ...
اذا هذا لا يمكن عمله ...
فهل بالامكان ان نلغلي خلية A1 ونضع بالكود هذه الجملة (حدث الصفحة كل دقيقة)
بحيث ينظر الكود الى ساعة الكمبيوتر وكل دقيقية يقوم بعملية النسخ ؟؟؟
تحياتي لك
-
شكرا لك اخي الحسامي ...
فعلا هذا هو المطلوب ... لكن واجهتني مشكلة وهي :
ماذا لو كانت الخلية A1 مربوطة بخلية اخرى او ببرنامج خارج الاكسل ... فان الكود لا يعمل عند تغير القيمة
فالكود يعمل بجدارة حينما اقوم بادخال القيمة يدوياً للخلية A1
مرفق مثال
تحياتي لك وشكرا لك على ابداعك
-
اخي الحسامي
في البداية شكرا لك على الموضوع ... صراحة استفدت منه كثيرا ... ومحتاج استفيد اكثر منك
حبيت اطبق المعادلة التالية بكود vba
اذا A1 > 0 فانسخ B1:E9 والصقها في B2:E10 ثم انسخ F2:I2 والصقها في B1:E1
النسخ يكون للقيم فقط ...
كلما تغيرت القيمة في الخلية A1 يقوم بالنسخ فاذا اصبحت القيمة 2 مثلا يقوم بالعملية ...الخ
لا اريد زر (تطبيق) وانما اذا فتحت الاكسل يقوم الكود بالعمل تلقائياً
تحياتي لك وبانتظارك
-
شكرا لكم جميعا
وجزاكم الله الف خير
تحياتي لكم
-
شكرا لك اخي مصطفى
وشكرا لك اخي يحيى ...
الملف المرفق من اخي يحيى هو المطلوب
شكرا لكم وجزاكم الله الف خير
تحياتي لكم
-
السلام عليكم
شباب حبيت استخرج اكبر رقم من خلايا متفرقة، اكبر رقم موجود بالخلايا التالية A1 و A3 و A6
اذا B1 تساوي C1 و D1 تساوي 1
لدي اكثر من شرط لادخال الرقم بقائمة ماكس
هل هذا ممكن بالاكسل؟
اريد ان استخدم دالة ماكس كدالة SUMIFS
تحياتي لكم
-
السلام عليكم
شباب انا دائما اضيف دالة ISERROR للمعادلة لتجنب الخطأ واستبدالة بالصفر
هل هناك طريقة سهلة كالضغط على اختصار بالكييورد لاضافة هذه الدالة دون كتابتها يدويا؟؟؟
تحياتي لكم
-
للفائدة
حصلت الجواب بمنتدى اجنبي
الجواب بسيط
يتم استبدال دالة
=NOW()
الى الدالة=MOD(NOW(),1)
ويستخدم التنسيق hh:mm:ss لكل الخلايا
تحياتي لكم
-
يا اخوان لو انا مو بحاجة المعادلة ما طرحت الموضوع
اتمنى اي احد عنده حل يساعدني
لان المعادلة ما تشتغل معي
وشغلتها على جهاز ثاني وما اشتغلت
تحياتي لكم
-
صباح الخير اخي يحيى :(
-
-
هلا فيك اخي يحيى حسين
للاسف المعادلة لا تعمل ...
وحتى تتأكد من ذلك ... قم بتغيير الوقت الموجودة بالعامود B واجعله اكبر من الوقت الحالي (الوقت الذي فتحت فيه الملف)
ستجد الناتج بالخلية C هو 1
والمفروض ان يكون 0
تحياتي لك
-
اممم
11 عضو اطلعوا على الملف وليس هناك رد
هل هذا يوحي الى انه لا يوجد طريقة لحساب دالة NOW
لان المشكلة هي ان (السيريل نمبر) لدالة NOW يمثل التاريخ والوقت الحالي (عند تحويل الخلية الى رقم)
والداتا الموجودة بالخلايا B اذا تم تحويلها لرقم فهي تحتوي على سيريل الوقت فقط
فكيف تتم المقارنة بينها؟؟؟ هل هناك حيل او افكار للمقارنة بينهما؟
أو هل يوجد دالة مثل دالة NOW تحتوي على الوقت الحالي فقط
تحياتي لكم
محمد
تحويل دالة SUMPRODUCT الى كود VBA
في منتدى الاكسيل Excel
قام بنشر
هلا فيك اخي خبور خير
صراحة واقع بالمشكلة هذه لي شهر...
البيانات عارف ان حجمها كبير جدا
لكن ماذا تقترح؟
هل تعتقد ان الاكسس راح يكون اسرع من الاكسل بمعالجة هذا النوع من البيانات؟
تحياتي لك