丸を描くマクロ

少し頭の体操にとやり出したが、頭弱いもんで３０分以上かかってしまった

Cellsって普段使わないから.Offsetでやってみたり･･･

こんなのには非常に便利

Sub maru()
Dim x As Long
Dim y As Long
For x = 4 To 260
For y = 4 To 260
If Int(Sqr((x - 132) * (x - 132) + (y - 132) * (y - 132))) = 128 Then
Cells(x, y).Interior.ColorIndex = 1
End If
Next
Next
End Sub