?Code làm mất dấu tiếng Việt (1 người xem)

  • Thread starter Thread starter ThuNghi
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

ThuNghi

Hãy cho rồi sẽ nhận!
Thành viên đã mất
Tham gia
16/8/06
Bài viết
3,808
Được thích
4,449
Các bạn cho tôi 1 function matdau làm mất dấu tiếng Việt và cắt blank, cụ thể như sau:
Matdau("Nguyễn Văn ăn") = NguyenVanAn
Matdau("Số chứng từ") = SoChungTu
Xin cám ơn!
 
ThuNghi đã viết:
Các bạn cho tôi 1 function matdau làm mất dấu tiếng Việt và cắt blank, cụ thể như sau:
Matdau("Nguyễn Văn ăn") = NguyenVanAn
Matdau("Số chứng từ") = SoChungTu
Xin cám ơn!
Làm mất dấu liên quan đến từng bảng mã như Unicode, VNI, ABC, ... không đơn giản.
Bạn có thể dùng chức năng Công Cụ của bộ gõ Unikey, chọn mã nguồn, mã đích, chọn Loại bỏ dấu.
Kết quả Nguyễn Văn Ăn thành Nguyen Van An.
Chỉ cần viết thêm hàm loại bỏ khoảng trắng.
 
Upvote 0
Thấy Unikey chỉ cần copy, ctr Sh F6 và paste cũng nhanh.
Thấy thuật tóan là find và thay thế thì hơi chậm.
Do tôi muốn tạo Name tự động theo tiêu đề của bảng. Vậy làm gia công hiệu quả hơn.
 
Upvote 0
ThuNghi đã viết:
Thấy Unikey chỉ cần copy, ctr Sh F6 và paste cũng nhanh.
Thấy thuật tóan là find và thay thế thì hơi chậm.
Do tôi muốn tạo Name tự động theo tiêu đề của bảng. Vậy làm gia công hiệu quả hơn.
Tôi đã viết xong 3 hàm để loại bỏ dấu:

LoaiDauUni: Loại dấu tíếng Việt cho Unicode
LoaiDauVni: Loại dấu tíếng Việt cho VNI Windows
LoaiDauVn3: Loại dấu tíếng Việt cho ABC-TCVN3

Và hàm để cắt tất cả khoảng trắng trong chuỗi AllTrim.

Bạn tải HotrotiengVietVBA (tập tin dạng AddIns) và HuongDan.xls là danh sách các hàm hỗ trợ.
 

File đính kèm

Upvote 0
Tôi đã viết xong 3 hàm để loại bỏ dấu:

LoaiDauUni: Loại dấu tíếng Việt cho Unicode
LoaiDauVni: Loại dấu tíếng Việt cho VNI Windows
LoaiDauVn3: Loại dấu tíếng Việt cho ABC-TCVN3

Cảm ơn chuyên gia về VBA & Tiếng Việt.
Bác có tích hợp luôn vào TVEXCEL không?
 
Upvote 0
Gửi anh Phạm Duy Long và anh em trên diễn đàn,

Mình cũng dùng code của anh Long nhưng không thể xử lý triệt để được. Mong anh giúp đỡ thêm.

Dữ liệu như đính kèm (dữ liệu này được extract từ phần mềm ERP tên là "Exact Globe").

Tôi đã viết xong 3 hàm để loại bỏ dấu:

LoaiDauUni: Loại dấu tíếng Việt cho Unicode
LoaiDauVni: Loại dấu tíếng Việt cho VNI Windows
LoaiDauVn3: Loại dấu tíếng Việt cho ABC-TCVN3

Và hàm để cắt tất cả khoảng trắng trong chuỗi AllTrim.

Bạn tải HotrotiengVietVBA (tập tin dạng AddIns) và HuongDan.xls là danh sách các hàm hỗ trợ.
 

File đính kèm

Upvote 0
Gửi anh Phạm Duy Long và anh em trên diễn đàn,

Mình cũng dùng code của anh Long nhưng không thể xử lý triệt để được. Mong anh giúp đỡ thêm.

Dữ liệu như đính kèm (dữ liệu này được extract từ phần mềm ERP tên là "Exact Globe").
Bác Long đã mất rồi bạn ạ! Bạn nêu rõ yêu cầu và nhờ các thành viên khác nhé!
 
Upvote 0
Gửi anh Phạm Duy Long và anh em trên diễn đàn,

Mình cũng dùng code của anh Long nhưng không thể xử lý triệt để được. Mong anh giúp đỡ thêm.

Dữ liệu như đính kèm (dữ liệu này được extract từ phần mềm ERP tên là "Exact Globe").
Dấu của bạn là sử dụng bảng mã unicode tổ hợp nên hàm bị sai là phải rồi.
 
Upvote 0
Gửi anh Phạm Duy Long và anh em trên diễn đàn,

Mình cũng dùng code của anh Long nhưng không thể xử lý triệt để được. Mong anh giúp đỡ thêm.

Dữ liệu như đính kèm (dữ liệu này được extract từ phần mềm ERP tên là "Exact Globe").

Giúp bạn 1 tay. Code mượn của anh Siwtom.
 

File đính kèm

Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom