اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

هذا الكود يقوم باخفاء الاسطر التي لا توجد بها أي قيم فى العمود B

و يعتمد علي تسمية مجال محدد يسمي Myrange

لتحديد عدد الصفوف المطلوب ادراء هذه العملية عليها

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[/sql]

HideEmptyRows.zip

  • Like 1
قام بنشر

و هذا الكود المناظر لحذف الاسطر

و هنا لم يتم اختيار مجال باسم محدد ، و لكن يتم التنفيذ بناء علي اختيار المستخدم للخلاية selection

Sub deleteemptyRow()
'
' deleteemptyRow Macro
' Macro recorded 19/07/2000 by taher to delete empty rows in aselection
Application.ScreenUpdating = False

Dim MyRow As Long, origraw As Long ' Z As String
MyRow = Selection.Rows.Count
origraw = MyRow

ActiveCell.Select
'MsgBox MyRow
For i = 1 To MyRow
If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Activate

If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Delete
MyRow = MyRow - 1
End If


Application.StatusBar = "Parsing / deleting ...." & _
Format(i / origraw, "0.0%") & " Please Wait......."

Next i

Application.ScreenUpdating = True
Application.StatusBar = False
End Sub[/sql]

DeleteemptyRows.zip

  • Like 2
  • 16 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information