Chuyển đổi toàn bộ công thức hoặc hàm thành giá trị trong file excel nhiều sheet

[vovanlanphuong]

Em đang chuyển toàn bộ các ô có công thức thành giá trị, nhưng file của em có rất nhiều sheet vì vậy em dùng copy và paste value rất mất thời gian. Có anh chị nào giúp em cách nào để chuyển toàn bộ các ô có hàm thành giá trị được không. Xin cảm ơn trước a

 

[nghiaphuc]

Em đang chuyển toàn bộ các ô có công thức thành giá trị, nhưng file của em có rất nhiều sheet vì vậy em dùng copy và paste value rất mất thời gian. Có anh chị nào giúp em cách nào để chuyển toàn bộ các ô có hàm thành giá trị được không. Xin cảm ơn trước a

Bạn sử dụng code sau:

Sub Test()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        Ws.UsedRange.Value = Ws.UsedRange.Value
    Next
End Sub

 

[nguyenmanhnam]

Bạn sử dụng code sau:

Sub Test()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        Ws.UsedRange.Value = Ws.UsedRange.Value
    Next
End Sub

Em muốn nhờ anh giúp thêm em chút nữa là ngoài việc chuyển sang Value như trên, toàn bộ các ô là số trong tất cả các các Sheet được làm tròn đến hàng đơn vị, tức là tương đương với hàm Round(Value,0)

 

[nghiaphuc]

Em muốn nhờ anh giúp thêm em chút nữa là ngoài việc chuyển sang Value như trên, toàn bộ các ô là số trong tất cả các các Sheet được làm tròn đến hàng đơn vị, tức là tương đương với hàm Round(Value,0)

Bạn thử code sau xem:
[GPECODE=vb]Sub Test()
Dim Ws As Worksheet, Cll As Range
On Error Resume Next
For Each Ws In ThisWorkbook.Worksheets
For Each Cll In Ws.Cells.SpecialCells(xlCellTypeFormulas, 1)
Cll.Value = WorksheetFunction.Round(Cll.Value, 0)
Next
Ws.UsedRange.Value = Ws.UsedRange.Value
Next
End Sub[/GPECODE]

 

[KhanhChi29]

Bạn thử code sau xem:
[GPECODE=vb]Sub Test()
Dim Ws As Worksheet, Cll As Range
On Error Resume Next
For Each Ws In ThisWorkbook.Worksheets
For Each Cll In Ws.Cells.SpecialCells(xlCellTypeFormulas, 1)
Cll.Value = WorksheetFunction.Round(Cll.Value, 0)
Next
Ws.UsedRange.Value = Ws.UsedRange.Value
Next
End Sub[/GPECODE]

Nhờ anh chị em chuyển code trên áp dụng cho vùng chọn, Mình muốn chỉ áp dụng cho vùng chọn vì một số vùng mình vẫn muốn giữ nguyên công thức