VBA も魔法陣から始めたいと思います

実行画面は,このような感じになります

セル A1 に魔法陣の次数が入り,その横にコマンドボタンを一つ配置します
このボタンをクリックすると,その次数の魔法陣ができ上がります

コマンドボタンの Click イベントに次のコードを記入します
アルゴリズムとコードの内容は,C言語・Python で用いたものとまったく同じものです

Private Sub CommandButton1_Click()

  ("A2:z26").ClearContents

  Dim d As Integer
  Dim i As Integer, j As Integer
  Dim num As Integer

  d = Cells(1, 1)
  i = d + 1
  j = (d + 1) / 2

  For num = 1 To d * d
    Cells(i, j) = num
    If Cells((i - 1) Mod d + 2, j Mod d + 1).Value = "" Then
      i = (i - 1) Mod d + 2
      j = j Mod d + 1
    Else
      i = i - 1
    End If
  Next num

End Sub

配列は使わず,直接セルに値を書き込みました
basic は初めて覚えた言語ですから,気軽に使えます
VBAでは,変数宣言は不要ですが,敢えて整数型を宣言してみました
VBA は,オブジェクト指向を学ぶという点でも,気楽に始められる言語のような気がします

最終更新日時: 2022年 03月 8日(火曜日) 17:41