اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Recommended Posts

السادة الافاضل

ارجو منكم المساعدة وذلك لتغير المعادلات الي اكواد vba وذلك لان الاصناف تتعدى 10000 صنف وعند العمل بالملف يصبح بطيء جدااا

شاكر اليكم حسن التعاون والمساعدة

حركة2018.rar

شارك هذه المشاركه


رابط المشاركه
شارك

يمكنك أخي الفاضل تحويل المعادلات إلى أكواد ، لكن لا أعتقد أن الملف سيكون أخف

افتح محرر الأكواد وأدرج موديول ، واكتب الكود التالي :

sub jard ( )

[g5].formula="=SUMIFS('حركة اليوميه'!G5:$H$10000,'حركة اليوميه'!E5:$F$10000,E5)"

range("g5:g10000").filldown

end sub

لاحظ أخي الفاضل أن السطر الأول هو تعريف لمحتوى ( g5 ) مع تغيير شكل الفواصل في المعادلة

والسطر الثاني لسحب المعادلة على النطاق المراد . ويمكنك تكرار هذا الكود قبل اغلاقه على بقية المعادلات التي تريد تحويلها إلى أكواد

آمل أن تكون الصورة واضحة ، علماً بأنني لست ضليعاً في هذا الجانب ، وإنما رأيت المساهمة على قدر معرفتي المتواضعة

فتقبل ما فيها من خلل .. وفقكم الله

sub jard ( )

[g5].formula="=SUMIFS('حركة اليوميه'!G5:$H$10000,'حركة اليوميه'!E5:$F$10000,E5)"

range("g5:g10000").filldown

end sub

 

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

أخي الفاضل 

اعتذر من حضرتك . لعدم معرفتي بذلك . وإنما أجبتك آنفاً على قدر معرفتي ، حباً في مد يد العون

ولعل الإخوة الأفاضل بفيدونك بما تريد 

وهم كثر ولله الحمد

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • محتوي مشابه

    • بواسطه أ / محمد صالح
      لكل عشاق الحديث في برمجة الأوفيس المتقدمة VBA يسعدني أن أقدم لكم شرح كود ترجمة جوجل 2019 في فيجوال بيسك للتطبيقات vba الموجودة ضمن حزمة ميكروسوفت أوفيس وسيكون الشرح على الأكسس microsoft access 2019 ومعالجة خطأ عدم ظهور الترجمة التعرف على أكواد لغات العالم world languages codes الموجودة في ترجمة جوجل وعددها 105 لغة التعرف على أسماء لغات العالم بالإنجليزية وباللغة العربية وباللغة المحلية لكل لغة دالة معرفة لإيقاف تنفيذ الكود فترة من الثواني wait مثل application.wait الموجودة في إكسل كتابة سطرين كود في سطر واحد نطق النصوص من خلال vba بجميع لغات العالم text to speech ترجمة سجلات الجداول أو الاستعلامات من خلال ADO وغيرها الكثيييييير اكتشفها بنفسك         رابط القناة لمن لم يشترك معنا حتى الآن   https://www.youtube.com/user/ostazmas2   #ostazmas   ************   فتابعونا وقوموا بتفعيل زر الجرس للتنبيه وقت صدور الفيديو وعلق ولو بحرف لكي تدعمنا للاستمرار من أجلكم   ********************* وفي هذه المرة لن أضع لكم الملف المستخدم في الشرح
      ولكن سأطلب ممن فهم الشرح أن يقوم بتطبيقه ويرفع لنا هنا ما تعلمه فعلا كنتيجة الفيديو /////////////////
      وتذكر معي الحكمة القائلة: لا تعطني سمكة ولكن علمني كيف أصطاد
    • بواسطه abdulrahmankalari
      سلام عليكم اخواني ...
      في هذا الفيديو نشرح كيف تحمي اكسس في مشروعاتك بدون كود فيجوال بيسك
      طريق سهل جدا
      https://www.youtube.com/watch?v=1AvCOO_ee4M
    • بواسطه edkawy
      السلام عليكم 
       
      الاخوده الكرام برجاء المسلعده فى الملف المرفق
      فى معادله فى العمود K  , (تراكمى) برجاء زضع المعادله فى كود VBA  لان الملف الاساسى تقيل جدا بسبب هذه المعادله
       
      ولكم وافر الشكر مقدما
      officena 2.xlsm
    • بواسطه edkawy
      السلام عليكم
      الاخوه الكرام برجاء المساعده فى الملف المرفق
      المطلوب البحث عن القيمه الموجوده فى العمود ( من عمود الكود الموجود فىجدول البيانات الاساسى ) وترتيبها افقيا فى جدول نتيجه البحث حسب التاريخ
       
      وشكرا لكم مقدما
       
      get all codes.xlsx
    • بواسطه عبد اللطيف سلوم
      السلام عليكم
       
      البعض ينسى بعض اوامر واكواد فيجوال بيسك عند البرمجة 
      والبعض يستعمل الماكرو كونه اسهل 
      لكن عندما يكون البرنامج باللغة العربية تحدث اخطاء 
      لذلك هناك خدمة تحويل الماكرو الى فيجوال بيسك تساعدنا كثيرا في كتابة الاكواد
      لا اريد الاطالة عليكم 
      تفضلوا رابط اليوتيوب شرحت الدرس صورة وصوت 
       
      للتواصل والاستفسار عبر الواتس اب  00962787787573
      اتمنى لكم الفائدة 
  • المتواجدين الان   0 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه

×
×
  • اضف...