エクセル|VBA問題-1

ヒマな方は考えてください。
ワークシートに図と同じセル番地へ”A”を表示してください。
VBA問題-1

特に決まりごとはありません。
そんなに難しくないのでヒマつぶしにならないかも。
私が考えたコードをページの下に書いておきます。
参考になるかどうかは、分りません。

by わだまさつか
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Sub Test_01st()
Dim f As Long
Dim c As Long
c = 5
With Worksheets(“Sheet1”)
  .Cells.Clear
    For f = 1 To 5
      .Range(.Cells(f, c), .Cells(c, c)).Value = “A”
      c = c – 1
    Next
End With
End Sub