| 
    
     |  | ▼つん さん: >>Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 >>  If Flag = True Then
 >>    Cancel = True
 >>  End If
 >
 >>End Sub
 >
 >>Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, >>ByVal Shift As Integer)
 >
 >>  If KeyCode = 13 Then
 >>    MsgBox "ここで処理"
 >>    Flag = False
 >>  Else
 >>    Beep
 >>    Flag = True
 >>    Exit Sub
 >  End If
 >
 >>End Sub
 >
 >>って、したらいいかなあ?
 >>どうでしょう?
 
 つんさん、本当に有難うございます.今、ノートにコードを書きとめたところです。
 初めに言いました様に、すぐに実行という環境にありませんのでまた結果をご報告し、改めてお礼を申し上げたいと思います.また何かありましたらご質問させて下さい。
 
 |  |