ExcelファイルでカーソルをA1へ移動するのが流行っているらしいのでアドインを作ってみました。
①マクロを使えるようにします。(既に設定済の方は②に進んでください)
※「マクロを使えるようにする」を参照
②アドインファイルをダウンロード
③アドインを追加
過去の記事を参考に追加してください。
Sub ObserveManners()
Dim ws As Worksheet
'全てのシートでA1セルを指定し、倍率を100%に変更。
For Each ws In Worksheets
ws.Select
ws.Range("A1").Select
ActiveWindow.Zoom = 100
Next
'1つ目のシートへ移動。
Sheets(1).Select
End Sub
Excelで作った表をHTMLに変換するプログラムを作ってみました。
HPに表を埋め込んだりしたいときにご利用ください。
①マクロを使えるようにします。(既に設定済の方は②に進んでください)
※「マクロを使えるようにする」を参照
②アドインファイルをダウンロード
③「Excelアドイン」ボタンを押します
④「参照」ボタンから起動する場所に、ダウンロードしたファイルをコピーします
⑤「ファイルの参照」画面で、コピーしたファイルを選択した状態で「OK」を押します
⑥有効なアドインに追加されるので、そのまま「OK」を押します
⑦「ファイル」タブから「オプション」を選択します
⑧「クイック アクセス ツールバー」にてコマンドの選択を「マクロ」として「TableToHTML」をダブルクリックします
Excelでシート数の多い資料を作成したとき、目次シートを用意して各シートへのハイパーリンクを作成することがあると思います。
シート数が多いと１つずつハイパーリンクを作成するのも大変なため、一括で全シートへのハイパーリンクを作成できるようにしてみました。
①マクロを使えるようにします。(既に設定済の方は②に進んでください)
※「マクロを使えるようにする」を参照
②「Alt + F11」でVBEを開きます。
③「挿入」から「標準モジュール」を選択します。
④以下のコードをコピー＆ペーストします。
Sub toc()
For i = 1 To Sheets.Count
Cells(Selection(1).Row + i - 1, Selection(1).Column).Value = "=HYPERLINK(""#'" & Worksheets(i).Name & "'!A1"",""" & Worksheets(i).Name & """)"
Next i
End Sub
⑤ファイルの種類で「Excelアドイン(*.xlam)」を選択して保存します。
⑥「Excelアドイン」ボタンから、作成したアドイン(Toc)を有効にします。
⑦「ファイル」を押します。
⑧「オプション」を押します。
⑨「クイックアクセスツールバー」に今回作成した「Table」を追加します。
⑩「クイックアクセスツールバー」のボタンから、テーブルを自動作成できるようになりました。
