البحث في الموقع
Showing results for tags 'نسحخة محدثة'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاته اخواني الكرام كما تعلمون فاني قمت قبل فترة بوضع كود لادراج عدد محدد من الصفوف ابتداءً من صف محدد وبناء على طلب اكثر من عضو باضافة الى الكود شرط الصفحة أي انه يمكن تحديد ورقة العمل التي تريد ادراج الصفوف فيها حتى الانتهاء من الاوراق التي تريد الاضافة فيها بمعنى أوضح فانه يمكن اختيار ورقة عمل محددة لادراج الصفوف فيها وبعد الانتهاء من ذلك يصبح لك الخيار في اختيار ورقة أخرى أو الاكتفاء وهكذا وقد احببت ان افرده في موضوع منفصل للفائدة 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
