Định dạng số (#,##0) ngay khi nhập vào UserForm (nhìn cho dễ)

[giang127]

Nhờ các bác giúp em chỉnh sửa Form nhập liệu

để khi nhập số vào Ô (như file đính kèm) thì nó hiện ngay dưới dạng #,##0 để mình nhìn rõ đơn vị phần nghìn với số lớn.

Có ảnh minh họa trong file

FILE ĐÍNH KÈM

 

[Hai Lúa Miền Tây]

Nhờ các bác giúp em chỉnh sửa Form nhập liệu

để khi nhập số vào Ô (như file đính kèm) thì nó hiện ngay dưới dạng #,##0 để mình nhìn rõ đơn vị phần nghìn với số lớn.

Có ảnh minh họa trong file

FILE ĐÍNH KÈM

Bạn dùng format để định dạng lại thôi
Ví dụ:

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "#,##0")
End Sub

 

[giang127]

Bác Doom ơi, em sài code VBA sau.


Sheet1.Range("A3:I3").Copy
Range("A" & strLastRow).PasteSpecial (4)

Nên sau khi sài xong code thì nó vẫn chọn khu vực A3:I3 (Có dòng mờ mờ thể hiện đã dùng dòng này để copy).
Theo như hình vẽ:

Em muốn nó bỏ chọn dòng A3:I3 thì dùng thêm code nào ở code trên hả bác, cảm ơn bác nhá

 

[ndu96081631]

Bác Doom ơi, em sài code VBA sau.


Sheet1.Range("A3:I3").Copy
Range("A" & strLastRow).PasteSpecial (4)

Nên sau khi sài xong code thì nó vẫn chọn khu vực A3:I3 (Có dòng mờ mờ thể hiện đã dùng dòng này để copy).
Theo như hình vẽ:

Em muốn nó bỏ chọn dòng A3:I3 thì dùng thêm code nào ở code trên hả bác, cảm ơn bác nhá

Thì thêm Application.CutCopyMode = False vào sau đó

 

[Hai Lúa Miền Tây]

Copy và dán xong thì bạn nên bỏ copy nhé

Application.CutCopyMode = False