شرح في جزئية في الكود الخاص باضافة سطر (تمت الإجابة)

[skyblue]

الشلام عليكم ورحمة الله وبركاته

الاساتذة المشرفين والاعضاء الافاضل مرفق كود ارجوا التكرم بشرح المعلم عليها بالاحمر على ماذا تشير :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim MyRows As Integer, MyCount As Integer

MyRows = Range("kh_test").Rows.Count

MyCount = Application.CountA([kh_test]) + 1

On Error GoTo 1

If Target.Address = Range("kh_test").Cells(MyRows - 2, 1).Address Then

If MyRows = MyCount Then

Target.Resize(1, 4).Interior.ColorIndex = xlNone

Range("kh_test").Cells(MyRows - 1, 1).EntireRow.Insert

Target(2, 1).Resize(1, 4).Interior.ColorIndex = 36

End If

End If

1 End Sub

تحياتي لكم

تم رفع الملف الخاص بالكود

http://arb-up.com/sg...______.rar.html

[عادل حنفي]

السلام عليكم

اخي الفاضل skyblue

If Target.Address = Range("kh_test").Cells(MyRows - 2, 1).Address

و هذا يعني انه ادا كان عنوان الخلية المحددة = عنوان الصف ما قبل الاخير للمدي kh_test فلنفرض ان المدي kh_test هو من A1:A8 فلخلية المقصوده هنا هي A6

Range("kh_test").Cells(MyRows - 1, 1).EntireRow.Insert

و هذا معناه ان يتم ادراج صف قبل الصف الاخير لعدد الصفوف للمدي kh_test

Target.Resize(1, 4).Interior.ColorIndex = xlNone

Target(2, 1).Resize(1, 4).Interior.ColorIndex = 36

وهذان السطران مرتبطان ببعضهما

حيث ان السطر الاول لازالة الالوان من صف الخلية المحددة و الي العمود الرابع منها

و السطر الثاني لاعطاء لون للصف الذي يلي الخليه المحددة و الي العمود الربع منها

ارجو ان اكون وفقت في الشرح

خالص تحياتي