Mod Operator Example
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
This example sets the column width of every other column on Sheet1 to 4 points.
For Each col In Worksheets("Sheet1").Columns If col.Column Mod 2 = 0 Then col.ColumnWidth = 4 End If Next col
This example sets the row height of every other row on Sheet1 to 4 points.
For Each rw In Worksheets("Sheet1").Rows If rw.Row Mod 2 = 0 Then rw.RowHeight = 4 End If Next rw
This example selects every other item in list box one on Sheet1.
Dim items() As Boolean Set lbox = Worksheets("Sheet1").ListBoxes(1) ReDim items(1 To lbox.ListCount) For i = 1 To lbox.ListCount If i Mod 2 = 1 Then items(i) = True Else items(i) = False End If Next lbox.MultiSelect = xlExtended lbox.Selected = items