عبدالله المجرب قام بنشر أغسطس 27, 2011 قام بنشر أغسطس 27, 2011 السلام عليكم ورحمة الله وبركاته اخواني الكرام كما تعلمون فاني قمت قبل فترة بوضع كود لادراج عدد محدد من الصفوف ابتداءً من صف محدد وبناء على طلب اكثر من عضو باضافة الى الكود شرط الصفحة أي انه يمكن تحديد ورقة العمل التي تريد ادراج الصفوف فيها حتى الانتهاء من الاوراق التي تريد الاضافة فيها بمعنى أوضح فانه يمكن اختيار ورقة عمل محددة لادراج الصفوف فيها وبعد الانتهاء من ذلك يصبح لك الخيار في اختيار ورقة أخرى أو الاكتفاء وهكذا وقد احببت ان افرده في موضوع منفصل للفائدة Sub OFFICNA() Set XX = Application.WorksheetFunction X11 = InputBox("حدد أسم الشيت الذي تريد إدراج صفوف فيه أو اتركه خالي لإختيار الشيت الحالية", "www.officena.net") If IsNull(X11) Or X11 = "" Then ActiveSheet.Select Else Sheets(X11).Select End If X1 = InputBox(" حدد رقم الصف المطلوب إدراج صفوف إبتداءً منه", "www.officena.net") If IsNull(X1) Or X1 = "" Then Exit Sub X2 = InputBox(" حدد عد الصفوف المراد إدراجها", "www.officena.net") If IsNull(X2) Or X2 = "" Then Exit Sub X3 = XX.Sum(X1, X2) Rows(X1 & ":" & X3 - 1).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A" & X1).Select aa = MsgBox("هل تريد إدراج صفوف في أوراق جديدة", vbYesNo, "www.officena.net") If aa = vbYes Then OFFICNA End If End Sub ابواحمد إدراج صفوف في أوراق مختارة.rar
عبد الفتاح كيرة قام بنشر أغسطس 27, 2011 قام بنشر أغسطس 27, 2011 ممتاز جدا أخى عبد الله بارك الله فيك حبذا لو تم التحقق من كون الشيت فارغا قبل إدراج الصفوف وجزاك الله خيرا
عبدالله المجرب قام بنشر أغسطس 27, 2011 الكاتب قام بنشر أغسطس 27, 2011 الاستاذان الكريمين 1. كيماس ابا عمر 2. محمد يحياوي شكراً لكما على مروركما ابواحمد
جمال الفار قام بنشر أغسطس 27, 2011 قام بنشر أغسطس 27, 2011 اخى واستاذى وحبيبى عبدالله المجرب عمل اكثر من رائع هكذا انت تتحفنا دائما اخى جعله الله فى ميزان حسناتك
cat101 قام بنشر أغسطس 27, 2011 قام بنشر أغسطس 27, 2011 اخي الكريم الصفحات المطلوب ادراج الصفوف لهاا كثيره نريد ان نستطيع ادراج اسماء الصفحات بالكود وكذلك عدد الصفوف المطلوب ادراجها يتم اخذها من خليه مكتوب بها عدد الصفوف ولك جزيل الشكر
ابو الآء قام بنشر أغسطس 27, 2011 قام بنشر أغسطس 27, 2011 اخى الحبيب / عبد الله حفظك المولى ورعاك مبدع كالعاده لى طلب بسيط هل يمكن ظهور اسماء الشيتات فى نافدذه الاختيار بدلا من كتابتها بارك الله فيك وكل عام وانت بخير
ياسر الحافظ قام بنشر أغسطس 28, 2011 قام بنشر أغسطس 28, 2011 استاذنا الغالي ابو احمد " عبد الله " كل الشكر وفقك الله ......... وكل عام ونت ومن تحب بخير انشاء الله ابو الحارث
عبدالله المجرب قام بنشر أغسطس 29, 2011 الكاتب قام بنشر أغسطس 29, 2011 اخي الكريم الصفحات المطلوب ادراج الصفوف لهاا كثيره نريد ان نستطيع ادراج اسماء الصفحات بالكود وكذلك عدد الصفوف المطلوب ادراجها يتم اخذها من خليه مكتوب بها عدد الصفوف ولك جزيل الشكر اخى الحبيب / عبد الله حفظك المولى ورعاك مبدع كالعاده لى طلب بسيط هل يمكن ظهور اسماء الشيتات فى نافدذه الاختيار بدلا من كتابتها بارك الله فيك وكل عام وانت بخير اخواني الكرام cat101 'abo_alaa ان شاء الله يكون المرفق ما تطلبانه ابواحمد عبدالله المجرب.rar
cat101 قام بنشر سبتمبر 1, 2011 قام بنشر سبتمبر 1, 2011 اشكرك كثيرا استاذ عبد الله وكل عام وانت ومن تحب بخير عملك ممتاز ولكني كنت اود ان تكون اسماء الصفحات بالكود مفسه فلو اراد المستخدم ان يضيف صفحات اخرى فسيكون ذلك من داخل الكود نفسه ايضا باضافة اسم الصفحه بجوار اسماء الصفحات الموجوده وكذلك بداية الصف الذي سيتم ادراج الصفوف منه ... نريده ان يكون موجودا داخل الكود نفسه ايضا وسيزداد الكود حسنا .. لو اخذ تنسيقات ومعادلات الصف الذي قبله وجزاك الله كل خير
ناصر سعيد قام بنشر سبتمبر 1, 2011 قام بنشر سبتمبر 1, 2011 اشكرك كثيرا استاذ عبد الله وكل عام وانت ومن تحب بخير عملك ممتاز ولكني كنت اود ان تكون اسماء الصفحات بالكود مفسه فلو اراد المستخدم ان يضيف صفحات اخرى فسيكون ذلك من داخل الكود نفسه ايضا باضافة اسم الصفحه بجوار اسماء الصفحات الموجوده وكذلك بداية الصف الذي سيتم ادراج الصفوف منه ... نريده ان يكون موجودا داخل الكود نفسه ايضا وسيزداد الكود حسنا .. لو اخذ تنسيقات ومعادلات الصف الذي قبله وجزاك الله كل خير اشكرك كثيرا استاذ عبد الله وكل عام وانت ومن تحب بخير عملك ممتاز طلب اخي كات هو عز الطلب
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.