ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا

[ابا اسماعيل]

ياريت كود يقوم بخفاء واظهار صفوف الفارغة تلقائيا ولما يتم اضافه بيانات جديدة يتم ااظهار وادراج سطرتلقائيا من نطاق 35 الى 100

 

 

 

اخفاء واظهار.zip

[سليم حاصبيا]

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x
If Target.Column = 1 And _
Target.Count = 1 And Target.Row < 100 Then
x = Range("A:a").Find("", after:=Cells(1, 1)).Row
 hid_My_row (x)
 End If
End Sub
Rem++++++++++++++++++++++++++++++++++
Sub hid_My_row(k%)
Rows(k + 1 & ":" & 100).Hidden = True
Rows(1 & ":" & k).Hidden = False
Cells(k - 1, 1).Offset(, 1).Select
End Sub
Rem++++++++++++++++++++++++++++++++++
Sub SHOW_ME()
Rows(1 & ":" & 100).Hidden = False
End Sub
Rem++++++++++++++++++++++++++++++++++

الملف للتجربة مرفق

SHOW_HIDE_ROWS.xlsm

[ابا اسماعيل]

ممتاز جزاك الله حيرا اخي سليم حاصبيا

 هل يمكن  ادراج حدود الطباعة مع سطر

 

[ابا اسماعيل]

ياريت يتم إدراج حدود الطباعة مع سطرفارغ في أخر صفحة في آخر سطر فيه بيانات

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

[سليم حاصبيا]

تفضل

Print_vis_ROWS.xlsm

[ابا اسماعيل]

عمل رائع اخي سليم حاصبيا اتمنى لك توفيق جزاك الله خير

وأرجو أن لاأكون قد أزعجتك بطلباتي

اريد ان اعرف كيف اقوم بتطبيق هذه طريقة في ملف اخر 

وكيف اقوم تحويل عمود القيمة لدراج سطر  من عمود a الى عمود D

 

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

[سليم حاصبيا]

تابع هذه الصورة

[ابا اسماعيل]

اخي سليم ارجو المعذرة  لو سمحت

اريدلما اكتب اي شئ  في عمود d يتم إدراج سطر  بدلا من عمود a

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

[سليم حاصبيا]

تم معالجة الامر

لا تختفي الصفوف الا اذا كان الصف  من ( A ِ الى D ) مكتملاً ( 4 عناصر)

Code

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("a2:d99")) Is Nothing _
 And Application.CountA(Range(Cells(Target.Row, 1), Cells(Target.Row, 4))) = 4 Then
 hid_My_row (Target.Row)
 End If
End Sub
Rem++++++++++++++++++++++++++++++++++
Sub hid_My_row(k%)
Rows(k + 2 & ":" & 104).Hidden = True
Rows(1 & ":" & k + 1).Hidden = False
Cells(k + 1, 1).Select
End Sub
Rem++++++++++++++++++++++++++++++++++
Sub SHOW_ME()
Rows(1 & ":" & 105).Hidden = False
End Sub
Rem++++++++++++++++++++++++++++++++++

 

 

hide_Any_wher_ROWS.xlsm

[ابا اسماعيل]

اخي سليم حاصبيا عمل رائع  اتمنى لك توفيق

وبارك الله فيك وجزاك الله الفردوس الاعلى ان شاء الله 

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

جزاك الله خير

 

 

Hidden.zip

تم تعديل مارس 22, 2019 بواسطه ابا اسماعيل

[سليم حاصبيا]

لك ما تريد

 

 

 

Hidden_rows .xlsm

[ابا اسماعيل]

 اخي سليم حاصبيا لا أعرف من أين أبدا ولا أعرف ماذا اقول

وفقك الله و جزاك الله خيرا 

[ابا اسماعيل]

أخي الكريم أود أن أشكرك على جهودك الكبير جزاك الله خيرا لطلب اريد اضافة تعديل في الكود اذا كان باستطاعتك اتك

اريد اضافه في الكود لي ادراج 20 اسطر من كل خانة محددة لما تساوي الخانة .D40.  يتم ادراج 20 اسطر و عندما تساوي صفر يتم اخفاء صفوف وعندالخانة .D80.  تساوي يتم ادراج 20 اسطر اخر وفي الخانة .D120. تساوي ادراج 20 اسطر حتى  نطاق 158

Hidden_rows .xlsm

تم تعديل مارس 23, 2019 بواسطه ابا اسماعيل

[abu yehia]

السلام عليكم

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

اخوكم حسين

علما اني تابعت معظم اليوتيوبات ولكن من دون جدوى

[Ali Mohamed Ali]

وعليكم السلام اخى أبو يحيى -اهلا بك في المنتدى عليك برفع مشاركتك بقسم الأكسيس 

فانت هنا في قسم الإكسيل

بارك الله فيك

[ابا اسماعيل]

أخي الكريم أود أن أشكرك على جهودك الكبير جزاك الله خيرا لطلب اريد اضافة تعديل في الكود اذا كان باستطاعتك اتك

اريد اضافه في الكود لي ادراج 20 اسطر من كل خانة محددة لما تساوي الخانة .D40.  يتم ادراج 20 اسطر و عندما تساوي صفر يتم اخفاء صفوف وعندالخانة .D80.  تساوي يتم ادراج 20 اسطر اخر وفي الخانة .D120. تساوي ادراج 20 اسطر حتى  نطاق 158

 

Hidden_rows .xlsm

[ابا اسماعيل]

المرجو تعديل الكود لي ادراج 20 اسطر من كل نطاق معين من الخلايا .D40.  يتم ادراج 20 اسطر ومن الخلايا .D80. يتم ادراج 20 اسطر اخر ومن الخلايا .D120