エクセル顧客管理
メニューを作成

第35回.メニューを作成

エクセルで顧客管理を作ろう、

エクセルも大分出来てきましたので、シート見出しを頼りに移動しているのは不便です、

今回はメニューを作成します。

以下が作成したメニューです。

いろいろ、機能が増えていますが、プログラムは「納品書」とほぼ同様です。

次回、エクセルをアップしますので、確認して下さい。

メニューの作り方

ボタンを配置すれば終了です（笑）

いや、本当に、ボタンを配置して、Clickイベントで、当該シートへ移動すれば良いのです。

でも、それだけでは面白くないので、少し細工を施します。

ワークブックモジュールの「Workbook_Open」を以下にします。

Application.OnKey "{F1}", "ファンクションF1"

これは元々入れてあった、F1押下時に、プロシージャーを起動するものです。

Call シート移動("メニュー")

指定シートに移動し、他のシートは非表示にするモジュールです。

後述します。

シート取得("メニュー").ScrollArea = "$A$1:$F$14"

指定範囲のみスクロール可能ににします。

スクロール不可の範囲は、セルの選択も出来なくなります。

ActiveWindow.DisplayHeadings = False
行列の見出しを非表示にします。

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False

シート保護です。

ActiveWorkbook.Saved = True

ブックを保存済状態にします。

この後、何らかの変更がブックに加えられると、Falseになります。

つまり、ブックを開いた直後は、変更無しの状態にしています。

これが無いと、Workbook_Openが動作していますので、何も変更していなくても、

未保存状態になってしまい、閉じる場合に、保存確認が表示されます。

次に、上に出てきた、「シート移動」です。

各シートに、タイトルを入れると見やすいのですが、わざわざタイトル表示も面倒なので、

代わりに、シート見出しを使います。

アクティブシート以外は非表示にし、アクティブシートのシート名のみ表示された状態にします。

Application.EnableEvents = True
シート取得(strSht).Visible = True
シート取得(strSht).Select
Application.EnableEvents = False
イベントを有効にしているのは、各シートの「Worksheet_Activate」を有効にするためです。

Visible = Trueで表示し、Selectしています。

For Each sht In ActiveWorkbook.Worksheets
　　If Not sht Is ActiveSheet Then
　　　　sht.Visible = False
　　End If
Next
現在のシート以外は、全て非表示にしています。

Select Case ActiveSheet.Name

シート毎に、必要な初期処理を記述する為です。

Application.MoveAfterReturnDirection = xlToRight
「Enter」時の移動を、右に移動するように設定しています。

「顧客登録」では、EnabledSelectionをxlUnlockedCellsに設定し、シート保護しています。

この場合、セルロックしていないセルのみ移動できるようになっていますが、

セル結合しており、結合数もバラバラなので、「Enter」で、下に移動しない場合が発生します。

この為、右移動で下に移動させる為です。（右側に有効セルがないので、下に移動します）

各シートには、メニューへ移動する為のボタンを配置します。

これで、ちょっとしたアプリっぽくなりました（笑）

さらに、ちょっとしたお遊びです。

「Workbook_Open」に「ActiveWorkbook.Saved = True」を入れた理由です。

ワークブックモジュールに以下を追加します。

メニューの終了ボタンを使わなかった場合のメッセージです。

ただし、ブックを開いた直後や、保存直後はメッセージが表示されません。

これを判定しているのが、

If ActiveWorkbook.Saved = False Then
です。

ActiveWorkbook.Savedは、ブックに変更があった場合に、Falseになります。

保存した場合は、Trueになります。

この為に、「Workbook_Open」でTrueにしたのです。

どうでしょう。

大分それらしくはなってきました。

当初の予定機能で、未実装がまだありますが、本シリーズは、次回で一旦終了する予定です。

次回は全体の解説と、現時点でのエクセルも次回アップします。