nhập số liệu (1 người xem)

[doi_trai_co_don]

Có anh bạn nhờ tôi cách nhập số liệu mà tôi không làm được. Mong AC trong 4rum giúp đỡ tôi.
Nội dung là: Khi gõ 1 số vào 1 cel thì nó tự động nhập thêm 3 số 0. Có nghĩa là giả sử muốn gõ số 5000 thì ta chỉ việc gõ số 5.
Chỉ cần 1 cột và cuối cùng cộng tổng.
Tôi xin cảm ơn.

 

[vu_tuan_manh_linh]

Cái này dùng thủ tục worksheets_Change. Code như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Vl As Integer
Application.EnableEvents = False
If Target.Column = 1 Then    
Vl = Target.Value    
Target.Value = Vl & "000"
End If
Application.EnableEvents = True
End Sub

Nếu muốn nhập ở cột A thì chỉ số Target.Column =1, cột B thì =2, cột C =3......

 

[leonguyenz]

Có anh bạn nhờ tôi cách nhập số liệu mà tôi không làm được. Mong AC trong 4rum giúp đỡ tôi.
Nội dung là: Khi gõ 1 số vào 1 cel thì nó tự động nhập thêm 3 số 0. Có nghĩa là giả sử muốn gõ số 5000 thì ta chỉ việc gõ số 5.
Chỉ cần 1 cột và cuối cùng cộng tổng.
Tôi xin cảm ơn.

Điều chỉnh trong Excel Optrions như hình sau (đối với Excel 2007):

Thay số -2 bằng -3, nhấp Ok.