Bạn có thể dễ dàng thay thế tất cả âm sắc bằng macro
Nó thường không phải là vấn đề lớn như cách đây vài năm, nhưng âm sắc vẫn có thể gây ra sự cố khi trao đổi dữ liệu. Hình sau đây cho thấy một bảng có các văn bản chứa âm sắc:
Nếu bạn cần trao đổi thông tin với các hệ thống khác hoặc gửi dữ liệu đến các quốc gia khác, do đó, nó có thể hữu ích khi thay thế tất cả âm sắc trong một bảng. Bạn thay thế ä bằng ae, ö bằng oe, v.v.
Tất nhiên, bạn có thể làm điều này bằng cách gọi liên tục hàm EDIT - REPLACE. Nhưng đó là rất nhiều công việc. Nếu bạn muốn thay thế cả ba âm sắc ä, ö và ü trong chữ hoa và chữ thường cũng như chữ ß, bạn phải thực hiện bảy thao tác thay thế liên tiếp.
Nó dễ dàng hơn với macro. Đây là mã chương trình thích hợp:
Sub ReplaceUmlauts ()
Làm mờ ô dưới dạng phạm vi
Với Application.WorksheetFunction
Đối với từng ô được lựa chọn
Cell.Value = .Subsults (.Subsults (.Subsults (.Subsults (_
.Subsrupt (.Subsrupt (.Subsults (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Ô tiếp theo
Kết thúc với
Kết thúc Sub
Macro tổ chức các lệnh gọi thay thế thích hợp thông qua hàm Sản phẩm thay thế vào nhau. Đây là tên hàm tiếng Anh của hàm REPLACE table.
Để sử dụng macro, trước tiên hãy chọn các ô mà bạn muốn thay thế âm sắc và sau đó gọi macro. Hình sau cho thấy bảng có âm sắc trông như thế nào sau khi khởi động macro:
