Replace không chạy

[bjboyn00b]

Chào mọi người, mọi người xem giúp mình cấu trúc code sau:

Dim OrigStr As String, ReplaceStr As String

Set Rng = ThisWorkbook.Sheets("Sample").Range("D13000")
OrigStr = ThisWorkbook.Sheets("Sample").Range("M4").Value2
ReplaceStr = ThisWorkbook.Sheets("Sample").Range("M2").Value2


Rng.Replace What:=OrigStr, Replacement:=ReplaceStr, LookAt:=xlPart

Trong vùng D13000 mình có đặt công thức có liên quan đến đường dẫn, đường dẫn có định dạng : //dc...../a/b/x/ , mình có code để đổi giá trị x ở trong ô M2 như phía trên, nhưng sao đôi lúc nó không hoạt động và không báo lỗi gì nhỉ.
Xin cảm ơn.

 

[bebo021999]

Có nghĩa là nó đã hoạt động, và nó đã replace giá trị Null (giá trị không có gì)
Cụ thể bạn share file lên nhé

 

[bjboyn00b]

Có nghĩa là nó đã hoạt động, và nó đã replace giá trị Null (giá trị không có gì)
Cụ thể bạn share file lên nhé

Đây bạn ơi, xem giúp mình nhé

 

[bebo021999]

Không rõ lắm, nhưng có vẻ bạn muốn thay thế string trong formula, không phải trong value?
Nếu vậy bạn không dùng Range.Replace nhé
Bạn làm theo hướng này: Bóc formula từng ô ra mà thay.

For each cel in range(...)
    If cel.hasformula then
       str = cel.formula
       str = Replace(str,"chuỗi cũ","chuỗi mới")
       cel.fomular = str
     End if
Next

 

[bjboyn00b]

Không rõ lắm, nhưng có vẻ bạn muốn thay thế string trong formula, không phải trong value?
Nếu vậy bạn không dùng Range.Replace nhé
Bạn làm theo hướng này: Bóc formula từng ô ra mà thay.

For each cel in range(...)
    If cel.hasformula then
       str = cel.formula
       str = Replace(str,"chuỗi cũ","chuỗi mới")
       cel.fomular = str
     End if
Next

Cảm ơn bạn, đúng là mình thay thế string trong Formula, mình có viết sang như này nhưng không đươc, bạn xem giúp mình lỗi ở đâu với

Sub changelink()
Dim chuoicu As String
Dim chuoimoi As String
Dim str As String
Dim lastrow As Long
Dim Cel As Range
    lastrow = Sheet24.Cells(.Rows.Count, "D").End(xlUp).Row
    chuoicu = ThisWorkbook.Sheets("Sample").Range("M4").Value
    chuoimoi = ThisWorkbook.Sheets("Sample").Range("M2").Value
  
For Each Cel In Sheets24.Range("D6:" & lastrow)
    If Cel.HasFormula Then
       str = Cel.Formula
       str = Replace(str, "chuoicu", "chuoimoi")
       Cel.fomular = str
     End If
Next
End Sub

 

[bebo021999]

Bạn có thể tìm hiểu cách kiểm tra xem sai ở đâu. Mình hay làm thế này.
Giới hạn số dòng lại, ví dụ đến dòng 10, sau đó debug.print xem thử kết quả từng dòng

lr=10
...
str = Cel.Formula
debug.print str
...

Còn vì sao không chạy thì có thể chỗ này sai chính tả:

  Cel.fomular = str

 

[bjboyn00b]

Bạn có thể tìm hiểu cách kiểm tra xem sai ở đâu. Mình hay làm thế này.
Giới hạn số dòng lại, ví dụ đến dòng 10, sau đó debug.print xem thử kết quả từng dòng

lr=10
...
str = Cel.Formula
debug.print str
...

Còn vì sao không chạy thì có thể chỗ này sai chính tả:

  Cel.fomular = str

Cảm ơn bạn nhiều, mình quên không bỏ chuoicu và chuỗi mới ra khỏi ngoặc kép ) . Nhiều lúc ngáo thật.

 

[bjboyn00b]

Bạn có thể tìm hiểu cách kiểm tra xem sai ở đâu. Mình hay làm thế này.
Giới hạn số dòng lại, ví dụ đến dòng 10, sau đó debug.print xem thử kết quả từng dòng

lr=10
...
str = Cel.Formula
debug.print str
...

Còn vì sao không chạy thì có thể chỗ này sai chính tả:

  Cel.fomular = str

Bạn ơi lại phiền bạn chút. Máy mình thì dùng không vấn đề gì , nhưng máy khác dùng thì lại báo error ở dòng đặt lại công thức cho cel

 

[bebo021999]

Bạn ơi lại phiền bạn chút. Máy mình thì dùng không vấn đề gì , nhưng máy khác dùng thì lại báo error ở dòng đặt lại công thức cho cel

Có thể do version của Excel máy đang dùng đời thấp hơn, nên công thức bị lỗi?
ví dụ: SUMIFS chuyển qua máy đang dùng là Ex 2003 nên báo lỗi.
hay XLOOKUP từ máy ex365 chuyển qua Ex2016 cũng báo lỗi

 

[befaint]

Không khai báo biến thì phăng teo là đúng rồi.

Cái này chỉ cần record macro cho Range.Replace_All là được.
Thay đổi đường dẫn thì sẽ báo cập nhật Link -> Cần tắt sự kiện đi rồi bật lại sau khi thay thế đường dẫn xong.