エクセルマクロのイベントプロシージャについて

質問

こにんちは。仕事で使う表をもっと便利にするため、独学でマクロを勉強、作成している者です。
　さて、今回、ユーザーフォーム上に5つのテキストボックスを配置して(Textbox1～Textbox5)、Textbox1に入力した内容によってカーソルの移動先を変えるマクロを作成したいのですが、うまくいきません。
　私の作成したコードは以下の通りです(今回、質問するにあたって、かなり省略しています)。

Private Sub TextBox1_AfterUpdate()
Select Case TextBox1.Value
Case 1
TextBox1.SetFocus
Case 2
TextBox2.SetFocus
Case 3
TextBox3.SetFocus
Case 4
TextBox4.SetFocus
Case Is >= 5
TextBox5.SetFocus
End Select
End Sub

　そこで、いろいろ試したり調べたりしたのですが、どうもイベントプロシージャそのものに対する基本的な認識ができていない気がしてきました。
　と言いますのも、上記プログラムを走らせると、1、2を入力した際はタブオーダーに従い？Textbox2へカーソルが移動しますが、3以上の数値を入力すると、4でも5でもTextbox3へ移動します。
　何をやってもタブオーダー通りにしか移動しないのならともかく、なぜこのような変な動きになるのか、分かりやすく説明していただくことは可能でしょうか。
　また、もちろんどうすれば目的通り動かせるのかも教えていただきたく思います。
　もちろん一番の目的はそれなのですが、今後の理解のため、イベントのタイミング等について教えていただければ幸いです。
　なお、各イベントの意味については、下記のページを見て理解はできたつもりなのですが・・・。
　http://home.att.ne.jp/zeta/gen/excel/c04p30.htm

回答No.3

Wendy02 · ベストアンサー

#2 の修正です。

データ型を単純に　i をInteger 型してしたので、エラーが発生するようです。

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
　Dim i As Variant
　　If KeyCode <> 13 Then Exit Sub
　　If Not IsNumeric(i) Then Exit Sub
　　i = TextBox1.Value
　　If i = 1 Then KeyCode = 0
　　If i > 1 Then
　　If i > 5 Then i = 5
　　　　Me.Controls("TextBox" & i).SetFocus
　　End If
　　'TextBox1.Value = "" '入力した数値を消す
End Sub

テキストボックスに入力したら、TextBox1 に戻る

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
　　If KeyCode = 13 Then
　　　　TextBox1.SetFocus
　　End If
End Sub

お礼

ご回答いただき、ありがとうございます。
昨日、1回目にいただいたコードでエラーが出たため、ない知恵を絞って、その原因をあれこれ考えていました。素直にお聞きすればよかったですね(笑)。
やってみたら、思っている動きができました！ありがとうございます。
今後のため、このコードの中身を少しでも理解できるよう、この後、じっくり考えさせていただきますが、パッとみてひとつだけ疑問点があります。13で区切っているのは、何か理由があるのですか？

回答No.6

cj_mover

＃４です。
すみません。
>>TextBox1に入力する数字が２桁以上だと、
>>まったく違う話になりますので、
>>別途質問を立て直した方いいと思います。
二重に間違えました。
＃１へのコメントを読んで、Enter押さないオーダーと勘違いしてました。
失礼なこと書いてごめんなさい。
それと、＃８のソースが、数字入力１桁のみに対応、というのも間違いです。
2から19の数字入力でフォーカス移動します。

重ね重ね、失礼しました。

お礼

再度コメントいただきまして、ありがとうございます。
>＃１へのコメントを読んで、Enter押さないオーダーと勘違いしてました。
とのことですが、こちらこそ分かりにくい文章で申し訳ありませんでした。
今後もみなさんからいただいたご回答とコードを見て、勉強していきたいと思っています。

回答No.5

Wendy02

こんにちは。

#2,#3で書いた者です。

>13で区切っているのは、何か理由があるのですか？
13というのは、"Enter" の意味ですが、Enter を入れるまで待つということです。
「1」を入れたけれども、間違いで、「2」というときは、BackSpace で訂正が効きます。Change イベントだと入力した時点で稼動してしまいますので、私は使いません。また、2桁以上でも可能です。

If i = 1 Then KeyCode = 0
これは、入力しても、そのコントロールのフォーカスを移動させないということを意味しています。

なお、KeyDown　は、私が良く使う方法です。

お礼

再度のご回答、ありがとうございました。
KeyCodeのことを理解してなかったため、最初はなぜ13？と思ったのですが、ご説明いただいたおかげでようやく分かりました。
ご回答者様のkeydownを使った方法は、私にも何をやっているのか理解でき、今後も使わせていただけそうです。勉強になりました！

回答No.4

cj_mover

こんにちは

状況は再現できました。
10キーからIMEオフ状態で数字を１桁だけ入力したらイベント発生、
という条件なら（実際に(Textbox1～Textbox5)なら）、
_Change() イベントが使えるかもしれません。
よく解りませんが、以下のような感じではどうでしょうか。
一応、TextBox1への移動は意味ないので、2～5にフォーカスが移動します。
一応エラー処理も少しだけ加えました。

' //////
' 以下をコピペ。必ず！！、UserFormモジュールの先頭行に。
' Sub TextBox1_Changeが重複する場合は、エラーになります。

Const TextBoxesMin = 1
Const TextBoxesMax = 5

Private Sub TextBox1_Change()
PSetF TextBox1.Value
End Sub

Sub PSetF(v)
If Val(v) < 2 Then Exit Sub
v = CInt(v)
If v > TextBoxesMax Then v = TextBoxesMax
Me.Controls("TextBox" & v).SetFocus
End Sub

' Excel2000、2003で動作確認済み
' //////

十分にニーズを把握できないので、説明はご容赦ください。

TextBox1に入力する数字が２桁以上だと、
まったく違う話になりますので、
別途質問を立て直した方いいと思います。

条件に合わないようでしたら、すみません

お礼

ご回答いただきありがとうございました。
試してみたところ、確かに目的の動きをするのが確認できました。
下の方のお礼にも書きましたが、なんとかその動きを理解できるよう、この後、教えていただいたコードをじっくり解読させていただきます。
ちなみに蛇足ですが、状況を再現できたというのが、ちょっとうれしかったです(笑)。

回答No.2

Wendy02

こんにちは。

UserForm は、入門したばかりでなくても、難しいです。というか、私は、苦手で勉強しませんでしたからね。

>3以上の数値を入力すると、4でも5でもTextbox3へ移動します。

詳しいことは分かりませんが、TabOrder の3番目に動くのではないでしょうか。ダメな理由は考えたことがありません。例えば、こんな風にすれば、目的どおりの場所に飛ぶはずです。

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
　Dim i As Integer
　　i = TextBox1.Value
　　If KeyCode <> 13 Then Exit Sub
　　If i = 1 Then KeyCode = 0
　　If i > 1 Then
　　If i > 5 Then i = 5
　　　　Me.Controls("TextBox" & i).SetFocus
　　End If
　　'TextBox1.Value = ""
End Sub

回答No.1

imogasi

一読して、＞Textbox1に入力した内容によってカーソルの移動先を変える・・・ってどういう意味かな。
Excelのシート上の選択セルを変えるということかな。
それではSetFocuでなない。
１つのテキストボックスの情報で、他のテキストボックス群の中の約束（対応）されたテキストボックスを選択状態にするのかな。
あまり省力化にならないし、普通こんなこと考えないと思うが。
直接テキストボックスを選択すれば、済むことだし。
ただ5個の中でどのテキストボックスを選択したか、えり分けるのは
難しいです。
ーーー
初心者は、自分の下手なコードを載せるのは最後に参考程度にして、「やりたいことをはっきり書くこと」。またやりたいことが、質問者のアイデアの入った段階からでなく、素のベルで書いてみてください。コードからは、やりたいことの解読が難しいことが多い。
本件もそう思う。
例えばテキストボックスを使う、というアイデア（構想）そのものが、素人の思いつきになっている（適当でない）場合が多い。
中級の人でも、発想を変えるとコードが短くなり、考えがすっきりして、コードの誤りが少なくなる処理を、こういう公の場に質問した機会を捉え、勉強したいはずです。
ーー
関連して、
TextBoxはそのイベントなどでトリガーを引くより、コマンドボタンを設けて、テキストボックスの入力が終わっときクリックさせて、それをトリガーに刷るほうがよいのでは。

補足

ご回答ありがとうございます。私の書き方が悪かったようで申し訳ありません。私のやりたいことは、後者、すなわち、
>１つのテキストボックスの情報で、他のテキストボックス群の中の約束（対応）されたテキストボックスを選択状態にするのかな。
の方です。
　確かにご指摘のとおり、わざわざこんなことをしなくても、マウスでクリックすればどのテキストボックスでも選択状態になるのですが、データ入力の効率を出来るだけ上げるため、右手を10キーに添えたままで極力入力が行なえるようにしたいからです。
　後でデータに矛盾が生じた際に、一度通り過ぎたテキストボックスへカーソルを自動的に戻るようにしたいときがあるのです。
　また、入力不要なテキストボックスに対して、enterキーを空打ちして飛ばすのも、できれば省略したいと考えています。

　例えば商品出荷データの入力フォームを作成しているのですが、前者の例でいえば、出荷日と到着日を入力し、その後、出荷先のデータを入力した際、遠方なのに翌日着にしていたらエラーメッセージを出して到着日のテキストボックスにカーソルを移動させます。
　後者の例でいえば、特定の商品については、商品コードを入力すると、品名、仕様、色などのテキストボックスに自動的にデータが表示されるため、それらのテキストボックスは飛ばして、すぐに数量のテキストボックスを選択状態にします。

　もちろん現状でも十分使えていますが、それらのことが実現できれば、少しだけ使いやすくなるという、「なくても困らない、あったら便利だ」程度のことではあります。
　たったそれだけのためにかなりの時間と労力を費やすのなら、さっさと諦めようと思ったのですが、ネットで調べてみたところ、afterupdateというイベントを使えば、比較的簡単にできそうだと感じました。それを試すために作ったのが上記のコードです。
　しかし、所詮、基本を知らない素人の浅知恵ですから、うまく動きませんでした。前述のとおり、できなくても別に困りはしないのですが、なぜできないのかがすごく気になったため、また、イベントプロシージャについて勉強する良い機会だと思ったため、こうして質問するにいたったわけです。

　よって、やりたいことを述べてそれをコードにしていただくというより、イベントプロシージャの(特に今回はafterupdateイベントの)動きや働きについて、より深く理解できればと思っております。
　長文になり、失礼しました。読み返してみると、少し言い訳っぽく見える気がしますが、そういう意味ではなく、何がしたいかを詳しく述べてみたつもりです。
　なぜ、afterupdateのイベントでsetfocusはうまく機能しないのでしょうか？