Xóa công thức chỉ còn giá trị khi Save as ra file khác!!! (1 người xem)

[shenjy]

- Mình muốn khi save as ra một file khác công thức sẽ bị xóa và chỉ còn lại giá trị thôi.
Các ban giúp mình với...

 

[phulien1902]

- Mình muốn khi save as ra một file khác công thức sẽ bị xóa và chỉ còn lại giá trị thôi.
Các ban giúp mình với...

Bạn thử với:

Sub abc()
    Dim ws As Worksheet
    Dim r As Range
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each ws In Sheets
        For Each r In ws.UsedRange
            If Not IsEmpty(r) Then r.Value = r.Value
        Next
    Next
    ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\Ten_File")
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

 

[shenjy]

Mình chèn vào mudule nhưng chưa được bạn.
bạn test lại dùm mình nha. thank

 

[duongcga]

For Each ws In Sheets
For Each r In ws.UsedRange
If Not IsEmpty(r) Then r.Value = r.Value
Next
Next
vòng lặp này chả có ý nghĩa gì cả???

 

[Kiều Mạnh]

- Mình muốn khi save as ra một file khác công thức sẽ bị xóa và chỉ còn lại giá trị thôi.
Các ban giúp mình với...

Thử chơi Kiểu này xem sao ...xem nó có gia giá trị hông nha còn lưu thì keo Bác Bill nha ... Record ... ấy

Sub XYZ()
Dim Sh
For Each Sh In Worksheets
    With Sh.UsedRange
        .Value = .Value
    End With
Next
End Sub

 

[doveandrose]

Thử chơi Kiểu này xem sao ...xem nó có gia giá trị hông nha còn lưu thì keo Bác Bill nha ... Record ... ấy

Sub XYZ()
Dim Sh
For Each Sh In Worksheets
    With Sh.UsedRange
        .Value = .Value
    End With
Next
End Sub

ở trên người ta đã nói vòng lặp này chả có ý nghĩa gì cả rồi mà .