logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .




موضوع مغلق


  • تمت الإجابة
03-10-2021 10:39 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 80
الجنس :
تاريخ الميلاد : 12-5-1973
قوة السمعة : 65
الاعجاب : 0
<p style="language:ar-EG;margin-top:0pt;margin-bottom:0pt;margin-right:0in;
text-indent:0in;text-align:right;direction:rtl;unicode-bidi:embed">السلام عليكم ورحمة الله وبركاته[/p]

<p style="language:ar-EG;margin-top:0pt;margin-bottom:0pt;margin-right:0in;
text-indent:0in;text-align:right;direction:rtl;unicode-bidi:embed">لو سمحتم عايز اغير هذا الكود بحيث تكون رءوس الأعمدة في الصف رقم ( 13 )[/p]

<p style="language:ar-EG;margin-top:0pt;margin-bottom:0pt;margin-right:0in;
text-indent:0in;text-align:right;direction:rtl;unicode-bidi:embed">ولكم جزيل الشكر[/p]
 
 
  استدعاء اعمد معينه لاعمده اخرى معينه.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(21.337) KB





look/images/icons/i1.gif ارجو التعديل في هذا الكود
  04-10-2021 12:10 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
وعليكم السلام أخي الكريم
هل حاولت دراسة الكود أخي الكريم؟ لابد من النظر لأسطر الكود ومحاولة معرفة دلالات الأرقام الموجودة ..
عموماً السطر الذي يجب التغيير فيه هو سطر واحد فقط والتغيير لرقم الصف بدلاً من 1 يتم التغيير لرقم 13 حيث أن Cells يليها رقم الصف ورقم العمود.
الرجاء محاولة دراسة الأساسيات فهذا سيوفر عليك الكثير والكثير من العناء والمجهود
CODE
Sheets(&quot;Sheet2&quot;).Cells(13, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i)

أثارت هذه المشاركة إعجاب: ali mohamed ali، hassona229،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
هل يمكن الاستدعاء بشرطين أو أكثر بالتعديل على هذا الكود أبو يوسف النجار
5 1497 تاج الدين
التعديل على اي شيت من اليوزر فورم شبل
1 140 شبل
دورة التعديل علي الويندوز من البداية حتي الإحتراف رابط مباشر عوض السوداني
1 173 عوض السوداني
مشكلة التعديل على الصف الأول i7san
1 163 i7san
ارجو التعديل علي هذا الكود saad mohamed
5 212 hassona229

الكلمات الدلالية
التعديل ، ارجو ، الكود ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 09:24 AM