Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

samycalls2020

03 Special Member
  • Content Count

    220
  • Joined

  • Last visited

Community Reputation

12 Good

About samycalls2020

  • Rank
    Name

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب
  • Location
    مصر
  • Interests
    رياضة

Recent Profile Visitors

  1. السلام عليكم .. أرجو المساعده قى هذا الكود عمل كود تلقائى يعمل عند فتح الملف إذا C5 تساوى C12 يكون من E5 الى E12 = "" أى لاشئ أو delete من E5 الى E12 كود بشرط.xlsm
  2. السلام عليكم .. الأخوة الأفاضل .. هل من طريقة لجعل الأرقام الزائدة عن 15 رقم لاتتحول الى أصفار الأرقام الطويلة.xlsx
  3. السلام عليكم .. مرة أخرى وإن شاء الله أخيرة فى هذا الموضوع إن أذن لى استاذ / سليم.. Double_but2.xlsm
  4. طلب أخير استاذ / سليم .. أن سمحت لى أضفت زر أخر لنفس الماكرو والمراد .. هو أن يعمل الزران معاً بنفس الماكرو ويتغير نصهما ولونهما معاً بالضغط على أى منهما . زر مزدوج2.xlsm
  5. السلام عليكم .. هل يمكن اضافة للكود بحيث يتم تغير لون الشكل مع لون الكلمة زر مزدوج.xlsm
  6. الكود السابق .. أ / عبد الفتاح .. كما قلت لك عند استخدام هذا الكود على سبيل المثال وهو واحد من أكود كثيرة يأخد وقت طويل جداً حت يعطى النتيجة المطلوبه فقمت بحذف باقى الأكود وتشغيل الكود السابق ذكره أعطى نتيجه بسرعة كبيره .. ده معناه أن هنالك أكود أخرى تعمل وتسبب بطء وتعطيل لهذا الكود وهذا الكلام ينطبق على كل الأكواد .. فما أطلبه هو عند الضغط على زر أى ماكرو يعمل دون غيره .. عن طريق أن تضيف فية أو تعدلة أو أى شيء أخر المهم أن يعمل منفردا أى يعمل هو دون غيره .. أرجوا أن أكون وضحت ما أقصده
  7. أستاذى الفاضل .. أين جملة الأستدعاء فى ماذكر من أمثله مثال هذا كود يعمل بزر Sub للتصفية() ' لنسخ حساب القائمة المنسدلة من أرصدة الى الخزينة Sheets("الخزينة").Range("H9").Value = Range("D7").Value Application.ScreenUpdating = False Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Set ws = Sheets("الخزينة") Set sh = Sheets("تصفية") Application.ScreenUpdating = False ' إلغاء الفرز والتصفية إن وجد لجدول3 Sheets("الخزينة").Range("الجدول3").AutoFilter ' تصفية للعمود 13 P Sheets("الخزينة").Range("الجدول3").AutoFilter Field:=13, Criteria1:
  8. الأستاذ عبد الفتاح / سلام الله عليكم مثلا لديك اكثر من ماكرو sub macro1() , sub macro2 تكتب call macro1 , call macro 2 السؤال .. أين نكتب هذا ؟ فى نفس الماكرو المطلوب استدعائه .. أم فى ماكرو منفصل وماذا إن كان هناك عدد من الماكرو تلقائى (يعمل بدون زر) وغيرهم يعمل بزر لأن المشكلة عمل عدد كبير من الماكرو فى نفس الوقت يسبب بطئ شديد
  9. السلام عليكم .. الأخوة الكرام .. هل يوجد كود لتشغيل ماكرو محدد أو أكثر فى ملف به الكثير من الماكرو
  10. الشكر كل الشكر للأخوة الكرام
  11. النطاقات هى C7 :C96 , 97:C186 , C187:C306 , C307:C396 , C397:C486 , C487:C576 , C577:C666 , C667:C756 , C757:C846 , C847:936 , C937:C1026 وهى نطاقات ثابته
  12. استاذ / سليم .. الملف الأصلى بدون ألوان .. ووضعت أنا الألوان لتسهيل عملية شرح المطلوب تطبيقه فكيف الاستغناء عنها فى الكود ..
  13. أحمد الله أن حبانا المولى عز وجل بهذه القامات الكبيرة كل الشكر للأساتذة العظام .. سأقوم بتطبيق الأكوداد على الملف الأصلى للوصول الى الكود الأنسب حفظكم الله ..
×
×
  • Create New...