المرور بكل عناصر المجموعة



المرور بكل عناصر المجموعة


المرور بكل اوراق العمل و اظهار اى ورقة عمل مخفية
Sub LoopThroughSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = True
Next
End Sub



الالتفاف حول كل الخلايا فى النطاق المحدد
الالتفاف حول كل الخلايا فى النطاق المحدد و معرفة
اذا كانت الخلية تحتوى على رقم سالب او موجب او صفر
Sub If_Loop()
Dim Cell as Range
For Each Cell In Range("A2:A6")
If Cell.Value > 0 Then
Cell.Offset(0, 1).Value = "Positive"
ElseIf Cell.Value < 0 Then
Cell.Offset(0, 1).Value = "Negative"
Else
Cell.Offset(0, 1).Value = "Zero"
End If
Next Cell
End Sub



فك حماية كل اوراق العمل
Sub ForEachSheet_inWorkbook()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect "password"
Next ws
End Sub



حفظ كل كتب العمل المفتوحة
Sub ForEachWB_inWorkbooks()
Dim wb As Workbook
For Each wb In Workbooks
wb.Close SaveChanges:=True
Next wb
End Sub



حذف كل الاشكال فى ورقة العمل
Sub ForEachShape()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Delete
Next shp
End Sub



حذف كل الاشكال بداخل كل اوراق العمل فى كتاب العمل
Sub ForEachShape_inAllWorksheets()
Dim shp As Shape, ws As Worksheet
For Each ws In Worksheets
For Each shp In ws.Shapes
shp.Delete
Next shp
Next ws
End Sub



المرور بكل خلايا العمود A
Public Sub LoopThroughRows()
Dim cell As Range
For Each cell In Range("A:A")
Ff cell.value <> "" then MsgBox cell.address &": " & cell.value
Next cell
End Sub



المرور بكل خلايا الصف رقم 1
Public Sub LoopThroughColumns()
Dim cell As Range
For Each cell In Range("1:1")
If cell.Value <> "" Then MsgBox cell.Address & ": " & cell.Value
Next cell
End Sub