Excelレポートを顧客に配布する際にダブルクリックダミー

Excelレポートを顧客に配布するときには、いくつかの鐘や笛を加えるのが良いでしょう。簡単に適用できる拡張機能の1つは、列見出しをダブルクリックしたときに並べ替える機能です。これは複雑に思えるかもしれませんが、このマクロでは比較的簡単です。

このダブルクリック技法の実例をExcelでダウンロードできます。

マクロの仕組み

このマクロでは、最後に空でない行を見つけます。その行番号を使用して、ソートする必要がある行のターゲット範囲を定義します。 Sortメソッドを使用して、ダブルクリックした列でターゲット行をソートします。

<！ [1ステップ：変数を宣言する] [LastRow As Long]ステップ2：最後の空でない行を検索するLastRow =セル（行数、1）。終了（xlUp）。行 'ステップ3：ダブルクリックされた列の行（ "6："&LastRow）で昇順にソートします。 Sort_Key1：=セル（6、ActiveCell列）、_ Order1：= xlAscending End Sub

ステップ1では、最後の空でない行の行番号を保持するために、LastRowというLong Integer変数を宣言します。

<！ - 2 - >

ステップ2では、最後の空でない行をワークシートの最後の行から取得し、Endプロパティを使用して最初の空でないセルにジャンプします（セルA1048576とCtrl + Shift +上矢印を押してください）。

このセルの列番号をデータセットに適した列番号に変更する必要があることに注意してください。たとえば、列Jでテーブルを開始する場合は、手順2のステートメントをセル（行数、10）に変更する必要があります。終了（xlUp）。行Jはワークシートの10番目の列であるため、行。

<！ - 3 - >

ステップ3では、データの合計行範囲を定義します。行の範囲は、データの最初の行（ヘッダーを除く）から始まり、最後の空でない行で終わらなければならないことに注意してください。この場合、データセットは行6で開始されるため、行（ "6："&LastRow）でSortメソッドを使用します。

Key引数は、並べ替える範囲をExcelに指示します。ここでも、使用する範囲がデータの最初の行（ヘッダーを除く）で始まることを確認する必要があります。

マクロの使用方法

このマクロを実装するには、このマクロをコピーしてWorksheet_BeforeDoubleClickイベントコードウィンドウに貼り付ける必要があります。ここにマクロを配置すると、シートをダブルクリックするたびに実行されます。

Alt + F11キーを押してVisual Basic Editorをアクティブにします。

1. プロジェクトウィンドウで、プロジェクト/ワークブックの名前を探し、その横のプラス記号をクリックしてすべてのシートを表示します。

2. コードをトリガーするシートをクリックします。

3. イベントドロップダウンボックスで、BeforeDoubleClickイベントを選択します。

4. コードを入力または貼り付けます。