|
▼トキノハジメ さん:
たまたま似たようなものを作っていたのでこれを改変すれば一応できるかと
Sub 対戦表ー三角行列上部() '進行方向が↓
'
Dim 横 As Long 'その行がいくつの列を持っているか 最初から作るときは1
Dim 縦 As Long '作成する列の数
Dim 変数_1 As Long
Dim 変数_2 As Long
横 = 1
縦 = 5
For j = 1 To 縦
For i = 1 To 横
Cells(i, j + 1).Value = 変数_1 '入力する値
変数_1 = 変数_1 + 1
変数_2 = 変数_2 + Cells(i, j + 1)
Next i
Cells(9, j + 1) = 変数_2
横 = 横 + 1
Next j
End Sub
Sub 対戦表ー三角行列下部_4() '進行方向が↑
'
Dim 横 As Long 'その行がいくつの列を持っているか 最初から作るときは1
Dim 縦 As Long '作成する列の数
Dim 変数_1 As Long
Dim 変数_2 As Long
Dim 変数_3 As Long
Dim n As Long
横 = 5
n = 横
縦 = 5
For j = 1 To 縦
For i = 1 To 横
変数_2 = 0
Cells(n - i + 1, j + 1).Value = 変数_1 '表に入力する値
変数_1 = 変数_1 + 1
変数_2 = 変数_2 + Cells(n - i + 1, j + 1)
Next i
Cells(9, j + 1) = 変数_2
横 = 横 - 1
Next j
End Sub
|
|