برگرداندن فکوس به جعبه متن#How to put focus to textbox as needed

در یک فرم اکسل که چندین شئی قرارداده شده است بعد از عبور از هر شئی به صورت اتومات و اتوتب مکان نما به شئی بعدی منتقل می شود

گاهی لازم است مکان نما روی یکی از اشیا باقی بماند مثلا فرض کنید در فرم انتخاب کالا با بارکدخوان لازم است مکان نما مدام و تا زمان نیاز کاربر و قرائت بارکدها روی یک جعبه متن باقی باشد و بعد خارج شود که جهت جلوگیری از خروج مکان نما در کد خروج جعبه متن کنسل را true کنید

Dim DisableMyEvents as Boolean

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If DisableMyEvents then Exit Sub

    ' code to validate
  
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    DisableMyEvents = True
End Sub

 

نقل شده از

https://chandoo.org/forum/threads/text-box-setfocus-problem-data-validation.14034/