Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2917 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【65297】TextBoxの入力規制について かずま 10/5/6(木) 13:35

【65304】Re:TextBoxの入力規制について teian 10/5/6(木) 14:50

【65305】Re:TextBoxの入力規制について かずま 10/5/6(木) 15:44


	【65297】TextBoxの入力規制について

かずま - 10/5/6(木) 13:35 -


	引用なし

	パスワード

フォーム上であるTextBoxに数量を入力する際、数だけの入力は、ＯＫ
なのですが、ここで誤ってEnter　Key（Null)だけを入力した場合次のステップに
進まずに数の入力が出来る様にしたいのですが、ご教授ください。
ちなみに、数の入力コードは次に記します。

Private Sub TextBox1_KeyPress(ByVal KeyAscii AS MSForms.ReturNInteger)
　　　If KeyAscii<Asc("0") Or KeyAscii>Asc("9")　THEN
　　　　　 KeyAscii=0
　　　End If
End Sub


	【65304】Re:TextBoxの入力規制について

teian - 10/5/6(木) 14:50 -


	引用なし

	パスワード

同じような考え方で、KeyDownイベントでは如何でしょうか？

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
　　　　　　　　　　　　　　 ByVal Shift As Integer)
　　If KeyCode.Value = vbKeyReturn Then
　　　　If Me.TextBox1.TextLength = 0 Then KeyCode.Value = 0
　　End If
End Sub


	【65305】Re:TextBoxの入力規制について

かずま - 10/5/6(木) 15:44 -


	引用なし

	パスワード

早速のご回答ありがとうございました。数日悩んでおりました。
誠にありがとうございました。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2917 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free