Excel VBA質問箱 IV

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

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


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

39361 / 76732

←次へ　｜　前へ→


	【42484】テキストボックスのカーソルについて

ゆう - 06/9/13(水) 10:59 -


	引用なし

	パスワード

お世話になります。

ユーザーフォーム内のテキストボックスに数値以外のもの（空白はOK）が入力された時
エラーメッセージを表示し、テキストボックスの入力値をクリアし、
もう一度入力を促すようにしたいのですが、
SetForcusを使っても、テキストボックスにカーソルがきません。
下記コードで間違っているところを教えてください。

Private Sub Tx_Set_Change()
　If IsNumeric(Tx_Set) = False And Tx_Set.Value <> "" Then
　　 MsgBox "Please input the numerical value."
　　 Tx_Set.Value = ""
　End If
　　 Tx_Set.SetFocus　
End Sub

0 hits

▼

【42484】テキストボックスのカーソルについて ゆう 06/9/13(水) 10:59

≪