Về vấn đề unlink giữa các sheet trong cùng 1 file excel

[batman237]

Kính chào anh chị em của forum,
Rất mong đc mọi người hướng dẫn giúp mình cách break link giữa các sheet. Mình có thể break link giữa 2 file excel với nhau nhưng ko biết cách làm tương tự giữa 2 sheet trong cùng 1 file excel.
Ví dụ: 1 file excel có sheet1, sheet2, sheet3
Trong sheet 2 có công thức: A3=20+sheet1!A3+sheet3!A3
Mình muốn sau khi break link xong thì ô A3 của sheet 2 có công thức: A3=20+10+30
Cảm ơn anh chị em đã đọc qua post này!!

 

[bGuz]

Kính chào anh chị em của forum,
Rất mong đc mọi người hướng dẫn giúp mình cách break link giữa các sheet. Mình có thể break link giữa 2 file excel với nhau nhưng ko biết cách làm tương tự giữa 2 sheet trong cùng 1 file excel.
Ví dụ: 1 file excel có sheet1, sheet2, sheet3
Trong sheet 2 có công thức: A3=20+sheet1!A3+sheet3!A3
Mình muốn sau khi break link xong thì ô A3 của sheet 2 có công thức: A3=20+10+30
Cảm ơn anh chị em đã đọc qua post này!!

Sub test_03() Dim aFormula As String With ActiveSheet For Each c In .Range(Selection.Address) aFormula = .Range(c.Address).FormulaR1C1 For n = 1 To Sheets.Count aFormula = Replace(aFormula, Sheets(n).Name & "!", "") Next .Range(c.Address).FormulaR1C1 = aFormula Next End With End Sub