Matriz Magica 3X3 Soma Sempre 15

[sorel]

tanto por linhas e colunas e as duas diagonais é 15 entao tem sabe no excel atribuindo com matriz

 https://encrypted-tbn3.gstatic.com/images?q=tbn:ANd9GcSomv-cxF3pHJWF6mlOmcYlxPj8GvXsQcS18T5vP5N6nsf4cs4mqA

[sorel]

voce pode fixar por exemplo 3 entao de 01 a 08 fechando or 3 temos 56

vaiter jogar com 56 matrizes igual  se da no minim 3 em 01a 8   estara fixa

 é apenas um exemplo, é que estas 3 vao direcionar as outras sem repetir na lina ou colua ou diagonal

[sorel]

preciso que alguem que saiba ativar a macro é sua a matriz,sim claro

   Sub MG3()

Dim Board As Range
Dim cel As Range
Dim cr As Range

Set Board = Selection

If Board.Rows.Count = Board.Columns.Count And Board.Rows.Count > 2 And Board.Rows.Count Mod 2 = 1 Then

Board.Cells.ClearContents
Set cel = Board.Cells(1, Int(Board.Columns.Count / 2) + 1)
cel.Value = 1


For i = 2 To Board.Cells.Count

If cel.Row() = 1 And cel.Column() <> Board.Columns.Count Then
Set cr = Board.Cells(Board.Rows.Count, cel.Column() + 1)
ElseIf cel.Row() = 1 And cel.Column() = Board.Columns.Count Then
Set cr = Board.Cells(Board.Rows.Count, 1)
ElseIf cel.Column() = Board.Columns.Count Then
Set cr = Board.Cells(cel.Row() - 1, 1)
Else
Set cr = cel.Offset(-1, 1)
End If

If cr.Value = vbNullString Then
Set cel = cr
Else
Set cel = cel.Offset(1)
End If

cel.Value = i

Next i
Else
MsgBox "Invalid Range"
End If

End Sub