السبت، 28 سبتمبر 2019

عالم الاوفيس : اسرع واسهل طريقتان لحذف الصفوف داخل ورقة العمل 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

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



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

إرسال تعليق

من نحن

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

التصنيفات

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

الاسم

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

رسالة *

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