Dùng Class Module để định dạng các textbox được lựa chọn (1 người xem)

[tvquan41]

Em có tham khảo bài viết "Làm sao xác định được tên của control trên userform khi ta click vào?" của anh Hoàng Trọng Nghĩa: trang http://www.giaiphapexcel.com/forum/...ên-của-control-trên-userform-khi-ta-click-vào
em thấy rất hay và mạo muội sửa code để định dạng số cho các textbox của mình. Nhưng em bị bí chỗ khi chạy ứng dụng class module thì toàn bộ các textbox sẽ được ứng dụng theo. xin anh chị trong diễn dàn giúp em thêm đoạn code để có thể lựa chọn các textbox ứng dụng class module. Em xin chân thành cảm ơn.

 

[ndu96081631]

Em có tham khảo bài viết "Làm sao xác định được tên của control trên userform khi ta click vào?" của anh Hoàng Trọng Nghĩa: trang http://www.giaiphapexcel.com/forum/...ên-của-control-trên-userform-khi-ta-click-vào
em thấy rất hay và mạo muội sửa code để định dạng số cho các textbox của mình. Nhưng em bị bí chỗ khi chạy ứng dụng class module thì toàn bộ các textbox sẽ được ứng dụng theo. xin anh chị trong diễn dàn giúp em thêm đoạn code để có thể lựa chọn các textbox ứng dụng class module. Em xin chân thành cảm ơn.

Sửa sự kiện UserForm_Initialize thành vầy là được rồi:

Private Sub UserForm_Initialize()
  Dim Counter As Long, n As Long
  Dim Obj As Control
  For Each Obj In Me.Controls
    If TypeOf Obj Is MSForms.Textbox Then
      n = n + 1
      If n = 2 Or n = 4 Or n = 6 Or n = 7 Then
        Counter = Counter + 1
        ReDim Preserve Textboxs(1 To Counter)
        Set Textboxs(Counter).TextboxEvents = Obj
      End If
    End If
  Next
  Set Obj = Nothing
End Sub

Hoặc vầy càng gọn:

Private Sub UserForm_Initialize()
  Dim Counter As Long, n As Long
  For n = 2 To 8
    If n = 2 Or n = 4 Or n = 6 Or n = 7 Then
      Counter = Counter + 1
      ReDim Preserve Textboxs(1 To Counter)
      Set Textboxs(Counter).TextboxEvents = Me.Controls("Ctr" & Format(n, "00"))
    End If
  Next
End Sub