حيان علاء الدين قام بنشر فبراير 6, 2014 قام بنشر فبراير 6, 2014 اصدقائي ادارة المنتدى لدي ملف اكسل يحتوي على 3000 صف واريد ادراج صف بين كل صفين الطريقة واضحة وهي كليك يمين ماوس ثم ادراج ولكنها ستكون طويلة جدا في حالتي هذه (3000)صف هل هناك طريقة مختصرة لعمل هذا الشي ارجو المساعدة بالسرعة القصوى وشاكر فضلكم جميعا
محمود_الشريف قام بنشر فبراير 6, 2014 قام بنشر فبراير 6, 2014 أخى الكريم جرب النموذج المرفق لكم لعل يكون به المطلوب وتقبلوا منى وافر الإحترام والتقدير ادراج صفوف.rar 2
محمود_الشريف قام بنشر فبراير 6, 2014 قام بنشر فبراير 6, 2014 الاخ محمود الشريف عمل ممتاز أستاذى القدير / مجدى يونس بارك الله فيكم هذه شهاده منكم أعتز بها تقبلوا منى وافر الإحترام والتقدير
الشهابي قام بنشر فبراير 7, 2014 قام بنشر فبراير 7, 2014 أخي العزيز / حيان علاء الدين وبعد الحل الرائع الذي قدمه أخي الحبيب الأستاذ / محممود الشريف شرف الله قدره وأعلى منزلته وبشهادة أستاذنا الكبير مجدي يونس حفظه الله ولكن هذا حل قد أعددته سابقاً فأحببت أن أشارك أخي الأستاذ محمود به وبعد اذنه طبعا من خلال الكود التالي : 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 1
محمود_الشريف قام بنشر فبراير 7, 2014 قام بنشر فبراير 7, 2014 أخى فى الله أستاذى الكبير / الشهابى نعم الأخلاق ونعم التواضع الأستاذ يستأذن ويشارك التلميذ فى الحل بارك الله فيكم وكودكم أكثر دقة وإختصارا جزاكم رب العالمين عنا خير الجزاء وتقبلوا منى وافر الإحترام والتقدير
أبو محمد عباس قام بنشر فبراير 7, 2014 قام بنشر فبراير 7, 2014 السلام عليكم ورحمة الله وبركاته الاخ الحبيب والاستاذ الفاضل محمود الشريف جزاك الله خيرا الاخ الحبيب والاستاذ الفاضل الشهابي جزاك الله خيرا اعمال في قمة الروعة والابداع اثابكم الله وجعلها في ميزان حسناتكم تقبلوا فائق احترامي وتقديري
محمود_الشريف قام بنشر فبراير 7, 2014 قام بنشر فبراير 7, 2014 أخى فى الله الأستاذ القدير / أبو محمد عباس بارك الله فيكم وجزاكم رب العالمين عنى خير الجزاء وتقبل منى وافر الإحترام والتقدير
الشهابي قام بنشر فبراير 7, 2014 قام بنشر فبراير 7, 2014 الأستاذ القدير الخلوق / محمود الشريف أولا : أنا لست أستاذ في هذا المنتذى وأن كنت أتقبلها لأنني فعلا مدرساً وتعودنا على سماعها من تلاميذنا بالمدرسة يوميا وأنت لست تلميذ وإنما هذا تواضع منك أنت فأعمالك تشهد لك بأنك نعم الأستاذ وفي الحقيقة كلنا تلاميذ بهذا الصرح الكبير كل يوم نتعلم من بعضنا البعض فجزاك الله خير
الشهابي قام بنشر فبراير 7, 2014 قام بنشر فبراير 7, 2014 أخي العزيز / أبو محمد عباس مروركم شرف لنا جزاكم الله كل خير
ا بو سليمان قام بنشر فبراير 7, 2014 قام بنشر فبراير 7, 2014 عااااااااااااااااااااااائله اوفسينا جميعهم حلوووووووووووووووووووووين ومميزين
حيان علاء الدين قام بنشر فبراير 10, 2014 الكاتب قام بنشر فبراير 10, 2014 الاستاذ محمود شريف والاستاذ الشهابي وجميع الاخوة المشاركين في هذا الموضوع اشكركم خالص الشكر ومن اعماق قلبي للافادة انتم رائعين رائعين
حيان علاء الدين قام بنشر فبراير 11, 2014 الكاتب قام بنشر فبراير 11, 2014 واريد منكم خدمة اخرى وهي كيف تم عمل زر التحكم وكيف تم ربطه لينفذ الامر
الشهابي قام بنشر فبراير 11, 2014 قام بنشر فبراير 11, 2014 أخي العزيز / حيان علاء الدين أولا تدخل على دائرة شعار أوفيس ومن ثم تذهب إلى خيارات وتختار شائع وتضع صح أمام اظهار علامة تبويب المطور ومن ثم إضغط موافق وستظهر لك علامة تبويب جديدة باسم المطور ادخل فيها واختر إدراج واختر (زر تحكم عنصر نوذج ) وقم بإدراجه عنطريق السحب والإفلات وبعد الإفلات ستظهر لك قائمة بالماكرو الموجودة في الملف وهناء موجود ماكرو واحد فقط ( Add_row ) ومن ثم يمكنك تنسيقه بالنقر على ز الماوس اليمين وتختار تنسيق عنصر تحكم من خلاله تغير نوع الخط ولونه وغيرها من التنسيقات وهذا تسجيل فديو صامت يوضح ذلك إدراج زر تنفيد أمر.rar
حيان علاء الدين قام بنشر فبراير 12, 2014 الكاتب قام بنشر فبراير 12, 2014 مشكورين مشكورين مشكورين يا ريت اقدر رد فضلكم علي استاذ الشهابي انت كبير و رائع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.