كيفية اخفار السطور الخالية فى شيت اكسل باستخدام الماكرو

اختر المجال المطلوب و سمه Myrange

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

ستكون علي اول عمود فى المجال

العمود B فى المثال المرفق

ثم اضغط ALT+F8 و اخترا الماكرو و شغله

سيقوم الماكرو باختيار المجال المسمي سابقا Myrange

ثم يدرس الصفوف التي بها العمود B خالي و يخفيها

Sub hidemptyRow_basedonthiscol()

'

' hideemptyRow Macro

' Macro recorded 25-12-02 by taher to hide empty rows in aselection





Application.ScreenUpdating = False



Application.Goto Reference:="myrange"

  

  Myrows = Selection.Rows.Count

  origraw = Myrows

  

ActiveCell.Select

For i = 1 To Myrows - 1

 If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Activate

    If ActiveCell.Value = "" Then

    ActiveCell.EntireRow.Hidden = -1

    ActiveCell.Offset(1, 0).Activate

      Myrows = Myrows - 1

    End If

   Application.StatusBar = "checking ...." & _

   Format(i / origraw, "0.0%") & "       Please Wait......."

   

Next i



    Application.ScreenUpdating = True

    Application.StatusBar = False

End Sub

hideemptyrows.zip

اخى العزيز محمد طاهر جزالك الله كل خير

وربنا يزيدك علما نافعا ترسلة لنا