Định dạng trong TextBox. (1 người xem)

[khamha]

Chào các bạn,mình hỏi về code định dạng số cho TextBox,Vì có nhiều TextBox muốn định dạng cùng một lúc, chứ làm từng cái một thì code dài quá,các bạn xem có cách nào rút gọn code được ko? củ thể là mình muốn định dạng từ TextBox2 đến TextBox 62.
Vấn đề thứ hai là có cách nào tự động nạp số không cho TextBox2 - 62 ,khi mở Form ,nếu ko nhập dữ liệu mới vào thì các TextBox sẽ vẫn dữ giá trị là không,Các bạn giúp mình nhé,cảm ơn.

 

[dhn46]

Chào các bạn,mình hỏi về code định dạng số cho TextBox,Vì có nhiều TextBox muốn định dạng cùng một lúc, chứ làm từng cái một thì code dài quá,các bạn xem có cách nào rút gọn code được ko? củ thể là mình muốn định dạng từ TextBox2 đến TextBox 62.
Vấn đề thứ hai là có cách nào tự động nạp số không cho TextBox2 - 62 ,khi mở Form ,nếu ko nhập dữ liệu mới vào thì các TextBox sẽ vẫn dữ giá trị là không,Các bạn giúp mình nhé,cảm ơn.

Bạn duyệt qua tất cả Control trên Form, cái nào thỏa mãn thì gọi thủ tục, code này trên GPE có nhiều

Private Sub CommandButton1_Click()
    Dim Obj As Msforms.Control
    For Each Obj In Me.Controls
         If TypeOf Obj Is Msforms.TextBox Then
                  Obj = 0 'Nhập số
                  'Call thủ tục....
         End If
    Next
End Sub

 

[ptm0412]

Nếu tên textbox đặt có thứ tự từ TextBox2 đến TextBox62 thì duyệt vòng lặp ít vòng hơn như sau:

For i = 2 to 62
   Me.Controls("Textbox" & Trim(i)) = 0
Next