Làm ơn viết giùm mình macro làm tròn giá trị ạ

[namphong126087]

Mong các bạn hỗ trợ ạ
Mình có một ô đang có công thức tính toán ra chữ số thập phân. Giờ mình muốn khi chạy macro, ô đó sẽ thêm công thức làm tròn =Round(...;2) vào ô đó.
Mình thử mãi mà không được. Mong các bạn giúp ạ.
Ví dụ ô của mình là ô A1 đang có công thức là: =70/45
Giờ mình muốn sau khi chạy nó sẽ thành: =round(70/45;2)
Cảm ơn các bạn!

 

[Hoàng Tuấn 868]

Mình thử mãi mà không được. Mong các bạn giúp ạ.

Cái file bạn đã "thử mãi mà không được" ấy đâu, đưa lên đây biết đâu nó lại được.

 

[namphong126087]

Sub InsertRoundFormula()
Dim selectedCell As Range
Dim decimalPlaces As Integer
Dim cellValue As Double
If TypeName(Selection) = "Range" Then
decimalPlaces = InputBox("Enter the number of decimal places to round to:", "Set Decimal Places", 2)
For Each selectedCell In Selection
If IsNumeric(selectedCell.Value) Then
cellValue = selectedCell.Value
selectedCell.Formula = "=ROUND(" & cellValue & "," & decimalPlaces & ")"
End If
End Sub

Mình dùng cái này ạ

 

[Hoàng Tuấn 868]

Sub InsertRoundFormula()
Dim selectedCell As Range
Dim decimalPlaces As Integer
Dim cellValue As Double
If TypeName(Selection) = "Range" Then
decimalPlaces = InputBox("Enter the number of decimal places to round to:", "Set Decimal Places", 2)
For Each selectedCell In Selection
If IsNumeric(selectedCell.Value) Then
cellValue = selectedCell.Value
selectedCell.Formula = "=ROUND(" & cellValue & "," & decimalPlaces & ")"
End If
End Sub

Mình dùng cái này ạ

Bạn có biết cái nào gọi là "File" không.