عالم الاوفيس : اسرع واسهل طريقتان لحذف الصفوف داخل ورقة العمل Excel VBA: Tow Ways to Delete Rows In Worksheet

بسم الله الرحمن الرحيم 
اهلا بكم متابعى موقع عالم الاوفيس



اليوم نلتقى معك م فى درس جديد من دروس اكسل VBA 
درس اليوم عن كيفية حذف اى عدد من الصفوف داخل ورقة العمل بناء على شرط معين اورق معين مكتوب داخل الخلية 
ودة كان سؤال احد المتابعين 
وللاجابة على هذا السؤال يلزمنا او لا ان ندخل الى المطور developer
 وندخل على محرر الاكواد visual basic
 ونعمل موديول جديد وهذا الموديول لحذف الصف بالكامل 

Sub delete_rows()
Dim i As Integer, j As Integer
ActiveCell.EntireRow.Select
On Error GoTo 1

i = InputBox("enter row number", "delete rows")
'i = [c1].Value
  For j = 1 To i
   Selection.Delete shift:=xlUp
     Next j
    
1:     Exit Sub
    

End Sub

وبمجرد تنفيذ الكود يفتح لن صندوق الادخال للادخال عدد الصفوف التى نريد حذفها   ونكتب عدد الصفوف وليكن 4 صفوف مثلا
سيتم حذف عدد 4 صفوف من ورقة العمل
ولكن اذا كنا نريد ان نحذف صف معين من داخل الجدول ولي ورقة العمل بالكامل اذا سوف ننفذ الكود الاخر 

Sub new_delete()
Range("a" & Val(Range("c1").Value) & ":d" & Val(Range("c1").Value)).Delete shift:=xlUp
End Sub

وبهذا نكون قد انتهينا من شرح كود اليوم 



Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق