hàm làm tròn trong VBA (1 người xem)

[swalowbird]

Nhờ các bác giúp đỡ em muốn làm tròn một dãy như thế này , chỉ cần chọn vùng , click sẽ tự động làm tròn cho mình


[TABLE="width: 101"]
[TR]
[TD]45.613.861,6677[/TD]
[/TR]
[TR]
[TD]10.685.728,557[/TD]
[/TR]
[TR]
[TD]3.170.479,5011[/TD]
[/TR]
[TR]
[TD]6.591.778,2369[/TD]
[/TR]
[TR]
[TD]5.354.306,6105[/TD]
[/TR]
[/TABLE]


làm tròn 0 chữ số sau dấu phẩy nhe các bác .

thanks !

 

[TheThienChu]

Nhờ các bác giúp đỡ em muốn làm tròn một dãy như thế này , chỉ cần chọn vùng , click sẽ tự động làm tròn cho mình


[TABLE="width: 101"]
[TR]
[TD]45.613.861,6677[/TD]
[/TR]
[TR]
[TD]10.685.728,557[/TD]
[/TR]
[TR]
[TD]3.170.479,5011[/TD]
[/TR]
[TR]
[TD]6.591.778,2369[/TD]
[/TR]
[TR]
[TD]5.354.306,6105[/TD]
[/TR]
[/TABLE]


làm tròn 0 chữ số sau dấu phẩy nhe các bác .

thanks !

Chọn vùng cần làm tròn rồi chạy sub này xem thế nào nhé bạn

Sub MyRound()
Dim Rng As Range
For Each Rng In Selection
Rng = Round(Rng, 0)
Next Rng
Selection.NumberFormat = "General"
End Sub

 

[befaint]

Chọn vùng cần làm tròn rồi chạy sub này xem thế nào nhé bạn

Sub MyRound()
Dim Rng As Range
For Each Rng In Selection
Rng = Round(Rng, 0)
Next Rng
Selection.NumberFormat = "General"
End Sub

Gặp chuỗi (không phải là số) thì sao?

 

[TheThienChu]

Gặp chuỗi (không phải là số) thì sao?

Chẳng lẽ chủ thớt lại muốn làm tròn chuỗi
Không có file đính kèm thì đoán vậy, để chủ thớt lên tiếng rồi tính tiếp cũng không vấn đề gì

 

[lehuong1409]

e a dua theo tí không biết kết quả đúng ý bạn ấy k?

Sub lam_tron()
Dim cell As Range
On Error Resume Next
Set vung = Application.InputBox("GPE", Type:=8)
For Each cell In vung
cell = Round(cell, 0)
Next cell
End Sub

 

[VetMini]

Chọn vùng cần làm tròn rồi chạy sub này xem thế nào nhé bạn

Sub MyRound()
Dim Rng As Range
For Each Rng In Selection
Rng = Round(Rng, 0)
Next Rng
Selection.NumberFormat = "General"
End Sub

Coi chừng chưa chắc ra kết quả đúng nghe bạn.
(gợi ý cho bạn học hỏi thôi. Việc chủ thớt có xài được không liên quan gì đến tôi)

Bài #5 cũng vậy

 

[TheThienChu]

Coi chừng chưa chắc ra kết quả đúng nghe bạn.
(gợi ý cho bạn học hỏi thôi. Việc chủ thớt có xài được không liên quan gì đến tôi)

Bài #5 cũng vậy

Cám ơn bác góp ý. Nhìn dữ liệu mẫu cũng nghi chưa chắc đã phải là số nhưng vì đầu bài dùng từ "hàm làm tròn trong vba" nên liên tưởng tới hàm round() nên code vậy coi như là để chủ thớt tham khảo.
Thôi thì đành chờ xem dữ liệu thực ra sao rồi sai đâu sửa đấy vậy.

 

[maxft2911]

Theo mình nghĩ để chắc chắn thì nên convert từ chuỗi sang kiểu dữ liệu Double là ổn mà: CDbl(<chuỗi>)

 

[VetMini]

Theo mình nghĩ để chắc chắn thì nên convert từ chuỗi sang kiểu dữ liệu Double là ổn mà: CDbl(<chuỗi>)

Không phải là chỗ tôi muốn nói.

Cám ơn bác góp ý. Nhìn dữ liệu mẫu cũng nghi chưa chắc đã phải là số nhưng vì đầu bài dùng từ "hàm làm tròn trong vba" nên liên tưởng tới hàm round() nên code vậy coi như là để chủ thớt tham khảo.
Thôi thì đành chờ xem dữ liệu thực ra sao rồi sai đâu sửa đấy vậy.

Không phải ở chỗ "chưa chắc đã là số".
Sở dĩ tôi không trả lời trưc tiếp là vì tôi tránh khong trả lời chủ thớt (tôi có lý do riêng của tôi)

Gợi ý: bạn dùng hàm rand lập ra cỡ 50 số rồi thử code của mình. Xong xét kỹ kết quả xem có gì lạ?
Nếu vẫn chưa thấy thì thử 100 số.
Loại lỗi này tôi đã có giải thích ở GPE một vài lần rồi.

 

[longpvh3010]

Coi chừng chưa chắc ra kết quả đúng nghe bạn.
(gợi ý cho bạn học hỏi thôi. Việc chủ thớt có xài được không liên quan gì đến tôi)
Bài #5 cũng vậy

Cho em hỏi vấn đề ở đây có phải vấn đề anh đề cập ở topic này không ạ ?
http://www.giaiphapexcel.com/forum/...-hàm-Round-của-WorksheetFunction-và-của-Excel

 

[TheThienChu]

Không phải là chỗ tôi muốn nói.
Không phải ở chỗ "chưa chắc đã là số".
Sở dĩ tôi không trả lời trưc tiếp là vì tôi tránh khong trả lời chủ thớt (tôi có lý do riêng của tôi)

Gợi ý: bạn dùng hàm rand lập ra cỡ 50 số rồi thử code của mình. Xong xét kỹ kết quả xem có gì lạ?
Nếu vẫn chưa thấy thì thử 100 số.
Loại lỗi này tôi đã có giải thích ở GPE một vài lần rồi.

Cám ơn bác nhiều!
...........................