Chuyển đổi số liệu

[chibi]

File của Chibi chạy rất tuyệt. Nhưng Chibi ơi, có cách nào không dùng VBA, cũng không dùng cột phụ. Cụ thể là có thể Format Cell được không.
Cám ơn Chibi nhiều !
TDN

Tôi chưa nghĩ ra giải pháp không dùng VBA cũng như cột phụ.
Có thể đơn giản hơn chút nữa là dùng sự kiện Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cot
cot = Target.Column
If cot = 1 Then
  If (Int(Target.Value) - Target.Value) <> 0 Then
     Target.NumberFormat = "###.000"
  Else
     Target.NumberFormat = "###"
  End If
End If
End Sub

 

[dcongphuc]

Làm theo công thức

Nếu chỉ đơn giản là :
-Có số thập phân lẻ thì co định dạng là 3 số thập phân sau
-Không có số thập phân thì giữ nguyên.

Thì chỉ cần công thức:
=IF(MOD(A1;1)>0;TEXT(A1;"#.##0,000");TEXT(A1;"#.##0"))

(Chú ý : cần canh lề bên phải)



Khi mod(A4,1)>0 (A4 có số thập phân) thì INT(A4)+MOD(A4,1) = A4

vì vậy sửa thành :
=IF(MOD(A4,1)>0,TEXT(A4,"0.000"),A4 )

Thân!

Cám ơn bác đã giúp đỡ nhưng công thức trong file định dạng chưa đúng theo yêu cầu. em gởi file em đã sử dụng công thức của bác để bác xem nhé.THÂN !

 

[dcongphuc]

To Tedaynui

Do khi copy vào msg hay bị blank (chữ đỏ), bạn xem lại, vận dụng thêm như sau:
=IF(MOD(A3,1)>0,TEXT(INT(A3)+MOD(A3,1),"0."&RIGHT("000",LEN(MOD(A3,1))-2)),A3)
để ý các số 10.3, 9.3 nó báo len(mod()) = 17 => nên vận dụng chỉ lấy khoảng 5 ký tự.
To dcphuc
=IF(MOD(A4,1)>0,TEXT(INT(A4)+MOD(A4,1),"0.000"),A4)
5.6 = 5.600
10=10
1.2=1.200

Cám ơn bác đã giúp đỡ, nhưng khi đã chuyển đổi rồi muốn cộng,trừ,nhân chia, lúc ra đáp số lại hiển thị số thập phân nữa trong khi bảng tính lại có rất nhiều cột phải chuyển đỗi và tính toán thì đáp số như thế rất dể làm cho mình nhầm lẩn, em có gởi lên đây để bác xem giúp nhé. Chào bác,THÂN !

 

[Mr Okebab]

Cám ơn bác đã giúp đỡ nhưng công thức trong file định dạng chưa đúng theo yêu cầu. em gởi file em đã sử dụng công thức của bác để bác xem nhé.THÂN !

Bạn xem lại nhé :

Công thức text phụ thuộc vào định dạng trong máy của bạn.

Nếu số 1.020,15 (một ngàn khong trăm hai mươi phảy 15) được thể hiện :

1.020,15 thì công thức là : (chú ý chữ màu đỏ)

=IF(MOD(A2;1)>0;TEXT(A2;"#.##0,000");TEXT(A2;"#.##0"))

​

1,020.15 thì công thức là : (chú ý chữ màu đỏ)

=IF(MOD(A2;1)>0;TEXT(A2;"#,##0.000");TEXT(A2;"#,##0"))

​

Đây là File kèm theo. Bạn xem nhé.

 

[voda]

Chào bạn dcongphuc.
Bạn xem file mình chỉnh có đúng ý bạn không nhé.

 

[dcongphuc]

Chào bạn dcongphuc.
Bạn xem file mình chỉnh có đúng ý bạn không nhé.

Thưa bác sao file không mở được, máy báo có virus không cho mở ?

 

[Mr Okebab]

Thưa bác sao file không mở được, máy báo có virus không cho mở ?

Bị con XM.VNN, chắc phải diệt lại thôi. Thông tin về con này :

XM.VNN is a simple Excel v4.0 macro virus.

• Wild Level: Low
• Number of Infections: 0 - 49
• Number of Sites: 0 - 2
• Geographical Distribution: Low
• Threat Containment: Easy
• Removal: Easy

Damage

• Damage Level: Low

Distribution

• Distribution Level: Low

Writeup By: Robert X Wang



http://securityresponse.symantec.com/security_response/writeup.jsp?docid=2003-092917-4036-99
Thân!

 

[dcongphuc]

Bạn tham khảo file gửi kèm nhé.
Nút định dạng sẽ định dạng lại vùng số liệu do bạn chọn.

Cám ơn bác đã giúp đỡ, nhưng khi đã chuyển đổi rồi muốn cộng,trừ,nhân chia, lúc ra đáp số lại không đúng,cho nên chỉ để xem thôi chứ không xử lý được,em lại làm phiền bác có cách nào tính toán được số liệu đã được chuyễn đổi cho ra kết quả đúng không ạ, em có gởi file lên đây để bác xem giúp nhé. Chào bác,THÂN !

 

[voda]

Thưa bác sao file không mở được, máy báo có virus không cho mở ?

Xin lỗi bạn, mình quên kiểm tra.
Mình gởi lại file sạch đây.
-Về vấn đề tính toán với các ô đã định dạng, vì số lẻ luôn được định dạng 3 số nên các ô nhập công thức cần được định dạng 3 số lẻ ( format/cells-number-decimal places = 3)

 

[dcongphuc]

Xin lỗi bạn, mình quên kiểm tra.
Mình gởi lại file sạch đây.
-Về vấn đề tính toán với các ô đã định dạng, vì số lẻ luôn được định dạng 3 số nên các ô nhập công thức cần được định dạng 3 số lẻ ( format/cells-number-decimal places = 3)

Cám ơn bác nhiều lắm lắm, em chúc bác luôn khỏe mạnh và phát tài để luôn giúp các người như em nhé. Thân CHÀO

 

[dcongphuc]

Bạn xem lại nhé :

Công thức text phụ thuộc vào định dạng trong máy của bạn.

Nếu số 1.020,15 (một ngàn khong trăm hai mươi phảy 15) được thể hiện :

1.020,15 thì công thức là : (chú ý chữ màu đỏ)

=IF(MOD(A2;1)>0;TEXT(A2;"#.##0,000");TEXT(A2;"#.##0"))

​

1,020.15 thì công thức là : (chú ý chữ màu đỏ)

=IF(MOD(A2;1)>0;TEXT(A2;"#,##0.000");TEXT(A2;"#,##0"))

​

Đây là File kèm theo. Bạn xem nhé.

Ngon Ngây Ngất!!!, bác thật tuyệt vời, em cám ơn bác vô cùng, chúc bác luôn khỏe mạnh và phát tài nhé. Thân CHÀO

 

[TranThanhPhong]

CHào bạn,

Download tài liệu này về đọc nha, nó nằm trong quyển Hướng dẫn sử dụng Excel 2007 đang được biên soạn (các phiên bản Excel cũ vẩn sử dụng được).

TP.

 

[LikeIt]

Chào bạn dcongphuc.
Bạn xem file mình chỉnh có đúng ý bạn không nhé.

File này của bác có vỉrrus về máy em khi mo ra den gan 100 file, neu em ko kip thoi stop lai, bac xem kiem tra hoac diet trc khi post nhe

 

[levinh2005]

File của Chibi chạy rất tuyệt. Nhưng Chibi ơi, có cách nào không dùng VBA, cũng không dùng cột phụ. Cụ thể là có thể Format Cell được không.
Cám ơn Chibi nhiều !

TDN

Làm thủ công đi. Vào view bật thanh công cụ Format lên. Nhìn trên thanh công cụ có hình dâu phẩy ( , ). Đây là định dạng các số theo nhóm VD 10000 = 10.000. Bên cạnh có ký hiệu tăng giảm số con số sau dấu phẩy. Công việc còn lại là cua bạn.