Cần giúp đỡ về loại bỏ số 0 thập phân bị thừa ở đuôi. (3 người xem)

[hung2412]

Mình chào các bạn GPE!
Mình nhờ các bạn giúp đỡ cho mình vấn đề này với, cụ thể như sau:
Mình có 1 file Excel, ở cột E có những ô có số dạng thập phân (2 số thập phân), mình muốn loại bỏ những số 0 thập phân bị thừa. Ví dụ như:
+ Ô E8 có số 866,80 => 866,8 (Bỏ 1 số 0 ở đuôi)
+ Ô E9 có số 885,00 => 885 (Bỏ 2 số 0 ở đuôi)
+ Ô E10 có số 2.487,58 => 2.487,58 (Giữ nguyên).
Mình mong các bạn GPE chỉ giáo.
Trân trọng cảm ơn!
P/s: Có file đính kèm

 

[vu_tuan_manh_linh]

Mình chào các bạn GPE!
Mình nhờ các bạn giúp đỡ cho mình vấn đề này với, cụ thể như sau:
Mình có 1 file Excel, ở cột E có những ô có số dạng thập phân (2 số thập phân), mình muốn loại bỏ những số 0 thập phân bị thừa. Ví dụ như:
+ Ô E8 có số 866,80 => 866,8 (Bỏ 1 số 0 ở đuôi)
+ Ô E9 có số 885,00 => 885 (Bỏ 2 số 0 ở đuôi)
+ Ô E10 có số 2.487,58 => 2.487,58 (Giữ nguyên).
Mình mong các bạn GPE chỉ giáo.
Trân trọng cảm ơn!
P/s: Có file đính kèm

Định dạng General thì được 2 cái ý đầu, nhưng mất cái ý sau. Định dạng với # thì được cái ý sau, mất 2 cái ý đầu!! Chưa biết phải làm thế nào nữa!!

 

[hung2412]

Định dạng General thì được 2 cái ý đầu, nhưng mất cái ý sau. Định dạng với # thì được cái ý sau, mất 2 cái ý đầu!! Chưa biết phải làm thế nào nữa!!

Thế mới nói, đó là vấn đề mình đưa lên diễn đàn nhờ sự giúp đỡ của các Pro.

 

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

Thế mới nói, đó là vấn đề mình đưa lên diễn đàn nhờ sự giúp đỡ của các Pro.

Bạn xem file đính kèm nhé.

 

[hung2412]

Bạn xem file đính kèm nhé.

Đúng theo đề bài, nhưng làm thế nào vậy bạn ơi? Tớ không thấy code VBA gì cả (Chẳng lẽ làm thủ công?)

 

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

Đúng theo đề bài, nhưng làm thế nào vậy bạn ơi? Tớ không thấy code VBA gì cả (Chẳng lẽ làm thủ công?)

Không hề thủ công và cũng chẳng VBA gì cả, đơn giản chỉ dùng CF thôi bạn.

 

[vu_tuan_manh_linh]

Không hề thủ công và cũng chẳng VBA gì cả, đơn giản chỉ dùng CF thôi bạn.

Chức năng Format Number trong Condictional Formatting chỉ có trên excel 2007 trở lên.

 

[hung2412]

Chức năng Format Number trong Condictional Formatting chỉ có trên excel 2007 trở lên.

Cảm ơn bạn, nhưng tớ đang xài excel 2003, không thể dùng excel 2007 được, bạn có cách nào khác chăng (VBA chẳng hạn)?

 

[hung2412]

Không hề thủ công và cũng chẳng VBA gì cả, đơn giản chỉ dùng CF thôi bạn.

Oày, tớ đang xài excel 2003 thì làm sao xài được CF định dạng đây ta. Khó thật.

 

[ndu96081631]

Oày, tớ đang xài excel 2003 thì làm sao xài được CF định dạng đây ta. Khó thật.

Ủa! CF ở đâu mà chẳng có?
Mà bạn có biết CF là gì không ta? Conditional Formating đó, Excel 2003 sao mà không có

 

[hung2412]

Ủa! CF ở đâu mà chẳng có?
Mà bạn có biết CF là gì không ta? Conditional Formating đó, Excel 2003 sao mà không có

Tớ biết CF mà, nhưng bạn vu_tuan_manh_linh nói là Chức năng Format Number trong Condictional Formatting chỉ có trên excel 2007 trở lên. Mà tớ thì đang xài excel 2003. Mong bạn chỉ giáo.

 

[vu_tuan_manh_linh]

Ủa! CF ở đâu mà chẳng có?
Mà bạn có biết CF là gì không ta? Conditional Formating đó, Excel 2003 sao mà không có

Vâng, vẫn có thầy ạ, nhưng không có vụ Number Format trong excel 2003. Thật tiếc!

 

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

Tớ biết CF mà, nhưng bạn vu_tuan_manh_linh nói là Chức năng Format Number trong Condictional Formatting chỉ có trên excel 2007 trở lên. Mà tớ thì đang xài excel 2003. Mong bạn chỉ giáo.

Bạn muốn code thì như sau:

Sub DinhDang()
    Dim rng As Range
    For Each rng In Sheet1.[E8:E42]
        If Evaluate("MOD(" & rng.Address & ", 1)") = 0 Then
            rng.NumberFormat = "#,##0"
        Else
            rng.NumberFormat = "#,##0.0#"
        End If
    Next
    
End Sub

Lưu ý: Bạn đừng xưng "tớ" ở đây nhé.

 

[vanle33]

Tớ biết CF mà, nhưng bạn vu_tuan_manh_linh nói là Chức năng Format Number trong Condictional Formatting chỉ có trên excel 2007 trở lên. Mà tớ thì đang xài excel 2003. Mong bạn chỉ giáo.

1) Chữ màu xanh là cái gì vậy?
2) Conditional Formatting có trong tất cả các phiên bản excel từ 2003, 2007, 2010, 2013
Trong excel 2003 CF ở menu Format đó.

 

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

1) Chữ màu xanh là cái gì vậy?
2) Conditional Formatting có trong tất cả các phiên bản excel từ 2003, 2007, 2010, 2013
Trong excel 2003 CF ở menu Format đó.

Sẽ không format được number nếu dùng phiên bản 2003 trở xuống.

 

[hung2412]

1) Chữ màu xanh là cái gì vậy?
2) Conditional Formatting có trong tất cả các phiên bản excel từ 2003, 2007, 2010, 2013
Trong excel 2003 CF ở menu Format đó.

Chữ màu xanh là do mình copy comment của bạn vu_tuan_manh_linh.

 

[vu_tuan_manh_linh]

Dùng cách này đi bạn!! Chịu khó đặt cột phụ, filter rồi đặt 3 lần định dạng số là được!!

 

[hung2412]

Bạn muốn code thì như sau:

Sub DinhDang()
    Dim rng As Range
    For Each rng In Sheet1.[E8:E42]
        If Evaluate("MOD(" & rng.Address & ", 1)") = 0 Then
            rng.NumberFormat = "#,##0"
        Else
            rng.NumberFormat = "#,##0.0#"
        End If
    Next
    
End Sub

Lưu ý: Bạn đừng xưng "tớ" ở đây nhé.

Mình đã áp dụng code của bạn và thật đúng theo đề bài, mình xin cảm ơn tất cả các bạn.

 

[vu_tuan_manh_linh]

Mình đã áp dụng code của bạn và thật đúng theo đề bài, mình xin cảm ơn tất cả các bạn.

Một lời khuyên dành cho các thành viên "háo code" nhưng không viết được code: bạn chỉ dùng đoạn code được 1 lần, hoặc cùng lắm là dùng tương tự với file có kết cấu tương tự. Chuyển sang file khác thì phải sửa code một chút. Vậy nên cái gì bác Bill đã vẽ sẵn ra rồi thì cố gắng mà tận dụng để làm kỹ năng.
Code của anh Hai lúa sửa thế này cho tùy biến vùng định dạng:

Sub DinhDang()
    Dim rng As Range
    For Each rng In Selection
        If Evaluate("MOD(" & rng.Address & ", 1)") = 0 Then
            rng.NumberFormat = "#,##0"
        Else
            rng.NumberFormat = "#,##0.0#"
        End If
    Next
End Sub

 

[hung2412]

Một lời khuyên dành cho các thành viên "háo code" nhưng không viết được code: bạn chỉ dùng đoạn code được 1 lần, hoặc cùng lắm là dùng tương tự với file có kết cấu tương tự. Chuyển sang file khác thì phải sửa code một chút. Vậy nên cái gì bác Bill đã vẽ sẵn ra rồi thì cố gắng mà tận dụng để làm kỹ năng.
Code của anh Hai lúa sửa thế này cho tùy biến vùng định dạng:

Sub DinhDang()
    Dim rng As Range
    For Each rng In Selection
        If Evaluate("MOD(" & rng.Address & ", 1)") = 0 Then
            rng.NumberFormat = "#,##0"
        Else
            rng.NumberFormat = "#,##0.0#"
        End If
    Next
End Sub

Mình cảm ơn lời khuyên của bạn, mình sẽ áp dụng vào công việc.