[Lỗi khi chạy file VBA trên máy khác]

[guctoosayohzeml]

Mình xin chào mọi người,
File VBA chạy trên máy mình thì rất ổn, nhưng không hiểu sao khi chép sang máy khác thì có 2 thông báo lỗi như thế này ạ, có thể liên quan đến Sub Replace(). Rất mong mọi người hỗ trợ ạ.

 

[Phuocam]

Mình xin chào mọi người,
File VBA chạy trên máy mình thì rất ổn, nhưng không hiểu sao khi chép sang máy khác thì có 2 thông báo lỗi như thế này ạ, có thể liên quan đến Sub Replace(). Rất mong mọi người hỗ trợ ạ.

Bạn làm theo hướng này:

Sub Replace()
Dim rng As Range, v As Variant
Set rng = Sheets("EDIT").Columns("C:C")
For Each v In Array("QU?N ", "QU?N", "QUAN ", "QUAN", "Q. ", "Q.", "Q ")
    rng.Replace What:=v, Replacement:="Q ", LookAt:=xlPart
Next v
'.....
End Sub

 

[guctoosayohzeml]

Bạn làm theo hướng này:

Sub Replace()
Dim rng As Range, v As Variant
Set rng = Sheets("EDIT").Columns("C:C")
For Each v In Array("QU?N ", "QU?N", "QUAN ", "QUAN", "Q. ", "Q.", "Q ")
    rng.Replace What:=v, Replacement:="Q ", LookAt:=xlPart
Next v
'.....
End Sub

Cám ơn bạn đã hỗ trợ

 

[Phuocam]

Cám ơn bạn đã hỗ trợ, nhưng trong sub Replace () mình còn thay thế Phường, P. , P., -> P , HN -> Hà Nội nữa ạ

Phần còn lại bạn tự làm, thêm 2 vòng lặp theo mẫu trên.

.

 

[guctoosayohzeml]

Phần còn lại bạn tự làm, thêm 2 vòng lặp theo mẫu trên.

.

Cảm ơn bạn Mình xóa phần cuối FormulaVersion:=xl.... thì code chạy được. Có thể do mình record trên Excel 365 nên có thêm thông số này. Còn trên Excel đời trước đó không có thông số FormulaVersion:=xl....
Một lần nữa, cám ơn bạn