بسم الله الرحمن الرحيم
اكسل : طريقة سهلة جدا حذف الصفوف المحددة داخل الجدول فقط
اهلا بكم متابعى موقع ومدونة عالم الاوفيس
درس جديد من دروس اكسل vba وفى هذا الدرس سنتاول بالشرح اجابة سؤال احد الاصدقاء
حول كيفية حذف صف معين داخل الجدول فقط وليس الصف بالكامل entire row وعمل ازاحة الى الاعلى فى نفس نطاق الجدول من خلال اليوزرفورم Userform 1- لنفرض ان لدينا جدول مكون من عدد من الصفوف والاعمدة كما بالشكل التالى
ونريد ان نحذف صف معين من خلال هذا الجدول الموضح بالاعلى من خلال الفورم
اول خطوة سنقوم بها هى عمل كود للبحث داخل الجدول لتحديد البيانات التى سيتم حذفها من خلال زر الحذف
كما يلى
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Byte
Dim ws As Worksheet
Dim lr As Long
If Me.TextBox1.Value = "" Then Exit Sub
Set ws = Sheet1
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To lr
If LCase(CStr(Cells(i, 1).Value)) = LCase(CStr(TextBox1.Value)) Then
Me.TextBox2.Value = Cells(i, 2).Value
Me.TextBox3.Value = Cells(i, 3).Value
Me.TextBox4.Value = Cells(i, 4).Value
Me.rownumber.Caption = Cells(i, 4).Row
End If
Next i
وبعد تنفيذ كود البحث يتم تحديد رقم الصف المراد حذفة
وبعد ذلك نقوم بعمل كود الحذف داخل الجدول فقط وعمل ازاحة الى الاعلى
والان ناتى الى كود الحذف
Private Sub CommandButton2_Click()
Range("A" & Val(Me.rownumber.Caption) & ":D" & Val(Me.rownumber.Caption)).Delete Shift:=xlUp
End Sub