اذهب الي المحتوي
أوفيسنا

هل يمكن تعديل مدى تنفيذ كود دون الدخول للمديول


الردود الموصى بها

هل يمكن تعديل مدى تنفيذ كود دون الدخول للمديول

السلام عليكم ورحمة الله وبركاته

[sub MacroFil1()

Sheets("Adel").Range("a7:r7").Select

Selection.AutoFill Destination:=Range("a7:r10")

Range("A4").Select

End Sub

الكود السابق يقوم بتكرار نسخ الصف السابع حتى الصف العاشر بطريقة ألية كما موضح فى المدىRange("a7:r10")

أود تكراره حتى الصف العشرين مثلاّ (دون الدخول إلى الموديول ) .

أود التعديل فى المديول وربطه بخلية معينة فى أحد أوراق العمل

وعندما أريد التعديل فى عدد الصفوف أعدل فقط فى هذه الخلية

وهذا العديل يتم مباشرة فى الكود

بمعنى

جعل رقم 10 مرتبط بخلية فى أحد أوراق العمل

أو بأى طريقة أخرى تؤدى المطلوب

تحياتى

رابط هذا التعليق
شارك

الأخ/ عمر الحسينى ( أبو تامر )

السلام عليكم ورحمة الله وبركاته

اللغة العربية بكل كلماتها و ألفاظها ومعانيها تعجز عن أن تصفك و تشكرك على تعاونك مع تلميذك

بارك الله فيك وفى ذريتك وجعله فى ميزان حسناتك

بالمناسبة أعتزر لك عن عدم تكملة المحادثة معك عبر الماسنجر وذلك لظرف خارج عن إرادتى

وهو إنقطاع التيار الكهرباء وعندما وصلت لم أجدك

أتمنى أن تتكرر المحادثة

مع تحياتى

رابط هذا التعليق
شارك

الأخ/ عمر الحسينى ( أبو تامر )

السلام عليكم ورحمة الله وبركاته

لدى أسم (ADEL) معرف كالأتى:-

=OFFSET('الأوائل'!$I$7;0;0;COUNTA('الأوائل'!$I$7:$I$10);1)

أود التعديل فى لمدى وربطه بخلية معينة فى أحد أوراق العمل

وعندما أريد التعديل فى عدد الصفوف أعدل فقط فى هذه الخلية

وهذا العديل يتم مباشرة فى المدى

بمعنى

جعل رقم 10 مرتبط بخلية فى أحد أوراق العمل

أو بأى طريقة أخرى تؤدى المطلوب

كما تم فى المشاركة الثانية

تحياتى

رابط هذا التعليق
شارك

الاخ عادل جلال

تحياتى

هذه صيغة المدى المتحرك او الديناميكى (Dynamic Named Ranges)

ويعمل على تحديد حجم المدى حسب احتوائة على البيانات

اى يتمدد وينكمش حسب البيانات التى بداخلة

ولكنك اخى العزيز قمت بتحجيم هذا التمدد بتحديد الحد الاقصى لعدد الصفوف ب 10 صفوف فقط

فهذا المتغير جعل ليحتوى على الحد الاقصى للبيانات اى اجعلة 1000 مثلا

ولكنة عمليا لن يكون حجم المدى الا بنفس حجم البيانات الموجودة به

اى اننا اذا ادخلنا عدد الصفوف 1000 صف فى المعادلة وهو الحد الاقصى

ولكم عمليا اذا كان عدد الصفوف التى بها بيانات 50 صف مثلا

سيكون حجم المدى مطابقا لذلك اى 50 صف اتوماتيكيا

واذا اصبح عدد الصفوف التى بها بيانات 30 صف سيتغير المدى اتومانتيكيا ليصبح ايضا 30 صف

قم فقط بتغير العدد 10 الى اى اقصى عدد محتمل وسيعمل اتوماتيكى

اتمنى انتشار استخدامى بكثرة للمدى الديناميكى بين الاعضاء لما له من فوائد كثيرة وتغنى عن تعديلات كثيرة

تحياتى

رابط هذا التعليق
شارك

الأخ/ عمر الحسينى ( أبو تامر )

السلام عليكم ورحمة الله وبركاته

بارك الله فيك

إذا زاد العدد عن 1000 فماذا نفعل

هل يمكن تغير المدى المتحرك بأخر يتم تحديد مداه من خلال خلية فى أحد الأوراق يساوى بالفعل العدد المطلوب كما تم فى الكود ؟ ام لا

ملحوظة : الذين يستخدمون هذا البرنامج مجرد مدخلون بيانات ( لم يقدروا على التعديل إذا زاد عن 1000 ) فرجاء التوصل لحل

تحياتى

رابط هذا التعليق
شارك

الاخ عادل جلال

ليكن مفتوحا اجعلة 50000 او 65000

فهذا لن يؤثر فى شئ

ولكته يكون جاهزا فقط اذا وصلت البيانات الى هذا الحد

رابط هذا التعليق
شارك

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information