【Excel】全シートのセルをA1に移動・倍率100%にするアドイン

ExcelファイルでカーソルをA1へ移動するのが流行っているらしいのでアドインを作ってみました。

https://twitter.com/Rina_pan_pan/status/1704421257591365676

動作イメージ

設定方法

①マクロを使えるようにします。(既に設定済の方は②に進んでください)
※「マクロを使えるようにする」を参照

②アドインファイルをダウンロード

③アドインを追加
過去の記事を参考に追加してください。

ソースコード

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に変換する

Excelで作った表をHTMLに変換するプログラムを作ってみました。
HPに表を埋め込んだりしたいときにご利用ください。

設定方法

①マクロを使えるようにします。(既に設定済の方は②に進んでください)
※「マクロを使えるようにする」を参照

②アドインファイルをダウンロード

③「Excelアドイン」ボタンを押します

④「参照」ボタンから起動する場所に、ダウンロードしたファイルをコピーします

⑤「ファイルの参照」画面で、コピーしたファイルを選択した状態で「OK」を押します

⑥有効なアドインに追加されるので、そのまま「OK」を押します

⑦「ファイル」タブから「オプション」を選択します

⑧「クイック アクセス ツールバー」にてコマンドの選択を「マクロ」として「TableToHTML」をダブルクリックします

【Excel】全シートのハイパーリンクを一括作成

Excelでシート数の多い資料を作成したとき、目次シートを用意して各シートへのハイパーリンクを作成することがあると思います。

シート数が多いと1つずつハイパーリンクを作成するのも大変なため、一括で全シートへのハイパーリンクを作成できるようにしてみました。

このエクセルファイルの作り方

①マクロを使えるようにします。(既に設定済の方は②に進んでください)
※「マクロを使えるようにする」を参照

②「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」を追加します。

⑩「クイックアクセスツールバー」のボタンから、テーブルを自動作成できるようになりました。