إخفاء أو حذف الصفوف

[ابو الهش]

الاخوة الافاضل

ممكن مشاركة

اريد كود لاخفاء الصفوف الفارغة فى ورقة اكسل

( اخفاء وليس حذف )

ولكم جزيل الشكر

اخوكم ابو الهش

[m.hindawi]

بسم الله الرحمن الرحيم

جرب الكود التالي

 Rows("1:4").Select
    Selection.EntireRow.Hidden = True

طبعا هذا الكود يخفي الصفوف من رقم 1 الى رقم 4

[ابو الهش]

شكر للاخ العزيز على الرد

ولكن هذا الكود يخفى الصفوف من 1:10

ولكن المطلوب يخفى الصفوف الفارغة من البياتات فى مجال

اشكر اخوك ابو الهش

[m.hindawi]

بسم الله الرحمن الرحيم

عذرا لم افهم الموضوع

جرب الكود التالي

For A = 1 To 1000
TEST = Sheets("1").Cells(A, 1)
 If (TEST) = "" Then
Rows(A).Hidden = True

End If

Next

طبعا هذا الكود يقم بفحص 1000 سطر اذا اردت اكثر او اقل عليك تعديل الحد الاعلى للمتغير A

ملاحظة اسم الورقة في المثال هو 1 غير اسم الورقة حسب اسم الورقة الموجودة عندك

تم تعديل أبريل 15, 2005 بواسطه m.hindawi

[abo yasser]

شكرا يااخى تحياتي

[هادى محمد المامون سالم]

الله يفتح عليك

[lord]

السلام عليكم ورحمة الله وبركاته

سلامى للجميع

اريد اخفاء جميع الصفوف الفارغة الموجودة فى جميع اوراق العمل للملف المفتوح وليس ورقة ورقة

بمعنى اوضح اريد عمل زر لاخفاء الصفوف من الملف من a1:a1000 فى جميع اوراق الملف

ولكم جزيل الشكر

[نزار سليمان عيد]

ايضا تعقيبا على المطلوب

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

ولكم جزيل الشكر

[علي السحيب]

لإخفاء الصفوف الفارغة في الصفحة الحالية فقط .. استخدم الكود التالي:

Sub Hide()

Application.ScreenUpdating = False
For A = 1 To 1000
BR = ActiveSheet.Cells(A, 1)
If BR = "" Then
Rows(A).Hidden = True
End If
Next
Application.ScreenUpdating = True

End Sub

ولإخفاء الصفوف الفارغة في جميع الصفحات .. استخدم الكود التالي:

Sub HideAll()

Application.ScreenUpdating = False
With ActiveWorkbook
For Each Sh In .Sheets
Sh.Select
For A = 1 To 1000
BR = Sh.Cells(A, 1)
If BR = "" Then
Sh.Rows(A).Hidden = True
End If
Next
Next
End With
Application.ScreenUpdating = True

End Sub

________________________.rar

تم تعديل سبتمبر 21, 2006 بواسطه علي السحيب

[نزار سليمان عيد]

الاخ ابا حسين

يعطيك العافية

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

ولك الشكر مقدما

[lord]

السلام عليكم ورحمة الله وبركاتة

تحية طيبة للجميع

شكرا للاستاذ على السحيب

وكل عام وانتم بخير

[علي السحيب]

الاخ ابا حسين

يعطيك العافية

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

ولك الشكر مقدما

إذا أردت حذف الصف بدلاً من إخفاءة .. للصفحة الحالية فقط .. تقوم بإستبدال السطر التالي في الكود:

Rows(A).Hidden = True

بهذا السطر:

Rows(A).Delete

وفي جميع الصفحات .. تقوم بإستبدال السطر التالي في الكود:

Sh.Rows(A).Hidden = True

بهذا السطر:

Sh.Rows(A).Delete

كما هو واضح في المرفق،

______________________.rar

[نزار سليمان عيد]

الاخ ابا حسين حفظك الله

بارك الله فيك وفي جهودك

مع الشكر الجزيل

[نزار سليمان عيد]

الاخ ابا حسين

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

[lord]

السلام عليكم ورحمة الله وبركاته

تحياتى للجميع

الكود بيعمل بكفاءة

ولكن لى طلب عند الاستاذ على

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

علما باننى سعيد جدا لتنفيذ المطلوب بكفاءة

وشكرا

[علي السحيب]

الاخ ابا حسين

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

لحذف صف معين من الصفحة الحالية قم بإختيار أي خلية من ذلك الصف .. ثم قم بتشغيل الكود التالي:

Sub Delete()

Rows(ActiveCell.Row).Delete

End Sub

ولو أردنا حذف صف معين من جميع الصفحات الموجودة في الملف .. قم بإختيار أي خلية من ذلك الصف .. ثم قم بتشغيل الكود التالي:

Sub DeleteAll()

D = ActiveCell.Row

With ActiveWorkbook
For Each Sh In .Sheets
Sh.Select
Rows(D).Delete
Next
End With

End Sub

_____________________________________.rar

تم تعديل سبتمبر 21, 2006 بواسطه علي السحيب

[علي السحيب]

السلام عليكم ورحمة الله وبركاته

تحياتى للجميع

الكود بيعمل بكفاءة

ولكن لى طلب عند الاستاذ على

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

علما باننى سعيد جدا لتنفيذ المطلوب بكفاءة

وشكرا

الأخ Lord شكراً على ملاحظتك القيمة .. تم إجراء التعديل اللازم على المشاركة رقم 9 (الأكواد والمرفق) .. فما عليك سوى إعادة تحميل المرفق،

[lord]

السلام عليكم ورحمة الله وبركاته

ما شاء الله لاقوة الا بالله

[نزار سليمان عيد]

الاخ ابا حسين

مشكور جدا وكل عام وانت بخير ورمضان كريم