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?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
