Khóa tab VBA đặt giá trị tab thực tế trong hộp văn bản thay vì điều hướng đến điều khiển tiếp theo

Question

Tôi có biểu mẫu VBA (trong Excel nếu có vấn đề) có chứa hộp văn bản.

Trong ba lần, tôi thấy mình đang nhấn phím tab để điều hướng đến điều khiển tiếp theo, nhưng thay vào đó TAB thực tế đang được đặt vào hộp văn bản.

Biểu mẫu thường hoạt động như bình thường nhưng điều đó khiến tôi lo ngại rằng gremlin này hiển thị thường xuyên.

Nó đã hiển thị trên Office 2003 cũng như Office 2007 trên hai máy tính khác nhau.

Có ai khác đã gặp sự cố này và, nếu có, bạn đã khắc phục sự cố đó như thế nào?

Answer 1

Tôi đã có thể tạo lại vấn đề 100% thời gian bằng cách khởi chạy Excel, lập tức kéo biểu mẫu lên và giữ phím tab.

Nếu tôi thay đổi bất kỳ mã nào trong biểu mẫu và lưu sổ làm việc, sự cố sẽ biến mất. Tôi sẽ viết nó cho một lỗi biên dịch trong VBA.

Answer 2

Đặt thuộc tính TabKeyBehavior thành False để nhận hành vi "Tab nhảy tới trường tiếp theo".

Answer 3

Tôi đã tạo biểu mẫu có ba hộp văn bản. Tôi đã nhập các ký tự và được gắn thẻ vào phần tiếp theo trong một thời gian mà không thể sao chép vấn đề của bạn.

Cách duy nhất tôi có thể lấy tab vào hộp văn bản là bằng cách nhập Ctrl + Tab. Điều này có thể là đáng xấu hổ nhưng backspace loại bỏ nó vì vậy nó không phải là một vấn đề lớn. Có thể bạn vô tình nhấn Ctrl cùng một lúc?

Thỉnh thoảng tôi thấy rằng nếu tôi nhấn nhầm phím mà con trỏ nhảy đến một nơi khác trên màn hình. Tôi không hoàn toàn chắc chắn những gì tôi có nghĩa là "mispress"; nó có vẻ là một cái gì đó để làm với cách nhấn hai phím cùng một lúc. Đây có vẻ là một tính năng của bàn phím hiện đại và cách chúng phát hiện ra chìa khóa nào đã được nhấn vì tôi đã gặp phải nó trên nhiều máy tính khác nhau. Hàm ý là bằng cách ấn một phím, một ký tự điều khiển (có thể là tab hoặc tab ctrl +) được tạo ra.

Tôi cũng đã thử những điều sau đây đã hoạt động và che giấu sự cố bằng cách xóa tab và chuyển sang điều khiển tiếp theo.

Private Sub TextBox1_Change() 

    If InStr(1, TextBox1.Text, Chr(9)) <> 0 Then 
    TextBox1.Text = Replace(TextBox1.Text, Chr(9), "") 
    TextBox2.SetFocus 
    End If 

End Sub 

Answer 4

Làm việc nhanh, sử dụng mã này trong sự kiện Thoát của kiểm soát.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
    TextBox1.Text = VBA.Replace(TextBox1.Text, VBA.Chr(9), "") 
End Sub 

Answer 5

Điều này có thể giải quyết vấn đề:

Public Sub MoveFocusToNextControl(xfrmFormName As UserForm, _ 
xctlCurrentControl As control) 

Dim xctl As control 
Dim lngTab As Long, lngNewTab As Long 

On Error Resume Next 

' Move focus to the next control in the tab order 
lngTab = xctlCurrentControl.TabIndex + 1 
    For Each xctl In xfrmFormName.Controls 
     lngNewTab = xctl.TabIndex 
     ' An error will occur if the control does not have a TabIndex property; 
     ' skip over those controls. 
     If Err.Number = 0 Then 
      If lngNewTab = lngTab Then 
       xctl.SetFocus 
       Exit For 
      End If 
     Else 
      Err.Clear 
     End If 
    Next xctl 
Set xctl = Nothing 
Err.Clear 
End Sub