Excel VBA マクロ - ehatoovo @ ウィキ

ExcelVBAで7行プログラミングだ！
結論：無理
自作してそれなりに使っているマクロを置いていく予定。

---

かんたん表作成

選択しているセル範囲の1行目をヘッダー行、2行目以降をデータ行としてテーブルの見栄えを設定する。

 Public Sub かんたん表作成()
   With Selection.Resize(1) ' ヘッダ行の設定
       .Borders.LineStyle = xlContinuous
       .Interior.Color = 16764057
   End With
   If Selection.Rows.Count = 1 Then Exit Sub ' ヘッダ行しかない場合処理を抜ける
   With Selection.Offset(1).Resize(Selection.Rows.Count - 1) ' データ行の設定
       .Borders.LineStyle = xlContinuous
       .Borders(xlInsideHorizontal).Weight = xlHairline
   End With
 End Sub

全シートのカーソルをA1に設定する

セルA1指定、スクロールバーを左上に設定、倍率を100％に設定する。

 Public Sub A1設定()
   ' 各シートの選択セルとスクロール位置と倍率を統一する
   Dim ws As Worksheet
   On Error Resume Next ' 非表示シートをSelectするとエラーになるので無視する
   For Each ws In ActiveWorkbook.Worksheets
       ws.Select
       ws.Cells(1, 1).Activate
       ActiveWindow.ScrollRow = 1
       ActiveWindow.ScrollColumn = 1
       ActiveWindow.Zoom = 100
   Next
   ActiveWorkbook.Worksheets(1).Select
 End Sub