Xoá công thức và đường links trong các sheets (1 người xem)

[discover]

Chào các thầy và các bạn,
Báo cáo của mình có nhiều sheets và công thức, links... nên rất nặng.
Khi gởi báo cáo đi mình muốn xoá hết các công thức và các đường links trong tất cả các sheets (sheet ẩn và sheet hiện).
Mình có thử vài đoạn code mà làm hoài không thành công:

Function GetValue(TenFile)
On Error Resume Next
    Dim WBook As Workbook
    Dim Sh As Worksheet
   Set WBook = Workbooks(TenFile)
   
'   For Each Sh In WBook.Worksheets
'     With Sh.UsedRange
'       .Value = .Value
'       .Hyperlinks.Delete
'     End With
     With Sh.Cells.Select
        .Value = .Value
        .Copy
        .xlPasteValues
        .Hyperlinks.Delete
     End With
   Next Sh  
End Function

Xin các thầy và các bạn giúp dùm.

 

[Luc Van]

Chào các thầy và các bạn,
Báo cáo của mình có nhiều sheets và công thức, links... nên rất nặng.
Khi gởi báo cáo đi mình muốn xoá hết các công thức và các đường links trong tất cả các sheets (sheet ẩn và sheet hiện).
Mình có thử vài đoạn code mà làm hoài không thành công:

Bạn thử vào Edit ---> Links ---> Break link
hoặc Tools ---> options ---> edit ---> bỏ dấu ask to uplate automatic links

 

[discover]

Bạn thử vào Edit ---> Links ---> Break link
hoặc Tools ---> options ---> edit ---> bỏ dấu ask to uplate automatic links

Cảm ơn bạn Luc Van,
Cac bạn có cách nào làm bằng VBA không? Mình muốn chuyển đổi file có công thức và hàm thành file chỉ có giá trị và format trong tất cả các sheet ẩn và hiện. Chỉ mình cách viết code với, thanks!

 

[ndu96081631]

Cảm ơn bạn Luc Van,
Cac bạn có cách nào làm bằng VBA không? Mình muốn chuyển đổi file có công thức và hàm thành file chỉ có giá trị và format trong tất cả các sheet ẩn và hiện. Chỉ mình cách viết code với, thanks!

Thì nghiệm mà không có file thì thua ---> Thôi thì bạn cứ đưa thử 1 file lên đây xem (kiếm file nào mà bạn chưa làm được ấy)

 

[discover]

Em xin gởi file này, bác ndu và các bác khác chỉ bảo giúp viết code để remove công thức và link nhưng vẫn giữ giá trị và format trong các sheet ẩn và hiện:

Cảm ơn các bác rất nhiều.

 

[ndu96081631]

Em xin gởi file này, bác ndu và các bác khác chỉ bảo giúp viết code để remove công thức và link nhưng vẫn giữ giá trị và format trong các sheet ẩn và hiện:

Cảm ơn các bác rất nhiều.

Thì vầy thôi

Sub GetValue()
  Dim Sh As Worksheet
  For Each Sh In ThisWorkbook.Worksheets
    With Sh.UsedRange
     .Copy: .PasteSpecial 3
    End With
  Next Sh
  Application.CutCopyMode = 0
End Sub

 

[discover]

E thư lại rồi bác,
vẫn còn nhiều cells còn công thức và links như hình sau:

 

[ndu96081631]

E thư lại rồi bác,
vẫn còn nhiều cells còn công thức và links như hình sau:
View attachment 56533

Có đâu chứ ---> Tôi chạy code trên, công thức sạch láng luôn
Kiểm tra lại xem

 

[discover]

Cảm ơn bác NDU,
Em sai rồi, em gọi hàm sai nên không ra kết quả. Xin lỗi bác và cảm ơn bác nhiều.
Em có thắc mắc chút xíu: nếu em dùng code:
.Value = .Value
.Hyperlinks.Delete
thì khác gì với
.Copy: .PasteSpecial 3

 

[ndu96081631]

Cảm ơn bác NDU,
Em sai rồi, em gọi hàm sai nên không ra kết quả. Xin lỗi bác và cảm ơn bác nhiều.
Em có thắc mắc chút xíu: nếu em dùng code:
.Value = .Value
.Hyperlinks.Delete
thì khác gì với
.Copy: .PasteSpecial 3

Cũng chẳng biết nữa (chưa có thời gian kiểm tra kỹ)... nhưng thấy rằng nếu dùng .Value = .Value thì có phát sinh lỗi ---> Thôi copy và paste values cho rồi