محمد ديب قام بنشر مايو 15, 2013 مشاركة قام بنشر مايو 15, 2013 (معدل) لدى شيت يحتوى على 100 صف اريد اضافة صف فوق كلا منهما فارغ باستخدام الاكواد ارجو ارسال الكود مع شرح الكود تم تعديل مايو 16, 2013 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مايو 16, 2013 مشاركة قام بنشر مايو 16, 2013 السلام عليكم جرب هذا: Sub kh_Add_Row() Dim R As Integer For R = 100 To 1 Step -1 Cells(R, 1).EntireRow.Insert Next End Sub رابط هذا التعليق شارك More sharing options...
محمد ديب قام بنشر مايو 16, 2013 الكاتب مشاركة قام بنشر مايو 16, 2013 الف شكلر استاذى العزيز رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.