Excel VBA質問箱 IV

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

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


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

12521 / 76807

←次へ　｜　前へ→


	【69806】setfocus　が効かない

mai - 11/8/31(水) 9:58 -


	引用なし

	パスワード

ユーザーフォーム上にテキストボックスがあり、そのテキストボックスに不適合な値を入力した場合は、警告メッセージを出して、再度、入力させる為に、
そのテキストボックスにフォーカスを移動させたいのですが、
なぜか、何も反応してくれません。

理由がわからず困っています。

どうか、伝授お願いします

下記がコードです

Private Sub 品番txt_Exit(ByVal Cancel As MSForms.ReturnBoolean)

'重複を制御するための処理

Dim MyD As Object

Set MyD = CreateObject("scripting.dictionary")

　For I = 4 To Range("Z" & Rows.Count).End(xlUp).Row
　 If Cells(I, "Z").Value <> "" Then
　　If Not MyD.exists(Cells(I, "Z").Value) Then
　　　 MyD.Add Cells(I, "Z").Value, ""
　　End If
　 End If
　Next I
　
　If MyD.exists(品番txt.Text) Then
　　 MsgBox "品番が重複してます。", vbCritical
　　
　　’ここのフォーカスが効いてくれない
　
　　With Me.品番txt
　　　　　　.SetFocus
　　　　　　.SelStart = 0
　　　　　　.SelLength = Len(品番txt)
　　 End With

　End If
　

End Sub

4 hits

▼

【69806】setfocus　が効かない mai 11/8/31(水) 9:58

≪