|
▼つん さん:
>>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
>
>>って、したらいいかなあ?
>>どうでしょう?
つんさん、本当に有難うございます.今、ノートにコードを書きとめたところです。
初めに言いました様に、すぐに実行という環境にありませんのでまた結果をご報告し、改めてお礼を申し上げたいと思います.また何かありましたらご質問させて下さい。
|
|