Cần giúp: Code tự động đổi sang số thập phân

[dinhhung0910]

Mình có 1 vấn đề như sau:
Giả sử trong excel khi mình nhập số (từ 0 --> 10)
- Khi nhập các số từ <10 thì giữ nguyên
- Khi nhập các số >10 thì tự động chuyển về dạng số thập phân (Vd: viết 98 thì hiển thị là 9.8)

Mong các Pro chỉ giúp.

* Lưu ýla2 dùng code nha, không phải chỉnh trong Option đâu!

Thanks

 

[nghiaphuc]

Đọc yêu cầu, biết ngay là đồng nghiệp của mình!

Mình có 1 vấn đề như sau:
Giả sử trong excel khi mình nhập số (từ 0 --> 10)
- Khi nhập các số từ <10 thì giữ nguyên
- Khi nhập các số >10 thì tự động chuyển về dạng số thập phân (Vd: viết 98 thì hiển thị là 9.8)

Mong các Pro chỉ giúp.

* Lưu ýla2 dùng code nha, không phải chỉnh trong Option đâu!

Thanks

Bạn sử dụng code sau cho sheet muốn áp dụng chuyển đổi nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If IsNumeric(Target) And Target > 10 Then Target = Target / 10
End Sub

Nếu muốn áp dụng cho tất cả các sheet trong file thì bạn đưa 2 câu lệnh trên vào trong Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) của đối tượng ThisWorkbook nhé.
Nếu muốn chỉ áp dụng code cho một số vùng chỉ định trên các sheet chỉ định thì bạn tham khảo cách điều chỉnh code trong topic sau: http://www.giaiphapexcel.com/forum/showthread.php?48634-Cấm-không-cho-copy-và-paste/page2