Làm cách nào để tìm và thay thế văn bản cụ thể trong hộp văn bản?

Tìm và Thay thế là một công cụ hữu ích để chúng tôi tìm và thay thế nội dung ô hoặc công thức một cách nhanh chóng và thuận tiện trong trang tính. Nhưng bây giờ, tôi có nhiều hộp văn bản trong trang tính của mình và tôi chỉ muốn tìm văn bản cụ thể và thay thế nó bằng giá trị khác trong các hộp văn bản này. Bạn có bất kỳ cách tốt để đối phó với vấn đề này?

Tìm và thay thế văn bản cụ thể trong nhiều hộp văn bản

Tìm và thay thế văn bản cụ thể trong nhiều hộp văn bản

Bạn có thể tìm và thay thế từng văn bản mình cần theo cách thủ công, nhưng nếu có nhiều hộp văn bản, điều này sẽ rất nhàm chán và mệt mỏi. Vì vậy, mã VBA sau đây có thể giúp bạn hoàn thành nó ngay lập tức.

1. Kích hoạt trang tính của bạn và nhấn giữ ALT + F11 phím để mở Cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Tìm và thay thế văn bản cụ thể trong các hộp văn bản của trang tính hiện tại

Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
    xValue = shp.TextFrame.Characters.Text
    shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub

3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ bật ra để nhắc bạn nhập văn bản cũ mà bạn muốn thay thế. Xem ảnh chụp màn hình:

4. Tiếp tục nhấp OKvà trong hộp nhắc nhở này, hãy nhập giá trị văn bản mới mà bạn muốn, xem ảnh chụp màn hình:

5. Và sau đó nhấp vào OK , các giá trị cũ đã được thay thế bằng các giá trị mới mà bạn đã nhập vào trang tính hiện tại. Xem ảnh chụp màn hình:

Các bài liên quan:

Làm cách nào để tìm và thay thế văn bản trong tiêu đề biểu đồ trong Excel?

Làm cách nào để tìm và thay thế văn bản trong các nhận xét trong Excel?

Làm cách nào để thay đổi nhiều đường dẫn siêu kết nối cùng một lúc trong Excel?