اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الرجاء ايجاد اسهل طريقة لحذف الصفوف والاععمدة الفارغة


الردود الموصى بها

الرجاء المساعدة فى حذف الصفوف والاعمدة الفارغة بطريقة يمكن تطبيقها على ملفات اخرى مشابهة لهذا الملف 

واعادة ضبط الورقة لتناسب حجم الورقه للطباعه 

حذف الصفوف والخلايا الفارغة.xls

رابط هذا التعليق
شارك

جرب هذا الماكرو (على اساس ان البيانات تبدأ من الخلية A1 ) و يتخللها صفوف و أعمدة فارغة

Sub del_rows_and_columns()
Dim my_rg1 As Range, my_rg2 As Range
Dim y%: y = Cells(1, Columns.Count).End(1).Column
Dim x%: x = Cells(Rows.Count, 1).End(3).Row
Set my_rg1 = Range(Cells(1, 1), Cells(1, y)).SpecialCells(4)
Set my_rg2 = Range(Cells(1, 1), Cells(x, 1)).SpecialCells(4)

my_rg1.EntireColumn.Delete
my_rg2.EntireRow.Delete
End Sub

 

  • Thanks 1
رابط هذا التعليق
شارك

10 ساعات مضت, ali mohamed ali said:

اخونا واستاذنا الفاضل بارك الله فيك لكنى كنت اريد حذف الاعمدة والصفوف الفارغة وليس اخفائها فقط لاننى اريد وضع حدود border  للجدول 

رابط هذا التعليق
شارك

10 ساعات مضت, سليم حاصبيا said:

جرب هذا الماكرو (على اساس ان البيانات تبدأ من الخلية A1 ) و يتخللها صفوف و أعمدة فارغة


Sub del_rows_and_columns()
Dim my_rg1 As Range, my_rg2 As Range
Dim y%: y = Cells(1, Columns.Count).End(1).Column
Dim x%: x = Cells(Rows.Count, 1).End(3).Row
Set my_rg1 = Range(Cells(1, 1), Cells(1, y)).SpecialCells(4)
Set my_rg2 = Range(Cells(1, 1), Cells(x, 1)).SpecialCells(4)

my_rg1.EntireColumn.Delete
my_rg2.EntireRow.Delete
End Sub

 

استاذنا الفاضل / سليم 

بعد ان قمت بنسخ الكود ولصقه لم استطيع تنفيذ الماكرو حيث اننى ليس على درايه كامله بالـ vba حيث اننى مازلت مبتدأً 

فكيف اقوم بتنفيذه بطريقه سليمه 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information