Excelでまとめを作れという課題をやるにあたって、セルを成形するのが大変だったのでマクロで作った。
A~ZZまでを方眼ノートみたいに調節
表示でページレイアウトにしたら丁度いい具合に収まるようにサイズを調整してある。
Sub ノート() Columns("A:Z").Select Selection.ColumnWidth = 2.63 For Count = Asc("A") To Asc("Y") Columns(Chr(Count) & Chr(Count + 1) & ":" & Chr(Count + 1) & Chr(Count)).Select Selection.ColumnWidth = 2.63 Columns(Chr(Count) & Chr(Count)).Select Selection.ColumnWidth = 3.88 Selection.Interior.Color = RGB(255, 245, 245) Next Columns("ZZ").Select Selection.ColumnWidth = 3.88 Selection.Interior.Color = RGB(255, 245, 245) Range("A1").Activate End Sub