Hướng dẫn cách bọc hàm ROUND trong excel hàng loạt
Một cách hiệu quả hơn để thay thế tất cả các công thức trong Excel bằng cách bọc chúng trong hàm ROUND là sử dụng Macro VBA. Dưới đây là mã VBA để thực hiện điều này:
Mở cửa sổ VBA:
Nhấn Alt + F11 để mở cửa sổ VBA.
Tạo một module mới:
Trong cửa sổ VBA, chọn Insert > Module để tạo một module mới.
Nhập mã VBA:
Sub WrapFormulasWithRound()
Dim cell As Range
Dim formula As String
' Duyệt qua tất cả các ô trong vùng chọn
For Each cell In Selection
If cell.HasFormula Then
formula = cell.Formula
' Bọc công thức bằng ROUND
cell.Formula = "=ROUND(" & Mid(formula, 2) & ", 0)"
End If
Next cell
End SubSao chép và dán mã sau vào module:
Chạy Macro:
Để chạy Macro, quay lại Excel, chọn phạm vi ô bạn muốn áp dụng (các ô có công thức).
Nhấn Alt + F8, chọn WrapFormulasWithRound, rồi nhấn Run.
Macro này sẽ bọc tất cả các công thức trong các ô đã chọn trong hàm ROUND với 2 chữ số thập phân.
Chúc các bạn thành công
Bình luận
Gửi