Giá trị số bị thiếu khi nhập liệu từ textbox (vba) vào trang tính (cell)

[hujnhgija]

Tình hình là mình có tạo form quản lý nhập văn phòng phẩm, trong các textbox về đơn giá và thành tiền có định dạng hiển thị số tiền formatnumber là "#,@@0". Nhưng khi thực hiện lệnh để lưu giá trị vào sheet thì bị mất đi phần giá trị 1000 đồng. Chạy msgbox để test thì thấy giá trị trong textbox vẫn đúng. Đã mò các kiểu rồi vẫn không được. Có cao nhân nào hỗ trợ mình với.

 

[giaiphap]

Tình hình là mình có tạo form quản lý nhập văn phòng phẩm, trong các textbox về đơn giá và thành tiền có định dạng hiển thị số tiền formatnumber là "#,@@0". Nhưng khi thực hiện lệnh để lưu giá trị vào sheet thì bị mất đi phần giá trị 1000 đồng. Chạy msgbox để test thì thấy giá trị trong textbox vẫn đúng. Đã mò các kiểu rồi vẫn không được. Có cao nhân nào hỗ trợ mình với.

Thay vì up cái hình sao bạn không up cái file đi. Có file giúp sẽ nhanh hơn.

 

[hujnhgija]

Thay vì up cái hình sao bạn không up cái file đi. Có file giúp sẽ nhanh hơn

Thank, vì file gộp của doanh nghiệp nên có dữ liệu tài chính. Mình exp ra gửi bạn xem

 

[minhtungph]

bạn thay

txb_DG.Value & "000"

thành

CDbl(txb_DG.Value)

 

[Maika8008]

Tình hình là mình có tạo form quản lý nhập văn phòng phẩm, trong các textbox về đơn giá và thành tiền có định dạng hiển thị số tiền formatnumber là "#,@@0". Nhưng khi thực hiện lệnh để lưu giá trị vào sheet thì bị mất đi phần giá trị 1000 đồng. Chạy msgbox để test thì thấy giá trị trong textbox vẫn đúng. Đã mò các kiểu rồi vẫn không được. Có cao nhân nào hỗ trợ mình với.

Sửa định dạng thành "#,##0" thử.

 

[Phuocam]

Góp ý một chút: Sau khi Chọn loại Văn phòng phẩm, DVT và Đơn giá tự động điền luôn. Sửa DVT là Textbox....

.

 

[ptm0412]

Bỏ cái & "000" đi và bỏ luôn dấu chấm bằng hàm replace
= Replace(txb_DG.Value, ".", "")
Lý do: thiết lập dấu thập phân trong control panel là dấu phảy

 

[hujnhgija]

Sửa định dạng thành "#,##0" thử.

sry, mình gõ nhầm "#,@@", đã định dạng textbox kiểm "#,##0" rồi nhưng khi chép vào sheet thì bị lỗi vậy

Bài đã được tự động gộp: 6/8/21

Góp ý một chút: Sau khi Chọn loại Văn phòng phẩm, DVT và Đơn giá tự động điền luôn. Sửa DVT là Textbox....

.

thank!

Bài đã được tự động gộp: 6/8/21

bạn thay

txb_DG.Value & "000"

thành

CDbl(txb_DG.Value)

Cám ơn bạn, mình đã hiểu được vấn đề. Đã làm được rồi. Thank r nhiều.

Bài đã được tự động gộp: 6/8/21

Bỏ cái & "000" đi và bỏ luôn dấu chấm bằng hàm replace
= Replace(txb_DG.Value, ".", "")
Lý do: thiết lập dấu thập phân trong control panel là dấu phảy

Mình đã làm được theo cách của bạn và của minhtungph. Thank r nhiều ah. Minh cũng đã vào chỉnh lại hệ thống theo chuẩn VN rồi nhưng vẫn không đc. Sử dụng hàm Replace và Cdbl thì được.

 

[hujnhgija]

Đã fix được vấn đề. Chân thành cảm ơn sự chia sẻ của @minhtungph và @ptm0412 ạ!