Giúp mình sửa lỗi liên kết excel

[bhquachtuong]

Máy tính mình sử dung oneDrive khi mình sử dung công thức có liên kết. khi tắt file mở lại thì liên kết đổi lại thành liên kết trên onedrive chứ không phải liên kết file trên máy tính nữa. Các anh chị ai biết giúp mình sửa lỗi này với nhé

 

[HeSanbi]

Bạn đặt Macro sau vào một Module bất kì và chạy nó
Bạn cần Copy các Link trong Cell thay thế:
Links = Array("Http_balabalba.com_1", "Http:_balabalba.com_2")
Nếu chỉ cần xóa 1 link thì xóa từ dấu ( , ) trở đi, Muốn xóa nhiều link thì thêm dấu phẩy và Link
Nếu không được. Trước tiên bạn xóa On Error GoTo Ends, và chạy code.
Nếu báo lỗi, bạn đăng lỗi lên đây.

Muốn sử dụng sau này thì lưu dưới dạng xlsb hoặc xlsm
Lưu ý: Phải thực hiện Copy, không tự đánh từng ký tự.
Tôi chỉ giúp bạn xóa link. Chứ không giúp được bạn cách thêm lại link

Sub ClearLinkOndrive()
  On Error GoTo Ends
  With Application
  .Calculation = xlCalculationManual
  .ScreenUpdating = False
  '---------------------------------------------
      Dim i&, Obj As Object, sh As Object, FMCell$, Links As Variant, oneSh As Boolean
      oneSh = False
      If oneSh Then Set sh = ActiveSheet: GoTo OnlySheet
      Links = Array("Http_balabalba.com_1", "Http:_balabalba.com_2")
      For Each sh In Worksheets
OnlySheet:
        For Each Obj In sh.UsedRange
          FMCell = Obj.Formula
          For i = 0 To UBound(Links)
            If FMCell Like "*" & Links(i) & "*" Then
              Obj.Formula = Replace(FMCell, Links(i), "")
            End If
          Next i
        Next Obj
        If oneSh Then Exit For
      Next sh
  '---------------------------------------------
Ends:
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
  End With
End Sub

 

[bhquachtuong]

Bạn đặt Macro sau vào một Module bất kì và chạy nó
Bạn cần Copy các Link trong Cell thay thế:
Links = Array("Http_balabalba.com_1", "Http:_balabalba.com_2")
Nếu chỉ cần xóa 1 link thì xóa từ dấu ( , ) trở đi, Muốn xóa nhiều link thì thêm dấu phẩy và Link
Nếu không được. Trước tiên bạn xóa On Error GoTo Ends, và chạy code.
Nếu báo lỗi, bạn đăng lỗi lên đây.

Muốn sử dụng sau này thì lưu dưới dạng xlsb hoặc xlsm
Lưu ý: Phải thực hiện Copy, không tự đánh từng ký tự.
Tôi chỉ giúp bạn xóa link. Chứ không giúp được bạn cách thêm lại link

Sub ClearLinkOndrive()
  On Error GoTo Ends
  With Application
  .Calculation = xlCalculationManual
  .ScreenUpdating = False
  '---------------------------------------------
      Dim i&, Obj As Object, sh As Object, FMCell$, Links As Variant, oneSh As Boolean
      oneSh = False
      If oneSh Then Set sh = ActiveSheet: GoTo OnlySheet
      Links = Array("Http_balabalba.com_1", "Http:_balabalba.com_2")
      For Each sh In Worksheets
OnlySheet:
        For Each Obj In sh.UsedRange
          FMCell = Obj.Formula
          For i = 0 To UBound(Links)
            If FMCell Like "*" & Links(i) & "*" Then
              Obj.Formula = Replace(FMCell, Links(i), "")
            End If
          Next i
        Next Obj
        If oneSh Then Exit For
      Next sh
  '---------------------------------------------
Ends:
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
  End With
End Sub

Cám ơn bạn HeSanbi đã hỗ trợ giúp mình. Vấn đề là không phải xóa link mà là cài đặt trong excel hoặc trên Onedrive thế nào để nó không tự lấy link liên kết trên onedrive mà chỉ sử dung link liên kết trên máy tính của mình. Nếu xóa link thì chỉ cần Find and Replace cái là xong, chứ nếu mình xóa thì mỗi file mình làm mình đều phải xóa hết.