اوفيس 2003 قام بنشر نوفمبر 29, 2012 مشاركة قام بنشر نوفمبر 29, 2012 مرفق المثال مع الأخذ في الإعتبار ممكن يكثر عدد الخلايا في العمود الى 10000 مدخل فبدلا من ان تكون الخلايا متتالية اريدها يكون خليه محتوية وخلية فارغة وهكذا Q.rar رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر نوفمبر 29, 2012 مشاركة قام بنشر نوفمبر 29, 2012 تفضل اخى الكريم جرب واعرف واكتشف ونحن معا ======== ملحوظة : الكود لأحد رواد المنتدى Q2.rar رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر نوفمبر 29, 2012 الكاتب مشاركة قام بنشر نوفمبر 29, 2012 مشكور على الرد ياغالي وعلى الكود الرائع ولكن عند التجربة الله يبارك فيك وادخال القيمة 1 حيث اريد خلية فيها قيمة وخلية فارغة لا يبدأ من اول العمود على الرغم اني متوقف على اول خليه A1 انظر الصورة رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 29, 2012 مشاركة قام بنشر نوفمبر 29, 2012 السلام عليكم هذا التعديل على الكود ليبدء من أول سطر Sub صف_فارغ() Dim i, j, k, z, h As Long j = Int(InputBox("enter the interval")) z = 1 k = ActiveSheet.UsedRange.Rows.Count For i = 1 To k + z Step 1 If (i Mod j = 0) Then ActiveSheet.Cells(i + z, 1).Select Selection.EntireRow.Insert z = z + 1 End If Next i Range("a1").Select End Sub رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر نوفمبر 29, 2012 الكاتب مشاركة قام بنشر نوفمبر 29, 2012 اشكرك اخي على الله يبارك فيك ولو اريد عمل العكس يعني ارجع مرة اخرى الأعمدة الى طبيعتها ياغالي ؟؟ رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 29, 2012 مشاركة قام بنشر نوفمبر 29, 2012 السلام عليكم جرب هكذا Sub A_D() Dim i, j, k, z, h As Long j = 1 z = 1 k = ActiveSheet.UsedRange.Rows.Count For i = 1 To k If (i Mod j = 0) Then Cells(i, 1).Offset(1, 0).EntireRow.Delete End If Next i Range("a1").Select End Sub رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر نوفمبر 29, 2012 الكاتب مشاركة قام بنشر نوفمبر 29, 2012 لا يعمــل جيدا استاذ علي ، حيث عند اختياره لا يرجع العمود لطبيعته بل يحذف بعض الأرقام رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر نوفمبر 29, 2012 مشاركة قام بنشر نوفمبر 29, 2012 جرب المرفق أخي اعتقد انه يعمل حذف صفوف.rar رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر نوفمبر 29, 2012 مشاركة قام بنشر نوفمبر 29, 2012 أبو خديجة وحنين كل الشكر لمتابعتكم الردود رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر نوفمبر 29, 2012 مشاركة قام بنشر نوفمبر 29, 2012 ما أروع هذه الطلة من أخي الحبيب : دغــيدي أرجو أن تكون في تمام الصحة جزاك الله خيرا على المرور رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر نوفمبر 30, 2012 مشاركة قام بنشر نوفمبر 30, 2012 (معدل) بارك الله فيكم جميعا لما تقدموه من علم ومعرفة تم تعديل نوفمبر 30, 2012 بواسطه yousef_kaf رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان