بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس اليوم عن كيفية حذف اى عدد من الصفوف داخل ورقة العمل بناء على شرط معين اورق معين مكتوب داخل الخلية
ودة كان سؤال احد المتابعين
وللاجابة على هذا السؤال يلزمنا او لا ان ندخل الى المطور 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
وبهذا نكون قد انتهينا من شرح كود اليوم