Chuyển số thập phân sang số nguyên theo điều kiện trong file kèm? (1 người xem)

[Hoàng Nhật Phương]

Xin chào tất các bạn,
Như tiêu đề O.Thơ đã nêu ở trên và điều kiện cụ thể O,Thơ viết chi tiết trong file đính kèm rồi ạ.
Rất mong nhận được sự trợ giúp của các bạn.
O.Thơ xin cảm ơn rất nhiều.

 

[lenongree]

Chị dùng CT này cho cột I4, rồi fill cho cả bảng!!!
I4=E4*10^IF(MOD(E4,1),3,0)

 

[nghiaphuc]

Chị dùng CT này cho cột I4, rồi fill cho cả bảng!!!
I4=E4*10^IF(MOD(E4,1),3,0)

Có hồi nào có số 20.000 không nhỉ? Nếu có thì công thức này "tèo".

 

[phulien1902]

Xin chào tất các bạn,
Như tiêu đề O.Thơ đã nêu ở trên và điều kiện cụ thể O,Thơ viết chi tiết trong file đính kèm rồi ạ.
Rất mong nhận được sự trợ giúp của các bạn.
O.Thơ xin cảm ơn rất nhiều.

Bạn có thể tham khảo:

Sub abc()
    Dim Cll As Range
    Dim Rng As Range
    Dim LR As Long
    LR = Range("e" & Rows.Count).End(xlUp).Row
    Set Rng = Sheets(1).Range("E4:F" & LR)
    Application.ScreenUpdating = False
    For Each Cll In Rng
        Cll.Value = Cll.Value * 1000
    Next Cll
    Sheets(1).Range("E4:F" & LR).NumberFormat = "#,##0"
    Application.ScreenUpdating = True
End Sub

 

[lenongree]

Có hồi nào có số 20.000 không nhỉ? Nếu có thì công thức này "tèo".

Hic, em nghĩ là số nguyên là không chuyển đổi, nếu như anh nói số 20.000 chuyển thành 20,000 thì em pó tay, nhờ các anh chị khác vào giúp vậy!!!

 

[nghiaphuc]

Bạn có thể tham khảo:

Sub abc()
    Dim Cll As Range
    Dim Rng As Range
    Dim LR As Long
    LR = Range("e" & Rows.Count).End(xlUp).Row
    Set Rng = Sheets(1).Range("E4:F" & LR)
    Application.ScreenUpdating = False
    For Each Cll In Rng
        Cll.Value = Cll.Value * 1000
    Next Cll
    Sheets(1).Range("E4:F" & LR).NumberFormat = "#,##0"
    Application.ScreenUpdating = True
End Sub

Số nào cũng nhân với 1000 thì sai mất rồi bạn, số 900 thành số 900000 mất.
Code của tôi thế này:
[GPECODE=vb]Sub ChuyenSo()
Dim Cll As Range
For Each Cll In Selection
If Not IsEmpty(Cll) Then Cll = Replace(Cll.Text, ".", "")
Next
Selection.NumberFormat = "#,##0"
End Sub[/GPECODE]

 

[phulien1902]

Số nào cũng nhân với 1000 thì sai mất rồi bạn, số 900 thành số 900000 mất.
Code của tôi thế này:
[GPECODE=vb]Sub ChuyenSo()
Dim Cll As Range
For Each Cll In Selection
If Not IsEmpty(Cll) Then Cll = Replace(Cll.Text, ".", "")
Next
Selection.NumberFormat = "#,##0"
End Sub[/GPECODE]

Xin cảm ơn bạn nghiaphuc, tôi đã không kiểm tra kỹ.

 

[Hoàng Nhật Phương]

Số nào cũng nhân với 1000 thì sai mất rồi bạn, số 900 thành số 900000 mất.
Code của tôi thế này:
[GPECODE=vb]Sub ChuyenSo()
Dim Cll As Range
For Each Cll In Selection
If Not IsEmpty(Cll) Then Cll = Replace(Cll.Text, ".", "")
Next
Selection.NumberFormat = "#,##0"
End Sub[/GPECODE]

Oanh Thơ xin cảm ơn các bạn rất nhiều vì đã hỗ trợ ạ.
@ nghiaphuc : Bạn xem lại code giúp mình với ạ, mình chạy thử không thấy có động tĩnh gì .. hihi

 

[phulien1902]

Bạn phải quét chọn vùng dữ liệu rồi mới chạy Code, sẽ OK thôi.