اخفاء عمود بناء على قيمة خلية - حذف صف بناء على محتوى خلية

[عاشق الاكسيل]

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

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

صفحة 1

اخفاء العمود اذا كان قيمة الخلية 0 فى الصف 17

صفحة 2

حذف الصف الذى يحتوى على كلمة مصطفى

 

Request.rar

[عاشق الاكسيل]

للرقع

فى انتطار مساعدة اساتذتى

[ياسر خليل أبو البراء]

أخي الكريم

في عجالة سريعة عشان عندي شغل

بالنسبة للطلب الاول هل القيمة صفر المراد البحث عنها في الصف 17 في عمود محدد أم في أي عمود في الصف 17

بالنسبة للطلب الثاني جرب الكود التالي

Sub Test()
    Dim Cel As Range
    For Each Cel In Sheet2.Range("A1:A" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row)
        If Cel.Value = "مصطفى" Then Cel.EntireRow.Delete
    Next Cel
End Sub

 

 

جرب الكود بهذا الشكل

Sub Test()
    Dim Cel As Range, LastCol As Long, I As Long
    LastCol = Sheet1.Cells(17, Columns.Count).End(xlToLeft).Column
    
    For I = 1 To LastCol
        If Cells(17, I) = 0 Then Rows(17).Hidden = True: Exit Sub
    Next I
    
    For Each Cel In Sheet2.Range("A1:A" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row)
        If Cel.Value = "مصطفى" Then Cel.EntireRow.Delete
    Next Cel
End Sub

تقبل تحياتي

[عاشق الاكسيل]

الكود الاول يعمل بشكل صحيح الخاص بحذف الخلايا بناء على قيمة خلية

بالنسبة للطلب الاول

ارجو اذا كان قيمة خليه ف الصف رقم 17 يتم اخفاء كامل العمود

تم الوصول الى الكود الحمد لله

للافادة

Sub HideShowColumn()

    Dim rRange As Range, rCell As Range

    

    Set rRange = Range("A17", Range("IV17").End(xlToLeft))

    

    For Each rCell In rRange: rCell.EntireColumn.Hidden = (rCell = 0)

    Next rCell

   

    End Sub