Excel VBA質問箱 IV

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

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


39346 / 76732 ←次へ | 前へ→

【42499】Re:テキストボックスのカーソルについて
発言  ichinose  - 06/9/13(水) 13:17 -

引用なし
パスワード
   皆さん、こんにちは。

>結局のところ、自分のやりたいことが、文面では伝わらず
>不愉快な思いをさせてしまったのなら、すみませんでした。
これから、VBAでプログラミングをやっていくつもりなら、
このくらいであきらめないことですよ。
人に自分の意思を文章で伝えるのは大変ですけどね!!

これモードレスでユーザーフォームを表示させると
現象が確認できました(Excel2002 SP-3)。


ユーザーフォーム(Userform1)に
  テキストボックス(Textbox1) と
  コマンドボタン(Commandbutton1)を
  一つずつ配置してください。

標準モジュールに

'=================================
Sub main()
  UserForm1.Show vbModeless
End Sub


Userform1のモジュールに

'==========================================================
Private Sub TextBox1_Change()
 If IsNumeric(TextBox1) = False And TextBox1.Value <> "" Then
   MsgBox "Please input the numerical value."
   TextBox1.Value = ""
 End If
 With TextBox1
'  .Visible = False
'  DoEvents
'  .Visible = True
   .SetFocus
 End With

End Sub


上記のコードで数値以外を入力するとエラーメッセージ表示後、
フォーカスがTextbox1に戻りません!!

Changeイベントのコメントをはずして実行してみてください。
今度はフォーカスがTextbox1に戻ります。

試してみてください。
0 hits

【42484】テキストボックスのカーソルについて ゆう 06/9/13(水) 10:59 質問
【42487】Re:テキストボックスのカーソルについて Kein 06/9/13(水) 11:24 発言
【42489】Re:テキストボックスのカーソルについて ゆう 06/9/13(水) 11:34 質問
【42493】Re:テキストボックスのカーソルについて Kein 06/9/13(水) 12:04 発言
【42496】Re:テキストボックスのカーソルについて ゆう 06/9/13(水) 12:50 お礼
【42499】Re:テキストボックスのカーソルについて ichinose 06/9/13(水) 13:17 発言
【42501】Re:テキストボックスのカーソルについて ゆう 06/9/13(水) 13:44 お礼
【42504】Re:テキストボックスのカーソルについて Jaka 06/9/13(水) 14:40 発言
【42490】Re:テキストボックスのカーソルについて Jaka 06/9/13(水) 11:37 発言
【42492】Re:テキストボックスのカーソルについて ゆう 06/9/13(水) 11:41 質問
【42494】Re:テキストボックスのカーソルについて Jaka 06/9/13(水) 12:09 回答
【42497】Re:テキストボックスのカーソルについて ゆう 06/9/13(水) 12:52 お礼
【42500】Re:テキストボックスのカーソルについて ハナ 06/9/13(水) 13:17 発言
【42502】Re:テキストボックスのカーソルについて ゆう 06/9/13(水) 13:47 お礼

39346 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free