ehabaf2 قام بنشر فبراير 19, 2023 مشاركة قام بنشر فبراير 19, 2023 السلام عليكم الاخوة الكرام رجاء مساعدتى فى عمل كود اخفاء اعمدة بناء على قيمة خليه بحيث اذا كتبت رقم 10 يخفى اعمدة معين انا محدد اعمدة من 1 الى 50 الكود يخفى كل الاعمدة المحددة من رقم 11 الى 50 و هكذا اذا كتبت 15 يخفى الاعمدة من 16 الى 50 مرفق كود للتوضيح كود اخفاء.xlsx رابط هذا التعليق شارك More sharing options...
أبومروان قام بنشر فبراير 19, 2023 مشاركة قام بنشر فبراير 19, 2023 السلام عليكم ورحمه الله وبركاته جرب هذا الكود وعدل عليه Sub HideColumnsByValue() Dim c As Range For Each c In Range("A:Z") If c.Value = "value" Then c.EntireColumn.Hidden = True End If Next c End Sub رابط هذا التعليق شارك More sharing options...
أبومروان قام بنشر فبراير 19, 2023 مشاركة قام بنشر فبراير 19, 2023 ممكن تراجع الموضوع أدناه ⬇️ https://www.officena.net/ib/topic/29848-حذف-الصفوف-و-الاعمدة-الغير-مستخدمة/ رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر فبراير 19, 2023 أفضل إجابة مشاركة قام بنشر فبراير 19, 2023 وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Private Sub Worksheet_SelectionChange(ByVal Target As Range) StartColumn = 6 ' اول عمود LastColumn = 40 ' اخر عمود iRow = 20 ' رقم الصف Application.ScreenUpdating = False For i = StartColumn To LastColumn Application.ScreenUpdating = False If Range("b20").Value = "" Then Columns("F:H").EntireColumn.Hidden = False Exit Sub End If If Cells(iRow, i).Value > Range("b20").Value Then Cells(iRow, i).EntireColumn.Hidden = True Else Cells(iRow, i).EntireColumn.Hidden = False End If Next i End Sub كود اخفاء.xlsm 4 رابط هذا التعليق شارك More sharing options...
ehabaf2 قام بنشر فبراير 20, 2023 الكاتب مشاركة قام بنشر فبراير 20, 2023 مرفق كود للتوضيح الف الف الف شكرا الاستاذ الفاضل محمد هشام الكود يعمنل و هو المطلويب الف الف شكر لحضرتك ربنا يحفظك و يزيدك مكن فضله رابط هذا التعليق شارك More sharing options...
ehabaf2 قام بنشر فبراير 22, 2023 الكاتب مشاركة قام بنشر فبراير 22, 2023 مرفق كود للتوضيح الف الف الف شكرا الاستاذ الفاضل محمد هشام الكود يعمنل و هو المطلويب الف الف شكر لحضرتك ربنا يحفظك و يزيدك من فضله بعد اذن حضرتك عندى ورقة عدد الاعمدة اللي بشتغل عليها 170 عمود الكود يعمل بكفاأة بس مع كل حركة للملف الكمبيوتر بطئ و يظهر دائرة كانه بيحمل حاجة ده مع كل حركة بالماوس هل يوجد طريق لتسريع الملف رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر فبراير 23, 2023 مشاركة قام بنشر فبراير 23, 2023 أخي @ehabaf2 هذه مسألة طبيعية خاصة عند وجود بيانات كثيرة على ورقة العمل من الأفضل إستبدال طريقة تنفيذ الكود من حدث الشيت إلى Module Sub Masquer_Columns() StartColumn = 6 ' اول عمود LastColumn = 176 ' اخر عمود iRow = 20 ' رقم الصف Application.ScreenUpdating = False For i = StartColumn To LastColumn If Range("B20").Value = "" Then 'From column 6 to column 170 Columns("F:FS").EntireColumn.Hidden = False Exit Sub End If If Cells(iRow, i).Value > Range("b20").Value Then Cells(iRow, i).EntireColumn.Hidden = True Else Cells(iRow, i).EntireColumn.Hidden = False End If Next i Application.ScreenUpdating = True End Sub كود اخفاء v2.xlsm 3 رابط هذا التعليق شارك More sharing options...
ehabaf2 قام بنشر فبراير 28, 2023 الكاتب مشاركة قام بنشر فبراير 28, 2023 الف شكر استاذ محمد هشام الكود تمام و يعمل بسرعة الف الف شكر لحضرتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان