|
おはようございます。
>'TextBox3***任意の文字列を入れて、この文字列をアクティブセルの右隣セルに格納
>
>TextBox3の値を入力確認メッセージで、Noを選んだとき、TextBox3を入力可能状態にしたいのですが、TextBox1にフォーカスが移動してしまいます。
Exitイベントの場合は、別の方法が必要みたいですねえ。
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox3
If .Text = "" Then
MsgBox "ng"
Application.OnTime Now(), _
"'SetFocussp ""userform1"",""TextBox3""'"
'↑ユーザーフォームの名前
End If
End With
End Sub
標準モジュールに
Sub setfocussp(ByVal frm As Variant, ctl As Variant)
Dim cfrm As Object
For Each cfrm In UserForms
If UCase(cfrm.Name) = UCase(frm) Then
cfrm.Controls(ctl).setfocus
Exit For
End If
Next
End Sub
尚,Textbox3のExitイベント内のコードは、例題です。
|
|