Tìm kiếm và thay thế bằng VBA

[Bùi Trung Đức]

Code mình viết sai hay bị lỗi mà không thể thay thế được vậy anh em nhỉ

Sub replace()
Dim StrA As String
Dim StrB As String
StrA = ","
StrB = "."
Range("B5:B10").replace StrA, StrB
End Sub

 

[Nhattanktnn]

Code mình viết sai hay bị lỗi mà không thể thay thế được vậy anh em nhỉ
View attachment 280992
Sub replace()
Dim StrA As String
Dim StrB As String
StrA = ","
StrB = "."
Range("B5:B10").replace StrA, StrB
End Sub

Chưa đủ tham số cho Replace, đối với máy mặc định thì code bạn chạy bình thường. Nhưng có lẽ do bạn đang tick vào "Match entire cell contents" nên code không hoạt động. Thử sửa lại chỗ replace thế này:

Range("B5:B10").replace StrA, StrB, xlPart, , False

 

[Bùi Trung Đức]

Chưa đủ tham số cho Replace, đối với máy mặc định thì code bạn chạy bình thường. Nhưng có lẽ do bạn đang tick vào "Match entire cell contents" nên code không hoạt động. Thử sửa lại chỗ replace thế này:

Range("B5:B10").replace StrA, StrB, xlPart, , False

Vẫn không được bạn ơi. Có cách nào khác không bạn.

 

[Nhattanktnn]

Vẫn không được bạn ơi. Có cách nào khác không bạn.View attachment 280993

Bạn bấm Ctrl H và chụp cái bảng Replace của bạn lên xem nào? (nhớ mở rộng phần option ra rồi chụp)

 

[be_09]

Code mình viết sai hay bị lỗi mà không thể thay thế được vậy anh em nhỉ
View attachment 280992
Sub replace()
Dim StrA As String
Dim StrB As String
StrA = ","
StrB = "."
Range("B5:B10").replace StrA, StrB
End Sub

Tại sao không chọn cột B rồi Ctrl + H để sử dụng hộp thoại Find and Replace cho nhanh mà phải dùng code cho rườm rà nhỉ.

 

[Bùi Trung Đức]

Tại sao không chọn cột B rồi Ctrl + H để sử dụng hộp thoại Find and Replace cho nhanh mà phải dùng code cho rườm rà nhỉ.

à, cái này thì mình có biết,
đoạn VBA này chỉ là 1 phần trong file nên muốn viết VBA để tự động cho các lần sau

 

[hhoang_56]

Vấn đề này có thể do bị ảnh hưởng bởi tùy chọn trong phần Options - Advanced - Use system separators

 

[Bùi Trung Đức]

Vấn đề này có thể do bị ảnh hưởng bởi tùy chọn trong phần Options - Advanced - Use system separators

Đúng như bạn nói, cảm ơn bạn.

Bài đã được tự động gộp: 14/9/22

Bạn bấm Ctrl H và chụp cái bảng Replace của bạn lên xem nào? (nhớ mở rộng phần option ra rồi chụp)

CTRL + H thì vẫn thay thế được, nhưng khi dùng VBA thì không thay thế được

 

[VetMini]

...
CTRL + H thì vẫn thay thế được, nhưng khi dùng VBA thì không thay thế được

Đã biết làm đến vậy thì cứ việc record macro là ra code.

 

[anhtuan2939]

Range("B5:B10").replace StrA, StrB

Bạn sửa thành

Range("B5:B10").replace StrA, StrB, LookAt:=xlPart

 

[Bùi Trung Đức]

Đã biết làm đến vậy thì cứ việc record macro là ra code.

Sử dụng CTRL + H thì được, nhưng record macro thì không được bạn ơi

 

[huuthang_bd]

Nói qua nói lại hơn chục bài rồi mà chưa có được cái file. Bài #1 mà có file thì chắc xong lâu rồi.

 

[SA_DQ]

Code mình viết sai hay bị lỗi mà không thể thay thế được vậy anh em nhỉ
View attachment 280992
Sub replace()
Dim StrA As String
Dim StrB As String
StrA = ","
StrB = "."
Range("B5:B10").replace StrA, StrB
End Sub

Tác giả bài đăng sao lại canh giữa cả cột thế nhỉ, thích quậy fá . . à!?

 

[VetMini]

Sử dụng CTRL + H thì được, nhưng record macro thì không được bạn ơi

Được chứ sao không. Hệ thống bạn có vấn đề với Macro thì có viết code VBA cũng chịu thua.
Đây là cái macro tôi recorded, hoạt đọng in hệt như Ctrl+h.