3分で導入!エクセルDB最下行を一瞬で表示するマクロ

相談者   Excelのデータベースで「並べ替え」機能を使うと、並べ替えが実行されたあと、必ずデータベースの最上部が表示されてしまいます。毎回そのたびにデータベースの最下部まで手動でスクロールしているのですが、これを効率的にする方法はありませんか?

データベース
この状態で、たとえば日付列の並べ替えをすると……
並べ替え
……データベースの最上部が表示されてしまいます。。。

丸井   そんな時はマクロを使えば一瞬です。

最下行を選択・表示する
左上のコマンドボタン(↓マーク)をクリックするだけで、データベースの最下行が一瞬で選択・表示されます。

相談者   でも私、マクロは使えないんです……。

丸井   大丈夫です。マクロ初心者でも簡単にできる導入方法をお教えしますので、ご安心ください。


データベース最下行を一瞬で選択・表示するマクロの簡単導入4ステップ


  1. コマンドボタンを設置する
  2. コマンドボタンのプロパティを設定する
  3. コマンドボタンのコードを記述する
  4. デザインモードをオフにする

ステップ1. コマンドボタンを設置する


コマンドボタンの設置
好きな場所・使いやすい場所に、コマンドボタンを設置します。

[開発]タブ

[挿入]

[コマンドボタン(ActiveXコントロール)]

コマンドボタンを設置したい場所でドラッグをして、コマンドボタンを設置


ステップ2. コマンドボタンのプロパティを設定する


プロパティの設定
コマンドボタンの「名称」と「表示する文字」を設定します。

設置したコマンドボタンを選択して右クリック

[プロパティ]

「プロパティ」ウインドウの[全体]タブ

(オブジェクト名)に「最下行選択」、
Captionに「↓」、
を入力

「プロパティ」ウインドウ右上の[]


ステップ3. コマンドボタンのコードを記述する


コード記述
コマンドボタンがクリックされた時にどう動作させるのかを、設定します。

設置したコマンドボタンを選択して右クリック

[コードの表示]

(「Microsoft Visual Basic」が起動します。)

「Microsoft Visual Basic」ウインドウの、「Private Sub 最下行選択_Click()」と「End Sub」の間に次の文章を入力(コピペ)

赤字部分には、データベースの左端列と右端列のアルファベットを入れてください。)

Columns(“B:E“).Find( _
What:=”*”, _
LookIn:=xlValues, _
Searchorder:=xlByRows, _
Searchdirection:=xlPrevious) _
.EntireRow.Select


ステップ4. デザインモードをオフにする


デザインモードオフ
デザインモードがオンのままだと、コマンドボタンをクリックできないので、オフにします。

「Microsoft Excel」ウインドウを選択

[開発]タブ

[デザインモード](オフにする)


まとめ


丸井   以上です。これで、今後はいつでも好きな時に、今設置したコマンドボタンをクリックするだけで、データベースの最下行が一瞬で選択・表示されます。簡単導入4ステップを改めてお伝えしますと──

  1. コマンドボタンを設置する
  2. コマンドボタンのプロパティを設定する
  3. コマンドボタンのコードを記述する
  4. デザインモードをオフにする

相談者   わっ!できた!ほんとに一瞬ですね!うれし~。ありがとうございました!

丸井   こちらこそ、ありがとうございました。

参考文献:『達人が教えるExcel VBAテクニック207』早坂清志著・毎日コミュニケーションズ


追伸


美しいデザインの四書(見積書・納品書・請求書・領収書)をすばやく作成・保存・集計・検索したいですか?

Dmaker:ディーメーカー(無料)をどうぞ >