ادراج صف جديد بنفس تنسيق الصف السابق

[ابو محمد القرني]

السلام عليكم / هل هناك طريقة او معادلة تقوم بانشاء صف جديد بنفس ميزات الصف السابق بعد تعبئته  والترقبم التلقائي للتسلسل دون المساس بخلايا المجموع التي في الجدول بمجرد زر انتر ( الموضوع باختصار جدول تسعيرة للاصناف والا صناف أحيانا تكون قليلة أو كثبرة ) بدل من عملية ادراج صف ونسخ معادلة وحذف صف 

التسعيرة.xlsx

[abouelhassan]

جرب

Sub إنشاء_صف_جديد()
    ' تحديد الصف الحالي
    Dim صف_حالي As Integer
    صف_حالي = ActiveCell.Row
    
    ' نسخ الصف الحالي
    Rows(صف_حالي & ":" & صف_حالي).Copy
    
    ' لصق في الصف التالي
    Rows(صف_حالي + 1 & ":" & صف_حالي + 1).Insert Shift:=xlDown
    
    ' ضبط الترقيم التلقائي للصفوف
    Rows(صف_حالي + 1).Cells(1, 1).Formula = Rows(صف_حالي).Cells(1, 1).Formula + 1
    
    ' إلغاء تحديد الصفوف
    Application.CutCopyMode = False
End Sub

 

للتنفيذ بواسطة زر انتر استخدم الاتى

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' تحقق من أن الزر هو زر Enter
    If Target.Address = ActiveCell.Address Then
        ' الكود الذي يقوم بإنشاء صف جديد
        Rows(Target.Row & ":" & Target.Row).Copy
        Rows(Target.Row + 1 & ":" & Target.Row + 1).Insert Shift:=xlDown
        Rows(Target.Row + 1).Cells(1, 1).Formula = Rows(Target.Row).Cells(1, 1).Formula + 1
        Application.CutCopyMode = False
        
        ' إلغاء تنفيذ افتتاح زر Enter
        Cancel = True
    End If
End Sub

 

تم تعديل فبراير 5, 2024 بواسطه abouelhassan