Giúp hoàn thiện dữ liệu nhập từ Form

[anhtotbung35]

Em có bảng tính nhập dữ liệu từ Form, nhưng khi nhập xong thì trong bảng tính Excell không hiểu đúng thuộc tính đã định dạng. Nhờ mấy Pác xem giúp nhé. Có file kèm theo.

 

[solomon2211]

Bạn sửa lại như sau:

Private Sub Sotien_AfterUpdate()
Sotien = Format(Sotien, "#,##0")

Sheets("A").Select
Range("A3").Select
ActiveCell.Offset(Range("$C$1").Value, 0).Select
ActiveCell.Offset(0, 0).Select
ActiveCell.Value = DateValue(Ngay.Value)
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sotien.Value
Range("$C$1").Select
ActiveCell.Value = ActiveCell.Value + 1
Ngay = ""
Sotien = ""
End Sub

 

[anhtotbung35]

Bạn sửa lại như sau:

Private Sub Sotien_AfterUpdate()
Sotien = Format(Sotien, "#,##0")

Sheets("A").Select
Range("A3").Select
ActiveCell.Offset(Range("$C$1").Value, 0).Select
ActiveCell.Offset(0, 0).Select
ActiveCell.Value = DateValue(Ngay.Value)
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sotien.Value
Range("$C$1").Select
ActiveCell.Value = ActiveCell.Value + 1
Ngay = ""
Sotien = ""
End Sub

Bạn ơi, mình đã thử code của bạn rồi. Ngày, tháng thì OK. Nhưng còn số tiền thì chưa được như ý muốn. Mình nhập số tiền 1.000 trên Form thì khi vào cell chỉ có 1, khi nhập 1.000.000 thì vào cell là 1.000.000. Nhưng dòng Tổng cộng thì chỉ bằng 1. Bạn xem lại giúp file nhé.

 

[solomon2211]

Bạn ơi, mình đã thử code của bạn rồi. Ngày, tháng thì OK. Nhưng còn số tiền thì chưa được như ý muốn. Mình nhập số tiền 1.000 trên Form thì khi vào cell chỉ có 1, khi nhập 1.000.000 thì vào cell là 1.000.000. Nhưng dòng Tổng cộng thì chỉ bằng 1. Bạn xem lại giúp file nhé.

Vấn đề là, định dạng số của bạn với dấu cách thập phân là dấu chấm (.). Nếu bạn nhập 1.000.000 nghĩa là hơn 1 dấu cách thì excel hiểu là text bạn à. Không riêng từ form, bạn thử nhập trực tiếp vào excel sẽ thấy mà.

 

[thanhphuong]

Bạn ơi, mình đã thử code của bạn rồi. Ngày, tháng thì OK. Nhưng còn số tiền thì chưa được như ý muốn. Mình nhập số tiền 1.000 trên Form thì khi vào cell chỉ có 1, khi nhập 1.000.000 thì vào cell là 1.000.000. Nhưng dòng Tổng cộng thì chỉ bằng 1. Bạn xem lại giúp file nhé.

1/ Trong Sheet, bạn đinh dang cột số tiền theo dang số không có số thập phân phía sau và có dấu phân cách hàng ngàn
2/ Khi nhập số trong form không nhập dấu phân cách(vì như thế Excel hiểu là bạn nhập text chứ không phải số). Bạn cứ nhập bình thường(có bao nhiêu chữ số thì nhập đủ bấy nhiêu), Ex sẽ format giúp bạn
3/ Do trong máy của bạn định dạng số phân cách hàng ngàn theo kiểu "Việt Nam"(người Việt Nam không theo "Mỹ"../.ec...ec) nên trong đoạn code của sự kiện ApterUpdate cùa textboxSotiẽn ban sửa lại là
Sotien = Format(Sotien, "#.##0")
Thân