2021/08/03

値入力後のセル移動方向を切替える

• １．背景
• ２．システム概要
• ３．プログラムの流れ
• ４．標準モジュール(Module1)
• 　４－１．宣言部
• 　　４－１－１．Windows API参照宣言（Excelバージョンでの分岐）
• 　　４－１－２．Windows API参照宣言（SetFocus と keybd_event）
• 　　４－１－３．keybd_event引数（仮想キーコード）の定数宣言
• 　　４－１－４．keybd_event引数（ハードウェアスキャンコード）
• 　　４－１－５．keybd_event引数（キーの動作）の定数宣言
• 　　　　よりみち（TABキーと Shift+TABキーの実行）
• 　　４－１－６．Enterキー移動方向（初期値）を保存するための変数宣言
• 　４－２．システム起動マクロ
• 　４－３．OnKeyメソッドの登録マクロ（Tabの実行）
• ５．操作ダイアログ(UserForm1)
• 　５ー１．フォーム上のコントロールの配置
• 　５ー２．フォームモジュール
• 　　５ー２－１．フォーム起動時の設定
• 　　５ー２－２．Enterキー移動方向（オプションボタン）の操作
• 　　５ー２－３．Tabキー代替キー選択（チェックボックス）の操作
• 　　５ー２－４．ワークシートへのFocus移動
• 　　５ー２－５．システムの終了
• ６．アドインとしてExcelにマクロを登録
• ７．最後に

１．背景

Excelワークシートのセルに値を入力した後、次のセルへ移動する方法としては、いくつか考えられます。
タブレット等でソフトキーボードを使っている場合は、ソフトキーボード上のキーを使わず、タッチペンや指でセルを直接指定する方が便利かもしれません。一方でハード的なキーボードで値を入力している場合は、マウスを使い慣れている方であれば、マウスクリックで次に入力するセルを指定することもある思います。
しかし「キーボードからマウスに持ち替える」のは結構煩わしく、「EnterキーやTabキー」「矢印キー」でセルを移動させる人の方が多いのではないかと思います。

Excelは「表計算ソフト」ですので、値を入力し易いような工夫が色々なところに盛り込まれています。
まず（セルへ値入力後の操作としての）EnterキーとTabキーの基本的な動きを図１－１で示します。
（矢印キーは、その方向にセルが動くだけですので、説明は割愛します。）

図１－１

図１－１のように、Enterキーを押すと入力セル（選択セル）は「下に移動」し、Tabキーでは「右に移動」します。
（Shiftキーを押しながらだと、Enterキーでは「上に移動」し、Tabキーでは「左に移動」します。）
なお、Enterキーで「動く方向」及び「移動するか否か」は設定が可能です。図１－２のように「ファイル」→「オプション」→「詳細設定」→「編集オプション」の部分で変更が可能です。（初期は、移動有り＋下に移動）

図１－２

図１－１で「Enterキーは、下に動く」と説明しましたが、セル範囲を指定した場合の動きは少し変わります。
図１－３の左側のように「値を入力したい範囲を単一行選択」したのち入力開始すると、その選択範囲内では「Enterキーで右に移動」します。
なお図１－３の右側のように「複数行を選択」すると、選択範囲内を「まず下のセルへ移動」し、選択範囲の最下行に達したら「右列の、選択範囲の一番上のセルへ移動」しますので、選択する行数には注意が必要です。

図１－３

また、TabキーとEnterキーを組み合わせ、図１－４のように使う方法もあります。
つまり、右側への移動には「Tabキー」を使用し、最右列で「Enterキー」を使用することで「入力開始列の１つ下の行」に移動することができます。

図１－４

この動き方は、テキストエディタやワープロソフトの上での「TabとEnterの役割」と似ています。図１－５はMicrosoftのワープロソフトWordのもので、通常は表示されませんが「Tab（→印）」「Enter（印）」と図１－４のTabキーとEnterキーで移動する方向を比較すると、共通していることが分かると思います。

図１－５

この図１－４の入力方法は、データ入力時には非常に便利なのですが、唯一欠点があります。それは、通常のキーボードでは「Tabキーは一番左端に１つ」しか無く、数値入力時に良く使われる「テンキー部」から「遠く離れている」ために、操作しづらいのです。（図１－６）

図１－６

そこで今回は、「Enterキーでの移動方向の切替」と「Tabキー機能を他のキーに置き換え」をダイアログ上で行えるものを紹介します。

ちなみにソフトキーボードの表示には、「Ctrl＋Windowsキー＋Ｏ（オー）」のショートカットが使用できます。
また、図１－３の右側図での「選択範囲内でのEnterキーでの移動順序」は「選択範囲（Selection）のItemインデックス順序」と似ていますが、図１－７のように「行列逆転」していますので、注意が必要です。

図１－７

２．システム概要

本システムはExcelアドインに登録することをイメージして作っています。図２－１のようにアドインしたボタンをクリック①することで、操作ダイアログ②が表示されます。
なお一番下のサンプルファイルには、シート上にある起動用ボタンをクリックすることで、すぐ試用できます。

図２－１

操作ダイアログ②内のユーザーが操作できる機能は、図２－２のように以下の２種です。
　③Enterキーで移動する方向の選択（上下左右の４方向のどれか１方向）
　④Tabキーの動作を「右矢印」「PageUp（PGUP）」「PageDown（PGDN）」のどれか１つで代用（非選択も可）

図２－２

ダイアログの一番右端には、システム起動前のExcelの「Enterキーの移動方向の既設定値⑤」を表示しています。
また「終了ボタン⑥」をクリックすることで、システム終了します。ダイアログ右上×印でも、同様に終了します。
システム終了すると、ユーザーがダイアログ上で設定したEnterキー移動方向、Tabキーの代替キーの設定は解除されます。

なおExcelの設定として「Enterキーを押しても移動しない（レ点が付いていない）」設定になっている時には、どの方向を選択してもEnterキーでの移動はしません。またExcelの設定としてのEnterキー移動方向を変更するには、図１－２のExcelオプション設定での変更が必要です。

なお、Tabキーを押せば図１－１の下側のように「右側へ移動」しますが、Shiftキーを押しながらTabキーを押すと「左側へ移動」します。この動作も代替キーに持たせていますので、例えば「右矢印」を選択した状態で「Shiftを押しながら右矢印キーを押す」と「左側へ移動」させるようにしています。この動作は「Shift＋Tab」と同様、図１－４のようにEnterキーとの組合せることにより、ある列範囲内でデータを連続入力させることも可能です。

３．プログラムの流れ

１つ目の機能の「Enterキーで移動する方向の選択」は、選択したオプションボタンに従って「マクロ側から図１－２の変更を実行」しているだけです。ですので設定は「上・下・左・右」の４種内の１つを選択することになります。

２つ目の機能の「Tabキーの代用キー」のプログラムは、図３－１のような流れになっています。

図３－１

今回のシステムでは、指定したキー（右矢印、PageUp、PageDown　のどれか）にOnKeyメソッドを使って「Tabキーを実行するマクロ」を割り当てしています。これにより、指定したキーを押すと「Tabキー」を押したことにしています。
なお今回システムでは訳があって「SendKeysメソッド」は使用していません。その理由は「よりみち」で説明します。

設定段階では、ダイアログのチェックボックスをON（レ点を付ける）にすると、まずOnKeyメソッドの初期化をし「指定キーの機能を元の状態に戻す」処理をします。指定キーのどれかにレ点があり、それを再クリックして消した場合には、この元の状態に戻したところで終了します。

レ点が付いた状態（どこかのCheckBoxに初めてレ点を付けた　又は、どこかのCheckBoxにレ点が付いている状態から別のCheckBoxにレ点を付けた）の場合には、新たにレ点を付けたCheckBox以外のレ点を外した後（レ点がついたCheckBoxは、最大でも１つにするため）、OnKeyメソッドで「新たにレ点を付けた指定キー」に対して「Tabキーを実行するマクロ」を割り当てします。

今回システムで選択できるTabの代替キーは、「右矢印、PageUp、PageDown」の内の１つとしました。３種以外にも設定可能なキーはもちろんありますが、「どのキーでもOK」という訳にはいきません。
例えば、テンキーの「＋」キーは「電卓の機能」から考えれば理想的です。しかし、セルを編集中に＋キーを押しても「文字列としての『＋』」が、編集文字列の１つになるだけで、OnKeyメソッドで「Tabキーを実行するマクロ」が起動されることはありません。（セル編集中で無ければ、OnKeyでマクロが呼び出されます）

このように、キーには「セル編集の文字列の１つになるキー」が存在し、図３－２のキーボード上で表すと①のオレンジ色のキーになります。
また、編集文字列にはならないが編集のツールの役目となる②の青いキーもありますが、これもセル編集中にはOnKeyでマクロを呼び出せません。
今回システムで「Tabキーの代わりに使える」のは「編集を終わらせられるキー」で、図３－２の③の緑色キーのみです。

図３－２

この緑色のキー③の中から、３つのキーを「Tabキーの代替キー」として使っています。Tabキーと感覚的に合うのは「右矢印」だけですが、（私としてはあまり使っていない）「PageUp」「PageDown」も加えてシステムを作りました。

なお、Windows APIなどを使えば、編集中のKeyPressイベントを取得できるみたいですが、結構大変そうです。
また図３－２の残りの白いキーは、何の種類のキーと言えば良いのか分かりませんが、とりあえず「編集を終了させることは出来ない」ので、対象から外しています。

４．標準モジュール(Module1)

４－１．宣言部

標準モジュールの宣言部では、以下の宣言をしています。
　・システム内でWindows APIを使用するための外部プロシージャへの参照宣言（Declareステートメント）
　・Windows APIのkeybd_eventで引数として使用する定数の宣言
　・システム起動前にユーザーが設定していた「Enterキーで移動する方向」を一時的に保存しておく変数宣言

1. '==========　⇩(1)　宣言部　============
2. #If Win64 Then
3. 　Public Declare PtrSafe Function SetFocus Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
4. 　Public Declare PtrSafe Sub keybd_event Lib "user32" _
5. 　　(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As LongPtr, ByVal dwExtraInfo As LongPtr)
6. #Else
7. 　Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
8. 　Public Declare Sub keybd_event Lib "user32" _
9. 　　(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
10. #End If
12. Public Const VK_TAB As Byte = 9
14. Const KEYEVENTF_EXTENDEDKEY As Long = 1
15. Const KEYEVENTF_KEYUP As Long = 2
17. Public Const keKEYDW As Long = 0
18. Public Const keKEYUP As Long = KEYEVENTF_KEYUP
20. Public UserSetting As XlDirection

図４－１

４－１－１．Windows API参照宣言（Excelバージョンでの分岐）

２～１０行目では、Windows APIの「SetFocus」「keybd_event」への参照宣言をしています。
但し、Excelのバージョン（64ビット版Excel OR 32ビット版Excel）により参照宣言の内容が異なります。つまり64ビット版と32ビット版ではコードを変更しなければならなくなり、管理も大変になります。
そこで今回は、条件付きコンパイル「#If Win64 Then（２行目）」を使い、３～５行目では「64ビット版Excel用」、７～９行目では「32ビット版Excel用」のDeclare宣言をしています。
このような分岐を「#If...Then...#Else ディレクティブ」と呼ぶようです。

なお、使っているExcelのバージョンは、図４－２のように「ファイル」→「アカウント」→「Excelのバージョン情報」をクリックすることで確認できます。

図４－２

宣言方法の違いを、今回参照している「SetFocus」について比較してみます。
　32ビット版　Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
　64ビット版　Public Declare PtrSafe Function SetFocus Lib "user32" (ByVal hwnd As LongPtr) As LongPtr

このように、64ビット版には「Function／Sub の前に PtrSafe を追加」「Long型はLongPtr型に変更」の２箇所を変更します。尚LongPtr型は、64ビット版ではLongLong型に自動的に変更され、32ビット版ではLong型に変更されるそうです。
（私のPCの環境が32ビット版のみなので未確認です。間違っていたらごめんなさい。）

４－１－２．Windows API参照宣言（SetFocus と keybd_event）

今回Declareで参照宣言している１つ目の「SetFocus」は「指定されたウィンドウにキーボードフォーカスを設定」するもので、今回システムでは「操作ダイアログで設定を切り替えた後、ワークシート側を一度クリックしなくても、すぐに入力することを可能」にするために、使っています。

２つ目の「keybd_event」は「キーストロークを合成」するもので、今回システムでは「Tabキー」操作をマクロ側から実行することに使用しています。keybd_eventの引数としては、図４－３の４つを渡します。

引数	型	内容
bVk	Byte	仮想キーコード（1～254の値）
bScan	Byte	ﾊｰﾄﾞｳｪｱｽｷｬﾝｺｰﾄﾞ。今回はｾﾞﾛを指定
dwFlags	Long	キーの動作（図４－６のﾌﾗｸﾞの組合せで指定）
dwExtraInfo	Long	ｷｰｽﾄﾛｰｸの追加情報（通常はゼロを指定）

図４－３

４－１－３．keybd_event引数（仮想キーコード）の定数宣言

keybd_eventの第一引数は「仮想キーコード」ですが、これについては様々なサイトで紹介されていますので、そちらも参照して下さい。図４－４では今回使用しているキーを中心に、仮想キーコードの一部のみを紹介します。

仮想キーコードの一部

定数名 値(10進数) キー VK_TAB 9 Tab VK_RETURN 13 Enter VK_SHIFT 16 Shift VK_CONTROL 17 Ctrl VK_PRIOR 33 PageUp

定数名 値(10進数) キー VK_NEXT 34 PageDown VK_LEFT 37 ← VK_UP 38 ↑ VK_RIGHT 39 → VK_DOWN 40 ↓

図４－４

今回は、Tabキーをマクロ側から実行させますので、１２行目の「Public Const VK_TAB As Byte = 9」で定数「VK_TAB」に値9を代入しています。尚、図４－４の「定数名」は、Excelで定義されている定数ではありませんので、１２行目の宣言が必要となります。

４－１－４．keybd_event引数（ハードウェアスキャンコード）

keybd_eventの第二引数は「ハードウェアスキャンコード」を指定することになっていますが、今回は「使用せず」ということで「ゼロ」を指定します。

しかし、キーボード種類によってはゼロ以外を指定しないと動作しない場合があるようです。図４－５に「TABキー」に於けるハードウェアスキャンコードを示しますので、もし「keybd_eventの第二引数がゼロでは動かない」場合、図４－５の値を指定してみて下さい。
なお図４－５の中の「メイクコード」はキーを押す場合、「ブレイクコード」はキーを離すに対応します。

ｽｷｬﾝｺｰﾄﾞｾｯﾄ	対応ｷｰﾎﾞｰﾄﾞ	ﾒｲｸｺｰﾄﾞ	ﾌﾞﾚｲｸｺｰﾄﾞ
Set 1	XTｷｰﾎﾞｰﾄﾞ､86ｷｰﾎﾞｰﾄﾞ	0x0f	0x8f
Set 2	IBM PC/AT拡張ｷｰﾎﾞｰﾄﾞ,101ｷｰﾎﾞｰﾄﾞ,Enchandedｷｰﾎﾞｰﾄﾞ	0x0D	0xF0,0x0D
Set 3	PS/2ｷｰﾎﾞｰﾄﾞ	0x0D	0xF0,0x0D

図４－５

ここで紹介したスキャンコードは「主要キーレイアウトのキーとその Scancode まとめ」等を参考にしました。これ以外のサイトでも色々取り上げられています。
但し「0xF0,0x0D」のような値を、keybd_eventの引数としてそのまま設定して良いのかは、私の環境では試すことが出来ないので分かりません。ご了解下さい

４－１－５．keybd_event引数（キーの動作）の定数宣言

keybd_eventの第三引数は「キーを押す・離す」をフラグ値として指定します。指定する値は、図４－６のフラグ値（0,1,2）を組み合わせたものになります。組み合せとは、ビット単位のフラグの組み合わせですので、各フラグ値を「OR」でつないだものになります。数値の結果としては「足し算」と同じ事になります。

定数名	フラグ値	内容
(KEYEVENTF_KEYUPを指定せず)	0	キーを押す
KEYEVENTF_EXTENDEDKEY	1	ｽｷｬﾝｺｰﾄﾞにﾌﾟﾘﾌｨｯｸｽﾊﾞｲﾄ0xE0（224）を追加
KEYEVENTF_KEYUP	2	キーを離す

図４－６

「フラグ値の組み合せ」は、図４－７の４種になります。合計値の0～1が「キーを押す」、2～3が「キーを離す」になります。

フラグ値	キーを押す		キーを離す
0	〇	〇
1		〇		〇
2			〇	〇
組合せ(合計)	0	1	2	3

図４－７

この説明だと何か曖昧で、どの値を「押す・離す」にすれば良いのかを迷ってしまいます。
　例１：押す=0・離す=2
　例２：押す=1・離す=3
他のサイトを見ても「例１方式」「例２方式」が混在します。
この違いは何かと考えてみると、フラグ値＝１「スキャンコードにプリフィックスバイト0xE0（224）を追加」をキーの動作に含めるか否かの違いだと分かります。

では、この「スキャンコードにプリフィックスバイト0xE0（224）を追加」とは何でしょうか。
（これより先は、私が色々なサイトで調べExcelマクロを実行させて確認を取り、一応私が納得した範囲の内容です。）

スキャンコードとは「キーボードのキーを押したり離したりした時に、キーボードから送信されるコード」で、キーを押したときに発生するメークコードとキーを離したときに発生するブレークコードからなります。
キーボードの中には、図４－８のように左右に同じキーがある場合があります。

図４－８

左右どちらのキーを操作したかを判別できるように、片方には「0xE0」を付けて区別をしています。（Shiftキーも左右２箇所あるのですが、どちらかに0xE0を付けるという説明はありませんでした。但しExcelでマクロを組んで確認してみると、0xE0有無で左右が判別できそうです）
この機能を使って、左右のキー（例えば、AltやCtrl）で別の機能が使えるアプリケーションも存在するようです。

では、左右どちらのキーに「0xE0」を付けているのでしょうか。スキャンコード一覧をみてみると、２つ存在するキーのみで無く１つのみのキーにも0xE0は付くようです。
色分けしてみると、図４－９のように「スキャンコードに0xE0が付いているキー」は、キーボードの右側に集中しています。どうも、これを「拡張キー」と呼んでいるようです。

図４－９

この図４－９と図４－８を重ねてみると、「同じキーの場合は右側のキーに0xE0を付ける」決まりのようで、キーコード表で確かめてみても確かに右キーのようです。

私の確かめ方としては、以下のような方法で試しました｡
例えばキーコード表で、Ctrlキー（キーコード17)には、別のコードが割り当てられた「左Ctrlキー（キーコード162）」「右Ctrlキー（キーコード163）」が存在します。
キーコード17に対してkeybd_eventで押す・離すの動作をさせた時に、どのキーが動いているかを「Windows APIのGetKeyboardState」で取得し、表示させてみました。コードは図４－１０のようなもので、Declare参照宣言は省略しています。

• Sub Test1()
• 　Dim Keys(0 to 255) As Byte
• 　
• 　keybd_event 17, 0, 0, 0
• 　keybd_event 17, 0, 2, 0
• 　
• 　GetKeyboardState Keys(0)
• 　Debug.Print Keys(17) & "/" & Keys(162) & "/" & Keys(163)
• 　
• End Sub

図４－１０

このTest1プロシージャを実行することで、「Ctrlキーを押して離す」動作の代理をするというものです。
GetKeyboardStateで取得した仮想キーの状態は配列Keysに代入され、その各値の最下位ビットは「キーを押すたびにトグルで値が変わる」特性を持っています。表面的には「キーが押されている」のは「キーの値が0と1を繰り返す」ことで判断できます。
図４－１０では、keybd_eventの第三引数には「フラグ値１（0xE0を追加）」を入れていない押し方（押す＝0、離す＝2）ですので、実行のたびに「Keys(17)」及び「Keys(162)」が押されるのが確認できます。

逆に、図４－１１のようにkeybd_eventの第三引数に「フラグ値１（0xE0を追加）」を入れた押し方（押す＝1、離す＝3）をすると、実行のたびに「Keys(17)」及び「Keys(163)」が押されます。

• Sub Test2()
• 　Dim Keys(0 to 255) As Byte
• 　
• 　keybd_event 17, 0, 1, 0
• 　keybd_event 17, 0, 3, 0
• 　
• 　GetKeyboardState Keys(0)
• 　Debug.Print Keys(17) & "/" & Keys(162) & "/" & Keys(163)
• 　
• End Sub

図４－１１

つまり
　・「フラグ値１（0xE0を追加）」を含める（押す＝1、離す＝3）　　→「キーが２つある場合は、右側のキーを操作」
　・「フラグ値１（0xE0を追加）」を含めない（押す＝0、離す＝2）　→「キーが２つある場合は、左側のキーを操作」
したことになるようです。
（なおEnterキーは、左右でキーコードが同じようなので確認できませんでした。）

ちなみに、第一引数に「左側のキー」のキーコードを設定しても同じ結果が得られます。一方、第一引数に「右側のキー」のキーコードを設定した場合には「フラグ値１（0xE0を追加）」を入れないと「左側のキー」が動いたことになるようです。
なお、１つしか無いキー（例えばTabキー）は、「フラグ値１（0xE0を追加）」を入れても入れなくても、動作に違いは見当たりません。また１つしか無いキーで、もともと0xE0が付いているキー（例えばDeleteキー）も「フラグ値１（0xE0を追加）」を入れても入れなくても動作は同じです。

結論としては、２つあるキーでは「フラグ値１（0xE0を追加）」を付けないと左キーが動き、「フラグ値１（0xE0を追加）」を付けると右キーが動く。１つしかないキーはどちらでも良い　ことが分かりました。

但し、キーを押す・キーを離すのセットの中で「一方には0xE0を付ける・一方には0xE0を付けない」とすると、キーを離したあとでも「キーは押されっぱなし（押したのとは別のキーを離した）」となります。この影響はExcelだけではなく、Windowsの他のアプリにも影響し、思いも寄らない不具合が発生しますので注意が必要です。必ず「0xE0は押す・離すの両方に付ける」「0xE0は押す・離すの両方に付けない」のどちらかにすべきです。

標準モジュールのコードに話を戻し、図４－１の１４行目「Const KEYEVENTF_EXTENDEDKEY As Long = 1」、１５行目「Const KEYEVENTF_KEYUP As Long = 2」では、図４－６の定数を一旦準備します。
その定数を使い、今回システム用の定数を設定するのですが、今回は「１つしか無いTabキーを押すシステム」ですので「フラグ値１（0xE0を追加）」は付けず、１７行目「Public Const keKEYDW As Long = 0」で「キーを押す（keKEYDW）」値の設定、１８行目「Public Const keKEYUP As Long = KEYEVENTF_KEYUP」で「キーを離す（keKEYUP）」値の設定をします。

なお、keybd_eventの第４引数に付いては全く情報が無く、他サイトと同様にゼロ値としました。

今回システムは、例えば「右矢印キー」を押すと「Tabキー」が働く　というシステムですので、OnKeyで「右矢印キーを押したら、Aのマクロが動く」ように割り当てし、Aのマクロには「Sendkeys "{TAB}"」と１行書けばよさそうです。 確かに右方向に動いていくTABの特性を再現するには、それで充分でした。 一方「Shiftキーを押しながら」TABキーを押すと、御存知のように左方向へ動いていきます。これをシステムに盛り込むには、OnKeyで「Shift＋右矢印キーを押したら、Bのマクロが動く」ように割り当てし、Bのマクロは「Sendkeys "＋{TAB}"」で良さそうです。 これも、Shiftキーを毎回押し直してくれれば（毎回キーを離せば）、正しく動きました。 意図に反した動きをしたのは「Shiftキーを押しっぱなし」にしながら「右矢印キー」を何回も押すような動作でした。 １回目は正常に左方向へ動くのですが、２回目以降は右方向へ動いていくのです。 調べてみると、Shiftキーを押したまま「Sendkeys "＋{TAB}"」を実行すると、「Shiftキーが押されていない状態になる」ようなのです。どうも「-１× -１＝１」のようにShiftが打ち消されてしまう感じです。 逆に（なんの役にも立たないマクロですが）Shift無しの時に「Sendkeys "＋{TAB}"」を実行し、Shift有りの時に「Sendkeys "{TAB}"」を実行するようにしてみると、Shiftキーを押しっぱなしでも「一方向へ動き続ける」のです。 それなら「Sendkeys "＋{TAB}"」を実行した後に、Shiftキーを押したことにしてみよう、と考え「setKeyboardState」でShift状態をセットしてみましたが全くダメでした。このことから、ハードウェア上でShift状態がキャンセルされてる様子なので、SendKeysを使うのをあきらめ「keybd_event」に乗り換えました。 「keybd_event」を使ってみると良い点が見つかりました。SendKeysでは「Shift状態と右矢印キーをセット」で考えなくてはいけなかったのですが、keybd_eventでは「Shift状態と右矢印キーは別扱い」で良さそうです。 つまり、OnKeyで「右矢印キーを押したら、Cのマクロが動く」「Shift＋右矢印キーを押したら、Cのマクロが動く」としておき、マクロCでは「keybd_eventを使って、Tabキーを押して離す」だけで良いのです。Shiftキーはユーザーが押しているか否かの信号をそのまま使う形です。 他サイトでは「SendKeysを使うとNumLockキーがオフになる」というような記事が多くありますが、今回keybd_eventを使うことで「NumLockキーを自動でオンにする」ような余計なプロシージャも不要になり、スッキリしたコードになったのは幸いでした。 なお図４－１０、図４－１１で「getKeyboardState」を使っていますが、これは図４－１２のように「全てのキーの状態」を取得する関数です。キーの設定は「setKeyboardState」で行いますが、ここで設定できるのは「メッセージキュー内」のデータだけです。 ｷｰﾎﾞｰﾄﾞ関係のｸﾗｽ 内容 getKeyboardState キーボードの各キーの状態を取得 setKeyboardState キーボードの各キーの状態を設定 getKeyState キーボードの１つのキーの状態を取得 (メッセージキュー内に入っているキーの状態) getAsyncKeyState キーボードの１つのキーの状態を取得 (キーボード上のキーの状態) 図４－１２ もっと上流のデータは「getAsyncKeyState」で取得できますが、それに対応する「setAsyncKeyState」のようなものが無いため、前述したExcel側からShiftを設定するようなことは出来ませんでした。

４－１－６．Enterキー移動方向（初期値）を保存するための変数宣言

図４－１の２０行目「Public UserSetting As XlDirection」は、変数「UserSetting」を「XlDirection」型で宣言しています。
今回システムでは、Enterキーでセルが移動する方向を変更することを可能にしています。作業シート上では、ユーザーの都合に合わせてEnterキー移動方向を設定するのは構わないのですが、ダイアログを閉じた時（システム終了時）に設定されていたEnterキー移動方向が「Excelの設定として残る」ことになってしまいます。

PCを複数人で共用している場合もありますので、今回は「システム起動前のEnterキー移動方向を取得」しておいて、システム終了時に「システム起動前の状態に戻す」ことにし、その保存用として変数「UserSetting」を設けました。

また、その保存する値は、MoveAfterReturnDirectionプロパティで取得した値そのもの（XlDirection型）にしています。なお、XlDirection型は図４－１３の4方向の値になります。

XlDirection列挙型

定数	値	内容
xlDown	-4121	下方向
xlToLeft	-4159	左方向
xlToRight	-4161	右方向
xlUp	-4162	上方向

図４－１３

なお今回は使用しませんが、MoveAfterReturnプロパティの値をFalseに設定すると、図１－２で「レ点を消した」ことになります。この場合は、MoveAfterReturnDirectionに何が設定されていても、Enterキー後でも移動しなくなります。

よって、Excelの設定としてEnterキー後に動かないという設定にしている場合は、今回システムを起動しオプションボタンのどれを選んでも「Enterキーでは動かない」ことになってしまいます。
システムとして「MoveAfterReturnプロパティの値」も保存しておき、システム起動時にはEnterキーで動く（=True）ようにする方法も考えましたが、Excelで「Enterキー後にセルを移動しない」使い方がどうしても想像できないことと、Excelの基本設定の変更は必要最小限に留めたい（万一エラーでExcel設定が変わってしまうと、その後Excelを使う全ての人に迷惑がかかってしまうから）との思いから、無視することにしました。
もし移動しない設定をしている方が今回システムを使う場合には、保存用変数を追加し、起動時に「=True」にし、終了時に「元の設定に戻す」ようにして下さい。

４－２．システム起動マクロ

システム起動には、図４－１４の「MoveDirection」プロシージャを呼び出します。Excelアドインに登録する際は、このマクロを登録して下さい。

22. '==========　⇩(2)　システム起動　============
23. Public Sub MoveDirection()
24. 　UserSetting = Application.MoveAfterReturnDirection
26. 　UserForm1.Show vbModeless
27. End Sub

図４－１４

２４行目「UserSetting = Application.MoveAfterReturnDirection」では、現在のExcelの「Enterキーでの移動方向」を取得し、変数UserSettingに代入します。この値は、ダイアログ上に「移動方向のExcel設定値」として方向を表示し、システム終了時（ダイアログを閉じる時：図５－１５）にExcel側に戻されます。

２６行目「UserForm1.Show vbModeless」は、操作ダイアログであるUserForm1を起動します。起動方法はモードレス（ダイアログ起動中もシート作業が可）にするため、Showメソッドに引数「vbModeless」を指定します。なお定数vbModelessの代わりに、値「ゼロ」を指定しても同じです。

定数	値	内容
vbModal	1	モーダル（既定）
vbModeless	0	モードレス

図４－１５

４－３．OnKeyメソッドの登録マクロ（Tabの実行）

指定されたキー（今回は、右矢印キー・PageUpキー・PageDownキー のいずれか）が押された時に、OnKeyメソッドに従って呼び出されるマクロが図４－１６です。

29. '==========　⇩(3)　OnKeyメソッドの登録マクロ（Tabの実行）　============
30. Public Sub subTab()
32. 　keybd_event VK_TAB, 0, keKEYDW, 0
33. 　keybd_event VK_TAB, 0, keKEYUP, 0
35. End Sub

図４－１６

３２行目「keybd_event VK_TAB, 0, keKEYDW, 0」でTabキーを押し、３３行目「keybd_event VK_TAB, 0, keKEYUP, 0」でTabキーを離しています。
keybd_eventには引数を４つ設定（図４－３）する必要がありますが、ここの段階では設定する値を定数にしてあるため、定数を引数として設定します。
　・第一引数：VK_TAB　･･･Tabキー
　・第二引数：ゼロ　　･･･ハードウェアスキャンコード無し
　・第三引数：keKEYDW ･･･キーを押す ／ keKEYUP ･･･キーを離す
　・第四引数：ゼロ　･･･追加情報なし

なお「よりみち」にも記述しましたが、この３２～３３行目のコードは、内容的には「Application.SendKeys "{Tab}"」と同じですが、Shift＋Tabの動作も正常に作動させるためにkeybd_eventを使用しています。

５．操作ダイアログ(UserForm1)

５ー１．フォーム上のコントロールの配置

フォーム上のコントロールの配置は、図５－１のようにしました。

図５－１

まず「Enterキーで移動する方向」については「必ず、どれかを選ばなければいけない」と考えたのでオプションボタンを使用することにしました。時計の１２時の位置にOptionButton1を「上方向」として配置し、そこから時計回りでOptionButton2「右方向」、OptionButton3「下方向」、OptionButton4「左方向」と配置しました。
オプションボタンの文字列は、そのままで問題ありません。マクロ側からオプションボタンの全体幅を調整することで、文字列を見えなくさせています。
また、オプションボタン中央に配置した４方向矢印のついた「Enter移動」という文字列は、Labelに改行を含ませながら４段で作っています。

「Tabキーの代替キー」については、「指定キーを選んだり、外したりする」ためチェックボックスを使用することにしました。但し「指定キーとして選択できるのは１つのみ」とする機能は、マクロで「チェックボックスのレ点は１つ以下にする」ようにしています。

右端のLabel1は、システム起動前のEnterキー移動方向を表示します。この表示は無くても問題はありません。
右下のCommandButton1は、システムを終了させるためのものです。この機能はダイアログ右上×印で代用してもOKです。

その他の表示用Label、チェックボックスの文字列は、コントロール配置時にCaptionプロパティに書き込んでいます。

５ー２．フォームモジュール

５ー２－１．フォーム起動時の設定

図４－１４の２６行目からUserForm1が呼び出され、フォーム起動前に最初に実行されるのが図５－２のInitializeイベントです。

37. '==========　⇩(4)　フォームモジュール内変数の宣言　============
38. Dim keyArray(1 To 3) As String
40. '==========　⇩(5)　フォーム起動時の設定　============
41. Private Sub UserForm_Initialize()
42. 　Dim i As Long 　　 '←カウンタ変数（OptionButton、CheckBoxの数）
44. 　For i = 1 To 4
45. 　　Me.Controls("OptionButton" & i).Width = 11.25
46. 　Next i
48. 　Select Case UserSetting
49. 　　Case xlTop
50. 　　　Me.Label1.Caption = "↑"
51. 　　　Me.OptionButton1.Value = True
52. 　　Case xlDown
53. 　　　Me.Label1.Caption = "↓"
54. 　　　Me.OptionButton3.Value = True
55. 　　Case xlToRight
56. 　　　Me.Label1.Caption = "→"
57. 　　　Me.OptionButton2.Value = True
58. 　　Case xlToLeft
59. 　　　Me.Label1.Caption = "←"
60. 　　　Me.OptionButton4.Value = True
61. 　End Select
63. 　keyArray(1) = "{Right}"
64. 　keyArray(2) = "{PGUP}"
65. 　keyArray(3) = "{PGDN}"
67. 　For i = 1 To UBound(keyArray, 1)
68. 　　Me.Controls("CheckBox" & i).Value = False
69. 　Next i
71. 　Me.CommandButton1.Caption = "終了"
72. 　Me.Caption = "Enterキー移動方向 Tabキー代替"
73. End Sub

図５－２

まずフォームモジュールの宣言部（先頭部）で、フォーム内で使用する変数の宣言を行います。
３８行目「Dim keyArray(1 To 3) As String」は、Tabキーの代替キーを「OnKeyメソッドに指定する文字列」の形で格納します。
Tabキーの代替キーは、今回３つのCheckBoxで切り替えますので、扱い易いようにCheckBoxの番号に対応した「１～３」のインデックスを持った配列としています。

４１～７３行目のInitializeイベントプロシージャ内では、フォーム起動前のシステム準備をします。

まず４４～４６行目では、OptionButton（Enterキー移動方向選択）の形を整えています。
４４行目「For i = 1 To 4」で、４つのOptionButtonに対し、４５行目「Me.Controls("OptionButton" & i).Width = 11.25」でOptionButtonの幅を揃えています。

「なぜ幅だけを合わせる」かですが、フォームのレイアウトをする場合、多くの方は目見当でコントロールの位置合わせをすると思います。今回のオプションボタン（例えばOptionButton2）で考えてみると、中央の文字列（４方向に矢印のついた『Enter移動』）の矢印の先端にオプションボタンの丸ボタンを合わせるのではないでしょうか。
私でしたら図５－３のように、一旦オプションボタンの高さ方向を広げておいてから、下辺をマウスで持って高さを徐々に縮め、丸ボタンの位置が文字列の矢印の先になるように狙います。

図５－３

また、グリッドの設定を変更して合わせる方もいるかもしれません。
（グリッドの変更は図５－４のように、VBE（VBエディタ）の「ツール」→「オプション」→「全般」→「グリッドの設定」で設定が出来ます。但し、この設定はブックでは無くExcel自体の設定になります。微調整のために設定を今だけ変更するのであれば、あとで元に戻した方が良いかもしれません。）
図５－４

横方向の位置合わせは、縦方向よりは楽だと思いますが、方法はほぼ同じです。
いずれにしても、せっかくオプションボタンの位置を合わせたのに、実行時にズレてしまったのでは面白くありません。

レイアウト時に合わせたオプションボタンは、LeftとTop、HightとWidthの位置・サイズのプロパティ値を持っています。オプションボタンは、コントロールの「先頭部分に丸ボタン」が付いていますので、「Left・Top・Hight」の値さえ変えなければ「レイアウトの状態を保てる」ことになります。

つまり「変更できるのはWidth値のみ」であり、且つ「Widthを縮める」ことで、オプションボタンについている「文字列（Captionプロパティ値）も見えなくなる」ことになります。
そこで今回は、４５行目「Me.Controls("OptionButton" & i).Width = 11.25」とすることで、「丸ボタンの位置は保持し、文字列を見えなくする」ようにしています。

なお「11.25」という値は「丸ボタンのサイズを変えずに、文字列も見えなくなる」値を狙っています。私のPCでの値ですので、環境が異なり「丸ボタンのサイズが変わってしまう」「文字列が見えてしまう」ような場合には調整してみて下さい。

４８～６１行目は、図４－１４の２４行目で取得した「Enterキー移動方向（Excelの設定値）」＝ 変数UserSettingの値　に応じて、Label1の表示、及びオプションボタンの初期のON選定を行っています。
４８行目「Select Case UserSetting」で変数UserSettingの値を調べ、その値によって各Case文の中の２行のコードを実行します。例えば、既定ではEnterキーでの移動方向は下方向（xlDown）ですので、５２行目「Case xlDown」がヒットしたとすると、５３行目「Me.Label1.Caption = "↓"」でダイアログ右端のLabel1に「下矢印（↓）」を書き込み、５４行目「Me.OptionButton3.Value = True」で下側に配置したOptionButton3をONにします。
変数UserSettingは４方向の内、どれか一つの方向の値を持っていますのでOptionButton１～４の内どれか１つがONになります（１つがONになった時に、残りのOptionButtonはOFFになる）。つまり、レイアウト時にOptionButton１～４のどれかがONの状態で保存されていたとしても、Excelの設定値の方向だけがONになるので、フォームレイアウト時に「全てのOptionButtonをOFFにしておかないと・・・」などの気を遣う必要は無いのです。

６３～６５行目は、３８行目で変数宣言したKeyArray配列に値を代入しています。
今回システムでは、ダイアログ上のCheckBoxの文字列は、上からCheckBox1 =「→（右）」、CheckBox2 =「PageUp」、CheckBox3 =「PageDown」としていますので、そのCheckBoxの番号と配列のインデックスを合わせるように、
６３行目「keyArray(1) = "{Right}"」、６４行目「keyArray(2) = "{PGUP}"」、６５行目「keyArray(3) = "{PGDN}" 」
としています。設定した文字列は、OnKeyメソッドで「各キーに指定のマクロを割り当てる」ための文字列です。様々なサイトでキーと指定文字列については解説されていますので、詳細はそちらを参照下さい。

６７～６９行目は、Tabキー代替用のCheckBox（今回３つ）のレ点をクリアしています。
６７行目「For i = 1 To UBound(keyArray, 1)」でカウンタ変数ｉを配列keyArrayの要素数だけ回しています。「UBound(keyArray, 1)」の部分は「３」と書いてしまっても良かったのですが、Tabキー代替キーを変更した場合に少しでも変更コードを少なくするためUBoundで最終インデックスを取り出して使っています。
６８行目「Me.Controls("CheckBox" & i).Value = False」では、各CheckBoxのValue値をFalseにしてレ点を消しています。

７１行目「Me.CommandButton1.Caption = "終了"」では、終了ボタンのボタン表面文字列に「終了」を書き込んでいます。また７２行目「Me.Caption = "Enterキー移動方向 Tabキー代替"」では、ダイアログのタイトルに「システム名」らしきものを書き込んでいます。

５ー２－２．Enterキー移動方向（オプションボタン）の操作

Enterキー移動方向指定用のオプションボタンを操作した時のイベントプロシージャが、図５－５です。

75. '==========　⇩(6)　オプションボタン（１）操作時　============
76. Private Sub OptionButton1_Click()
77. 　Call DirectionChange(xlUp)
78. End Sub
79. '==========　⇩(7)　オプションボタン（２）操作時　============
80. Private Sub OptionButton2_Click()
81. 　Call DirectionChange(xlToRight)
82. End Sub
83. '==========　⇩(8)　オプションボタン（３）操作時　============
84. Private Sub OptionButton3_Click()
85. 　Call DirectionChange(xlDown)
86. End Sub
87. '==========　⇩(9)　オプションボタン（４）操作時　============
88. Private Sub OptionButton4_Click()
89. 　Call DirectionChange(xlToLeft)
90. End Sub

図５－５

オプションボタンのClickイベントは、そのオプションボタンが「OFF（〇）からON（●）になった時に発生」します。
例えばOptionButton1（上方向）が新たに選択（OFF→ON）された時には、「OptionButton1_Click（７６～７８行目）」が呼び出されます。そして７７行目「Call DirectionChange(xlUp)」で、図５－６のDirectionChangeプロシージャが呼び出されます。

DirectionChangeプロシージャには引数を１つ渡しますが、その引数は「XlDirection型」で図４－１３の内の１つになります。
例えばOptionButton1（上方向）の場合には「xlUp（値では -4162）」を渡すことになります。
DirectionChangeプロシージャ内では、その引数を使ってExcelの設定変更をしています。

なお、今回はオプションボタンが４つと少なかったため、WithEventsを使った一括制御は行いませんでした。
もしコントロールが多くなった時には「セルへの日付入力をカレンダー日付クリックで選定」「西暦・和暦対照表」などを参照し一括制御をすると、コード管理が楽になります。

図５－５の、７７・８１・８５・８９行目から呼び出されるDirectionChangeプロシージャが図５－６です。
引数として、変更する「Enterキーで移動する方向（XlDirection型）」を受け取ります。

92. '==========　⇩(10)　Excelの設定を変更　============
93. Private Sub DirectionChange(d As XlDirection)
94. 　Application.MoveAfterReturnDirection = d
95. End Sub

図５－６

引数として受け取った「Enterキーで移動する方向（d）」を使って、９４行目「Application.MoveAfterReturnDirection = d」でExcelの「Enterキーで移動する方向」の設定を変更しています。

５ー２－３．Tabキー代替キー選択（チェックボックス）の操作

Tabキー代替キー選択用のチェックボックスを操作した時のイベントプロシージャが、図５－７です。

97. '==========　⇩(11)　チェックボックス（１）操作時　============
98. Private Sub CheckBox1_Change()
99. 　Call TabkeyReset
100. 　If CheckBox1.Value = True Then
101. 　　Call CheckBoxClear(1)
102. 　　Call TabkeyChange(1)
103. 　End If
104. End Sub
105. '==========　⇩(12)　チェックボックス（２）操作時　============
106. Private Sub CheckBox2_Change()
107. 　Call TabkeyReset
108. 　If CheckBox2.Value = True Then
109. 　　Call CheckBoxClear(2)
110. 　　Call TabkeyChange(2)
111. 　End If
112. End Sub
113. '==========　⇩(13)　チェックボックス（３）操作時　============
114. Private Sub CheckBox3_Change()
115. 　Call TabkeyReset
116. 　If CheckBox3.Value = True Then
117. 　　Call CheckBoxClear(3)
118. 　　Call TabkeyChange(3)
119. 　End If
120. End Sub

図５－７

チェックボックスのChangeイベントは、チェックボックスがOFF（レ点なし）→ON（レ点あり）、またはON（レ点あり）→OFF（レ点なし）と、Value値が変更された時に発生します。
例えばCheckBox1（今回は右矢印キー）をOFF→ON（レ点あり）に変更、またはON→OFF（レ点なし）に変更した時に、９８～１０４行目が実行されます。
実行されると、まず９９行目「Call TabkeyReset」で、TabkeyResetプロシージャ（図５－８）を呼び出し、OnKeyメソッドによる指定キー（今回３つのキー）の割り当てをクリアします。もしOnKeyによる割り当てが無い場合でも実行されますが、特に害はありません。

次にOFF→ON（レ点あり）に変更した時だけ、１００行目「If CheckBox1.Value = True Then」で仕訳け、１０１～１０２行目を実行します。
１０１行目「Call CheckBoxClear(1)」で、CheckBoxClearプロシージャ（図５－９）を呼出します。CheckBoxClearには引数として「チェックボックスの番号」を渡します。１０１行目は「CheckBox1」のコードですので、その「１」が引数になります。
機能としては全３つのチェックボックスの内、引数で指定したチェックボックス（＝自分）以外のチェックボックスをOFF（レ点を外す）にします。

また１０２行目「Call TabkeyChange(1)」では、TabkeyChangeプロシージャ（図５－１０）を呼出します。引数には同じく「チェックボックスの番号」を渡します。機能としては、引数で指定したチェックボックス番号（ ＝ 指定キーの文字列を入れた配列keyArrayのインデックス番号）の「キーの文字列をOnKeyに割り当て」をします。

なお今回チェックボックスは３つと少ないため、オプションボタンと同様にWithEventsを使っての一括制御は行いませんでした。ご了承下さい。

図５－７の９９・１０７・１１５行目、および図５－１５の１６４行目から呼び出される「TabkeyReset」が図５－８です。

122. '==========　⇩(14)　OnKey割り当てのリセット　============
123. Private Sub TabkeyReset()
124. 　Dim i As Long 　　 '←カウンタ変数（CheckBoxの数）
126. 　For i = 1 To UBound(keyArray, 1)
127. 　　Application.OnKey keyArray(i)
128. 　　Application.OnKey "+" & keyArray(i)
129. 　Next i
131. 　keybd_event VK_TAB, 0, keKEYUP, 0
132. End Sub

図５－８

１２６～１２９行目では、配列keyArrayに格納した「Tab代替キー」の全てについて、OnKey割り当てをクリアしています。
１２６行目「For i = 1 To UBound(keyArray, 1)」では、カウンタ変数ｉを「配列keyArrayの要素数」だけ回しています。今回システムでは「３」となりますが、指定キーを増減する改造時にもコード変更無く対応できます。
１２７行目「Application.OnKey keyArray(i)」では、OnKeyメソッドの第二引数を省略していますので、指定キーの割り当てがクリアされます。
１２８行目「Application.OnKey "+" & keyArray(i)」では、「Shiftキーを押しながら」の割り当てキーもクリアしています。

Shift無し、Shift有りの両方についてクリアしているのは、図５－１０で「Shift無し（１４７行目）」「Shift有り（１４８行目）」の両方についてOnKey割り当てをしているためです。

１３１行目「keybd_event VK_TAB, 0, keKEYUP, 0」は「Tabキーを離す」動作を入れています。これはチェックボックス操作でTabキー代替を設定した時と言うよりも、システム終了時（図５－１５）に「万一Tabキーが押しっぱなしになっている時に、キーを離す」ことで正常の状態に戻しているつもりです。マクロが正常に動いていれば不要なコードですが、万一を考えてコードを加えました。
なお「Tabキーを押していない状態」で「Tabキーを離す」指示をしても、問題は無さそうです。

図５－７の１０１・１０９・１１７行目から呼び出される「CheckBoxClear」が、図５－９です。
引数として、チェックボックスの番号を受け取り、「その番号以外のチェックボックスをOFF（Value値＝False）」にするものです。なお、システム作成過程で「引数を指定しなかったら、全てのチェックボックスをOFF」にする機能も必要そうだ　と考えて、引数は任意（Optional）設定としましたが、結果的には使用しませんでした。

134. '==========　⇩(15)　チェックボックスをOFFにする　============
135. Private Sub CheckBoxClear(Optional k As Integer = 0)
136. 　Dim i As Long 　　 '←カウンタ変数（CheckBoxの数）
138. 　For i = 1 To UBound(keyArray, 1)
139. 　　If Not i = k Then
140. 　　　Me.Controls("CheckBox" & i).Value = False
141. 　　End If
142. 　Next i
143. End Sub

図５－９

１３８行目「For i = 1 To UBound(keyArray, 1)」では、カウンタ変数ｉを「配列keyArrayの要素数」だけ回しています。
１３９行目「If Not i = k Then」では、配列keyArrayのインデックスと引数ｋが同一で無い（Not）時に１４０行目を実行させます。つまり、このプロシージャを呼び出したチェックボックスの番号以外のチェックボックスに対して、チェックボックスをOFFにする処理を行うことになります。
１４０行目「Me.Controls("CheckBox" & i).Value = False」では、チェックボックスをOFFにしています。

例えばCheckBox1がOFF→ONになった時には、図５－７の１０１行目「Call CheckBoxClear(1)」から図５－９が呼び出される訳ですが、図５－９の１３９行目「If Not i = k Then」で仕訳けられ、CheckBox２とCheckBox３がOFFになり、１４０行目が実行されないCheckBox1だけが「レ点が残る」ことになります。
一方、CheckBox1がON→OFFになった時にも、同様に図５－９の１３９行目「If Not i = k Then」で仕訳けられ、CheckBox２とCheckBox３がOFFになります。CheckBox1については１４０行目が実行されませんが「ユーザーの手動によりレ点が消去」されており、「全てのチェックボックスのレ点が消える」ことになります。

図５－７の１０２・１１０・１１８行目から呼び出される「TabkeyChange」プロシージャが図５－１０です。
引数として、チェックボックスの番号（＝指定キー文字列を格納したkeyArray配列のインデックス）を受け取り、「OnKeyで指定キーをマクロに割り当てる」ものです。

145. '==========　⇩(16)　指定キーの割り当て　============
146. Private Sub TabkeyChange(k As Integer)
147. 　Application.OnKey keyArray(k), "subTab"
148. 　Application.OnKey "+" & keyArray(k), "subTab"
149. End Sub

図５－１０

１４７行目「Application.OnKey keyArray(k), "subTab"」は、OnKeyメソッドの第一引数に、TabkeyChangeプロシージャの引数（k）とKeyArray配列データから得た「指定キーの文字列」を指定し、第二引数には「指定キーが押された時に実行するマクロ"subTab"」を設定します。
１４８行目「Application.OnKey "+" & keyArray(k), "subTab"」は、１４７行目とほぼ同等ですが、「Shiftキーを押しながら（"＋"を文字列先頭に追加）」指定キーを押した状態を設定します。
これにより、例えば「OptionButton1（右矢印キー）」にレ点が付いていれば、「右矢印キーを押した時」、および「Shiftキーを押しながら右矢印キーを押した時」には、「マクロsubTabを実行」することになります。

Shift無しもShift有りも同じ「マクロsubTabの実行」で良いのは、subTab内で「keybd_eventを使って、他のキー操作をする」という今回システムの特徴からとも言えます。通常はShift無しとShift有りでは別マクロ起動になることが一般的と思います。

なお、OnKeyで設定したマクロを実行させるためには、マクロは「標準モジュール」に置く必要があります。そのため図４－１６は標準モジュールに置いています。

５ー２－４．ワークシートへのFocus移動

フォーカスをExcelシートに移動するには、SetFocus関数を使い、その引数にExcel（＝Application）のハンドルを指定します。
今回システムでは、操作ダイアログ上で「マウスが動いた」時に、そのフォーカス移動を実行させています。「マウスが動いた」はフォームのMouseMoveイベント（図５－１１）で得られます。

151. '==========　⇩(17)　ダイアログ→ExcelシートにFocus移動　============
152. Private Sub UserForm_MouseMove _
153. 　　　(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
154. 　SetFocus Application.hwnd
155. End Sub

図５－１１

今回フォーカス移動の実行のタイミングをMouseMoveにしたのですが、その他のイベントも図５－１２のように何種類かが考えられます。

図５－１２

オプションボタン操作時には、そのClick等のイベントが必ず発生しますし、またチェックボックス操作時にはChange等のイベントが必ず発生します。しかし、その他にもフォームのMouseMoveイベントも発生しています。
一方でダイアログの上部タイトル部をマウスで掴んで移動した時には、オプションボタンやチェックボックスのイベントは発生しませんが、フォームのMouseMoveイベントは「マウスがフォーム上を通過」すればイベントが発生してくれます。

図５－１２でダイアログ移動時のMouseMoveイベントが「△」になっているのは、図５－１３の左側のように「ダイアログのタイトル部からシートへマウスが移動する際、フォーム上を通過しない」場合があるからです。
また、オプションボタンやチェックボックス操作時も「〇～△」となっているのは、図５－１３の右側のように「フォーム上のコントロール（Labelも含めて）を橋渡りしてフォーム外に抜け出す」ことが出来れば、フォームのMouseMoveイベントが発生しない可能性があります。

図５－１３

図５－１３の左側は避けることは出来ませんが、右側は「コントロールとコントロールの間に、少しでもフォームの生地を見せる」ことで防ぐことが可能です。その意味では今回システムで作ったフォームは、コントロール間を詰めすぎたレイアウトになってしまいました。

５ー２－５．システムの終了

終了ボタンをクリックした時に呼び出されるのが、図５－１４です。ボタンをクリックすることで、フォームを閉じています。

156. '==========　⇩(18)　終了ボタンの操作　============
157. Private Sub CommandButton1_Click()
158. 　Unload Me
159. End Sub

図５－１４

「終了ボタン」でフォームを閉じた時、及びダイアログ右上×印をクリックすることで「フォームが閉じた直後」に発生するイベントが、図５－１５のTerminateイベントです。

161. '==========　⇩(19)　フォーム終了時の処理　============
162. Private Sub UserForm_Terminate()
163. 　Application.MoveAfterReturnDirection = UserSetting
164. 　Call TabkeyReset
165. End Sub

図５－１５

フォームを閉じる＝システム終了時には、
　・「Enterキーで移動する方向」を今回システム起動前の状態に戻す
　・OnKeyによる指定キーの割り当てをクリア
する必要があります。

１６３行目「Application.MoveAfterReturnDirection = UserSetting」では、図４－１４の２４行目で取得した「今回システム起動前のEnterキー移動方向（変数UserSetting）」をExcel側に復元します。
１６４行目「Call TabkeyReset」では、図５－８のTabkeyResetプロシージャを実行し、「OnKeyによる指定キーの割り当てをクリア」すると共に、万一Tabキーが押しっぱなしになっていた時に正常に戻すため、「Tabキーを離す」動作を実行しています。

６．アドインとしてExcelにマクロを登録

このマクロをExcelのアドインに登録することで、どのブックでも「Enterキー移動方向の変更、Tabキーの代替キーシステム」を使用することが出来ます。アドイン方法については「年賀状リスト等の宛名検索と追記　アドイン登録」を参照下さい。
またアドイン登録した際の実行マクロは、図４－１４の「MoveDirectonプロシージャ」にして下さい。

７．最後に

キーの入替えは、OnKeyメソッドで割り当てをした後、SendKeysで代わりのキーを実行させれば良い　と簡単に考えていました。途中までは思惑通りだったのですが、Shiftキーを押しながらの動作を盛り込ませようとした段階で行き詰まり、色々調べている内にkeybd_eventに辿り着きました。

Excel VBAは古いプログラム言語が基本なので「限界はすぐに訪れます」し、それほど「効率的でも無い」と言われています。しかし諦めずに解決策を考え続ければ、何か手があるものです。古いけれども、「表計算」というユーザーにとって扱いやすいワークシートとVBAとの協業で得られる効果は、非常に大きいと私は思います。


値入力後のセル移動方向を切替える（it-062.xlsm）

セキュリティ向上を目的として「インターネット経由でダウンロードしたOfficeファイル（Excel等）のマクロは、既定でブロック」されるようにOfficeアプリケーションの既定動作が変更になりました。（2022年4月より切替開始） 解除の方法については「ダウンロードファイルのブロック解除方法」を参照下さい。