ادراج صفوف في اكسل

[حيان علاء الدين]

اصدقائي ادارة المنتدى

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

ارجو المساعدة بالسرعة القصوى

وشاكر فضلكم جميعا

[محمود_الشريف]

أخى الكريم

جرب النموذج المرفق لكم

لعل يكون به المطلوب

وتقبلوا منى وافر الإحترام والتقدير

ادراج صفوف.rar

[مجدى يونس]

الاخ محمود الشريف

عمل ممتاز

[محمود_الشريف]

الاخ محمود الشريف

عمل ممتاز

أستاذى القدير / مجدى يونس

بارك الله فيكم

هذه شهاده منكم أعتز بها

تقبلوا منى وافر الإحترام والتقدير

[الشهابي]

أخي العزيز / حيان علاء الدين 

وبعد الحل الرائع الذي قدمه أخي الحبيب الأستاذ / محممود الشريف  شرف الله قدره وأعلى منزلته وبشهادة أستاذنا الكبير مجدي يونس حفظه الله 

 

ولكن هذا حل قد أعددته سابقاً فأحببت أن أشارك أخي الأستاذ محمود به وبعد اذنه طبعا  من خلال الكود التالي :

Sub Add_row()
 Application.ScreenUpdating = False
 Application.Calculation = xlManual
 For x = 2 To 6001 Step 2
 Range("A" & x).EntireRow.Insert
 Next x
 Application.Calculation = xlAutomatic
 Application.ScreenUpdating = True
End Sub

 For x = 2 To 6001 Step 2 

غير الرقم في السطر السابق حسب عدد الصفوف المراد الإضافة فيها بالضعف فتلاحظ الرقم عندك (6001) لأنه عند الإضافة سيزيد صف وباتالي سيزيد رقم الصف الآخر المراد الإضافة بعده أو على الأصح في هذه احالة قبله ابتدأ من الصف ( 2) 

إدراج صفوفو في نطاق.rar

[محمود_الشريف]

أخى فى الله

أستاذى الكبير / الشهابى

نعم الأخلاق ونعم التواضع

الأستاذ يستأذن ويشارك التلميذ فى الحل

بارك الله فيكم 

وكودكم أكثر دقة وإختصارا

جزاكم رب العالمين عنا خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

[أبو محمد عباس]

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

الاخ الحبيب والاستاذ الفاضل محمود الشريف جزاك الله خيرا

الاخ الحبيب والاستاذ الفاضل الشهابي جزاك الله خيرا

اعمال في قمة الروعة والابداع  اثابكم الله وجعلها في ميزان حسناتكم

تقبلوا فائق احترامي وتقديري

[محمود_الشريف]

أخى فى الله

الأستاذ القدير / أبو محمد عباس

بارك الله فيكم

وجزاكم رب العالمين عنى خير الجزاء

وتقبل منى وافر الإحترام والتقدير

[الشهابي]

الأستاذ القدير الخلوق  / محمود الشريف  

أولا : أنا لست أستاذ  في هذا المنتذى وأن كنت أتقبلها لأنني فعلا مدرساً وتعودنا على سماعها من تلاميذنا بالمدرسة يوميا

وأنت لست تلميذ وإنما هذا تواضع منك أنت فأعمالك تشهد لك بأنك نعم الأستاذ 

وفي الحقيقة كلنا تلاميذ بهذا الصرح الكبير كل يوم نتعلم من بعضنا البعض 

فجزاك الله خير 

[الشهابي]

أخي العزيز / أبو محمد عباس 

مروركم شرف لنا جزاكم الله كل خير 

[ا بو سليمان]

عااااااااااااااااااااااائله اوفسينا  جميعهم حلوووووووووووووووووووووين  ومميزين

[حيان علاء الدين]

الاستاذ محمود شريف والاستاذ الشهابي وجميع الاخوة المشاركين في هذا الموضوع اشكركم خالص الشكر ومن اعماق قلبي للافادة انتم رائعين رائعين

[حيان علاء الدين]

واريد منكم خدمة اخرى  وهي كيف تم عمل زر التحكم وكيف تم ربطه لينفذ الامر

[الشهابي]

أخي العزيز / حيان علاء الدين 

أولا تدخل على دائرة شعار أوفيس ومن ثم تذهب إلى خيارات وتختار شائع وتضع صح أمام اظهار علامة تبويب المطور 

ومن ثم إضغط موافق وستظهر لك علامة تبويب جديدة باسم المطور 

ادخل فيها واختر إدراج واختر (زر تحكم عنصر نوذج ) وقم بإدراجه عنطريق السحب والإفلات 

وبعد الإفلات ستظهر لك قائمة بالماكرو الموجودة في الملف وهناء موجود ماكرو واحد فقط ( Add_row ) 

ومن ثم يمكنك تنسيقه بالنقر على ز الماوس اليمين وتختار تنسيق عنصر تحكم من خلاله تغير نوع الخط ولونه وغيرها من التنسيقات 

وهذا تسجيل فديو صامت يوضح ذلك 

 

إدراج زر تنفيد أمر.rar

[حيان علاء الدين]

مشكورين مشكورين مشكورين يا ريت اقدر رد فضلكم علي

استاذ الشهابي انت كبير  و رائع