الأربعاء، 25 سبتمبر 2019

اكسل : طريقة سهلة جدا حذف الصفوف المحددة داخل الجدول فقط Excel vba:How To Delete Row Inside Table Only

بسم الله الرحمن الرحيم
اكسل : طريقة سهلة جدا حذف الصفوف المحددة داخل الجدول فقط 


اهلا بكم متابعى موقع ومدونة عالم الاوفيس

درس جديد من دروس اكسل 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

ليست هناك تعليقات:

إرسال تعليق

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة