Example of cell format for VBA learning notes

1 SubFormat Payroll bar ()2 Dimi%3i = Cells (Rows.Count,1). End (Xlup). Row4  forj =1  toI5     IfJMod 2  Then6     'If J Mod 2 =1 then is equivalent to the previous sentence because 1 corresponds to the logical value of ture, 0 is equivalent to False7     'This sentence is an odd line operation8          withCells (J,1). Entirerow.range ("A1:G1"). Font9         'EntireRow selection to entire rowTen. Bold =True One. Size =8 A. ColorIndex = About -         End  with -     Else 'dual-Number lines to operate the          withCells (J,1). Entirerow.range ("A1:G1"). Interior -         'Why are even rows (not the first row) or A1:g1? Because relative region references (Range.range) -. ColorIndex = + -         End  with +     End If - NextJ + End Sub A  at SubClear Formatting () - Selection.clearformats - End Sub

：

Example of cell format for VBA learning notes