الدرس الخامس :- إضافة صفوف داخل شيت اكسل عن طريق اكواد ال VBA

فبراير 18, 2018

اولاً:-نقوم بإختيار تبويب Developer 

ثانياً:- نفتح محرر الاكواد Visual Basic

ثالثاً:-ندرج مديول جديد Insert Module

رابعاً :- نقوم بكتابة الاكواد الاتيه داخل المديول :-

Sub insert_new_row() Dim a As Byte Dim c As Integer [a1].Select a = 2 c = 0 While ActiveCell.Value <> "" c = c + 2 ActiveSheet.Rows(c).Insert shift:=xlDown ActiveCell.Offset(a, 0).Select Wend End Sub  

  

* نقوم بحفظ الاكواد السابقة داخل محرر الاكواد VBE

فيسبوك تويتر لينكدين واتساب

مواضيع ذات صلة