MSForms.ReturnInteger

質問

Excel　VBAで 違うSubから　textbox_keypress　をコールしたいのですが、
vbKeyReturnを受け渡せません。

******************************************
Private Sub StartButton_Click()
Dim KeyCode As MSForms.ReturnInteger

If EngTypeStartButton.Caption = "" Then
KeyCode.Value = vbKeyReturn　<---ここでエラーになる。
Call TextBox_KeyDown(KeyCode, 0)
End If
End Sub
******************************************

『実行エラー91
オブジェクト変数またはWithブロック変数が設定されていません』
と表示されます。　vbKeyReturnの代わりに13としても結果は同じです。

受け側のSubは以下のような始まりです。
Private Sub TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
このSubは正常に動作しています。

どなたか私の間違いを教えていただけないでしょうか？
よろしくお願いいたします。

回答No.4

noname#144013 · ベストアンサー

こんにちは。

当方も詳しいことは判りませんが、既に回答されているように、
『MSForms.ReturnInteger』に関しては、以下のような制限があるようです。

『MSForms.ReturnInteger』は、あくまでテキストボックス等のコントロールの
「KeyDown」とか「KeyPress 」等のキーイベント用のプロシージャの引数の型
にのみ適用されるものであり、そのオブジェクト自体を単独で、ユーザーが
操作できるものではないようです。

言い換えると、『MSForms.ReturnInteger』は、Excelアプリケーション側
のみが管理するオブジェクトのようです。

ただし、次のような使い方はできるようです。

'== [TextBox]のキー押下イベント処理 ==
Private Sub TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
　　Dim myKeyCode As MSForms.ReturnInteger　'←ReturnIntegerオブジェクトの変数宣言
　　Set myKeyCode = KeyCode　　'←ReturnIntegerオブジェクトの取得
　　Debug.Print "KeyCode="; myKeyCode.Value　'←キーコードの表示
　　Debug.Print "Shift="; Shift
　　Set myKeyCode = Nothing　　　'←ReturnIntegerオブジェクトの解放
End Sub

従って、ご提示のような方法で、テキストボックスのキー押下イベントを
擬似的に発生させることはできないと思われます。

テキストボックスへEnterキーを送りたいのであれば、SendKeysステート
メントを使用すれば可能だと思います。

SendKeysを使用して、ご提示のプロシージャを改造するとすれば、以下
のようになると思います。（※以下は一例です）

'== [Start]ボタンのクリックイベント処理 ==
Private Sub StartButton_Click()
　　''Dim KeyCode As MSForms.ReturnInteger　'←使用しない
　　If EngTypeStartButton.Caption = "" Then
　　　　''KeyCode.Value = vbKeyReturn　　　　　　'←使用しない
　　　　''Call TextBox_KeyDown(KeyCode, 0)　　　'←使用しない
　　　　TextBox.SetFocus　　　'←テキストボックスへフォーカスを移す
　　　　SendKeys "{ENTER}"　 '←[Enter]キーを送る
　　End If
End Sub

『TextBox_KeyDown』のイベントプロシージャ側は、変更せずにそのまま
使用できると思います。

以上です。

回答No.3

w_HIRO_w

簡単に言うと「MSForms.ReturnInteger型」は使用せず、単に「Integer型」を使用する方法を提示したつもりだったのですが、うまく伝わらず・・・すみません。
コメントにあった内容を利用して、案を以下に記載します。

Private Sub EngTypeStartButton_Click()
'<<<<< 削除 ここから
'　　Dim KeyCode As MSForms.ReturnInteger　<-----(1)
'　　Dim Key As Integer

'　　Key = vbKeyReturn
'>>>>> 削除 ここまで

　　If EngTypeStartButton.Caption = txtStart Then
　　　　Call NextButton_Click <-----(3)これは正常に動作しています。
　　　　EngTypeStartButton.Caption = txtProcessing
　　　　EngTypeTextBox.SetFocus
　　Else
'<<<<< 変更 ここから
'　　　　KeyCode.Value = vbKeyReturn <-----(2)(ERROR)
'　　　　Call EngTypeTextBox_KeyDown(KeyCode, 0)
　　　　Call sample(vbKeyReturn, 0)
'>>>>> 変更 ここまで
　　End If
End Sub

Private Sub TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'>>>>> 例 ここから
　　※今までの内容をsample関数へコピー。
　　Call sample(KeyCode, Shift)
'<<<<< 例 ここまで
End Sub

'>>>>> 新規 ここから
Private Sub sample(ByVal inKeyCode As Integer, ByVal inShift As Integer)
　　※ここの内容は、TextBox_KeyDown関数の内容をコピーして変数名を合わせてください。
　　If inKeyCode = vbKeyReturn Then
　　　　MsgBox "Return Key"
　　Else
　　　　If inShift = 0 Then
　　　　　　MsgBox "Not Return Key"
　　　　Else
　　　　　　MsgBox "Shift Key"
　　　　End If
　　End If
End Sub
'<<<<< 新規 ここまで

回答No.2

w_HIRO_w

> また、エラーがcallにくる前の行の　keycode.value=vbKeyReturnで発生するのを回避する方法があればよいのですが。

integer型の変数では、駄目でした？
Private Sub xxxxx
　　Dim 変数A as Integer

　　（省略）
　　変数A = vbKeyReturn
　　（省略）
End Sub

お礼

ありがとうございます。
以下の様に変更してみたのですが、同じ結果でした。

Private Sub EngTypeStartButton_Click()
Dim KeyCode As MSForms.ReturnInteger　<-----(1)
Dim Key As Integer

Key = vbKeyReturn

If EngTypeStartButton.Caption = txtStart Then
Call NextButton_Click <-----(3)これは正常に動作しています。
EngTypeStartButton.Caption = txtProcessing
EngTypeTextBox.SetFocus
Else
KeyCode.Value = vbKeyReturn <-----(2)(ERROR)
Call EngTypeTextBox_KeyDown(KeyCode, 0)
End If
End Sub

(1)をIntegerにすると、起動する前にエラーになります。
(2)は起動後このSubのイベントが発生した時に最初に申し上げたエラーになります。
(3)正常に呼び出して実行しています。

回答No.1

w_HIRO_w

TextBox_KeyDown()はイベントなので、Call命令では呼び出しできないと思います。
ちょっと考え方を変えて、以下のようにしては如何でしょうか。
簡単に言うと「TextBox_KeyDown()」で記述している内容を外出しにして、「TextBox_KeyDown()」と「StartButton_Click()」からそれぞれ呼び出す。

Private Sub StartButton_Click()
　　Dim KeyCode As MSForms.ReturnInteger

　　If EngTypeStartButton.Caption = "" Then
　　　　KeyCode.Value = vbKeyReturn　<---ここでエラーになる。
　　　　'Call TextBox_KeyDown(KeyCode, 0)
　　　　Call KeyDown_Event()
　　End If
End Sub

Private Sub TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
　　Call KeyDown_Event()
End Sub

Private Sub KeyDown_Event()
　　'ここに「TextBox_KeyDown()」で、記述していた内容を記述。
End Sub

お礼

ありがとうございます。

そうしたいのですが、textbox_keydown()の中でreturnとshiftにより判断しているので、
keydown_event()とした時にやはりキー情報を受け渡さなければなりません。

そこで同じvkeycode.value=keycodeでエラーになってしまいます。

それとbutton_click()は他のsubからcallできるのでtextbox_keydown()もcallできるのではと思ってしまいました。
また、エラーがcallにくる前の行の　keycode.value=vbKeyReturnで発生するのを回避する方法があればよいのですが。