مستر ابو مرمر قام بنشر مايو 18, 2015 مشاركة قام بنشر مايو 18, 2015 ارجو من السادة خبراء الاكسيل ان يعلموني كيف اصنع كود تكون الصفوف كلها مخفيه و لكن يظهر الصف تلقائيا عند كتابة بيانات في الصف السابق له يعني انا بسجل بيانات التلاميذ في شيت كنترول يكون صف واحد فقط ظاهر و الباقي مخفي و بمجرد ما اضغط انتر علشان اضيف بيانات طالب جديد يظهر صف واحد فقط و هكذا هل هذا الطلب صعب ؟ 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 18, 2015 مشاركة قام بنشر مايو 18, 2015 عسى ان ينال اعجابك اخفاء صفوف.rar 1 رابط هذا التعليق شارك More sharing options...
مستر ابو مرمر قام بنشر مايو 20, 2015 الكاتب مشاركة قام بنشر مايو 20, 2015 شكرا على المساغدة و لكن ما اريدة هو انني مثلا اكتب في الصف الثاني فلا يظهر غير الصف الثالثو عندما انتقل للصف الثالث يظهر الصف الرابع و هكذا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 21, 2015 مشاركة قام بنشر مايو 21, 2015 استبدل الكود بهدا Sub hid() Dim myrng As Range lr1 = Cells(Rows.Count, 2).End(xlUp).Row Set myrng = Range("a2:a1048576") myrng.Rows.Hidden = True Range("a" & lr1 + 1 & ":" & "a" & lr1 + 2).Select Selection.Rows.Hidden = False Range("a" & lr1).Rows.Hidden = True 'Range("a" & "2" & ":" & "a" & lr1 - 1).Rows.Hidden = True Range("a" & lr1 + 1).Select Range("a" & lr1 + 1).Activate End Sub Private Sub Worksheet_Change(ByVal Target As Range) lr1 = Cells(Rows.Count, 2).End(xlUp).Row mycell = Range("d" & lr1).Address If Not Intersect(Target, Range(mycell)) Is Nothing And Target.Count = 1 Then If Target.Address = Range("d" & lr1).Address Then On Error Resume Next Application.ScreenUpdating = False hid Range("a" & lr1 + 2 & ":" & "a" & "1084576").Rows.Hidden = True End If End If Application.ScreenUpdating = True End Sub 1 رابط هذا التعليق شارك More sharing options...
مستر ابو مرمر قام بنشر مايو 21, 2015 الكاتب مشاركة قام بنشر مايو 21, 2015 ارجو شرح هذا الكود و ان امكن مثال معه اكون شاكر جدا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان