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

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

قام بنشر

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

الاساتذة المشرفين والاعضاء الافاضل احيانا يكون عندي كود ولنفرض انه يحتوي على 15 سطر او اكثر واريد ان اعدل اسم الورقة الموجودة بالكود باسم ورقة اخرى

فهنا اضطر الى الذهاب الى اسم الورقة والتضليل ثم اكتب اسم الورقة المطلوبه ثم اذهب الى السطر اللي بعده واعمل نفس الوضه وهكذا حتى انتهي من

جميع الاسطر وهذه العملية صعبة جدا لان الذهاب الى كل سطر هو في حد ذاته صعب لان تضليل الجزء المراد تعديله احيانا لايتضلل بالكامل فتحاول اكثر من مرة

حتى يتضلل ذلك الجزء .

فسؤالي هو : هل المبرمجين واللي يتعاملوا مع الاكواد لديهم طرق اخرى في التعديل في مثل هذه الحالة ام لابد من هذه الطريقة العقيمة .

فاعتقد ان هناك طرق سهلة يتعامل بها المبرمج في اي تعديل . نأمل التكرم من لديه فكرة ان ينورنا بها

تحياتي

قام بنشر

اعتقد انك لمجرد انك علمت بالمكان الذي يكمن ان تعدل فيه

هذا جيد

اما ماتطلبه اعتقد يصعب تحقيقه

وبعدين انت لو تعبت شويه في برنامج تعدل عليه ليريحك ماذا يحدث

فاذا كان التعديل مضبوط اعتقد ستكون هناك الفائده علي الاقل ليريحك بعد ذلك

قام بنشر

الاخ skyblue

استخدم هذا الاسلوب

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

Sub Test_Sh_Name()
Dim Sh_Data As Worksheet
'/==========================
Set Sh_Data = Sheets("Data")
'/==========================
Sh_Data.Range("A1") = 5
Sh_Data.Range("A2") = 7
Sh_Data.Range("A3") = 9
End Sub

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