يوسف عطا قام بنشر أكتوبر 6 مشاركة قام بنشر أكتوبر 6 السلام عليكم اخوتنا الكرام طلب تعليمي لو تكرمتم مطلوب طريقة كتابة كود بسيط يضيف سطر فارغ تحت كل سطر به بييانات فى شيت اكسيل 2003 الرجاء شرج كل سطر فى الكود ولكم جزيل الشكر و التقدير رابط هذا التعليق شارك More sharing options...
hegazee قام بنشر أكتوبر 6 مشاركة قام بنشر أكتوبر 6 و عليكم السلام و رحمة الله و بركاته تفضل أخي الكريم Sub InsertBlankRowForAllColumns() Dim lastRow As Long Dim lastColumn As Long Dim i As Long, j As Long ' تحديد آخر صف وآخر عمود يحتويان على بيانات lastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row lastColumn = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column ' البدء من آخر صف والعمل إلى الأعلى For i = lastRow To 2 Step -1 ' التحقق من وجود بيانات في أي من الأعمدة For j = 1 To lastColumn If Cells(i, j).Value <> "" Then Rows(i + 1).Insert Shift:=xlDown Exit For ' الخروج من الحلقة الداخلية إذا وجدنا بيانات End If Next j Next i End Sub إضافة صف.xlsm 4 رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر أكتوبر 6 مشاركة قام بنشر أكتوبر 6 (معدل) وعليكم السلام ورحمة الله وبركاته بعد اذن الاستاذ حجازى واثراءا للموضوع واظافة وهي عدم السماح للصف الذي به بيانات باظافة صف فارغ الا مرة واحدة الكود Private Sub CommandButton1_Click() Dim i As Long Dim ws As Worksheet Dim lastRow As Long Dim nextRowData As Long Set ws = ActiveSheet Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False lastRow = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _ SearchFormat:=False).Row For i = lastRow To 2 Step -1 If Application.WorksheetFunction.CountA(ws.Rows(i)) > 0 Then nextRowData = Application.WorksheetFunction.CountA(ws.Rows(i + 1)) If nextRowData > 0 Then ws.Rows(i + 1).Insert Shift:=xlDown End If End If Next i Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True End Sub الملف إضافة صف فارغ.xlsm تم تعديل أكتوبر 6 بواسطه عبدالله بشير عبدالله 4 رابط هذا التعليق شارك More sharing options...
hegazee قام بنشر أكتوبر 6 مشاركة قام بنشر أكتوبر 6 تحياتي للأستاذ/ عبدالله و لكن الكود يتعامل فقط مع أول عمود إذا كان به بيانات ولا يضيف صفوف إذا كان العمود الأول فارغا Aالعمود رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر أكتوبر 6 مشاركة قام بنشر أكتوبر 6 نعم لديك كل الحق نم التعديل في المشاركة السابقة 1 رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 6 الكاتب مشاركة قام بنشر أكتوبر 6 السلام عليكم الأخ حجازي حفظه الله الأخ عبدالله خفظه الله الف شكر لكما و جارى تجربة الأكواد تقبلا التحيات من القلب جعل الله اعمالكم فى موازين حسناتكم دمتما فى رعاية الله 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان