Excel UserForm テキストボックスのイベント

メルマガ発行内容

＜Excel UserForm テキストボックスのイベント＞
こんにちは、三流プログラマーＫｅｎ３です。

今回は、
Ｅｘｃｅｌユーザーフォーム
の
テキストボックス関係のイベントを少し書きます。

別の機会でフォームの作り方はやるつもりなので、
気楽に読んでください。

/*
 * １. 質問来た、今度はカッコつけたいけど、、、、
*/

BBS に以下の投稿がありました。
 >投稿時間：2002/12/18(Wed) 23:50
 >
 >おなまえ：fox1972
 >タイトル：エクセルVBAでのキー操作
 >ＵＲＬ  ：
 >コメント：
 >
 >エクセルにてユーザーフォームを表示しています。
 >ファンクションキーを利用してある処理をさせたいのですが、
 >何か良い方法はないでしょうか？
 >
 >また、フォームを表示したときに、あるテキストボックスに
 >フォーカスを移動させたいのですが、上手くいきません。
 >(どこがアクティブになっているのかも解らない。カーソルも表示されない。)
 >今は「UserForm_Initialize」にて「テキストボックス名.SetFocus」と記述しています。
 >--------------------------------------------------------
----

最近、ポツポツと質問来てるので、ネタには困らないなぁ
と思いつつ、質問内容と自分の経験を照らし合わせて考える。

/*
 * ２．先に、テキストボックスを目立たせてみる
*/

 >また、フォームを表示したときに、あるテキストボックスに
 >フォーカスを移動させたいのですが、上手くいきません。
 >(どこがアクティブになっているのかも解らない。カーソルも表示されない。)
 >今は「UserForm_Initialize」にて「テキストボックス名.SetFocus」と記述しています。

どこがアクティブだか、わからない。。。
ユーザーフォーム作成後、
テキストボックスを２つ作って、私も試してみました。

たしかに、、、わかりにくい。
サンプルを、
http://www.ken3.org/vba/lzh/vba030.lzh
のtest030-book.xls内にテストのフォーム作りました。
解説と合わせて見て下さい。

一つの案として、現在入力中のテキストボックスのバックカラーを変えてみます。

テキストボックスのイベントで、
_Enterが入ってきた時の処理、
_Exitが出て行く時発生するイベントなので、

テキストボックスに入力が移ったら、
.BackColor = RGB(&H0, &HFF, &HFF)
で水色に変えて、
出て行く時は、
.BackColor = RGB(&HFF, &HFF, &HFF)
元に戻してます。

Private Sub TextBox1_Enter()  'テキストボックスに入ったら色変える
    TextBox1.BackColor = RGB(&H0, &HFF, &HFF)
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'テキストボックスからバイバイする時は元に戻す
    TextBox1.BackColor = RGB(&HFF, &HFF, &HFF)
End Sub

Private Sub TextBox2_Enter()  'テキストボックスに入ったら色変える
    TextBox2.BackColor = RGB(&H0, &HFF, &HFF)
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'テキストボックスからバイバイする時は元に戻す
    TextBox2.BackColor = RGB(&HFF, &HFF, &HFF)
End Sub



三流君さ、うっ、なんか頭イタクなってきたよオレ。

何で？動いてるよ。
じゃなくって、
１０個入力項目あったら、全部いれるのこれ？
なんかバカ臭くない？

ギク、、、
コントロールって配列にして処理できるか、調べないとなぁ。
確かに、２つ３つだったらいいけど（２つ３つまでかなガマンできるの）
テキストの数が多いとマズイなぁ。

一つの案として、イベントで背景色を変えて、入力エリアをわかりやすくしました。

その先のプログラムもわかりやすくする方法は、現在探ってます（大丈夫？？）

/*
 * ３．ファンクションキーを取る
*/

ファンクションキーを取る、
これはＡｃｃｅｓｓでやったことあったので、
参考例を。



KeyDownのイベントで取れるので、
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If vbKeyF1 <= KeyCode And KeyCode < vbKeyF12 Then
        MsgBox "F" & (KeyCode - vbKeyF1 + 1) & "が押されました"
    End If
End Sub
でテストできます。

キー コードの定数（ヘルプより）

定数	値	内容
   
vbKeyF1	0x70	F1 キー
vbKeyF2	0x71	F2 キー
vbKeyF3	0x72	F3 キー
vbKeyF4	0x73	F4 キー
vbKeyF5	0x74	F5 キー
vbKeyF6	0x75	F6 キー
vbKeyF7	0x76	F7 キー
vbKeyF8	0x77	F8 キー
vbKeyF9	0x78	F9 キー
vbKeyF10	0x79	F10 キー
vbKeyF11	0x7A	F11 キー
vbKeyF12	0x7B	F12 キー
vbKeyF13	0x7C	F13 キー
vbKeyF14	0x7D	F14 キー
vbKeyF15	0x7E	F15 キー
vbKeyF16	0x7F	F16 キー

共通の関数作ってみたけど
^^^^^^^^^^^^^^^^^^^^^^^^
Private Sub chkFKey(ByVal KeyCode As MSForms.ReturnInteger)
    If vbKeyF1 <= KeyCode And KeyCode < vbKeyF12 Then
        Select Case KeyCode
            Case vbKeyF1:  '終了処理
                'さて、フォームでもとじますか。
                Unload Me  '自分を落す
            Case vbKeyF4:  'F4
                MsgBox "こんな感じでＦ４処理を書く"
            Case Else:
                MsgBox "F" & (KeyCode - vbKeyF1 + 1) & "が押されました"
        End Select
    End If
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Call chkFKey(KeyCode)  'チェック用の関数を呼ぶ
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Call chkFKey(KeyCode)  'チェック用の関数を呼ぶ
End Sub

と、各テキストボックスの
_KeyDown イベントで共通の関数を呼び、
Ｆ１が押されたらフォームを閉じる（通常Ｆ１はヘルプだけど）
Ｆ４はテストメッセージ、
その他のキーは、押されたキーを表示してます。

えっ、これも、テキストボックスの数入れないといけないの？
あとさ、バックカラーはいいとして、
チェックボックスとかリストボックスにフォーカスあたってた時に、
Ｆ１押しても反応しないんじゃない？

たしか、フォーム全体に効かす、、って言うか、
フォームの_KeyDown イベントに書いたら？

う〜ん、これも改善の余地有りですね。



/*
 * ４．終わりの挨拶
*/

今回は、
・Ｅｘｃｅｌユーザーフォームのテキストボックスを見やすくする案
・ファンクションキーを判断したい
でした。

今回のサンプルは、
http://www.ken3.org/vba/lzh/vba030.lzh
に
test030-book.xlsが保存されていて、
テストフォームを２種類作ってます
バックカラーを変えたり、ファンクションを押してみたり、
遊んでください。

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

フィードバック

評価・感想

ページフッター(リンクや広告など)

情報を探す

Web www.ken3.org www.microsoft.com support.microsoft.com あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック