正方形に置かれた25個の数字をランダムに並べ変え、それをコピーして挿入する。
決められた箇所に挿入することで、コピーを次々に並べることができる。
t_row = Target.row・・・selectionchangeでアクティブセルを取得
t_col = Target.Column
セル(1,6)がアクティブになった場合のみ実行。ループしないようにする。
If (t_row = 1) And (t_col = 6) Then
Range("6:50").Delete古い情報を削除
For i = 1 To 10 Step 1
For p_row = 1 To 5 Step 1
For p_col = 1 To 5 Step 1
tmp = Cells(p_row, p_col)
r_row = Int(5 * Rnd + 1)
r_col = Int(5 * Rnd + 1)
Cells(p_row, p_col) = Cells(r_row, r_col)
Cells(r_row, r_col) = tmp
Next
Next
If i <> 10 Then
' Range("1:5").Copy・・指定箇所をコピー
Range(Cells(1, 1), Cells(5, 5)).Copy
'切り取った行を3行目に挿入(移動)します
Range("6:10").Insert ・・指定箇所をインサート
End If
Next
Range(Columns(1), Columns(5)).ColumnWidth = 20 横幅の指定
Range(Rows(1), Columns(50)).RowHeight = 150 縦幅の指定
End If